?? unit_main.~pas

?? 王歡燕的畢業設計(學生綜合管理系統).
?? ~PAS
?? 第 1 頁 / 共 2 頁
字號:
12 下一頁
//---------------------------------------------------
//  功能描述: 程序主模塊(業務邏輯),包括了本系統所有的業務邏輯的代碼
//  作者: 王歡燕
//  開發時間: 2003-07-12
//---------------------------------------------------

unit Unit_Main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ImgList, ComCtrls, ToolWin, Menus, StdCtrls, unit_dm, Grids,
  DBGrids, Buttons, ExtCtrls, Mask, DBCtrls, DB, Unit_bb2;

type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    ToolBar1: TToolBar;
    ImageList1: TImageList;
    ToolButton2: TToolButton;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    ToolButton8: TToolButton;
    ToolButton9: TToolButton;
    PageControl1: TPageControl;
    ts_student: TTabSheet;
    ts_cj: TTabSheet;
    ts_sm: TTabSheet;
    ts_bb1: TTabSheet;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    dbe_curri_name: TDBEdit;
    Label2: TLabel;
    dbe_curri_xf: TDBEdit;
    Bevel1: TBevel;
    sb_curri_insert: TSpeedButton;
    sb_curri_edit: TSpeedButton;
    sb_curri_delete: TSpeedButton;
    sb_curri_save: TSpeedButton;
    sb_curri_canel: TSpeedButton;
    GroupBox2: TGroupBox;
    Label3: TLabel;
    Label4: TLabel;
    Bevel2: TBevel;
    sb_class_insert: TSpeedButton;
    sb_class_edit: TSpeedButton;
    sb_class_delete: TSpeedButton;
    sb_class_save: TSpeedButton;
    sb_class_canel: TSpeedButton;
    dbe_class_name: TDBEdit;
    dbe_class_xf: TDBEdit;
    DBGrid2: TDBGrid;
    DBGrid1: TDBGrid;
    Label5: TLabel;
    dbe_student_no: TDBEdit;
    Label6: TLabel;
    dbe_student_name: TDBEdit;
    Label7: TLabel;
    dbcb_student_sex: TDBComboBox;
    Label8: TLabel;
    dbcb_student_class: TDBLookupComboBox;
    Bevel3: TBevel;
    Label9: TLabel;
    dbe_student_yb: TDBEdit;
    Label10: TLabel;
    dbe_student_address: TDBEdit;
    sb_student_insert: TSpeedButton;
    sb_student_edit: TSpeedButton;
    sb_student_delete: TSpeedButton;
    sb_student_save: TSpeedButton;
    sb_student_canel: TSpeedButton;
    Panel1: TPanel;
    GroupBox3: TGroupBox;
    DBGrid3: TDBGrid;
    DBLookupListBox1: TDBLookupListBox;
    sb_student_search: TSpeedButton;
    ed_student_search: TEdit;
    Panel2: TPanel;
    GroupBox4: TGroupBox;
    GroupBox5: TGroupBox;
    DBLookupListBox2: TDBLookupListBox;
    GroupBox6: TGroupBox;
    DBGrid5: TDBGrid;
    DBGrid4: TDBGrid;
    sb_cj_insert: TSpeedButton;
    sb_cj_delete: TSpeedButton;
    sb_cj_edit: TSpeedButton;
    Bevel4: TBevel;
    sb_cj_save: TSpeedButton;
    sb_cj_canel: TSpeedButton;
    Label11: TLabel;
    Label12: TLabel;
    dbe_cj_xf: TDBEdit;
    Label13: TLabel;
    dbcb_cj_bk: TDBComboBox;
    dblcb_cj_name: TDBLookupComboBox;
    N3: TMenuItem;
    ToolButton10: TToolButton;
    PopupMenu1: TPopupMenu;
    N4: TMenuItem;
    N5: TMenuItem;
    ts_bb2: TTabSheet;
    Panel3: TPanel;
    ts_about: TTabSheet;
    Label14: TLabel;
    Label15: TLabel;
    Bevel5: TBevel;
    Label16: TLabel;
    Label17: TLabel;
    procedure sb_curri_insertClick(Sender: TObject);
    procedure sb_curri_editClick(Sender: TObject);
    procedure sb_curri_saveClick(Sender: TObject);
    procedure sb_curri_canelClick(Sender: TObject);
    procedure sb_curri_deleteClick(Sender: TObject);
    procedure sb_class_insertClick(Sender: TObject);
    procedure sb_class_editClick(Sender: TObject);
    procedure sb_class_deleteClick(Sender: TObject);
    procedure sb_class_canelClick(Sender: TObject);
    procedure sb_class_saveClick(Sender: TObject);
    procedure sb_student_deleteClick(Sender: TObject);
    procedure sb_student_insertClick(Sender: TObject);
    procedure sb_student_editClick(Sender: TObject);
    procedure sb_student_saveClick(Sender: TObject);
    procedure sb_student_searchClick(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure sb_student_canelClick(Sender: TObject);
    procedure sb_cj_insertClick(Sender: TObject);
    procedure sb_cj_editClick(Sender: TObject);
    procedure sb_cj_deleteClick(Sender: TObject);
    procedure sb_cj_saveClick(Sender: TObject);
    procedure sb_cj_canelClick(Sender: TObject);
    procedure ToolButton9Click(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure ToolButton7Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure ToolButton6Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure DBLookupListBox1Click(Sender: TObject);
    procedure Panel3Click(Sender: TObject);
    procedure DBLookupListBox2Click(Sender: TObject);
    procedure DBGrid5DblClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure set_curri_state(state:String);
    procedure set_class_state(state:String);
    procedure set_student_state(state:String);
    procedure set_cj_state(state:String);
  end;

var
  Form1: TForm1;

implementation

uses Unit_About, Unit_bb1;

{$R *.dfm}


//---------------------------------
// 功能描述:  進入課程新增模塊
//---------------------------------
procedure TForm1.sb_curri_insertClick(Sender: TObject);
begin
  dm.adot_curri.Insert;
  form1.set_curri_state('open');
end;

//--------------------------------------------------
// 功能描述:  設置課程管理表單的不同錄入狀態
// 參數說明:   state = 'open'  將表單設置為錄入狀態
//             state = 'close' 將表單設置為查看狀態
//--------------------------------------------------
procedure TForm1.set_curri_state(state:String);
begin
  if state = 'open'then
  begin
    form1.dbe_curri_name.Enabled:=true;
    form1.dbe_curri_xf.Enabled:=true;
    form1.sb_curri_insert.Enabled:=false;
    form1.sb_curri_edit.Enabled:=false;
    form1.sb_curri_delete.Enabled:=false;
    form1.sb_curri_save.Enabled:=true;
    form1.sb_curri_canel.Enabled:=true;
    form1.DBGrid2.Enabled:=false;
  end;
  if state = 'close'then
  begin
    form1.dbe_curri_name.Enabled:=false;
    form1.dbe_curri_xf.Enabled:=false;
    form1.sb_curri_insert.Enabled:=true;
    form1.sb_curri_edit.Enabled:=true;
    form1.sb_curri_delete.Enabled:=true;
    form1.sb_curri_save.Enabled:=false;
    form1.sb_curri_canel.Enabled:=false;
    form1.DBGrid2.Enabled:=true;
  end;
end;


//--------------------------------------------------
// 功能描述:  設置班級管理表單的不同錄入狀態
// 參數說明:   state = 'open'  將表單設置為錄入狀態
//             state = 'close' 將表單設置為查看狀態
//--------------------------------------------------
procedure TForm1.set_class_state(state:String);
begin
  if state = 'open'then
  begin
    form1.dbe_class_name.Enabled:=true;
    form1.dbe_class_xf.Enabled:=true;
    form1.sb_class_insert.Enabled:=false;
    form1.sb_class_edit.Enabled:=false;
    form1.sb_class_delete.Enabled:=false;
    form1.sb_class_save.Enabled:=true;
    form1.sb_class_canel.Enabled:=true;
    form1.DBGrid1.Enabled:=false;
  end;
  if state = 'close'then
  begin
    form1.dbe_class_name.Enabled:=false;
    form1.dbe_class_xf.Enabled:=false;
    form1.sb_class_insert.Enabled:=true;
    form1.sb_class_edit.Enabled:=true;
    form1.sb_class_delete.Enabled:=true;
    form1.sb_class_save.Enabled:=false;
    form1.sb_class_canel.Enabled:=false;
    form1.DBGrid1.Enabled:=true;
  end;
end;

//--------------------------------------------------
// 功能描述:  設置學生管理表單的不同錄入狀態
// 參數說明:   state = 'open'  將表單設置為錄入狀態
//             state = 'close' 將表單設置為查看狀態
//--------------------------------------------------
procedure TForm1.set_student_state(state:String);
begin
  if state = 'open'then
  begin
    form1.dbe_student_name.Enabled:=true;
    form1.dbe_student_yb.Enabled:=true;
    form1.dbe_student_no.Enabled:=true;
    form1.dbe_student_address.Enabled:=true;
    form1.dbcb_student_sex.Enabled:=true;
    form1.dbcb_student_class.Enabled:=true;
    form1.sb_student_insert.Enabled:=false;
    form1.sb_student_edit.Enabled:=false;
    form1.sb_student_delete.Enabled:=false;
    form1.sb_student_save.Enabled:=true;
    form1.sb_student_canel.Enabled:=true;
    form1.DBGrid3.Enabled:=false;
  end;
  if state = 'close'then
  begin
    form1.dbe_student_name.Enabled:=false;
    form1.dbe_student_yb.Enabled:=false;
    form1.dbe_student_no.Enabled:=false;
    form1.dbe_student_address.Enabled:=false;
    form1.dbcb_student_sex.Enabled:=false;
    form1.dbcb_student_class.Enabled:=false;
    form1.sb_student_insert.Enabled:=true;
    form1.sb_student_edit.Enabled:=true;
    form1.sb_student_delete.Enabled:=true;
    form1.sb_student_save.Enabled:=false;
    form1.sb_student_canel.Enabled:=false;
    form1.DBGrid3.Enabled:=true;
  end;
end;


//--------------------------------------------------
// 功能描述:  設置成績管理表單的不同錄入狀態
// 參數說明:   state = 'open'  將表單設置為錄入狀態
//             state = 'close' 將表單設置為查看狀態
//--------------------------------------------------
procedure TForm1.set_cj_state(state:String);
begin
  if state = 'open'then
  begin
    form1.dblcb_cj_name.Enabled:=true;
    form1.dbe_cj_xf.Enabled:=true;
    form1.dbcb_cj_bk.Enabled:=true;
    form1.sb_cj_insert.Enabled:=false;
    form1.sb_cj_edit.Enabled:=false;
    form1.sb_cj_delete.Enabled:=false;
    form1.sb_cj_save.Enabled:=true;
    form1.sb_cj_canel.Enabled:=true;
    form1.DBGrid4.Enabled:=false;
  end;
  if state = 'close'then
  begin
    form1.dblcb_cj_name.Enabled:=false;
    form1.dbe_cj_xf.Enabled:=false;
    form1.dbcb_cj_bk.Enabled:=false;
    form1.sb_cj_insert.Enabled:=true;
    form1.sb_cj_edit.Enabled:=true;
    form1.sb_cj_delete.Enabled:=true;
    form1.sb_cj_save.Enabled:=false;
    form1.sb_cj_canel.Enabled:=false;
    form1.DBGrid4.Enabled:=true;
  end;
end;

//---------------------------------
// 功能描述:  進入課程修改模塊
//---------------------------------
procedure TForm1.sb_curri_editClick(Sender: TObject);
begin
  if dm.adot_curri.RecordCount>0 then
  begin
    dm.adot_curri.Edit;
    form1.set_curri_state('open');
  end;
end;


//---------------------------------
// 功能描述:  保存課程修改模塊
//---------------------------------
procedure TForm1.sb_curri_saveClick(Sender: TObject);
begin
  if form1.dbe_curri_name.Text = '' then
  begin
    application.MessageBox('請輸入課程名稱','提示信息',MB_OK);
    form1.dbe_curri_name.SetFocus;
    exit;
  end;
  if form1.dbe_curri_xf.Text = '' then
  begin
    application.MessageBox('請輸入課程所占的學分','提示信息',MB_OK);
    form1.dbe_curri_xf.SetFocus;
    exit;
  end;

  try
    dm.adot_curri.Post;
    dm.adot_curri.UpdateRecord;
    dm.adot_curri.Refresh;
  except
  end;
    form1.set_curri_state('close');
end;

//---------------------------------
// 功能描述:  放棄課程修改
//---------------------------------
procedure TForm1.sb_curri_canelClick(Sender: TObject);
begin
  try
    dm.adot_curri.Cancel;
    dm.adot_curri.Refresh;
    form1.set_curri_state('close');
  except
  end;
end;


//---------------------------------
// 功能描述:  進入課程刪除模塊
//---------------------------------
procedure TForm1.sb_curri_deleteClick(Sender: TObject);
begin
  if dm.adot_curri.RecordCount>0 then
  begin
    if application.MessageBox('你確認要刪除這門課程嗎','警告信息',MB_YESNO)=ID_YES then
    begin
      try
        dm.adot_curri.Delete;
        dm.adot_curri.UpdateRecord;
        dm.adot_curri.Refresh;
      except
      end;
    end;
  end;
end;


//---------------------------------
// 功能描述:  進入班級新增模塊
//---------------------------------
procedure TForm1.sb_class_insertClick(Sender: TObject);
begin
  dm.adot_class.Insert;
  form1.set_class_state('open');
end;

//---------------------------------
// 功能描述:  進入班級修改模塊
//---------------------------------
procedure TForm1.sb_class_editClick(Sender: TObject);
begin
  if dm.adot_class.RecordCount>0 then
  begin
    dm.adot_class.Edit;
    form1.set_class_state('open');
  end;
end;
12 下一頁
?? 文件大小 2185 K
?? 上傳用戶 caozijianlovenb
?? 所屬分類教育系統應用
??? 相關標簽

#畢業設計 #綜合管理系統
?? 快捷鍵說明

復制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號 Ctrl + =
減小字號 Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

?? unit_main.~pas

?? 快捷鍵說明
