dm.~pas

用Delphi做的一个学生数据库系统

unit dm;

interface

uses
  SysUtils, Classes, DB, ADODB, DBActns, ActnList;

type
    Tdmform = class(TDataModule)
    ADOQuery_login: TADOQuery;
    ADOConnection1: TADOConnection;
    ADOQuery_depart: TADOQuery;
    DataSource_depart: TDataSource;
    ADOQuery_class: TADOQuery;
    DataSource_class: TDataSource;
    ADOQuery_qx_user: TADOQuery;
    ADOQuery_stu: TADOQuery;
    DataSource_stu: TDataSource;
    DataSource_reward: TDataSource;
    ADOQuery_reward: TADOQuery;
    ADOQuery_punish: TADOQuery;
    DataSource_punish: TDataSource;
    ADOQuery_change: TADOQuery;
    DataSource_change: TDataSource;
    DataSource_qx_user: TDataSource;
    DataSource_login: TDataSource;
    procedure ADOQuery_departAfterScroll(DataSet: TDataSet);
    procedure DataSource_departStateChange(Sender: TObject);
    procedure ADOQuery_departBeforeClose(DataSet: TDataSet);
    procedure ADOQuery_classAfterScroll(DataSet: TDataSet);
    procedure ADOQuery_stuAfterScroll(DataSet: TDataSet);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  dmform: Tdmform;
implementation

uses departUnit, classUnit, login, queryUnit, changUnit, MainUnit, stuUnit;

{$R *.dfm}

procedure Tdmform.ADOQuery_departAfterScroll(DataSet: TDataSet);
begin
      if flag1 then
      begin
     departform.Edit1.Text:=dmform.ADOQuery_depart.FieldByName('院系编号').AsString;
     departform.Edit2.Text:=dmform.ADOQuery_depart.FieldByName('院系名称').AsString;
     departform.Edit3.Text:=dmform.ADOQuery_depart.Fields[2].AsString;       //院系领导
     departform.Edit4.Text:=dmform.ADOQuery_depart.FieldByName('领导电话').AsString;
     departform.Edit5.Text:=dmform.ADOQuery_depart.FieldByName('院系描述').AsString;
     departform.StatusBar1.Panels[0].Text:='记录号为:'+inttostr(dataset.RecNo)+'  总记录数为:'+inttostr(dataset.RecordCount)+'个';  //状态栏显示
     end;
  end;
procedure Tdmform.ADOQuery_classAfterScroll(DataSet: TDataSet);
begin
     if flag2 then
     begin
       classform.Edit1.Text:=dmform.ADOQuery_class.Fields[0].AsString;
       classform.Edit2.Text:=dmform.ADOQuery_class.Fields[1].AsString;
       classform.Edit3.Text:=dmform.ADOQuery_class.FieldByName('所属院系').AsString;
       classform.Edit4.Text:=dmform.ADOQuery_class.Fields[3].AsString;
       classform.Edit5.Text:=dmform.ADOQuery_class.Fields[4].AsString;
       classform.Edit6.Text:=dmform.ADOQuery_class.Fields[5].AsString;
     end;
end;

procedure Tdmform.ADOQuery_stuAfterScroll(DataSet: TDataSet);
begin
     if flag3 then
     begin
      stuform.Edit1.Text:=dmform.ADOQuery_stu.Fields[0].AsString;
      stuform.Edit2.Text:=dmform.ADOQuery_stu.Fields[1].AsString;
      stuform.Edit3.Text:=dmform.ADOQuery_stu.Fields[2].AsString;
      stuform.Edit4.Text:=dmform.ADOQuery_stu.Fields[3].AsString;
      stuform.Edit5.Text:=dmform.ADOQuery_stu.Fields[4].AsString;
      stuform.Edit6.Text:=dmform.ADOQuery_stu.Fields[5].AsString;
     end;
end;

procedure Tdmform.DataSource_departStateChange(Sender: TObject);   //状态栏显示
 var
 curStatus:string;
begin
   if flag1 then
   begin
   case DataSource_depart.State  of
   dsBrowse: curStatus:='浏览' ;
    dsEdit:  curStatus:='编辑' ;
    dsInsert:curStatus:='插入';
 else
   curStatus:='其它状态';
 end;
  departform.StatusBar1.Panels[1].Text:=curStatus;
  end;
end;

procedure Tdmform.ADOQuery_departBeforeClose(DataSet: TDataSet);//数据集的BeforeClose 事件
begin
{if (ADOQuery_depart.State in[dsEdit,dsInsert] then
begin
   case messagedlg('将修改的内容写回数据库吗?',mtConfirmation,mbYesNoCancel,0) of
     mrYes:ADOQuery_depart.Post ;    //将修改的内容写回数据库
     mrNo:ADOQuery_depart.Cancel;   //放弃修改
     mrCancel:Abort;    //不关闭数据集
   else ;
   end;   

end;  }

end;

end.