data.pas

仓库管理信息系统

unit data;

interface

uses
  SysUtils, Classes, DB, ADODB;

type
  Tdm = class(TDataModule)
    ADOCN: TADOConnection;
    whckdmads: TADODataSet;
    whbmdmads: TADODataSet;
    bmlymxads: TADODataSet;
    gysghmxads: TADODataSet;
    whcclxdmads: TADODataSet;
    whjcdads: TADODataSet;
    whjcmxads: TADODataSet;
    whccdads: TADODataSet;
    QCLYADS: TADODataSet;
    whgysdmads: TADODataSet;
    whjclxdmads: TADODataSet;
    cxjcbads: TADODataSet;
    gysghhzads: TADODataSet;
    bmlyhzbads: TADODataSet;
    whtzmxads: TADODataSet;
    whclbmads: TADODataSet;
    whysrads: TADODataSet;
    whjbsjads: TADODataSet;
    whcjtzads: TADODataSet;
    whcllxdmads: TADODataSet;
    whccmxads: TADODataSet;
    whckdmds: TDataSource;
    whgysdmds: TDataSource;
    whjclxdmds: TDataSource;
    whbmdmds: TDataSource;
    whcclxdmds: TDataSource;
    whcllxdmds: TDataSource;
    whclbmds: TDataSource;
    whgysdmadsID: TStringField;
    whgysdmadsDSDesigner: TStringField;
    whgysdmadsDSDesigner2: TStringField;
    whgysdmadsDSDesigner3: TStringField;
    whgysdmadsDSDesigner4: TStringField;
    whgysdmadsDSDesigner5: TStringField;
    whjcdds: TDataSource;
    whjcmxds: TDataSource;
    whjcdadsID: TAutoIncField;
    whjcdadsDSDesigner: TStringField;
    whjcdadsDSDesigner2: TDateTimeField;
    whjcdadsID2: TStringField;
    whjcdadsID3: TStringField;
    whjcdadsID4: TStringField;
    whjcdadsID5: TStringField;
    whjcdadsField: TStringField;
    whjcdadsField2: TStringField;
    whjcdadsID6: TStringField;
    whjcdadsDSDesigner3: TStringField;
    whjcdadsField3: TStringField;
    whysrds: TDataSource;
    whjcmxadsID: TAutoIncField;
    whjcmxadsID2: TStringField;
    whjcmxadsDSDesigner2: TIntegerField;
    whjcmxadsDSDesigner3: TBCDField;
    whjcmxadsDSDesigner4: TBCDField;
    whjcmxadsDSDesigner5: TStringField;
    whjcmxadsField: TStringField;
    whjcmxadsID3: TStringField;
    whjcmxadsField2: TStringField;
    whjcmxadsField3: TStringField;
    whjcmxadsField4: TStringField;
    whccdds: TDataSource;
    whccmxds: TDataSource;
    whccdadsID: TAutoIncField;
    whccdadsDSDesigner: TStringField;
    whccdadsDSDesigner2: TDateTimeField;
    whccdadsID2: TStringField;
    whccdadsID3: TStringField;
    whccdadsID4: TStringField;
    whccdadsID5: TStringField;
    whccdadsDSDesigner3: TStringField;
    whccdadsDSDesigner4: TStringField;
    whccdadsField: TStringField;
    whccmxadsID: TAutoIncField;
    whccmxadsID2: TStringField;
    whccmxadsDSDesigner: TStringField;
    whccmxadsDSDesigner2: TIntegerField;
    whccmxadsDSDesigner3: TBCDField;
    whccmxadsDSDesigner4: TBCDField;
    whccmxadsDSDesigner5: TStringField;
    whccmxadsStringField: TStringField;
    whccmxadsStringField2: TStringField;
    whccmxadsStringField3: TStringField;
    whccmxadsStringField4: TStringField;
    whccmxadsID3: TStringField;
    whccdadsField2: TStringField;
    whcjtzds: TDataSource;
    whcjtzadsID: TAutoIncField;
    whcjtzadsDSDesigner: TDateTimeField;
    whcjtzadsID2: TStringField;
    whcjtzadsID3: TStringField;
    whcjtzadsDSDesigner7: TStringField;
    whcjtzadsDSDesigner6: TStringField;
    whtzmxds: TDataSource;
    whcjtzadsDSDesigner2: TStringField;
    whcjtzadsDSDesigner3: TStringField;
    whtzmxadsID: TAutoIncField;
    whtzmxadsID2: TIntegerField;
    whtzmxadsDSDesigner: TStringField;
    whtzmxadsDSDesigner2: TIntegerField;
    whtzmxadsDSDesigner3: TBCDField;
    whtzmxadsDSDesigner4: TBCDField;
    whtzmxadsDSDesigner5: TStringField;
    whtzmxadsDSDesigner6: TStringField;
    whtzmxadsStringField: TStringField;
    whtzmxadsStringField2: TStringField;
    whtzmxadsStringField3: TStringField;
    whtzmxadsStringField4: TStringField;
    whtzmxadsID3: TStringField;
    whclbmadsDSDesigner: TStringField;
    whclbmadsDSDesigner2: TStringField;
    whclbmadsDSDesigner3: TStringField;
    whclbmadsDSDesigner4: TStringField;
    whclbmadsDSDesigner5: TBCDField;
    whclbmadsID: TStringField;
    whclbmadsID2: TStringField;
    whclbmadsDSDesigner6: TIntegerField;
    whclbmadsDSDesigner8: TIntegerField;
    whclbmadsDSDesigner9: TIntegerField;
    whclbmadsDSDesigner10: TIntegerField;
    whclbmadsField: TStringField;
    whclbmadsField2: TStringField;
    whclbmadsDSDesigner7: TBCDField;
    jcsladosp: TADOStoredProc;
    ccsladssp: TADOStoredProc;
    kcsladosp: TADOStoredProc;
    whjbsjds: TDataSource;
    cxjcbds: TDataSource;
    cxjcbadsDSDesigner: TStringField;
    cxjcbadsDSDesigner2: TStringField;
    cxjcbadsDSDesigner3: TStringField;
    cxjcbadsDSDesigner4: TStringField;
    cxjcbadsID: TStringField;
    cxjcbadsID2: TStringField;
    cxjcbadsDSDesigner5: TIntegerField;
    cxjcbadsDSDesigner6: TBCDField;
    cxjcbadsDSDesigner7: TBCDField;
    cxjcbadsDSDesigner8: TIntegerField;
    cxjcbadsDSDesigner9: TBCDField;
    cxjcbadsDSDesigner10: TBCDField;
    cxjcbadsDSDesigner11: TIntegerField;
    cxjcbadsDSDesigner12: TBCDField;
    cxjcbadsDSDesigner13: TBCDField;
    cxjcbadsDSDesigner14: TIntegerField;
    cxjcbadsDSDesigner15: TBCDField;
    cxjcbadsDSDesigner16: TBCDField;
    cxjcbadsDSDesigner17: TIntegerField;
    cxjcbadsDSDesigner18: TBCDField;
    cxjcbadsStringField: TStringField;
    whjbsjadsDSDesigner: TStringField;
    whjbsjadsDSDesigner2: TStringField;
    whjbsjadsDSDesigner3: TStringField;
    whjbsjadsDSDesigner4: TDateTimeField;
    whjbsjadsDSDesigner5: TStringField;
    whjbsjadsDSDesigner6: TStringField;
    whyhqxads: TADODataSet;
    whyhqxds: TDataSource;
    whyhqxadsID: TStringField;
    whyhqxadsDSDesigner: TStringField;
    whyhqxadsID2: TStringField;
    whyhqxadsDSDesigner3: TBooleanField;
    whyhqxadsStringField: TStringField;
    whyhqxadsDSDesigner4: TStringField;
    whyhqxadsDSDesigner5: TBooleanField;
    whyhqxadsDSDesigner6: TBooleanField;
    whyhqxadsDSDesigner7: TBooleanField;
    whyhqxadsDSDesigner8: TBooleanField;
    whyhqxadsDSDesigner9: TBooleanField;
    whyhqxadsDSDesigner10: TBooleanField;
    whyhqxadsDSDesigner11: TBooleanField;
    whyhqxadsDSDesigner12: TBooleanField;
    whyhqxadsDSDesigner13: TBooleanField;
    whyhqxadsDSDesigner14: TBooleanField;
    whyhqxadsDSDesigner15: TBooleanField;
    whyhqxadsDSDesigner16: TBooleanField;
    whyhqxadsDSDesigner17: TBooleanField;
    whyhqxadsDSDesigner18: TBooleanField;
    whyhqxadsDSDesigner19: TBooleanField;
    whyhqxadsDSDesigner20: TBooleanField;
    whyhqxadsDSDesigner21: TBooleanField;
    whyhqxadsDSDesigner22: TBooleanField;
    whyhqxadsDSDesigner2: TBooleanField;
    bmlyhzds: TDataSource;
    bmlymxds: TDataSource;
    bmlyhzbadsDSDesigner: TStringField;
    bmlyhzbadsDSDesigner2: TIntegerField;
    bmlyhzbadsDSDesigner3: TBCDField;
    bmlyhzbadsID: TStringField;
    bmlyhzbadsStringField: TStringField;
    bmlyhzbadsStringField2: TStringField;
    bmlyhzbadsStringField3: TStringField;
    bmlyhzbadsStringField4: TStringField;
    bmlymxadsDSDesigner: TDateTimeField;
    bmlymxadsDSDesigner2: TStringField;
    bmlymxadsDSDesigner3: TIntegerField;
    bmlymxadsDSDesigner4: TBCDField;
    bmlymxadsDSDesigner5: TBCDField;
    bmlymxadsDSDesigner6: TStringField;
    bmlymxadsID: TStringField;
    bmlymxadsStringField: TStringField;
    bmlymxadsStringField2: TStringField;
    bmlymxadsStringField3: TStringField;
    bmlymxadsStringField4: TStringField;
    bmlyhzbadsField: TFloatField;
    whbmdmadsID: TStringField;
    whbmdmadsDSDesigner: TStringField;
    gysghhzds: TDataSource;
    gysghmxds: TDataSource;
    gysghhzadsDSDesigner: TStringField;
    gysghhzadsDSDesigner2: TIntegerField;
    gysghhzadsDSDesigner3: TBCDField;
    gysghhzadsID: TStringField;
    gysghhzadsStringField: TStringField;
    gysghhzadsStringField2: TStringField;
    gysghhzadsStringField3: TStringField;
    gysghhzadsStringField4: TStringField;
    gysghhzadsFloatField: TFloatField;
    gysghmxadsDSDesigner: TDateTimeField;
    gysghmxadsID3: TStringField;
    gysghmxadsDSDesigner2: TStringField;
    gysghmxadsDSDesigner3: TStringField;
    gysghmxadsDSDesigner4: TIntegerField;
    gysghmxadsDSDesigner5: TBCDField;
    gysghmxadsDSDesigner6: TBCDField;
    gysghmxadsID4: TStringField;
    gysghmxadsStringField: TStringField;
    gysghmxadsStringField2: TStringField;
    gysghmxadsStringField3: TStringField;
    gysghmxadsStringField4: TStringField;
    gysghmxadsStringField5: TStringField;
    QCLYADSID: TStringField;
    QCLYADSDSDesigner: TStringField;
    QCLYADSDSDesigner3: TBCDField;
    QCLYADSField: TStringField;
    qclyds: TDataSource;
    QCLYADSField2: TStringField;
    whjcmxadsDSDesigner: TStringField;
    procedure whjcmxadsBeforeInsert(DataSet: TDataSet);
    procedure whjcmxadsNewRecord(DataSet: TDataSet);
    procedure whjcdadsNewRecord(DataSet: TDataSet);
    procedure whccdadsNewRecord(DataSet: TDataSet);
    procedure whccmxadsNewRecord(DataSet: TDataSet);
    procedure whccmxadsBeforeInsert(DataSet: TDataSet);
    procedure whjcdadsBeforeDelete(DataSet: TDataSet);
    procedure whccdadsBeforeDelete(DataSet: TDataSet);
    procedure whcjtzadsNewRecord(DataSet: TDataSet);
    procedure whclbmadsBeforePost(DataSet: TDataSet);
    procedure whtzmxadsBeforeInsert(DataSet: TDataSet);
    procedure whtzmxadsNewRecord(DataSet: TDataSet);
    procedure whcjtzadsBeforeDelete(DataSet: TDataSet);
    procedure whyhqxadsBeforeEdit(DataSet: TDataSet);
    procedure whyhqxadsBeforeInsert(DataSet: TDataSet);
    procedure whyhqxadsBeforePost(DataSet: TDataSet);
    procedure whjcmxadsDSDesigner3Change(Sender: TField);
    procedure whjcmxadsDSDesigner2Change(Sender: TField);
    procedure whccmxadsDSDesigner2Change(Sender: TField);
    procedure whccmxadsDSDesigner3Change(Sender: TField);
    procedure whtzmxadsDSDesigner2Change(Sender: TField);
    procedure whtzmxadsDSDesigner3Change(Sender: TField);
    procedure whjcmxadsBeforePost(DataSet: TDataSet);
    procedure whccmxadsBeforePost(DataSet: TDataSet);
    procedure whtzmxadsBeforePost(DataSet: TDataSet);
    procedure whclbmadsAfterPost(DataSet: TDataSet);
    procedure whclbmadsNewRecord(DataSet: TDataSet);
    procedure whjcmxadsAfterPost(DataSet: TDataSet);
    procedure whccmxadsAfterPost(DataSet: TDataSet);
    procedure bmlyhzbadsCalcFields(DataSet: TDataSet);
    procedure gysghhzadsCalcFields(DataSet: TDataSet);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  dm:Tdm;