dms.pas

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

    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;
    Xsddzb: TADOQuery;
    pXsddzb: TDataSetProvider;
    Xsdd: TADOQuery;
    pXsdd: TDataSetProvider;
    XsddzbID: TIntegerField;
    XsddzbDJBH: TStringField;
    XsddzbRQ: TDateField;
    XsddzbGYSID: TIntegerField;
    XsddzbaKHBH: TStringField;
    XsddzbaKHMC: TStringField;
    XsddzbJHRQ: TDateField;
    XsddzbJHDD: TStringField;
    XsddzbYWY: TStringField;
    XsddzbJE: TFloatField;
    XsddzbZT: TBooleanField;
    XsddzbaZT: TStringField;
    XsddzbBZ: TStringField;
    XsddzbCZY: TStringField;
    XsddZBID2: TIntegerField;
    XsddHH: TIntegerField;
    XsddRQ: TDateField;
    XsddHPID: TIntegerField;
    XsddaBH: TStringField;
    XsddaPM: TStringField;
    XsddaDW: TStringField;
    XsddSL: TFloatField;
    XsddDJ: TFloatField;
    XsddNSL: TFloatField;
    XsddaYTSL: TFloatField;
    XsddaMTSL: TFloatField;
    Xskdzb: TADOQuery;
    Xskd: TADOQuery;
    pXskdzb: TDataSetProvider;
    pXskd: TDataSetProvider;
    XskdzbID: TIntegerField;
    XskdzbDJBH: TStringField;
    XskdzbRQ: TDateField;
    XskdzbKHID: TIntegerField;
    XskdzbaKHBH: TStringField;
    XskdzbaKHMC: TStringField;
    XskdzbCKID: TIntegerField;
    XskdzbaCKMC: TStringField;
    XskdzbFPLX: TIntegerField;
    XskdzbaFPLX: TStringField;
    XskdzbYWY: TStringField;
    XskdzbSKQX: TIntegerField;
    XskdzbJHDD: TStringField;
    XskdzbJE: TFloatField;
    XskdzbYSJE: TFloatField;
    XskdzbBZ: TStringField;
    XskdzbCZY: TStringField;
    XskdZBID2: TIntegerField;
    XskdHH: TIntegerField;
    XskdRQ: TDateField;
    XskdCKID: TIntegerField;
    XskdHPID: TIntegerField;
    XskdaBH: TStringField;
    XskdaPM: TStringField;
    XskdaDW: TStringField;
    XskdSL: TFloatField;
    XskdCBDJ: TFloatField;
    XskdNSL: TFloatField;
    XskdDDID: TIntegerField;
    XsddHelp: TADOQuery;
    pXsddHelp: TDataSetProvider;
    XsddHelpID: TIntegerField;
    XsddHelpDJBH: TStringField;
    XsddHelpRQ: TDateField;
    XsddHelpJE: TFloatField;
    XsddHelpJHRQ: TDateField;
    XsddHelpaKHBH: TStringField;
    XsddHelpaKHMC: TStringField;
    Xsskzb: TADOQuery;
    pXsskzb: TDataSetProvider;
    Xssk: TADOQuery;
    pXssk: TDataSetProvider;
    XsskzbID: TIntegerField;
    XsskzbDJBH: TStringField;
    XsskzbRQ: TDateField;
    XsskzbKHID: TIntegerField;
    XsskzbaKHBH: TStringField;
    XsskzbaKHMC: TStringField;
    XsskzbFKLX: TIntegerField;
    XsskzbaFKLX: TStringField;
    XsskzbSFKFSID: TSmallintField;
    XsskzbaSFKFSMC: TStringField;
    XsskzbZHID: TSmallintField;
    XsskzbaZHMC: TStringField;
    XsskzbPH: TStringField;
    XsskzbSYJY: TBooleanField;
    XsskzbJE: TFloatField;
    XsskzbJEA: TFloatField;
    XsskzbJEB: TFloatField;
    XsskzbBZ: TStringField;
    XsskzbCZY: TStringField;
    XsskZBID2: TIntegerField;
    XsskHH: TIntegerField;
    XsskRQ: TDateField;
    XsskDDID: TIntegerField;
    XsskaDDBH: TStringField;
    XsskaSKQX: TDateField;
    XsskaDDJE: TFloatField;
    XsskaYSJE: TFloatField;
    XsskaMSJE: TFloatField;
    XsskJE: TFloatField;
    XskdzbFKLX: TIntegerField;
    XskdzbaFKLX: TStringField;
    XskdzbSFKFSID: TSmallintField;
    XskdzbaSFKFSMC: TStringField;
    XskdzbZHID: TSmallintField;
    XskdzbaZHMC: TStringField;
    XskdzbPH: TStringField;
    Xsthzb: TADOQuery;
    Xsth: TADOQuery;
    pXsthzb: TDataSetProvider;
    pXsth: TDataSetProvider;
    XsthzbID: TIntegerField;
    XsthzbDJBH: TStringField;
    XsthzbRQ: TDateField;
    XsthzbKHID: TIntegerField;
    XsthzbaKHBH: TStringField;
    XsthzbaKHMC: TStringField;
    XsthzbCKID: TIntegerField;
    XsthzbaCKMC: TStringField;
    XsthzbTHLX: TIntegerField;
    XsthzbaTHLX: TStringField;
    XsthzbSFKFSID: TSmallintField;
    XsthzbaSFKFSMC: TStringField;
    XsthzbZHID: TSmallintField;
    XsthzbaZHMC: TStringField;
    XsthzbPH: TStringField;
    XsthzbYWY: TStringField;
    XsthzbJE: TFloatField;
    XsthzbBZ: TStringField;
    XsthzbCZY: TStringField;
    XsthZBID2: TIntegerField;
    XsthHH: TIntegerField;
    XsthRQ: TDateField;
    XsthCKID: TIntegerField;
    XsthHPID: TIntegerField;
    XsthaBH: TStringField;
    XsthaPM: TStringField;
    XsthaDW: TStringField;
    XsthSL: TFloatField;
    XsthDJ: TFloatField;
    XsthNSL: TFloatField;
    CgshzbXSLX: TIntegerField;
    CgshzbaXSLX: TStringField;
    CgshzbSFKFSID: TSmallintField;
    CgshzbaSFKFSMC: TStringField;
    CgshzbZHID: TSmallintField;
    CgshzbaZHMC: TStringField;
    CgshzbPH: TStringField;
    Llzb: TADOQuery;
    Ll: TADOQuery;
    LlzbID: TIntegerField;
    LlzbDJBH: TStringField;
    LlzbRQ: TDateField;
    LlzbCKID: TIntegerField;
    LlzbaCKMC: TStringField;
    LlzbJSR: TStringField;
    LlzbJE: TFloatField;
    LlzbBZ: TStringField;
    LlzbCZY: TStringField;
    LlZBID2: TIntegerField;
    LlHH: TIntegerField;
    LlRQ: TDateField;
    LlCKID: TIntegerField;
    LlHPID: TIntegerField;
    LlaBH: TStringField;
    LlaPM: TStringField;
    LlaDW: TStringField;
    LlSL: TFloatField;
    LlDJ: TFloatField;
    pLl: TDataSetProvider;
    pLlzb: TDataSetProvider;
    Tlzb: TADOQuery;
    Tl: TADOQuery;
    pTl: TDataSetProvider;
    pTlzb: TDataSetProvider;
    TlzbID: TIntegerField;
    TlzbDJBH: TStringField;
    TlzbRQ: TDateField;
    TlzbCKID: TIntegerField;
    TlzbaCKMC: TStringField;
    TlzbJSR: TStringField;
    TlzbJE: TFloatField;
    TlzbBZ: TStringField;
    TlzbCZY: TStringField;
    TlZBID2: TIntegerField;
    TlHH: TIntegerField;
    TlRQ: TDateField;
    TlCKID: TIntegerField;
    TlHPID: TIntegerField;
    TlaBH: TStringField;
    TlaPM: TStringField;
    TlaDW: TStringField;
    TlSL: TFloatField;
    TlDJ: TFloatField;
    Cpjczb: TADOQuery;
    IntegerField1: TIntegerField;
    StringField1: TStringField;
    DateField1: TDateField;
    IntegerField2: TIntegerField;
    StringField2: TStringField;
    FloatField1: TFloatField;
    StringField4: TStringField;
    StringField5: TStringField;
    Cpjc: TADOQuery;
    IntegerField3: TIntegerField;
    IntegerField4: TIntegerField;
    DateField2: TDateField;
    IntegerField5: TIntegerField;
    IntegerField6: TIntegerField;
    StringField6: TStringField;
    StringField7: TStringField;
    StringField8: TStringField;
    FloatField2: TFloatField;
    FloatField3: TFloatField;
    pCpjc: TDataSetProvider;
    pCpjczb: TDataSetProvider;
    CpjczbPH: TStringField;
    Kcpdzb: TADOQuery;
    Kcpd: TADOQuery;
    pKcpd: TDataSetProvider;
    pKcpdzb: TDataSetProvider;
    KcpdzbID: TIntegerField;
    KcpdzbDJBH: TStringField;
    KcpdzbRQ: TDateField;
    KcpdzbCKID: TIntegerField;
    KcpdzbaCKMC: TStringField;
    KcpdzbJE: TFloatField;
    KcpdzbBZ: TStringField;
    KcpdzbCZY: TStringField;
    KcpdZBID2: TIntegerField;
    KcpdHH: TIntegerField;
    KcpdRQ: TDateField;
    KcpdCKID: TIntegerField;
    KcpdHPID: TIntegerField;
    KcpdaBH: TStringField;
    KcpdaPM: TStringField;
    KcpdaDW: TStringField;
    KcpdSL: TFloatField;
    KcpdDJ: TFloatField;
    Chtjzb: TADOQuery;
    Chtj: TADOQuery;
    pChtj: TDataSetProvider;
    pChtjzb: TDataSetProvider;
    ChtjzbID: TIntegerField;
    ChtjzbDJBH: TStringField;
    ChtjzbRQ: TDateField;
    ChtjzbJE: TFloatField;
    ChtjzbBZ: TStringField;
    ChtjzbCZY: TStringField;
    ChtjZBID2: TIntegerField;
    ChtjHH: TIntegerField;
    ChtjRQ: TDateField;
    ChtjHPID: TIntegerField;
    ChtjaBH: TStringField;
    ChtjaPM: TStringField;
    ChtjaDW: TStringField;
    ChtjSL: TFloatField;
    ChtjDJ: TFloatField;
    ChtjDJ2: TFloatField;
    Ckdbzb: TADOQuery;
    Ckdb: TADOQuery;
    pCkdb: TDataSetProvider;
    pCkdbzb: TDataSetProvider;
    CkdbzbID: TIntegerField;
    CkdbzbDJBH: TStringField;
    CkdbzbRQ: TDateField;
    CkdbzbDCCID: TIntegerField;
    CkdbzbaDCCMC: TStringField;
    CkdbzbDRCID: TIntegerField;
    CkdbzbaDRCMC: TStringField;
    CkdbzbJE: TFloatField;
    CkdbzbBZ: TStringField;
    CkdbzbCZY: TStringField;
    CkdbZBID2: TIntegerField;
    CkdbHH: TIntegerField;
    CkdbRQ: TDateField;
    CkdbDCCID: TIntegerField;
    CkdbDRCID: TIntegerField;
    CkdbHPID: TIntegerField;
    CkdbaBH: TStringField;
    CkdbaPM: TStringField;
    CkdbaDW: TStringField;
    CkdbSL: TFloatField;
    CkdbDJ: TFloatField;
    Qtkcbdzb: TADOQuery;
    Qtkcbd: TADOQuery;
    pQtkcbd: TDataSetProvider;
    pQtkcbdzb: TDataSetProvider;
    QtkcbdZBID2: TIntegerField;
    QtkcbdHH: TIntegerField;
    QtkcbdRQ: TDateField;
    QtkcbdCKID: TIntegerField;
    QtkcbdHPID: TIntegerField;
    QtkcbdaBH: TStringField;
    QtkcbdaPM: TStringField;
    QtkcbdaDW: TStringField;
    QtkcbdSL: TFloatField;
    QtkcbdDJ: TFloatField;
    QtkcbdTHSL: TFloatField;
    QtkcbdCRLX: TIntegerField;
    QtkcbdzbID: TIntegerField;
    QtkcbdzbDJBH: TStringField;
    QtkcbdzbRQ: TDateField;
    QtkcbdzbCKID: TIntegerField;
    QtkcbdzbaCKMC: TStringField;
    QtkcbdzbQTKCBDLXID: TIntegerField;
    QtkcbdzbaQTKCBDLXMC: TStringField;
    QtkcbdzbCRLX: TIntegerField;
    QtkcbdzbaCRLX: TStringField;
    QtkcbdzbaTH: TStringField;
    QtkcbdzbXGXX: TStringField;
    QtkcbdzbJE: TFloatField;
    QtkcbdzbBZ: TStringField;
    QtkcbdzbCZY: TStringField;
    Fykzzb: TADOQuery;
    IntegerField7: TIntegerField;
    StringField3: TStringField;
    DateField3: TDateField;
    SmallintField1: TSmallintField;
    StringField13: TStringField;
    SmallintField2: TSmallintField;
    StringField14: TStringField;
    StringField15: TStringField;
    StringField17: TStringField;
    FloatField4: TFloatField;
    StringField18: TStringField;
    StringField19: TStringField;
    Fykz: TADOQuery;
    IntegerField12: TIntegerField;
    IntegerField13: TIntegerField;
    DateField4: TDateField;
    pFykzzb: TDataSetProvider;
    pFykz: TDataSetProvider;
    SrzclbBH: TStringField;