dmunit.~pas

使用delphi语言

unit dmunit;

interface

uses
  SysUtils, Classes, DB, ADODB;

type
  Tdm = class(TDataModule)
    gjjconn: TADOConnection;
    bm: TADODataSet;
    person: TADODataSet;
    base: TADODataSet;
    qcye: TADODataSet;
    detail: TADODataSet;
    lxjs: TADODataSet;
    infor: TADODataSet;
    ye: TADODataSet;
    dsbm: TDataSource;
    dsperson: TDataSource;
    dsbase: TDataSource;
    dsqcye: TDataSource;
    dsdetail: TDataSource;
    dslxjs: TDataSource;
    dsinfor: TDataSource;
    dsuser: TDataSource;
    dsye: TDataSource;
    backconn: TADOConnection;
    cmd: TADOCommand;
    bmDSDesigner: TStringField;
    bmDSDesigner2: TStringField;
    personDSDesigner: TStringField;
    personDSDesigner2: TStringField;
    personDSDesigner3: TStringField;
    personDSDesigner4: TStringField;
    personDSDesigner5: TStringField;
    personDSDesigner6: TStringField;
    baseDSDesigner: TStringField;
    baseDSDesigner2: TStringField;
    baseDSDesigner3: TStringField;
    baseDSDesigner4: TStringField;
    gr: TBCDField;
    dw: TBCDField;
    total: TBCDField;
    baseDSDesigner8: TStringField;
    qcyeDSDesigner: TStringField;
    qcyeDSDesigner2: TStringField;
    qcyeDSDesigner3: TStringField;
    qcyeDSDesigner4: TStringField;
    qcyeDSDesigner5: TStringField;
    grq: TBCDField;
    dwq: TBCDField;
    zqc: TBCDField;
    detailDSDesigner: TStringField;
    detailDSDesigner2: TStringField;
    detailDSDesigner3: TStringField;
    detailDSDesigner4: TStringField;
    detailDSDesigner5: TStringField;
    detailDSDesigner6: TStringField;
    zjgr: TBCDField;
    zjdw: TBCDField;
    zjzxs: TBCDField;
    jsgr: TBCDField;
    jsdw: TBCDField;
    jszxs: TBCDField;
    detailDSDesigner13: TStringField;
    detailDSDesigner14: TStringField;
    yeDSDesigner: TStringField;
    yeDSDesigner2: TStringField;
    yeDSDesigner3: TStringField;
    yeDSDesigner4: TStringField;
    yeDSDesigner5: TStringField;
    yeDSDesigner6: TStringField;
    yeDSDesigner7: TBCDField;
    yeDSDesigner8: TBCDField;
    yeDSDesigner9: TBCDField;
    user: TADOQuery;
    userDSDesigner: TStringField;
    userDSDesigner2: TStringField;
    userDSDesigner3: TStringField;
    usersysuser: TBooleanField;
    userbm: TBooleanField;
    usergz: TBooleanField;
    userbase: TBooleanField;
    userqcye: TBooleanField;
    userinfor: TBooleanField;
    userautodz: TBooleanField;
    userautodel: TBooleanField;
    usermanual: TBooleanField;
    usergetfunds: TBooleanField;
    userlx: TBooleanField;
    userdellx: TBooleanField;
    useryecx: TBooleanField;
    usermxcx: TBooleanField;
    usergr_dw: TBooleanField;
    useruser1: TBooleanField;
    userdataback: TBooleanField;
    procedure grChange(Sender: TField);
    procedure dwChange(Sender: TField);
    procedure grqChange(Sender: TField);
    procedure dwqChange(Sender: TField);
    procedure DataModuleCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  dm: Tdm;

implementation

{$R *.dfm}

procedure Tdm.grChange(Sender: TField);
begin
  total.Value:=gr.Value+dw.Value ;
end;

procedure Tdm.dwChange(Sender: TField);
begin
total.Value:=gr.Value+dw.Value ;
end;

procedure Tdm.grqChange(Sender: TField);
begin
  zqc.Value:=grq.Value+dwq.Value ;
end;

procedure Tdm.dwqChange(Sender: TField);
begin
  zqc.Value:=grq.Value+dwq.Value ;
end;

procedure Tdm.DataModuleCreate(Sender: TObject);
begin
  dm.gjjconn.Connected:=false;
end;

end.