data.~pas

仓库管理信息系统

unit data;

interface

uses
  Windows,SysUtils, Classes, DB, ADODB,Dialogs,Controls,Variants,
  Messages,  Graphics, Forms,
  ExtCtrls;


type
  Tdm = class(TDataModule)
    adocn: TADOConnection;
    zlads_cpzl: TADODataSet;
    zlds_cpzl: TDataSource;
    zlads_cpzlid: TStringField;
    zlads_cpzlDSDesigner: TStringField;
    zlads_cpzlDSDesigner2: TStringField;
    zlads_cpzlDSDesigner3: TFloatField;
    zlads_cplx: TADODataSet;
    zlds_cplx: TDataSource;
    zlads_cpzlid2: TStringField;
    zlads_cplxID: TStringField;
    zlads_cplxDSDesigner: TStringField;
    zlads_cplxDSDesigner2: TStringField;
    zlads_cpzlField: TStringField;
    zlads_khzl: TADODataSet;
    zlds_khzl: TDataSource;
    zlads_khzlID: TStringField;
    zlads_khzlDSDesigner2: TStringField;
    zlads_khzlDSDesigner3: TStringField;
    zlads_khzlDSDesigner4: TStringField;
    zlads_khzlDSDesigner5: TStringField;
    zlads_khzlDSDesigner6: TStringField;
    zlads_khzlDSDesigner7: TStringField;
    zlads_khzlDSDesigner8: TStringField;
    zlads_khzlDSDesigner9: TStringField;
    zlads_xsyzl: TADODataSet;
    zlds_xsyzl: TDataSource;
    zlads_xsyzlID: TStringField;
    zlads_xsyzlDSDesigner: TStringField;
    zlads_xsyzlDSDesigner2: TStringField;
    cshads_cpkc: TADODataSet;
    cshds_cpkc: TDataSource;
    zlads_cpjclx: TADODataSet;
    zlds_cpjclx: TDataSource;
    zlads_cpjcysr: TADODataSet;
    zlds_cpjcysr: TDataSource;
    zlads_cpjcysrID: TStringField;
    zlads_cpjcysrDSDesigner: TStringField;
    zlads_cpjcysrDSDesigner2: TStringField;
    djwhads_cpjcd: TADODataSet;
    djwhds_cpjcd: TDataSource;
    djwhads_cpjcdmx: TADODataSet;
    djwhds_cpjcdmx: TDataSource;
    djwhads_cpjcdDSDesigner: TStringField;
    djwhads_cpjcdDSDesigner2: TStringField;
    djwhads_cpjcdid: TStringField;
    djwhads_cpjcdDSDesigner3: TDateTimeField;
    djwhads_cpjcdID2: TStringField;
    djwhads_cpjcdDSDesigner4: TBooleanField;
    djwhads_cpjcdDSDesigner5: TStringField;
    djwhads_cpjcdDSDesigner6: TDateTimeField;
    djwhads_cpjcdDSDesigner7: TStringField;
    djwhads_cpjcdField: TStringField;
    djwhads_cpjcdStringField: TStringField;
    djwhads_cpjcdmxid: TAutoIncField;
    djwhads_cpjcdmxDSDesigner: TStringField;
    djwhads_cpjcdmxid2: TStringField;
    djwhads_cpjcdmxDSDesigner2: TFloatField;
    djwhads_cpjcdmxField2: TStringField;
    zlads_cpjclxID: TStringField;
    zlads_cpjclxDSDesigner: TStringField;
    zlads_cpjclxDSDesigner2: TStringField;
    djwhads_cpxsd: TADODataSet;
    djwhds_cpxsd: TDataSource;
    djwhads_cpxsdmx: TADODataSet;
    djwhds_cpxsdmx: TDataSource;
    djwhads_cpxsdDSDesigner: TStringField;
    djwhads_cpxsdDSDesigner2: TDateTimeField;
    djwhads_cpxsdID: TStringField;
    djwhads_cpxsdid2: TStringField;
    djwhads_cpxsdDSDesigner3: TBooleanField;
    djwhads_cpxsdDSDesigner4: TFloatField;
    djwhads_cpxsdDSDesigner5: TBooleanField;
    djwhads_cpxsdDSDesigner6: TStringField;
    djwhads_cpxsdDSDesigner7: TDateTimeField;
    djwhads_cpxsdDSDesigner8: TStringField;
    djwhads_cpxsdmxid: TAutoIncField;
    djwhads_cpxsdmxDSDesigner: TStringField;
    djwhads_cpxsdmxid2: TStringField;
    djwhads_cpxsdmxDSDesigner2: TFloatField;
    djwhads_cpxsdmxDSDesigner3: TFloatField;
    djwhads_cpxsdmxDSDesigner4: TFloatField;
    djwhads_cpxsdmxStringField: TStringField;
    zlads_khzlDSDesigner: TStringField;
    djwhads_cpxsdField: TStringField;
    djwhads_cpxsdField2: TStringField;
    zlcxads_dq: TADODataSet;
    zlcxds_dq: TDataSource;
    zlcxads_dqDSDesigner: TStringField;
    zlads_cpcclx: TADODataSet;
    zlds_cpcclx: TDataSource;
    zlads_cpcclxID: TStringField;
    zlads_cpcclxDSDesigner: TStringField;
    zlads_cpcclxDSDesigner2: TStringField;
    djwhads_cpxsdID3: TStringField;
    djwhads_cpxsdField3: TStringField;
    whysrads: TADODataSet;
    whysrds: TDataSource;
    whgysdmads: TADODataSet;
    whgysdmadsID: TStringField;
    whgysdmadsDSDesigner: TStringField;
    whgysdmadsDSDesigner2: TStringField;
    whgysdmadsDSDesigner3: TStringField;
    whgysdmadsDSDesigner4: TStringField;
    whgysdmadsDSDesigner5: TStringField;
    whgysdmds: TDataSource;
    whjclxdmads: TADODataSet;
    whjclxdmds: TDataSource;
    whbmdmads: TADODataSet;
    whbmdmds: TDataSource;
    whcclxdmads: TADODataSet;
    whcclxdmds: TDataSource;
    whcllxdmads: TADODataSet;
    whcllxdmds: TDataSource;
    whclbmads: TADODataSet;
    whclbmadsDSDesigner: TStringField;
    whclbmadsDSDesigner2: TStringField;
    whclbmadsDSDesigner3: TStringField;
    whclbmadsDSDesigner4: TStringField;
    whclbmadsDSDesigner5: TBCDField;
    whclbmadsID: TStringField;
    whclbmadsDSDesigner6: TIntegerField;
    whclbmadsDSDesigner7: TBCDField;
    whclbmadsDSDesigner8: TIntegerField;
    whclbmadsDSDesigner9: TIntegerField;
    whclbmadsDSDesigner10: TIntegerField;
    whclbmadsField: TStringField;
    whclbmds: TDataSource;
    whjcdds: TDataSource;
    whjcdads: TADODataSet;
    whjcdadsDSDesigner2: TDateTimeField;
    whjcdadsID2: TStringField;
    whjcdadsID3: TStringField;
    whjcdadsID6: TStringField;
    whjcdadsField: TStringField;
    whjcdadsField2: TStringField;
    whjcdadsDSDesigner3: TStringField;
    whjcdadsField3: TStringField;
    whjcmxads: TADODataSet;
    whjcmxadsDSDesigner: TStringField;
    whjcmxadsField4: TStringField;
    whjcmxadsField2: TStringField;
    whjcmxadsField3: TStringField;
    whjcmxadsID3: TStringField;
    whjcmxadsDSDesigner3: TBCDField;
    whjcmxadsDSDesigner4: TBCDField;
    whjcmxadsDSDesigner5: TStringField;
    whjcmxds: TDataSource;
    whccdads: TADODataSet;
    whccdadsDSDesigner: TStringField;
    whccdadsDSDesigner2: TDateTimeField;
    whccdadsID2: TStringField;
    whccdadsField2: TStringField;
    whccdadsField: TStringField;
    whccdadsID3: TStringField;
    whccdadsDSDesigner3: TStringField;
    whccdadsDSDesigner4: TStringField;
    whccdds: TDataSource;
    whccmxads: TADODataSet;
    whccmxadsID: TAutoIncField;
    whccmxadsDSDesigner: TStringField;
    whccmxadsID3: TStringField;
    whccmxadsStringField4: TStringField;
    whccmxadsStringField3: TStringField;
    whccmxadsStringField2: TStringField;
    whccmxadsStringField: TStringField;
    whccmxadsDSDesigner3: TBCDField;
    whccmxadsDSDesigner4: TBCDField;
    whccmxadsDSDesigner5: TStringField;
    whccmxds: TDataSource;
    whjcdadsDSDesigner: TStringField;
    whjcmxadsID: TAutoIncField;
    whjcmxadsDSDesigner6: TStringField;
    whccmxadsDSDesigner6: TStringField;
    whjcmxadsStringField: TStringField;
    whgysdmadsDSDesigner6: TStringField;
    whgysdmadsDSDesigner7: TStringField;
    whgysdmadsDSDesigner8: TStringField;
    whgysdmadsDSDesigner9: TStringField;
    whgysdmadsDSDesigner10: TStringField;
    jzxxbads: TADODataSet;
    jzxxbds: TDataSource;
    whccmxadsDSDesigner2: TFloatField;
    whjcmxadsDSDesigner2: TFloatField;
    djwhads_cpjcdmxDSDesigner4: TFloatField;
    cshads_cpkcDSDesigner: TIntegerField;
    cshads_cpkcid: TStringField;
    cshads_cpkcid2: TStringField;
    cshads_cpkcDSDesigner2: TStringField;
    cshads_cpkcDSDesigner3: TStringField;
    cshads_cpkcDSDesigner4: TFloatField;
    cshads_cpkcDSDesigner5: TFloatField;
    cshads_cpkcDSDesigner6: TStringField;
    cshads_clkc: TADODataSet;
    cshds_clkc: TDataSource;
    cshads_clkcDSDesigner: TIntegerField;
    cshads_clkcDSDesigner2: TStringField;
    cshads_clkcDSDesigner3: TStringField;
    cshads_clkcDSDesigner4: TStringField;
    cshads_clkcDSDesigner5: TStringField;
    cshads_clkcID: TStringField;
    cshads_clkcDSDesigner6: TFloatField;
    cshads_clkcDSDesigner7: TFloatField;
    cshads_clkcDSDesigner8: TStringField;
    cshads_clkcStringField: TStringField;
    cshads_cpkcStringField: TStringField;
    cshads_cpkcDSDesigner7: TFloatField;
    cshads_cpkcDSDesigner8: TFloatField;
    cshads_cpkcDSDesigner9: TFloatField;
    cshads_cpkcDSDesigner10: TFloatField;
    cshads_cpkcDSDesigner11: TFloatField;
    cshads_cpkcDSDesigner12: TFloatField;
    cshads_cpkcDSDesigner13: TFloatField;
    cshads_clkcDSDesigner9: TBCDField;
    cshads_clkcDSDesigner10: TFloatField;
    cshads_clkcDSDesigner11: TFloatField;
    cshads_clkcDSDesigner12: TFloatField;
    cshads_clkcDSDesigner13: TFloatField;
    cshads_clkcDSDesigner14: TFloatField;
    cshads_clkcDSDesigner15: TFloatField;
    djwhads_cpjcdmxDSDesigner3: TFloatField;
    ASP_KCZL: TADOStoredProc;
    ASP_yjczl: TADOStoredProc;
    cxads_cpjc: TADODataSet;
    IntegerField1: TIntegerField;
    StringField1: TStringField;
    StringField2: TStringField;
    StringField3: TStringField;
    StringField4: TStringField;
    StringField5: TStringField;
    FloatField1: TFloatField;
    FloatField2: TFloatField;
    StringField6: TStringField;
    FloatField3: TFloatField;
    FloatField4: TFloatField;
    FloatField5: TFloatField;
    FloatField6: TFloatField;
    FloatField7: TFloatField;
    FloatField8: TFloatField;
    FloatField9: TFloatField;
    cxds_cpjc: TDataSource;
    cxads_cljc: TADODataSet;
    IntegerField2: TIntegerField;
    StringField7: TStringField;
    StringField8: TStringField;
    StringField9: TStringField;
    StringField10: TStringField;
    StringField11: TStringField;
    StringField12: TStringField;
    FloatField10: TFloatField;
    FloatField11: TFloatField;
    StringField13: TStringField;
    BCDField1: TBCDField;
    FloatField12: TFloatField;
    FloatField13: TFloatField;
    FloatField14: TFloatField;
    FloatField15: TFloatField;
    FloatField16: TFloatField;
    FloatField17: TFloatField;
    cxds_cljc: TDataSource;
    cxads_cpjcDSDesigner: TIntegerField;
    cxads_cljcDSDesigner: TIntegerField;
    cxads_gysmyjh: TADODataSet;
    cxds_gysmyjh: TDataSource;
    cxads_gysmyjhid: TStringField;
    cxads_gysmyjhDSDesigner: TFloatField;
    cxads_gysmyjhDSDesigner2: TBCDField;
    cxads_gysmyjhStringField: TStringField;
    cxads_gysmyjhDSDesigner3: TStringField;
    cxads_gysmyjhStringField2: TStringField;
    cxads_gysmyjhStringField3: TStringField;
    cxads_gysmyjhStringField4: TStringField;
    cxads_gysmyjhStringField5: TStringField;
    cxads_gysmyjhID2: TStringField;
    cxads_gysmyjhField: TFloatField;
    cxds_gysghmx: TDataSource;
    cxads_gysghmx: TADODataSet;
    StringField14: TStringField;
    StringField15: TStringField;
    StringField16: TStringField;
    StringField17: TStringField;
    StringField18: TStringField;
    StringField19: TStringField;
    StringField20: TStringField;
    StringField21: TStringField;
    FloatField18: TFloatField;
    BCDField2: TBCDField;
    cxads_gysghmxDSDesigner: TStringField;
    cxads_gysghmxDSDesigner2: TDateTimeField;
    cxads_gysghmxid: TStringField;
    cxads_gysghmxid2: TStringField;
    cxads_gysghmxDSDesigner3: TBCDField;
    cxads_gysghmxStringField: TStringField;
    cxads_gysghmxStringField2: TStringField;
    cxads_bmlyhz: TADODataSet;
    StringField22: TStringField;
    StringField23: TStringField;
    StringField24: TStringField;
    StringField25: TStringField;
    StringField26: TStringField;
    StringField27: TStringField;
    StringField28: TStringField;
    StringField29: TStringField;
    FloatField19: TFloatField;
    BCDField3: TBCDField;
    FloatField20: TFloatField;
    cxds_bmlyhz: TDataSource;
    cxads_bmlymx: TADODataSet;
    cxds_bmlymx: TDataSource;
    cxads_bmlymxid: TStringField;
    cxads_bmlymxStringField: TStringField;
    cxads_bmlymxStringField2: TStringField;
    cxads_bmlymxStringField3: TStringField;
    cxads_bmlymxStringField4: TStringField;
    cxads_bmlymxStringField5: TStringField;
    cxads_bmlymxStringField6: TStringField;
    cxads_bmlymxID2: TStringField;
    cxads_bmlymxStringField7: TStringField;
    cxads_bmlymxFloatField: TFloatField;
    cxads_bmlymxBCDField: TBCDField;
    cxads_bmlymxStringField8: TStringField;
    cxads_bmlymxDateTimeField: TDateTimeField;
    cxads_bmlymxid3: TStringField;
    cxads_bmlymxStringField9: TStringField;
    cxads_bmlymxBCDField2: TBCDField;
    cxads_xskhhz: TADODataSet;
    StringField30: TStringField;
    StringField31: TStringField;
    StringField32: TStringField;
    StringField33: TStringField;
    StringField34: TStringField;
    FloatField21: TFloatField;
    BCDField4: TBCDField;
    FloatField22: TFloatField;
    cxds_xskhhz: TDataSource;
    cxads_xskhmx: TADODataSet;
    StringField38: TStringField;
    StringField39: TStringField;
    StringField40: TStringField;
    StringField41: TStringField;
    StringField42: TStringField;
    FloatField23: TFloatField;
    BCDField5: TBCDField;
    StringField48: TStringField;
    DateTimeField1: TDateTimeField;
    BCDField6: TBCDField;
    cxds_xskhmx: TDataSource;
    cxads_xskhmxID: TStringField;
    cxads_xskhmxid2: TStringField;
    cxads_xskhmxStringField: TStringField;
    cxads_xskhmxStringField2: TStringField;
    ads_cqyhwh: TADODataSet;
    ads_pjlxwh: TADODataSet;
    ads_jsfswh: TADODataSet;
    ads_hkjsrwh: TADODataSet;
    ds_hkjsrwh: TDataSource;
    ds_jsfswh: TDataSource;
    ds_pjlxwh: TDataSource;
    ds_cqyhwh: TDataSource;
    ads_pjlxwhid: TStringField;
    ads_pjlxwhDSDesigner: TStringField;
    ads_pjlxwhDSDesigner2: TStringField;
    ads_jsfswhid: TStringField;
    ads_jsfswhDSDesigner: TStringField;
    ads_jsfswhDSDesigner2: TStringField;
    ads_hkjsrwhid: TStringField;
    ads_hkjsrwhDSDesigner: TStringField;
    ads_hkjsrwhDSDesigner2: TStringField;
    ads_cqyhwhid: TStringField;
    ads_cqyhwhDSDesigner: TStringField;
    ads_cqyhwhDSDesigner2: TStringField;
    ads_cqyhwhDSDesigner3: TStringField;
    ads_djfkd: TADODataSet;
    ds_djfkd: TDataSource;
    ads_djskd: TADODataSet;
    ds_djskd: TDataSource;
    ads_djskdDSDesigner: TStringField;
    ads_djskdDSDesigner2: TDateTimeField;
    ads_djskdid: TStringField;
    ads_djskdid3: TStringField;
    ads_djskdid4: TStringField;
    ads_djskdDSDesigner3: TStringField;
    ads_djskdid5: TStringField;
    ads_djskdDSDesigner4: TFloatField;
    ads_djfkdDSDesigner: TStringField;
    ads_djfkdDSDesigner2: TDateTimeField;
    ads_djfkdid: TStringField;
    ads_djfkdid2: TStringField;
    ads_djfkdid3: TStringField;
    ads_djfkdid4: TStringField;
    ads_djfkdDSDesigner3: TStringField;