unit_main.~pas

王欢燕的毕业设计(学生综合管理系统).

//---------------------------------------------------
//  功能描述: 程序主模块(业务逻辑),包括了本系统所有的业务逻辑的代码
//  作者: 王欢燕
//  开发时间: 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;