dm.pas

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

    sXsddzb: TDataSource;
    Xsdd: TClientDataSet;
    sXsdd: TDataSource;
    XsddzbID: TIntegerField;
    XsddzbDJBH: TStringField;
    XsddzbRQ: TDateField;
    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;
    XsddNSL: TFloatField;
    XsddcJE: TFloatField;
    XsddaYTSL: TFloatField;
    XsddaMTSL: TFloatField;
    DataSource1: TDataSource;
    ClientDataSet1: TClientDataSet;
    sKhHelp: TDataSource;
    KhHelp: TClientDataSet;
    KhHelpID: TIntegerField;
    KhHelpBH: TStringField;
    KhHelpMC: TStringField;
    KhHelpQC: TStringField;
    KhHelpDQID: TIntegerField;
    KhHelpaDQMC: TStringField;
    KhHelpcDQMC: TStringField;
    KhHelpLXR: TStringField;
    KhHelpDH: TStringField;
    KhHelpCZ: TStringField;
    KhHelpDZ: TStringField;
    KhHelpYB: TStringField;
    KhHelpWZ: TStringField;
    KhHelpDY: TStringField;
    KhHelpKHYH: TStringField;
    KhHelpYHZH: TStringField;
    KhHelpNSH: TStringField;
    KhHelpQCJE: TFloatField;
    KhHelpYXJE: TFloatField;
    KhHelpQMJE: TFloatField;
    KhHelpaSJJE: TFloatField;
    KhHelpXYED: TFloatField;
    KhHelpZT: TBooleanField;
    KhHelpBZ: TStringField;
    KhHelpITMP: TIntegerField;
    HpHelpID: TIntegerField;
    HpHelpBH: TStringField;
    HpHelpHPLBID: TIntegerField;
    HpHelpaHPLBMC: TStringField;
    HpHelpcHPLBMC: TStringField;
    HpHelpPM: TStringField;
    HpHelpDW: TStringField;
    HpHelpHPHSFFID: TIntegerField;
    HpHelpHPSXID: TIntegerField;
    HpHelpaHPSX: TStringField;
    HpHelpaZKCL: TFloatField;
    HpHelpJJ: TFloatField;
    HpHelpJJJ: TFloatField;
    HpHelpJQJ: TFloatField;
    HpHelpSX: TFloatField;
    HpHelpXX: TFloatField;
    XsddzbKHID: TIntegerField;
    XsddzbaKHBH: TStringField;
    XsddzbaKHMC: TStringField;
    XsddHelp: TClientDataSet;
    IntegerField1: TIntegerField;
    StringField1: TStringField;
    DateField1: TDateField;
    FloatField1: TFloatField;
    DateField2: TDateField;
    StringField2: TStringField;
    StringField3: TStringField;
    sXsddHelp: TDataSource;
    Xsskzb: TClientDataSet;
    sXsskzb: TDataSource;
    Xssk: TClientDataSet;
    sXssk: TDataSource;
    Xskd: TClientDataSet;
    XskdZBID2: TIntegerField;
    XskdHH: TIntegerField;
    XskdRQ: TDateField;
    XskdCKID: TIntegerField;
    XskdHPID: TIntegerField;
    XskdaBH: TStringField;
    XskdaPM: TStringField;
    XskdaDW: TStringField;
    XskdSL: TFloatField;
    XskdDJ: TFloatField;
    XskdNSL: TFloatField;
    XskdcJE: TFloatField;
    XskdDDID: TIntegerField;
    XskdcDDBH: TStringField;
    sXskd: TDataSource;
    Xskdzb: TClientDataSet;
    XskdzbID: TIntegerField;
    XskdzbDJBH: TStringField;
    XskdzbRQ: TDateField;
    XskdzbKHID: TIntegerField;
    XskdzbaKHBH: TStringField;
    XskdzbaKHMC: TStringField;
    XskdzbCKID: TIntegerField;
    XskdzbaCKMC: TStringField;
    XskdzbFPLX: TIntegerField;
    XskdzbaFPLX: TStringField;
    XskdzbYWY: TStringField;
    XskdzbJHDD: TStringField;
    XskdzbSKQX: TIntegerField;
    XskdzbJE: TFloatField;
    XskdzbYFJE: TFloatField;
    XskdzbBZ: TStringField;
    XskdzbCZY: TStringField;
    sXskdzb: TDataSource;
    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;
    Xsth: TClientDataSet;
    Xsthzb: TClientDataSet;
    sXsthzb: TDataSource;
    sXsth: TDataSource;
    CgshHPID: TIntegerField;
    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;
    XsthcJE: TFloatField;
    CgshzbXSLX: TIntegerField;
    CgshzbaXSLX: TStringField;
    CgshzbSFKFSID: TSmallintField;
    CgshzbaSFKFSMC: TStringField;
    CgshzbZHID: TSmallintField;
    CgshzbaZHMC: TStringField;
    CgshzbPH: TStringField;
    Llzb: TClientDataSet;
    LlzbID: TIntegerField;
    LlzbDJBH: TStringField;
    LlzbRQ: TDateField;
    LlzbCKID: TIntegerField;
    LlzbaCKMC: TStringField;
    LlzbJSR: TStringField;
    LlzbJE: TFloatField;
    LlzbBZ: TStringField;
    LlzbCZY: TStringField;
    Ll: TClientDataSet;
    LlZBID2: TIntegerField;
    LlHH: TIntegerField;
    LlRQ: TDateField;
    LlCKID: TIntegerField;
    LlHPID: TIntegerField;
    LlaBH: TStringField;
    LlaPM: TStringField;
    LlaDW: TStringField;
    LlSL: TFloatField;
    LlDJ: TFloatField;
    LlcJE: TFloatField;
    sLl: TDataSource;
    sLlzb: TDataSource;
    Tlzb: TClientDataSet;
    IntegerField2: TIntegerField;
    StringField4: TStringField;
    DateField3: TDateField;
    IntegerField3: TIntegerField;
    StringField5: TStringField;
    StringField6: TStringField;
    FloatField2: TFloatField;
    StringField7: TStringField;
    StringField8: TStringField;
    Tl: TClientDataSet;
    IntegerField4: TIntegerField;
    IntegerField5: TIntegerField;
    DateField4: TDateField;
    IntegerField6: TIntegerField;
    IntegerField7: TIntegerField;
    StringField9: TStringField;
    StringField10: TStringField;
    StringField11: TStringField;
    FloatField3: TFloatField;
    FloatField4: TFloatField;
    FloatField5: TFloatField;
    sTl: TDataSource;
    sTlzb: TDataSource;
    Cpjczb: TClientDataSet;
    Cpjc: TClientDataSet;
    sCpjc: TDataSource;
    sCpjczb: TDataSource;
    CpjczbID: TIntegerField;
    CpjczbDJBH: TStringField;
    CpjczbRQ: TDateField;
    CpjczbCKID: TIntegerField;
    CpjczbaCKMC: TStringField;
    CpjczbPH: TStringField;
    CpjczbJE: TFloatField;
    CpjczbBZ: TStringField;
    CpjczbCZY: TStringField;
    CpjcZBID2: TIntegerField;
    CpjcHH: TIntegerField;
    CpjcRQ: TDateField;
    CpjcCKID: TIntegerField;
    CpjcHPID: TIntegerField;
    CpjcaBH: TStringField;
    CpjcaPM: TStringField;
    CpjcaDW: TStringField;
    CpjcSL: TFloatField;
    CpjcDJ: TFloatField;
    CpjccJE: TFloatField;
    Kcpdzb: TClientDataSet;
    IntegerField8: TIntegerField;
    StringField12: TStringField;
    DateField5: TDateField;
    IntegerField9: TIntegerField;
    StringField13: TStringField;
    FloatField6: TFloatField;
    StringField15: TStringField;
    StringField16: TStringField;
    Kcpd: TClientDataSet;
    IntegerField10: TIntegerField;
    IntegerField11: TIntegerField;
    DateField6: TDateField;
    IntegerField12: TIntegerField;
    IntegerField13: TIntegerField;
    StringField17: TStringField;
    StringField18: TStringField;
    StringField19: TStringField;
    FloatField7: TFloatField;
    FloatField8: TFloatField;
    FloatField9: TFloatField;
    sKcpd: TDataSource;
    sKcpdzb: TDataSource;
    Chtjzb: TClientDataSet;
    Chtj: TClientDataSet;
    sChtj: TDataSource;
    sChtjzb: TDataSource;
    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;
    ChtjJDJ: TFloatField;
    ChtjcJE: TFloatField;
    ChtjDJ: TFloatField;
    Ckdbzb: TClientDataSet;
    IntegerField14: TIntegerField;
    StringField14: TStringField;
    DateField7: TDateField;
    IntegerField15: TIntegerField;
    StringField20: TStringField;
    FloatField10: TFloatField;
    StringField22: TStringField;
    StringField23: TStringField;
    Ckdb: TClientDataSet;
    IntegerField16: TIntegerField;
    IntegerField17: TIntegerField;
    DateField8: TDateField;
    IntegerField18: TIntegerField;
    IntegerField19: TIntegerField;
    StringField24: TStringField;
    StringField25: TStringField;
    StringField26: TStringField;
    FloatField11: TFloatField;
    FloatField12: TFloatField;
    FloatField13: TFloatField;
    sCkdb: TDataSource;
    sCkdbzb: TDataSource;
    CkdbzbCKID: TIntegerField;
    CkdbzbaCKMC: TStringField;
    CkdbCKID: TIntegerField;
    Qtkcbdzb: TClientDataSet;
    IntegerField20: TIntegerField;
    StringField21: TStringField;
    DateField9: TDateField;
    IntegerField21: TIntegerField;
    StringField27: TStringField;
    FloatField14: TFloatField;
    StringField29: TStringField;
    StringField30: TStringField;
    Qtkcbd: TClientDataSet;
    IntegerField22: TIntegerField;
    IntegerField23: TIntegerField;
    DateField10: TDateField;
    IntegerField24: TIntegerField;
    IntegerField25: TIntegerField;
    StringField31: TStringField;
    StringField32: TStringField;
    StringField33: TStringField;
    FloatField16: TFloatField;
    FloatField17: TFloatField;
    sQtkcbd: TDataSource;
    sQtkcbdzb: TDataSource;
    QtkcbdSL: TFloatField;
    QtkcbdzbQTKCBDLXID: TIntegerField;
    QtkcbdzbaJCLX: TStringField;
    QtkcbdzbaTH: TStringField;
    QtkcbdzbXGXX: TStringField;
    QtkcbdzbaQTKCBDLXMC: TStringField;
    QtkcbdTHSL: TFloatField;
    QtkcbdzbCRLX: TIntegerField;
    QtkcbdCRLX: TIntegerField;
    Fykz: TClientDataSet;
    Fykzzb: TClientDataSet;
    sFykzzb: TDataSource;
    sFykz: TDataSource;
    SrzclbBH: TStringField;
    FykzZBID: TIntegerField;
    FykzHH: TIntegerField;
    FykzRQ: TDateField;
    FykzSRZCLBID: TIntegerField;
    FykzaBH: TStringField;
    FykzaMC: TStringField;
    FykzZY: TStringField;
    FykzJE: TFloatField;
    FykzzbID2: TIntegerField;
    FykzzbDJBH: TStringField;
    FykzzbRQ: TDateField;
    FykzzbSFKFSID: TSmallintField;
    FykzzbaSFKFSMC: TStringField;
    FykzzbZHID: TSmallintField;
    FykzzbaZHMC: TStringField;
    FykzzbPH: TStringField;
    FykzzbJSR: TStringField;
    FykzzbJE: TFloatField;