dmunit.pas

餐营的数据核算,模拟入库,出库,库存.对餐营的流程详细叙述

unit DMUnit;

interface

uses
  SysUtils, Classes, DB, ADODB,ShellAPI,forms,Windows ;

type
  TDM = class(TDataModule)
    ADOC: TADOConnection;
    CG_DS: TDataSource;
    CG_ADOQ: TADOQuery;
    GY_ADOQ: TADOQuery;
    GY_DS: TDataSource;
    ITEM_DS: TDataSource;
    UNIT_DS: TDataSource;
    SORT_DS: TDataSource;
    STOCK_DS: TDataSource;
    ITEM_ADOQ: TADOQuery;
    UNIT_ADOQ: TADOQuery;
    SORT_ADOQ: TADOQuery;
    STOCK_ADOQ: TADOQuery;
    JHM_ADOQ: TADOQuery;
    JHM_DS: TDataSource;
    JHP_DS: TDataSource;
    JHP_ADOT: TADOTable;
    JHP_ADOTCGD_NO: TStringField;
    JHP_ADOTITEM_NO: TStringField;
    JHP_ADOTITEM_SORT: TStringField;
    JHP_ADOTITEM_UNIT: TStringField;
    JHP_ADOTITEM_PRICE: TBCDField;
    JHP_ADOTITEM_NUM: TBCDField;
    JHP_ADOTITEM_MON: TBCDField;
    JHP_ADOTitemname: TStringField;
    JHP_ADOTitemsort: TStringField;
    JHP_ADOTitemunit: TStringField;
    JHNOADOQ: TADOQuery;
    RKDM_DS: TDataSource;
    RKDM_ADOQ: TADOQuery;
    RKDP_DS: TDataSource;
    RKNOADOQ: TADOQuery;
    RKDP_ADOT: TADOTable;
    CKDM_ADOQ: TADOQuery;
    CKDM_DS: TDataSource;
    CKDP_DS: TDataSource;
    CKDP_ADOT: TADOTable;
    CKNOADOQ: TADOQuery;
    RKDP_ADOTRKD_NO: TStringField;
    RKDP_ADOTITEM_NO: TStringField;
    RKDP_ADOTITEM_SORT: TStringField;
    RKDP_ADOTITEM_UNIT: TStringField;
    RKDP_ADOTITEM_PRICE: TBCDField;
    RKDP_ADOTITEM_NUM: TBCDField;
    RKDP_ADOTITEM_MON: TBCDField;
    RKDP_ADOTField22: TStringField;
    CKDP_ADOTCKD_NO: TStringField;
    CKDP_ADOTITEM_NO: TStringField;
    CKDP_ADOTITEM_SORT: TStringField;
    CKDP_ADOTITEM_UNIT: TStringField;
    CKDP_ADOTITEM_PRICE: TBCDField;
    CKDP_ADOTITEM_NUM: TBCDField;
    CKDP_ADOTITEM_MON: TBCDField;
    CKDP_ADOTitemname: TStringField;
    JHM_ADOQCGD_NO: TStringField;
    JHM_ADOQCGD_MAN: TStringField;
    JHM_ADOQCGD_TIME: TDateTimeField;
    JHM_ADOQCGD_MARKS: TStringField;
    JHM_ADOQcgman: TStringField;
    CKDM_ADOQCKD_NO: TStringField;
    CKDM_ADOQCKD_TIME: TDateTimeField;
    CKDM_ADOQCKD_STOCK: TStringField;
    CKDM_ADOQCKD_MAN: TStringField;
    CKDM_ADOQCKD_BS: TStringField;
    CKDM_ADOQCKD_MARKS: TStringField;
    CKDM_ADOQckstock: TStringField;
    CKDM_ADOQckman: TStringField;
    RKDM_ADOQRKD_NO: TStringField;
    RKDM_ADOQRKD_MAN: TStringField;
    RKDM_ADOQRKD_TIME: TDateTimeField;
    RKDM_ADOQRKD_STOCK: TStringField;
    RKDM_ADOQRKD_MARKS: TStringField;
    RKDM_ADOQRKD_PERSON: TStringField;
    RKDM_ADOQRKD_BS: TStringField;
    RKDM_ADOQrkman: TStringField;
    RKDM_ADOQrkstock: TStringField;
    RKDM_ADOQrkperson: TStringField;
    RKDP_ADOTrkitem: TStringField;
    CURRSTOCK_DS: TDataSource;
    CURRSTOCK_ADOQ: TADOQuery;
    CURRSTOCK_ADOQRKD_NO: TStringField;
    CURRSTOCK_ADOQRKD_MAN: TStringField;
    CURRSTOCK_ADOQRKD_TIME: TDateTimeField;
    CURRSTOCK_ADOQRKD_STOCK: TStringField;
    CURRSTOCK_ADOQRKD_PERSON: TStringField;
    CURRSTOCK_ADOQRKD_ITEMNAME: TStringField;
    CURRSTOCK_ADOQRKD_SORT: TStringField;
    CURRSTOCK_ADOQRKD_UNIT: TStringField;
    CURRSTOCK_ADOQRKD_PRICE: TBCDField;
    CURRSTOCK_ADOQRKD_NUM: TBCDField;
    CURRSTOCK_ADOQRKD_MON: TBCDField;
    CURRSTOCK_ADOQrkman: TStringField;
    CURRSTOCK_ADOQrkperson: TStringField;
    CURRSTOCK_ADOQrkstock: TStringField;
    CURRSTOCK_ADOQitemname: TStringField;
    LCBASE_ADOQ: TADOQuery;
    LCBASE_DS: TDataSource;
    LCRKDM_ADOQ: TADOQuery;
    LCRKDM_DS: TDataSource;
    LCRKDP_DS: TDataSource;
    LCRKDP_ADOT: TADOTable;
    LCRKDP_ADOTLCRKD_NO: TStringField;
    LCRKDP_ADOTLCRKD_ITEMNO: TStringField;
    LCRKDP_ADOTLCRKD_SORT: TStringField;
    LCRKDP_ADOTLCRKD_UNIT: TStringField;
    LCRKDP_ADOTLCRKD_PRICE: TBCDField;
    LCRKDP_ADOTLCRKD_NUM: TBCDField;
    LCRKDP_ADOTLCRKD_MON: TBCDField;
    LCRKDP_ADOTlcitemno: TStringField;
    LCRKDADOQ: TADOQuery;
    LCROAD_ADOQ: TADOQuery;
    LCROAD_DS: TDataSource;
    LCRKDM_ADOQLCRKD_NO: TStringField;
    LCRKDM_ADOQLCRKD_MAN: TStringField;
    LCRKDM_ADOQLCRKD_TIME: TDateTimeField;
    LCRKDM_ADOQLCRKD_CARNO: TStringField;
    LCRKDM_ADOQLCRKD_BS: TStringField;
    LCRKDM_ADOQLCRKD_MARKS: TStringField;
    LCRKDM_ADOQLCRKD_ROAD: TStringField;
    LCRKDM_ADOQlcman: TStringField;
    LCRKDM_ADOQlccarno: TStringField;
    LCRKDM_ADOQlcroad: TStringField;
    LCRKDM_ADOQlcroad1: TStringField;
    LCRKDM_ADOQLCRKD_HZ: TStringField;
    LCRKDM_ADOQLCRKD_CHECX: TBooleanField;
    LCRKDHZ_DS: TDataSource;
    LCRKDHZ_ADOQ: TADOQuery;
    LCRKDHZ_ADOQLC_CARNO: TStringField;
    LCRKDHZ_ADOQLC_HZ: TStringField;
    LCRKDHZ_ADOQLC_ITEMNO: TStringField;
    LCRKDHZ_ADOQLC_ITEMSORT: TStringField;
    LCRKDHZ_ADOQLC_ITEMUNIT: TStringField;
    LCRKDHZ_ADOQLC_NUM: TBCDField;
    LCRKDHZ_ADOQlcitemno: TStringField;
    LCITEM_DS: TDataSource;
    LCITEM_ADOQ: TADOQuery;
    SALE_ADOQ: TADOQuery;
    SALE_DS: TDataSource;
    LCSALEHZ_DS: TDataSource;
    LCSALEHZ_ADOQ: TADOQuery;
    CUST_ADOQ: TADOQuery;
    CUST_DS: TDataSource;
    passupADOQ: TADOQuery;
    Check_Rights: TADOQuery;
    ITEM_ADOQITEM_ID: TStringField;
    ITEM_ADOQITEM_NAME: TStringField;
    ITEM_ADOQITEM_UNIT: TStringField;
    ITEM_ADOQITEM_PRICE: TBCDField;
    ITEM_ADOQITEM_MARKS: TStringField;
    ITEM_ADOQITEM_SOTR: TStringField;
    ITEM_ADOQitemunit: TStringField;
    ITEM_ADOQitemsort: TStringField;
    CGTJADOQ: TADOQuery;
    CGTJDS: TDataSource;
    RKDTJADOQ: TADOQuery;
    RKDTJDS: TDataSource;
    CKDTJADOQ: TADOQuery;
    CKDTJDS: TDataSource;
    LCRKDTJ_ADOQ: TADOQuery;
    LCRKDTJ_DS: TDataSource;
    CKDP_ADOTITEM_SHNUM: TBCDField;
    ITEM_ADOQITEM_NUM: TBCDField;
    CLASS_ADOQ: TADOQuery;
    CLASS_DS: TDataSource;
    LCRKDM_ADOQLCRKD_HXBS: TBooleanField;
    LCRKDM_ADOQLCRKD_BZ: TStringField;
    LCRKDM_ADOQbzname: TStringField;
    JXZM_ADOQ: TADOQuery;
    JXZM_DS: TDataSource;
    JXZP_DS: TDataSource;
    JXZNOADOQ: TADOQuery;
    JXZP_ADOT: TADOTable;
    JXZP_ADOTJXZ_NO: TStringField;
    JXZP_ADOTJXZ_ITEMNO: TStringField;
    JXZP_ADOTJXZ_ITEMSORT: TStringField;
    JXZP_ADOTJXZ_ITEMUNIT: TStringField;
    JXZP_ADOTJXZ_ITEMPRICE: TBCDField;
    JXZP_ADOTJXZ_ITEMNUM: TBCDField;
    JXZP_ADOTJXZ_ITEMMON: TBCDField;
    JXZM_ADOQJXZ_NO: TStringField;
    JXZM_ADOQJXZ_CARNO: TStringField;
    JXZM_ADOQJXZ_JBZ: TStringField;
    JXZM_ADOQJXZ_TIME: TDateTimeField;
    JXZM_ADOQJXZ_JCARNO: TStringField;
    JXZM_ADOQJXZ_JSBZ: TStringField;
    JXZM_ADOQJXZ_MARKS: TStringField;
    JXZM_ADOQJXZ_BS: TStringField;
    JXZM_ADOQJXZ_HXNO: TStringField;
    JXZM_ADOQjcarno: TStringField;
    JXZM_ADOQjscarno: TStringField;
    JXZM_ADOQjbz: TStringField;
    JXZM_ADOQjsbz: TStringField;
    JXZP_ADOTitemname: TStringField;
    JSZM_ADOQ: TADOQuery;
    JSZM_DS: TDataSource;
    JSZP_DS: TDataSource;
    JSZP_ADOT: TADOTable;
    JSZM_ADOQJSZ_NO: TStringField;
    JSZM_ADOQJSZ_TIME: TDateTimeField;
    JSZM_ADOQJSZ_CARNO: TStringField;
    JSZM_ADOQJSZ_BZ: TStringField;
    JSZM_ADOQJSZ_JCARNO: TStringField;
    JSZM_ADOQJSZ_JBZ: TStringField;
    JSZM_ADOQJSZ_HZBH: TStringField;
    JSZM_ADOQJSZ_HZ: TStringField;
    JSZM_ADOQjxcarno: TStringField;
    JSZM_ADOQjxbz: TStringField;
    JSZM_ADOQjscarno: TStringField;
    JSZM_ADOQjsbz: TStringField;
    JSZP_ADOTJSZ_NO: TStringField;
    JSZP_ADOTJSZ_ITEMNO: TStringField;
    JSZP_ADOTJSZ_ITEMSORT: TStringField;
    JSZP_ADOTJSZ_ITEMUNIT: TStringField;
    JSZP_ADOTJSZ_ITEMPRICE: TBCDField;
    JSZP_ADOTJSZ_ITEMNUM: TBCDField;
    JSZP_ADOTJSZ_ITEMMON: TBCDField;
    JSZP_ADOTitemname: TStringField;
    JXZTJDS: TDataSource;
    JXZTJADOQ: TADOQuery;
    JSZM_ADOQJSZ_HX: TBooleanField;
    LCRKDHZ_ADOQLC_ID: TAutoIncField;
    LCRKDHZ_ADOQLC_BZ: TStringField;
    LCRKDHZ_ADOQcar: TStringField;
    LCRKDHZ_ADOQbzname: TStringField;
    LCSALEHZ_ADOQSALENO: TAutoIncField;
    LCSALEHZ_ADOQSALE_CARNO: TStringField;
    LCSALEHZ_ADOQSALE_HZ: TStringField;
    LCSALEHZ_ADOQSALE_ITEMNO: TStringField;
    LCSALEHZ_ADOQSALE_ITEMNAME: TStringField;
    LCSALEHZ_ADOQSALE_UNIT: TStringField;
    LCSALEHZ_ADOQSALE_NUM: TBCDField;
    LCSALEHZ_ADOQSALE_PRICE: TBCDField;
    LCSALEHZ_ADOQSALE_SORT: TStringField;
    LCSALEHZ_ADOQSALE_BZ: TStringField;
    LCSALEHZ_ADOQcarno: TStringField;
    LCSALEHZ_ADOQbzname: TStringField;
    RKCHART_DS: TDataSource;