datamodule.pas

图书借阅管理系统

unit Datamodule;

interface

uses
  SysUtils, Classes, ADODB, DB;

type
  TDataModule1 = class(TDataModule)
    DataSource1: TDataSource;
    ADOConnection1: TADOConnection;
    ADOQuery1: TADOQuery;
    DataSource2: TDataSource;
    ADOTable1: TADOTable;
    ADOTable2: TADOTable;
    DataSource3: TDataSource;
    ADOQuery2: TADOQuery;
    DataSource4: TDataSource;
    ADOQuery3: TADOQuery;
    DataSource5: TDataSource;
    ADOQuery4: TADOQuery;
    DataSource6: TDataSource;
    ADOQuery5: TADOQuery;
    ADOQuery6: TADOQuery;
    DataSource7: TDataSource;
    DataSource8: TDataSource;
    ADOQuery7: TADOQuery;
    AdoPass: TADOQuery;
    AdopassDS: TDataSource;
    ADOAdmin: TADOQuery;
    DataAdmin: TDataSource;
    procedure ADOQuery3BeforePost(DataSet: TDataSet);
    procedure ADOQuery3AfterEdit(DataSet: TDataSet);
    procedure ADOQuery3AfterInsert(DataSet: TDataSet);
    procedure ADOQuery3AfterScroll(DataSet: TDataSet);
    procedure ADOQuery1AfterEdit(DataSet: TDataSet);
    procedure ADOQuery1AfterInsert(DataSet: TDataSet);
    procedure ADOQuery1AfterPost(DataSet: TDataSet);
    procedure ADOQuery3AfterPost(DataSet: TDataSet);
    procedure ADOQuery1AfterCancel(DataSet: TDataSet);
    procedure ADOQuery3AfterCancel(DataSet: TDataSet);
    procedure ADOAdminAfterInsert(DataSet: TDataSet);
    procedure ADOAdminAfterEdit(DataSet: TDataSet);
    procedure ADOAdminAfterPost(DataSet: TDataSet);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DataModule1: TDataModule1;

implementation

uses Book, Sys, Lend, Reader, Main, Admin;

{$R *.dfm}

procedure TDataModule1.ADOQuery3BeforePost(DataSet: TDataSet);
begin
  if (DataModule1.adoquery3.State = dsEdit) or (DataModule1.adoquery3.State = dsInsert)  then
    form4.button8.enabled:=false
  else form4.button8.enabled:=true;
end;

procedure TDataModule1.ADOQuery3AfterEdit(DataSet: TDataSet);
begin
  form4.button8.enabled:=true;
end;

procedure TDataModule1.ADOQuery3AfterInsert(DataSet: TDataSet);
begin
  form4.button8.enabled:=true;
end;

procedure TDataModule1.ADOQuery3AfterScroll(DataSet: TDataSet);
begin
  {if form3.DBedit3.text='' then
    form3.button7.Enabled:=false
  else
    form3.button7.Enabled:=true;  }
end;

procedure TDataModule1.ADOQuery1AfterEdit(DataSet: TDataSet);
begin
  form2.button4.enabled:=true;
end;

procedure TDataModule1.ADOQuery1AfterInsert(DataSet: TDataSet);
begin
  form2.button4.enabled:=true;
end;

procedure TDataModule1.ADOQuery1AfterPost(DataSet: TDataSet);
begin
  form2.button4.enabled:=false;
end;

procedure TDataModule1.ADOQuery3AfterPost(DataSet: TDataSet);
begin
  form4.button8.enabled:=false;
end;

procedure TDataModule1.ADOQuery1AfterCancel(DataSet: TDataSet);
begin
  form2.button4.enabled:=false;
end;

procedure TDataModule1.ADOQuery3AfterCancel(DataSet: TDataSet);
begin
  form4.button8.enabled:=false;
end;

procedure TDataModule1.ADOAdminAfterInsert(DataSet: TDataSet);
begin
  PagesDlg.bitbtn5.enabled:=true;
end;

procedure TDataModule1.ADOAdminAfterEdit(DataSet: TDataSet);
begin
  PagesDlg.bitbtn5.enabled:=true;
end;

procedure TDataModule1.ADOAdminAfterPost(DataSet: TDataSet);
begin
  PagesDlg.bitbtn5.enabled:=false;
end;

end.