dms.pas

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

unit Dms;

interface

uses
  Windows, Messages, SysUtils, Classes, ComServ, ComObj, VCLCom, DataBkr,
  DBClient, JxcS_TLB, StdVcl, Provider, Db, ADODB, Forms, Dialogs;

type

  TGetValueType = (gtOld, gtNew, gtCur);

  TDatas = class(TRemoteDataModule, Idatas)
    Tmpf: TADOQuery;
    Cn: TADOConnection;
    AppUserGroup: TADOQuery;
    AppUserGroupgName: TStringField;
    AppUserGroupgMemo: TStringField;
    AppUser: TADOQuery;
    AppUserID: TIntegerField;
    AppUseruCode: TStringField;
    AppUseruName: TStringField;
    AppUseruPassword: TStringField;
    AppUsergName: TStringField;
    AppGroupDesktopClass: TADOQuery;
    AppGroupDesktopClassgName: TStringField;
    AppGroupDesktopClasscName: TStringField;
    Tmpl: TADOQuery;
    Tmp: TADOQuery;
    pAppUserGroup: TDataSetProvider;
    pAppUser: TDataSetProvider;
    pAppGroupDesktopClass: TDataSetProvider;
    pTmp: TDataSetProvider;
    pTmpf: TDataSetProvider;
    pTmpl: TDataSetProvider;
    AppSelect: TADOQuery;
    AppSelectDATASET: TStringField;
    AppSelectFIELDNAME: TStringField;
    AppSelectAUTOUPDATE: TBooleanField;
    AppSelectDATASELECT: TMemoField;
    AppSelectDefaultRow: TIntegerField;
    Cn1: TADOConnection;
    AppLog: TADOQuery;
    AppLoguName: TStringField;
    AppLogcName: TStringField;
    AppLogCZ: TStringField;
    AppLogRQ: TDateField;
    AppLogSJ: TStringField;
    pAppLog: TDataSetProvider;
    Dq: TADOQuery;
    pDq: TDataSetProvider;
    AppMenu: TADOQuery;
    AppMenumName: TStringField;
    AppMenumCaption: TStringField;
    AppMenumLevel: TIntegerField;
    AppMenumIndex: TIntegerField;
    AppMenumIsParent: TBooleanField;
    pAppMenu: TDataSetProvider;
    Kh: TADOQuery;
    pKh: TDataSetProvider;
    DqID: TIntegerField;
    DqMC: TStringField;
    Gys: TADOQuery;
    pGys: TDataSetProvider;
    Zh: TADOQuery;
    pZh: TDataSetProvider;
    KhID: TIntegerField;
    KhBH: TStringField;
    KhMC: TStringField;
    KhQC: TStringField;
    KhLXR: TStringField;
    KhDH: TStringField;
    KhCZ: TStringField;
    KhDZ: TStringField;
    KhYB: TStringField;
    KhWZ: 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;
    KhDY: TStringField;
    Sfkfs: TADOQuery;
    pSfkfs: TDataSetProvider;
    Srzclb: TADOQuery;
    pSrzclb: TDataSetProvider;
    Ck: TADOQuery;
    pCk: TDataSetProvider;
    ZhID: TIntegerField;
    ZhMC: TStringField;
    ZhKHYH: TStringField;
    ZhYHZH: TStringField;
    ZhYHL: TBooleanField;
    KhDQID: TIntegerField;
    SfkfsID: TIntegerField;
    SfkfsMC: TStringField;
    SfkfsZHID: TIntegerField;
    SrzclbID: TIntegerField;
    SrzclbMC: TStringField;
    SrzclbSRL: TBooleanField;
    SrzclbBZ: TStringField;
    ZhaYHL: TStringField;
    SrzclbaSRL: TStringField;
    Hplb: TADOQuery;
    pHplb: TDataSetProvider;
    Cyjsdw: TADOQuery;
    pCyjsdw: TDataSetProvider;
    Hphsff: TADOQuery;
    pHphsff: TDataSetProvider;
    Bm: TADOQuery;
    pBm: TDataSetProvider;
    CkID: TIntegerField;
    CkMC: TStringField;
    CkWZ: TStringField;
    CkBZ: TStringField;
    HplbID: TIntegerField;
    HplbMC: TStringField;
    HplbBZ: TStringField;
    CyjsdwMC: TStringField;
    CkXH: TIntegerField;
    Yglb: TADOQuery;
    pYglb: TDataSetProvider;
    Yg: TADOQuery;
    pYg: TDataSetProvider;
    BmMC: TStringField;
    YglbID: TIntegerField;
    YglbMC: TStringField;
    YgID: TIntegerField;
    YgBH: TStringField;
    YgXM: TStringField;
    YgXB: TStringField;
    YgBMID: TIntegerField;
    YgYGLBID: TIntegerField;
    YgCSRQ: TDateField;
    YgXL: TStringField;
    YgDH: TStringField;
    YgSFZH: TStringField;
    YgBP: TStringField;
    YgJG: TStringField;
    YgYB: TStringField;
    YgZZ: TStringField;
    YgZW: TStringField;
    YgRZRQ: TDateField;
    YgYWYBZ: TBooleanField;
    YgJSFF: TIntegerField;
    YgLZ: TBooleanField;
    YgBZ: TStringField;
    YgaYWYBZ: TStringField;
    YgaJSFF: TStringField;
    YgaLZ: TStringField;
    KhaDQMC: TStringField;
    SfkfsaZHMC: TStringField;
    YgaBMMC: TStringField;
    YgaYGLBMC: TStringField;
    YgJBGZ: TFloatField;
    Hp: TADOQuery;
    pHp: TDataSetProvider;
    Qtkcbdlx: TADOQuery;
    pQtkcbdlx: TDataSetProvider;
    HpCkXx: TADOQuery;
    pHpCkXx: TDataSetProvider;
    HphsffID: TIntegerField;
    HphsffMC: TStringField;
    HphsffLB: TIntegerField;
    QtkcbdlxID: TIntegerField;
    QtkcbdlxMC: TStringField;
    QtkcbdlxRKL: TBooleanField;
    QtkcbdlxTHBZ: TBooleanField;
    HpID: TIntegerField;
    HpBH: TStringField;
    HpHPLBID: TIntegerField;
    HpPM: TStringField;
    HpDW: TStringField;
    HpHPHSFFID: TIntegerField;
    HpHPSXID: TIntegerField;
    HpJJ: TFloatField;
    HpJJJ: TFloatField;
    HpQCJE: TFloatField;
    HpSX: TFloatField;
    HpXX: TFloatField;
    HpZT: TBooleanField;
    HpaHPLBMC: TStringField;
    HpaHPSX: TStringField;
    HpaZT: TStringField;
    HpSjXx: TADOQuery;
    pHpSjXx: TDataSetProvider;
    HpCkXxMC: TStringField;
    HpSjXxMC: TStringField;
    HpSjXxSJ: TFloatField;
    Hpkc: TADOQuery;
    pHpkc: TDataSetProvider;
    Hpsj: TADOQuery;
    pHpsj: TDataSetProvider;
    Cgddzb: TADOQuery;
    pCgddzb: TDataSetProvider;
    HpkcCKID: TIntegerField;
    HpkcHPID: TIntegerField;
    HpsjSJZLID: TIntegerField;
    HpsjHPID: TIntegerField;
    HpsjSJ: TFloatField;
    BmID: TIntegerField;
    Cgdd: TADOQuery;
    pCgdd: TDataSetProvider;
    CgddzbDJBH: TStringField;
    CgddzbRQ: TDateField;
    CgddzbGYSID: TIntegerField;
    CgddzbJHRQ: TDateField;
    CgddzbJHDD: TStringField;
    CgddzbYWY: TStringField;
    CgddzbJE: TFloatField;
    CgddzbZT: TBooleanField;
    CgddzbBZ: TStringField;
    CgddzbCZY: TStringField;
    CgddzbaGYSMC: TStringField;
    CgddzbaGYSBH: TStringField;
    CgddZBID2: TIntegerField;
    CgddHPID: TIntegerField;
    CgddSL: TFloatField;
    CgddDJ: TFloatField;
    CgddNSL: TFloatField;
    pAppSelect: TDataSetProvider;
    HpaZKCL: TFloatField;
    HpkcQCS: TFloatField;
    HpkcJCS: TFloatField;
    HpCkXxJCS: TFloatField;
    CgddaBH: TStringField;
    CgddaPM: TStringField;
    CgddaDW: TStringField;
    CgddzbID: TIntegerField;
    CgddHH: TIntegerField;
    HpITMP: TIntegerField;
    CgddzbaZT: TStringField;
    CgddRQ: TDateField;
    Cgshzb: TADOQuery;
    Cgsh: TADOQuery;
    CgddHelp: TADOQuery;
    CgshzbID: TIntegerField;
    CgshzbDJBH: TStringField;
    CgshzbRQ: TDateField;
    CgshzbGYSID: TIntegerField;
    CgshzbCKID: TIntegerField;
    CgshzbFPLX: TIntegerField;
    CgshzbYWY: TStringField;
    CgshzbJE: TFloatField;
    CgshzbBZ: TStringField;
    CgshzbCZY: TStringField;
    CgshzbaGYSBH: TStringField;
    CgshzbaGYSMC: TStringField;
    CgshzbaCKMC: TStringField;
    CgshzbaFPLX: TStringField;
    CgshZBID2: TIntegerField;
    CgshHH: TIntegerField;
    CgshRQ: TDateField;
    CgshCKID: TIntegerField;
    CgshHPID: TIntegerField;
    CgshSL: TFloatField;
    CgshDJ: TFloatField;
    CgshNSL: TFloatField;
    CgshDDID: TIntegerField;
    CgshaBH: TStringField;
    CgshaPM: TStringField;
    CgshaDW: TStringField;
    pCgshzb: TDataSetProvider;
    pCgsh: TDataSetProvider;
    pCgddHelp: TDataSetProvider;
    CgddaSHSL: TFloatField;
    Cgfkzb: TADOQuery;
    pCgfkzb: TDataSetProvider;
    CgddHelpID: TIntegerField;
    CgddHelpDJBH: TStringField;
    CgddHelpJE: TFloatField;
    CgddHelpJHRQ: TDateField;
    CgddHelpaGYSMC: TStringField;
    CgddHelpRQ: TDateField;
    KhYXJE: TFloatField;
    GysaSJJE: TFloatField;
    GysYXJE: TFloatField;
    KhITMP: TIntegerField;
    GysITMP: TIntegerField;
    KhQMJE: TFloatField;
    GysQMJE: TFloatField;
    KhaSJJE: TFloatField;
    CgddaMSSL: TFloatField;
    Cgfk: TADOQuery;
    pCgfk: TDataSetProvider;
    ADOQuery3: TADOQuery;
    DataSetProvider3: TDataSetProvider;
    CgfkzbID: TIntegerField;
    CgfkzbDJBH: TStringField;
    CgfkzbRQ: TDateField;
    CgfkzbGYSID: TIntegerField;
    CgfkzbFKLX: TIntegerField;
    CgfkzbSFKFSID: TSmallintField;
    CgfkzbZHID: TSmallintField;
    CgfkzbPH: TStringField;
    CgfkzbJE: TFloatField;
    CgfkzbJEA: TFloatField;
    CgfkzbJEB: TFloatField;
    CgfkzbBZ: TStringField;
    CgfkzbCZY: TStringField;
    CgfkzbaFKLX: TStringField;
    CgfkzbaGYSBH: TStringField;
    CgfkzbaGYSMC: TStringField;
    CgfkzbaSFKFSMC: TStringField;
    CgfkzbaZHMC: TStringField;
    CgfkZBID2: TIntegerField;
    CgfkHH: TIntegerField;
    CgfkDDID: TIntegerField;
    CgfkJE: TFloatField;
    CgfkaDDBH: TStringField;
    CgfkaDDRQ: TDateField;
    CgfkaDDJE: TFloatField;
    CgfkaYFJE: TFloatField;
    CgfkaMFJE: TFloatField;
    CgshzbYFJE: TFloatField;
    CgfkzbSYJY: TBooleanField;
    CgddHelpaGYSBH: TStringField;
    CgfkRQ: TDateField;
    Cgthzb: TADOQuery;
    Cgth: TADOQuery;
    pCgthzb: TDataSetProvider;
    pCgth: TDataSetProvider;
    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;