dm.pas

delphi作得信息业进销存源码.功能全面,运行稳定.

unit Dm;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Db, DBClient, MConnect,Variants;

type
  TData = class(TDataModule)
    Cn: TDCOMConnection;
    Tmp: TClientDataSet;
    Tmpf: TClientDataSet;
    Tmpl: TClientDataSet;
    AppUserGroup: TClientDataSet;
    AppUserGroupgName: TStringField;
    AppUserGroupgMemo: TStringField;
    AppUser: TClientDataSet;
    AppUseruCode: TStringField;
    AppUseruName: TStringField;
    AppUsergName: TStringField;
    AppUserID: TIntegerField;
    sAppUser: TDataSource;
    AppGroupDesktopClass: TClientDataSet;
    AppGroupDesktopClassgName: TStringField;
    AppGroupDesktopClasscName: TStringField;
    sAppGroupDesktopClass: TDataSource;
    sAppUserGroup: TDataSource;
    AppSelect: TClientDataSet;
    AppSelectDATASET: TStringField;
    AppSelectFIELDNAME: TStringField;
    AppSelectAUTOUPDATE: TBooleanField;
    AppSelectDATASELECT: TMemoField;
    AppSelectDefaultRow: TIntegerField;
    sAppSelect: TDataSource;
    AppLog: TClientDataSet;
    AppLoguName: TStringField;
    AppLogcName: TStringField;
    AppLogCZ: TStringField;
    AppLogRQ: TDateField;
    AppLogSJ: TStringField;
    sAppLog: TDataSource;
    Dq: TClientDataSet;
    sDq: TDataSource;
    AppMenu: TClientDataSet;
    AppMenumName: TStringField;
    AppMenumCaption: TStringField;
    AppMenumLevel: TIntegerField;
    AppMenumIndex: TIntegerField;
    AppMenumIsParent: TBooleanField;
    sAppMenu: TDataSource;
    Kh: TClientDataSet;
    sKh: TDataSource;
    DqID: TIntegerField;
    DqMC: TStringField;
    Gys: TClientDataSet;
    sGys: TDataSource;
    KhID: TIntegerField;
    KhBH: TStringField;
    KhMC: TStringField;
    KhQC: TStringField;
    KhLXR: TStringField;
    KhDH: TStringField;
    KhCZ: TStringField;
    KhDZ: TStringField;
    KhYB: TStringField;
    KhWZ: TStringField;
    KhDY: TStringField;
    KhKHYH: TStringField;
    KhYHZH: TStringField;
    KhNSH: TStringField;
    KhQCJE: TFloatField;
    KhXYED: TFloatField;
    KhZT: TBooleanField;
    KhBZ: TStringField;
    GysID: TIntegerField;
    GysBH: TStringField;
    GysMC: TStringField;
    GysQC: TStringField;
    GysLXR: TStringField;
    GysDH: TStringField;
    GysCZ: TStringField;
    GysDZ: TStringField;
    GysYB: TStringField;
    GysWZ: TStringField;
    GysDY: TStringField;
    GysKHYH: TStringField;
    GysYHZH: TStringField;
    GysNSH: TStringField;
    GysQCJE: TFloatField;
    GysZT: TBooleanField;
    GysBZ: TStringField;
    Zh: TClientDataSet;
    sZh: TDataSource;
    Sfkfs: TClientDataSet;
    sSfkfs: TDataSource;
    ZhID: TIntegerField;
    ZhMC: TStringField;
    ZhYHL: TBooleanField;
    ZhKHYH: TStringField;
    ZhYHZH: TStringField;
    KhDQID: TIntegerField;
    Srzclb: TClientDataSet;
    sSrzclb: TDataSource;
    SfkfsID: TIntegerField;
    SfkfsMC: TStringField;
    SfkfsZHID: TIntegerField;
    Hplb: TClientDataSet;
    sHplb: TDataSource;
    SrzclbID: TIntegerField;
    SrzclbMC: TStringField;
    SrzclbSRL: TBooleanField;
    SrzclbBZ: TStringField;
    ZhaYHL: TStringField;
    SrzclbaSRL: TStringField;
    Sjzl: TClientDataSet;
    sSjzl: TDataSource;
    Cyjsdw: TClientDataSet;
    sCyjsdw: TDataSource;
    Hphsff: TClientDataSet;
    sHphsff: TDataSource;
    Ck: TClientDataSet;
    sCk: TDataSource;
    Bm: TClientDataSet;
    sBm: TDataSource;
    CkID: TIntegerField;
    CkMC: TStringField;
    CkWZ: TStringField;
    CkBZ: TStringField;
    HplbID: TIntegerField;
    HplbMC: TStringField;
    HplbBZ: TStringField;
    SjzlID: TIntegerField;
    SjzlMC: TStringField;
    SjzlBZ: TStringField;
    CyjsdwMC: TStringField;
    CkXH: TIntegerField;
    SjzlXH: TIntegerField;
    Yglb: TClientDataSet;
    sYglb: TDataSource;
    Yg: TClientDataSet;
    sYg: TDataSource;
    BmID: TIntegerField;
    BmMC: TStringField;
    YglbID: TIntegerField;
    YglbMC: TStringField;
    Hp: TClientDataSet;
    sHp: TDataSource;
    YgID: TIntegerField;
    YgBH: TStringField;
    YgXM: TStringField;
    YgXB: TStringField;
    YgBMID: TIntegerField;
    YgCSRQ: TDateField;
    YgXL: TStringField;
    YgDH: TStringField;
    YgSFZH: TStringField;
    YgBP: TStringField;
    YgJG: TStringField;
    YgYB: TStringField;
    YgZZ: TStringField;
    YgZW: TStringField;
    YgRZRQ: TDateField;
    YgJBGZ: TFloatField;
    YgYWYBZ: TBooleanField;
    YgJSFF: TIntegerField;
    YgLZ: TBooleanField;
    YgBZ: TStringField;
    YgcBMMC: TStringField;
    YgcYGLBMC: TStringField;
    KhaDQMC: TStringField;
    SfkfsaZHMC: TStringField;
    YgaBMMC: TStringField;
    YgYGLBID: TIntegerField;
    YgaYGLBMC: TStringField;
    YgaJSFF: TStringField;
    YgaYWYBZ: TStringField;
    YgaLZ: TStringField;
    Qtkcbdlx: TClientDataSet;
    sQtkcbdlx: TDataSource;
    HpCkXx: TClientDataSet;
    sHpCkXx: TDataSource;
    HphsffID: TIntegerField;
    HphsffMC: TStringField;
    HphsffLB: TIntegerField;
    QtkcbdlxID: TIntegerField;
    QtkcbdlxMC: TStringField;
    QtkcbdlxRKL: TBooleanField;
    QtkcbdlxTHBZ: TBooleanField;
    HpID: TIntegerField;
    HpBH: TStringField;
    HpHPLBID: TIntegerField;
    HpaHPLBMC: TStringField;
    HpPM: TStringField;
    HpDW: TStringField;
    HpHPHSFFID: TIntegerField;
    HpHPSXID: TIntegerField;
    HpaHPSX: TStringField;
    HpJJ: TFloatField;
    HpJJJ: TFloatField;
    HpQCJE: TFloatField;
    HpSX: TFloatField;
    HpXX: TFloatField;
    HpaZT: TStringField;
    HpcHPLBMC: TStringField;
    HpSjXx: TClientDataSet;
    sHpSjXx: TDataSource;
    HpCkXxMC: TStringField;
    HpSjXxMC: TStringField;
    HpSjXxSJ: TFloatField;
    Hpkc: TClientDataSet;
    Hpsj: TClientDataSet;
    Cgddzb: TClientDataSet;
    sCgddzb: TDataSource;
    Cgdd: TClientDataSet;
    sCgdd: TDataSource;
    CgddzbID: TIntegerField;
    CgddzbDJBH: TStringField;
    CgddzbRQ: TDateField;
    CgddzbGYSID: TIntegerField;
    CgddzbaGYSBH: TStringField;
    CgddzbaGYSMC: TStringField;
    CgddzbJHRQ: TDateField;
    CgddzbJHDD: TStringField;
    CgddzbYWY: TStringField;
    CgddzbJE: TFloatField;
    CgddzbZT: TBooleanField;
    CgddzbBZ: TStringField;
    CgddzbCZY: TStringField;
    Cgfkzb: TClientDataSet;
    CgddZBID2: TIntegerField;
    CgddHPID: TIntegerField;
    CgddSL: TFloatField;
    CgddDJ: TFloatField;
    CgddNSL: TFloatField;
    HpZT: TBooleanField;
    HpaZKCL: TFloatField;
    HpkcCKID: TIntegerField;
    HpkcHPID: TIntegerField;
    HpkcQCS: TFloatField;
    HpkcJCS: TFloatField;
    HpCkXxJCS: TFloatField;
    CgddcJE: TFloatField;
    HpsjSJZLID: TIntegerField;
    HpsjHPID: TIntegerField;
    HpsjSJ: TFloatField;
    sCgfkzb: TDataSource;
    CgddaBH: TStringField;
    CgddaPM: TStringField;
    CgddaDW: TStringField;
    GysHelp: TClientDataSet;
    sGysHelp: TDataSource;
    HpHelp: TClientDataSet;
    sHpHelp: TDataSource;
    CgddHH: TIntegerField;
    HpITMP: TIntegerField;
    CgddzbaZT: TStringField;
    CgddRQ: TDateField;
    Cgsh: TClientDataSet;
    CgshZBID2: TIntegerField;
    CgshHH: TIntegerField;
    CgshRQ: TDateField;
    CgshCKID: TIntegerField;
    CgshaBH: TStringField;
    CgshaPM: TStringField;
    CgshaDW: TStringField;
    CgshSL: TFloatField;
    CgshDJ: TFloatField;
    CgshNSL: TFloatField;
    CgshcJE: TFloatField;
    CgshDDID: TIntegerField;
    Cgshzb: TClientDataSet;
    CgshzbID: TIntegerField;
    CgshzbDJBH: TStringField;
    CgshzbRQ: TDateField;
    CgshzbGYSID: TIntegerField;
    CgshzbaGYSBH: TStringField;
    CgshzbaGYSMC: TStringField;
    CgshzbCKID: TIntegerField;
    CgshzbaCKMC: TStringField;
    CgshzbFPLX: TIntegerField;
    CgshzbaFPLX: TStringField;
    CgshzbYWY: TStringField;
    CgshzbJE: TFloatField;
    CgshzbBZ: TStringField;
    CgshzbCZY: TStringField;
    sCgshzb: TDataSource;
    sCgsh: TDataSource;
    CgshcDDBH: TStringField;
    CgddHelp: TClientDataSet;
    sCgddHelp: TDataSource;
    CgddaSHSL: TFloatField;
    CgddHelpID: TIntegerField;
    CgddHelpDJBH: TStringField;
    CgddHelpJE: TFloatField;
    CgddHelpJHRQ: TDateField;
    CgddHelpaGYSMC: TStringField;
    CgddHelpRQ: TDateField;
    CgddaMSSL: TFloatField;
    KhYXJE: TFloatField;
    GysYXJE: TFloatField;
    GysaSJJE: TFloatField;
    KhITMP: TIntegerField;
    GysQMJE: TFloatField;
    GysITMP: TIntegerField;
    KhQMJE: TFloatField;
    KhaSJJE: TFloatField;
    GysHelpID: TIntegerField;
    GysHelpBH: TStringField;
    GysHelpMC: TStringField;
    GysHelpQC: TStringField;
    GysHelpLXR: TStringField;
    GysHelpDH: TStringField;
    GysHelpCZ: TStringField;
    GysHelpDZ: TStringField;
    GysHelpYB: TStringField;
    GysHelpWZ: TStringField;
    GysHelpDY: TStringField;
    GysHelpKHYH: TStringField;
    GysHelpYHZH: TStringField;
    GysHelpNSH: TStringField;
    GysHelpQCJE: TFloatField;
    GysHelpYXJE: TFloatField;
    GysHelpQMJE: TFloatField;
    GysHelpaSJJE: TFloatField;
    GysHelpZT: TBooleanField;
    GysHelpBZ: TStringField;
    GysHelpITMP: TIntegerField;
    Cgfk: TClientDataSet;
    sCgfk: TDataSource;
    CgfkzbID: TIntegerField;
    CgfkzbDJBH: TStringField;
    CgfkzbRQ: TDateField;
    CgfkzbGYSID: TIntegerField;
    CgfkzbaGYSBH: TStringField;
    CgfkzbaGYSMC: TStringField;
    CgfkzbFKLX: TIntegerField;
    CgfkzbaFKLX: TStringField;
    CgfkzbSFKFSID: TSmallintField;
    CgfkzbaSFKFSMC: TStringField;
    CgfkzbZHID: TSmallintField;
    CgfkzbaZHMC: TStringField;
    CgfkzbPH: TStringField;
    CgfkzbJE: TFloatField;
    CgfkzbJEA: TFloatField;
    CgfkzbJEB: TFloatField;
    CgfkzbBZ: TStringField;
    CgfkzbCZY: TStringField;
    CgfkZBID2: TIntegerField;
    CgfkHH: TIntegerField;
    CgfkDDID: TIntegerField;
    CgfkaDDBH: TStringField;
    CgfkaDDRQ: TDateField;
    CgfkaDDJE: TFloatField;
    CgfkaYFJE: TFloatField;
    CgfkaMFJE: TFloatField;
    CgfkJE: TFloatField;
    CgfkzbSYJY: TBooleanField;
    CgddHelpaGYSBH: TStringField;
    CgshzbYFJE: TFloatField;
    CgfkRQ: TDateField;
    Cgth: TClientDataSet;
    Cgthzb: TClientDataSet;
    sCgthzb: TDataSource;
    sCgth: TDataSource;
    CgthzbID: TIntegerField;
    CgthzbDJBH: TStringField;
    CgthzbRQ: TDateField;
    CgthzbGYSID: TIntegerField;
    CgthzbaGYSBH: TStringField;
    CgthzbaGYSMC: TStringField;
    CgthzbCKID: TIntegerField;
    CgthzbaCKMC: TStringField;
    CgthzbTHLX: TIntegerField;
    CgthzbaTHLX: TStringField;
    CgthzbSFKFSID: TSmallintField;
    CgthzbaSFKFSMC: TStringField;
    CgthzbZHID: TSmallintField;
    CgthzbaZHMC: TStringField;
    CgthzbPH: TStringField;
    CgthzbYWY: TStringField;
    CgthzbJE: TFloatField;
    CgthzbBZ: TStringField;
    CgthzbCZY: TStringField;
    CgthZBID2: TIntegerField;
    CgthHH: TIntegerField;
    CgthRQ: TDateField;
    CgthCKID: TIntegerField;
    CgthHPID: TIntegerField;
    CgthaBH: TStringField;
    CgthaPM: TStringField;
    CgthaDW: TStringField;
    CgthSL: TFloatField;
    CgthDJ: TFloatField;
    CgthNSL: TFloatField;
    CgthcJE: TFloatField;
    Xsddzb: TClientDataSet;