dm32.pas

来自「delphi框架可以学习, 写的很好的」· PAS 代码 · 共 274 行

unit dm32;

interface

uses
  SysUtils, Classes, DB, ADODB;

type
  Tdm = class(TDataModule)
    conn: TADOConnection;
    qryFree: TADOQuery;
    qryDoSQL: TADOQuery;
    qrySecurity: TADOQuery;
    qryLoginLog: TADOQuery;
    dsLoginLog: TDataSource;
    qryLoginLogSer: TAutoIncField;
    qryLoginLogUserCode: TStringField;
    qryLoginLogEmpName: TStringField;
    qryLoginLogIP: TStringField;
    qryLoginLogMAC: TStringField;
    qryLoginLogEV_Style: TStringField;
    qryLoginLogEV_Note: TMemoField;
    qryLoginLogEV_UseSQL: TMemoField;
    qryLoginLogEV_Module: TStringField;
    qryLoginLogEV_UseTime: TIntegerField;
    qryLoginLogEV_State: TStringField;
    qryLoginLogEV_STime: TDateTimeField;
    qryLoginLogEV_ETime: TDateTimeField;
    qrySQL: TADOQuery;
    dsSQL: TDataSource;
    qrySysLog: TADOQuery;
    AutoIncField1: TAutoIncField;
    StringField1: TStringField;
    StringField2: TStringField;
    StringField3: TStringField;
    StringField4: TStringField;
    StringField5: TStringField;
    MemoField1: TMemoField;
    MemoField2: TMemoField;
    StringField6: TStringField;
    IntegerField1: TIntegerField;
    StringField7: TStringField;
    DateTimeField1: TDateTimeField;
    DateTimeField2: TDateTimeField;
    dsSysLog: TDataSource;
    qryBasicData: TADOQuery;
    dsBasicData: TDataSource;
    qryBasicDataSer: TAutoIncField;
    qryBasicDataCode: TStringField;
    qryBasicDataName: TStringField;
    qryBasicDataIsOK: TIntegerField;
    qryBasicDataFZLX: TStringField;
    qryBasicDataSecCode: TStringField;
    qryBasicDataSRRQ: TDateTimeField;
    qryBasicDataCZY: TStringField;
    qryBasicDataNumber: TIntegerField;
    qryQuote: TADOQuery;
    dsQuote: TDataSource;
    qryQuoteXB: TADOQuery;
    dsQuoteXB: TDataSource;
    qryQuoteCpser: TAutoIncField;
    qryQuoteCpmc: TStringField;
    qryQuoteCpys: TStringField;
    qryQuoteSzym: TStringField;
    qryQuoteCpgg: TStringField;
    qryQuoteCpzz: TStringField;
    qryQuoteKh: TFloatField;
    qryQuoteRk: TFloatField;
    qryQuoteJf: TFloatField;
    qryQuoteWs: TFloatField;
    qryQuoteZsl: TFloatField;
    qryQuoteSgl: TFloatField;
    qryQuoteCpzl: TFloatField;
    qryQuoteSxzl: TFloatField;
    qryQuoteWys: TFloatField;
    qryQuoteFk: TStringField;
    qryQuoteZjl: TFloatField;
    qryQuoteBZ: TMemoField;
    qryQuoteXBSer: TAutoIncField;
    qryQuoteXBCpSer: TIntegerField;
    qryQuoteXBYlmc: TStringField;
    qryQuoteXBzs: TFloatField;
    qryQuoteXBtf: TFloatField;
    qryQuoteXBsh: TFloatField;
    qryQuoteXBbmhs: TFloatField;
    qryQuoteXBsj: TFloatField;
    qryQuoteXBcb: TFloatField;
    qryQuoteSgjg: TFloatField;
    qryQuoteTrjg: TFloatField;
    qryQuoteBcjg: TFloatField;
    qryQuotePtbj: TFloatField;
    qryQuoteTsbj: TFloatField;
    qryQuoteBjrq: TDateTimeField;
    qryQuotebjr: TStringField;
    qryQuoteshbz: TIntegerField;
    qryQuoteshrq: TDateTimeField;
    qryQuoteshr: TStringField;
    qryQuotecsrq: TDateTimeField;
    qryQuotecsr: TStringField;
    qryQuoteXBJwlx: TStringField;
    qryJobNote: TADOQuery;
    dsJobNote: TDataSource;
    qryJobNoteSer: TAutoIncField;
    qryJobNoteFzr: TStringField;
    qryJobNoteWtsj: TDateTimeField;
    qryJobNoteclbz: TIntegerField;
    qryJobNotewtnr: TMemoField;
    qryJobNoteUserCode: TStringField;
    qryJobNotewtzt: TStringField;
    qryQuoteXBYllx: TStringField;
    qryQuoteLine: TADOQuery;
    dsQuoteLine: TDataSource;
    qryQuotewc: TFloatField;
    qryPowerTree: TADOQuery;
    qryUserInfo: TADOQuery;
    dsUserInfo: TDataSource;
    qryPowerInfo: TADOQuery;
    dsPowerInfo: TDataSource;
    qryUserInfoSer: TAutoIncField;
    qryUserInfoUserCode: TStringField;
    qryUserInfoPassword: TStringField;
    qryUserInfoEmpName: TStringField;
    qryUserInfoMAC1: TStringField;
    qryUserInfoMAC2: TStringField;
    qryUserInfoMAC3: TStringField;
    qryUserInfoGroupName: TStringField;
    qryUserInfoCompany: TStringField;
    qryUserInfoOffice: TStringField;
    qryUserInfoLastTime: TDateTimeField;
    qryUserInfoLastIP: TStringField;
    qryUserInfoLastMAC: TStringField;
    qryUserInfoPowerStyle: TIntegerField;
    qryUserInfoLockTime: TIntegerField;
    qryUserInfoInvalid: TIntegerField;
    qryUserInfoValidSTime: TFloatField;
    qryUserInfoValidETime: TFloatField;
    qryPowerInfoSer: TAutoIncField;
    qryPowerInfoCode: TStringField;
    qryPowerInfoName: TStringField;
    qryPowerInfoWinName: TStringField;
    qryPowerInfoActName: TStringField;
    qryPowerInfoDJ: TIntegerField;
    qryUserPower: TADOQuery;
    dsUserPower: TDataSource;
    qryUserPowerSer: TAutoIncField;
    qryUserPowerUserCode: TStringField;
    qryUserPowerName: TStringField;
    qryUserPowerCode: TStringField;
    qryUserPowerWinName: TStringField;
    qryUserPowerActName: TStringField;
    qryUserPowerDJ: TIntegerField;
    qryMaterial: TADOQuery;
    dsMaterial: TDataSource;
    qryMaterialSer: TAutoIncField;
    qryMaterialCode: TStringField;
    qryMaterialFactory: TStringField;
    qryMaterialLX: TStringField;
    qryMaterialFG: TStringField;
    qryMaterialGG: TStringField;
    qryMaterialSRRQ: TDateTimeField;
    qryMaterialCZY: TStringField;
    qryMaterialPrice: TFloatField;
    qryMaterialJGRQ: TDateField;
    qryMaterialSHRQ: TDateTimeField;
    qryMaterialSHR: TStringField;
    qryMaterialSHBZ: TIntegerField;
    qryMaterialCSRQ: TDateTimeField;
    qryMaterialCSR: TStringField;
    qryMaterialSYFW: TStringField;
    qryJobNoteFzUserCode: TStringField;
    qryCraft: TADOQuery;
    dsCraft: TDataSource;
    qryCraftGyser: TAutoIncField;
    qryCraftCpmc: TStringField;
    qryCraftCpys: TStringField;
    qryCraftSzbs: TStringField;
    qryCraftSzym: TFloatField;
    qryCraftCpgg: TStringField;
    qryCraftBwzs: TStringField;
    qryCraftBwgg: TStringField;
    qryCraftJH: TStringField;
    qryCraftGH: TStringField;
    qryCraftCpzz: TStringField;
    qryCraftKh: TFloatField;
    qryCraftRk: TFloatField;
    qryCraftZsl: TFloatField;
    qryCraftHclsl: TFloatField;
    qryCraftShl: TFloatField;
    qryCraftWs: TFloatField;
    qryCraftCpfk: TFloatField;
    qryCraftCpjm: TFloatField;
    qryCraftCpwm: TFloatField;
    qryCraftCpzl: TFloatField;
    qryCraftSxfk: TFloatField;
    qryCraftSxjm: TFloatField;
    qryCraftSxwm: TFloatField;
    qryCraftSxzl: TFloatField;
    qryCraftWxys: TFloatField;
    qryCraftZjl: TFloatField;
    qryCraftZwm: TFloatField;
    qryCraftJf: TFloatField;
    qryCraftkc: TFloatField;
    qryCraftwc: TFloatField;
    qryCraftshbz: TIntegerField;
    qryCraftshrq: TDateTimeField;
    qryCraftshr: TStringField;
    qryCraftcsrq: TDateTimeField;
    qryCraftcsr: TStringField;
    qryCrafthcl1: TStringField;
    qryCrafthcl2: TStringField;
    qryCrafthcl3: TStringField;
    qryCrafthcl4: TStringField;
    qryCraftbz: TMemoField;
    qryCraftsrrq: TDateTimeField;
    qryCraftczy: TStringField;
    qryCraftXB: TADOQuery;
    dsCraftXB: TDataSource;
    qryCraftXBSer: TAutoIncField;
    qryCraftXBGySer: TIntegerField;
    qryCraftXBCode: TStringField;
    qryCraftXBzs: TFloatField;
    qryCraftXBtf: TFloatField;
    qryCraftXBph: TStringField;
    qryCraftXBbz: TStringField;
    qryCraftXBJwlx: TStringField;
    qryCraftXBSrrq: TDateTimeField;
    qryCraftXBCzy: TStringField;
    qryCraftXByl_zs: TStringField;
    qryCraftXByl_gys: TStringField;
    qryCraftXByl_lx: TStringField;
    qryCraftXByl_fg: TStringField;
    qryCraftXByl_gg: TStringField;
    qryRep: TADOQuery;
    dsRep: TDataSource;
    qryRepSer: TIntegerField;
    qryRepRepName: TStringField;
    qryRepDefValue: TBlobField;
    qryRepRepValue: TBlobField;
    qryRepEditDate: TDateTimeField;
    qryRepPcName: TStringField;
    qryRepEmpName: TStringField;
    qryCraftXBsh: TFloatField;
    qryCraftXBylmc: TStringField;
    qryCraftfk1: TFloatField;
    qryCraftfk2: TFloatField;
    qryCraftbcgf: TFloatField;
    qryCraftqtfy: TFloatField;
    qryCraftxsfk: TFloatField;
    qryUserInfoSRRQ: TDateTimeField;
    qryUserInfoCZY: TStringField;
    qryUserPowerValid: TIntegerField;
    qryCraftwb: TStringField;
    qryCraftSjzjl: TFloatField;
    qryMaterialZS: TStringField;
    qryMaterialDS: TStringField;
    qryMaterialTL: TIntegerField;
    qryMaterialRS: TIntegerField;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  dm: Tdm;

implementation

uses MyPublic;

{$R *.dfm}

end.