dmunit.~dfm

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

      FieldName = 'ITEM_PRICE'
      Precision = 18
      Size = 2
    end
    object CKDP_ADOTITEM_NUM: TBCDField
      FieldName = 'ITEM_NUM'
      Precision = 18
      Size = 2
    end
    object CKDP_ADOTITEM_MON: TBCDField
      FieldName = 'ITEM_MON'
      Precision = 18
      Size = 2
    end
    object CKDP_ADOTITEM_SHNUM: TBCDField
      FieldName = 'ITEM_SHNUM'
      Precision = 18
      Size = 2
    end
  end
  object CKNOADOQ: TADOQuery
    Connection = ADOC
    Parameters = <>
    Left = 360
    Top = 240
  end
  object CURRSTOCK_DS: TDataSource
    DataSet = CURRSTOCK_ADOQ
    Left = 232
    Top = 352
  end
  object CURRSTOCK_ADOQ: TADOQuery
    Connection = ADOC
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT * FROM STOCK')
    Left = 296
    Top = 352
    object CURRSTOCK_ADOQRKD_NO: TStringField
      FieldName = 'RKD_NO'
      Size = 15
    end
    object CURRSTOCK_ADOQRKD_TIME: TDateTimeField
      FieldName = 'RKD_TIME'
    end
    object CURRSTOCK_ADOQrkstock: TStringField
      FieldKind = fkLookup
      FieldName = 'rkstock'
      LookupDataSet = STOCK_ADOQ
      LookupKeyFields = 'STOCK_ID'
      LookupResultField = 'STOCK_NAME'
      KeyFields = 'RKD_STOCK'
      Lookup = True
    end
    object CURRSTOCK_ADOQrkman: TStringField
      FieldKind = fkLookup
      FieldName = 'rkman'
      LookupDataSet = CG_ADOQ
      LookupKeyFields = 'CG_ID'
      LookupResultField = 'CG_NAME'
      KeyFields = 'RKD_MAN'
      Lookup = True
    end
    object CURRSTOCK_ADOQrkperson: TStringField
      FieldKind = fkLookup
      FieldName = 'rkperson'
      LookupDataSet = CG_ADOQ
      LookupKeyFields = 'CG_ID'
      LookupResultField = 'CG_NAME'
      KeyFields = 'RKD_PERSON'
      Lookup = True
    end
    object CURRSTOCK_ADOQitemname: TStringField
      FieldKind = fkLookup
      FieldName = 'itemname'
      LookupDataSet = ITEM_ADOQ
      LookupKeyFields = 'ITEM_ID'
      LookupResultField = 'ITEM_NAME'
      KeyFields = 'RKD_ITEMNAME'
      Lookup = True
    end
    object CURRSTOCK_ADOQRKD_ITEMNAME: TStringField
      FieldName = 'RKD_ITEMNAME'
    end
    object CURRSTOCK_ADOQRKD_SORT: TStringField
      FieldName = 'RKD_SORT'
    end
    object CURRSTOCK_ADOQRKD_UNIT: TStringField
      FieldName = 'RKD_UNIT'
    end
    object CURRSTOCK_ADOQRKD_PRICE: TBCDField
      FieldName = 'RKD_PRICE'
      Precision = 18
      Size = 2
    end
    object CURRSTOCK_ADOQRKD_NUM: TBCDField
      FieldName = 'RKD_NUM'
      Precision = 18
      Size = 2
    end
    object CURRSTOCK_ADOQRKD_MON: TBCDField
      FieldName = 'RKD_MON'
      Precision = 18
      Size = 2
    end
    object CURRSTOCK_ADOQRKD_MAN: TStringField
      FieldName = 'RKD_MAN'
    end
    object CURRSTOCK_ADOQRKD_STOCK: TStringField
      FieldName = 'RKD_STOCK'
    end
    object CURRSTOCK_ADOQRKD_PERSON: TStringField
      FieldName = 'RKD_PERSON'
    end
  end
  object LCBASE_ADOQ: TADOQuery
    Connection = ADOC
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT * FROM LCBASE')
    Left = 176
    Top = 360
  end
  object LCBASE_DS: TDataSource
    DataSet = LCBASE_ADOQ
    Left = 128
    Top = 360
  end
  object LCRKDM_ADOQ: TADOQuery
    Connection = ADOC
    CursorType = ctStatic
    AfterInsert = LCRKDM_ADOQAfterInsert
    Parameters = <>
    SQL.Strings = (
      'SELECT * FROM LCRKD_M  ')
    Left = 296
    Top = 416
    object LCRKDM_ADOQLCRKD_NO: TStringField
      FieldName = 'LCRKD_NO'
      Size = 15
    end
    object LCRKDM_ADOQLCRKD_MAN: TStringField
      FieldName = 'LCRKD_MAN'
    end
    object LCRKDM_ADOQLCRKD_TIME: TDateTimeField
      FieldName = 'LCRKD_TIME'
    end
    object LCRKDM_ADOQLCRKD_CARNO: TStringField
      FieldName = 'LCRKD_CARNO'
      Size = 15
    end
    object LCRKDM_ADOQLCRKD_BS: TStringField
      FieldName = 'LCRKD_BS'
      Size = 10
    end
    object LCRKDM_ADOQLCRKD_MARKS: TStringField
      FieldName = 'LCRKD_MARKS'
      Size = 50
    end
    object LCRKDM_ADOQLCRKD_ROAD: TStringField
      FieldName = 'LCRKD_ROAD'
    end
    object LCRKDM_ADOQlcman: TStringField
      FieldKind = fkLookup
      FieldName = 'lcman'
      LookupDataSet = CG_ADOQ
      LookupKeyFields = 'CG_ID'
      LookupResultField = 'CG_NAME'
      KeyFields = 'LCRKD_MAN'
      Lookup = True
    end
    object LCRKDM_ADOQlccarno: TStringField
      FieldKind = fkLookup
      FieldName = 'lccarno'
      LookupDataSet = LCBASE_ADOQ
      LookupKeyFields = 'LC_NO'
      LookupResultField = 'LC_CARNO'
      KeyFields = 'LCRKD_CARNO'
      Lookup = True
    end
    object LCRKDM_ADOQlcroad: TStringField
      FieldKind = fkLookup
      FieldName = 'lcroad'
      LookupDataSet = LCROAD_ADOQ
      LookupKeyFields = 'LCROAD_NO'
      LookupResultField = 'LCROAD_NAME'
      KeyFields = 'LCRKD_ROAD'
      Lookup = True
    end
    object LCRKDM_ADOQlcroad1: TStringField
      FieldKind = fkLookup
      FieldName = 'lcroad1'
      LookupDataSet = LCROAD_ADOQ
      LookupKeyFields = 'LCROAD_NO'
      LookupResultField = 'LCROAD_NAME'
      KeyFields = 'LCRKD_ROAD'
      Lookup = True
    end
    object LCRKDM_ADOQLCRKD_HZ: TStringField
      FieldName = 'LCRKD_HZ'
      Size = 5
    end
    object LCRKDM_ADOQLCRKD_CHECX: TBooleanField
      FieldName = 'LCRKD_CHECX'
    end
    object LCRKDM_ADOQLCRKD_HXBS: TBooleanField
      FieldName = 'LCRKD_HXBS'
    end
    object LCRKDM_ADOQLCRKD_BZ: TStringField
      FieldName = 'LCRKD_BZ'
    end
    object LCRKDM_ADOQbzname: TStringField
      FieldKind = fkLookup
      FieldName = 'bzname'
      LookupDataSet = CLASS_ADOQ
      LookupKeyFields = 'CLASS_ID'
      LookupResultField = 'CLASS_NAME'
      KeyFields = 'LCRKD_BZ'
      Lookup = True
    end
  end
  object LCRKDM_DS: TDataSource
    DataSet = LCRKDM_ADOQ
    Left = 232
    Top = 416
  end
  object LCRKDP_DS: TDataSource
    DataSet = LCRKDP_ADOT
    Left = 232
    Top = 472
  end
  object LCRKDP_ADOT: TADOTable
    Connection = ADOC
    CursorType = ctStatic
    IndexFieldNames = 'LCRKD_NO'
    MasterFields = 'LCRKD_NO'
    MasterSource = LCRKDM_DS
    TableName = 'LCRKD_P'
    Left = 296
    Top = 472
    object LCRKDP_ADOTLCRKD_NO: TStringField
      FieldName = 'LCRKD_NO'
      Size = 15
    end
    object LCRKDP_ADOTLCRKD_ITEMNO: TStringField
      FieldName = 'LCRKD_ITEMNO'
    end
    object LCRKDP_ADOTLCRKD_SORT: TStringField
      FieldName = 'LCRKD_SORT'
    end
    object LCRKDP_ADOTLCRKD_UNIT: TStringField
      FieldName = 'LCRKD_UNIT'
    end
    object LCRKDP_ADOTLCRKD_PRICE: TBCDField
      FieldName = 'LCRKD_PRICE'
      Precision = 18
      Size = 2
    end
    object LCRKDP_ADOTLCRKD_NUM: TBCDField
      FieldName = 'LCRKD_NUM'
      Precision = 18
      Size = 2
    end
    object LCRKDP_ADOTLCRKD_MON: TBCDField
      FieldName = 'LCRKD_MON'
      Precision = 18
      Size = 2
    end
    object LCRKDP_ADOTlcitemno: TStringField
      FieldKind = fkLookup
      FieldName = 'lcitemno'
      LookupDataSet = ITEM_ADOQ
      LookupKeyFields = 'ITEM_ID'
      LookupResultField = 'ITEM_NAME'
      KeyFields = 'LCRKD_ITEMNO'
      Lookup = True
    end
  end
  object LCRKDADOQ: TADOQuery
    Connection = ADOC
    Parameters = <>
    Left = 360
    Top = 416
  end
  object LCROAD_ADOQ: TADOQuery
    Connection = ADOC
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT * FROM LCROAD_ITEM')
    Left = 176
    Top = 424
  end
  object LCROAD_DS: TDataSource
    DataSet = LCROAD_ADOQ
    Left = 128
    Top = 424
  end
  object LCRKDHZ_DS: TDataSource
    DataSet = LCRKDHZ_ADOQ
    Left = 232
    Top = 536
  end
  object LCRKDHZ_ADOQ: TADOQuery
    Connection = ADOC
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT * FROM LCRKD_HZ')
    Left = 296
    Top = 536
    object LCRKDHZ_ADOQLC_CARNO: TStringField
      FieldName = 'LC_CARNO'
      Size = 15
    end
    object LCRKDHZ_ADOQlcitemno: TStringField
      FieldKind = fkLookup
      FieldName = 'lcitemno'
      LookupDataSet = ITEM_ADOQ
      LookupKeyFields = 'ITEM_ID'
      LookupResultField = 'ITEM_NAME'
      KeyFields = 'LC_ITEMNO'
      Lookup = True
    end
    object LCRKDHZ_ADOQLC_HZ: TStringField
      FieldName = 'LC_HZ'
    end
    object LCRKDHZ_ADOQLC_ITEMNO: TStringField
      FieldName = 'LC_ITEMNO'
    end
    object LCRKDHZ_ADOQLC_ITEMSORT: TStringField
      FieldName = 'LC_ITEMSORT'
    end
    object LCRKDHZ_ADOQLC_ITEMUNIT: TStringField
      FieldName = 'LC_ITEMUNIT'
    end
    object LCRKDHZ_ADOQLC_NUM: TBCDField
      FieldName = 'LC_NUM'
      Precision = 18
      Size = 2
    end
    object LCRKDHZ_ADOQLC_ID: TAutoIncField
      FieldName = 'LC_ID'
      ReadOnly = True
    end
    object LCRKDHZ_ADOQLC_BZ: TStringField
      FieldName = 'LC_BZ'
    end
    object LCRKDHZ_ADOQcar: TStringField
      FieldKind = fkLookup
      FieldName = 'car'
      LookupDataSet = LCBASE_ADOQ
      LookupKeyFields = 'LC_NO'
      LookupResultField = 'LC_NAME'
      KeyFields = 'LC_CARNO'
      Lookup = True
    end
    object LCRKDHZ_ADOQbzname: TStringField
      FieldKind = fkLookup
      FieldName = 'bzname'
      LookupDataSet = CLASS_ADOQ
      LookupKeyFields = 'CLASS_ID'
      LookupResultField = 'CLASS_NAME'
      KeyFields = 'LC_BZ'
      Lookup = True
    end
    object LCRKDHZ_ADOQLC_MON: TBCDField
      FieldName = 'LC_MON'
      Precision = 18
      Size = 2
    end
  end
  object LCITEM_DS: TDataSource
    DataSet = LCITEM_ADOQ
    Left = 128
    Top = 480
  end
  object LCITEM_ADOQ: TADOQuery
    Connection = ADOC
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT * FROM LCITEM_ITEM')
    Left = 176
    Top = 480
    object LCITEM_ADOQITEM_NO: TStringField
      FieldName = 'ITEM_NO'
      Size = 6
    end
    object LCITEM_ADOQITEM_NAME: TStringField
      FieldName = 'ITEM_NAME'
    end
    object LCITEM_ADOQITEM_FBS: TStringField
      FieldName = 'ITEM_FBS'
      Size = 15
    end
    object LCITEM_ADOQITEM_UNIT: TStringField
      FieldName = 'ITEM_UNIT'
      Size = 6
    end
    object LCITEM_ADOQITEM_PRICE: TBCDField
      FieldName = 'ITEM_PRICE'
      Precision = 10
      Size = 2
    end
    object LCITEM_ADOQITEM_NUM: TBCDField
      FieldName = 'ITEM_NUM'
      Precision = 10
      Size = 2
    end
    object LCITEM_ADOQITEM_SORT: TStringField
      FieldName = 'ITEM_SORT'
      Size = 6
    end
    object LCITEM_ADOQITEM_MARKS: TStringField
      FieldName = 'ITEM_MARKS'
      Size = 50
    end
    object LCITEM_ADOQITEM_PLIAO: TStringField
      FieldName = 'ITEM_PLIAO'
    end
    object LCITEM_ADOQITEM_FLIAO: TStringField
      FieldName = 'ITEM_FLIAO'
      Size = 30
    end
    object LCITEM_ADOQITEM_XH: TStringField
      FieldName = 'ITEM_XH'
      Size = 9
    end
    object LCITEM_ADOQitemunit: TStringField
      FieldKind = fkLookup
      FieldName = 'itemunit'
      LookupDataSet = UNIT_ADOQ
      LookupKeyFields = 'NUIT_ID'
      LookupResultField = 'NUIT_NAME'
      KeyFields = 'ITEM_UNIT'
      Lookup = True
    end
    object LCITEM_ADOQitemsort: TStringField
      FieldKind = fkLookup
      FieldName = 'itemsort'
      LookupDataSet = SORT_ADOQ
      LookupKeyFields = 'SORTID'
      LookupResultField = 'SORTNAME'
      KeyFields = 'ITEM_SORT'
      Lookup = True
    end
  end
  object SALE_ADOQ: TADOQuery
    Connection = ADOC
    CursorType = ctStatic
    AfterInsert = SALE_ADOQAfterInsert
    Parameters = <>
    SQL.Strings = (
      'SELECT * FROM SALE')
    Left = 96
    Top = 592
    object SALE_ADOQDNO: TStringField
      DisplayWidth = 13
      FieldName = 'DNO'
      Size = 13
    end
    object SALE_ADOQITEM_CARNO: TStringField
      FieldName = 'ITEM_CARNO'
    end
    object SALE_ADOQITEM_BZ: TStringField
      FieldName = 'ITEM_BZ'
    end
    object SALE_ADOQITEM_SJDM: TStringField
      FieldName = 'ITEM_SJDM'
      Size = 4
    end
    object SALE_ADOQITEM_CSJNO: TStringField
      DisplayWidth = 6
      FieldName = 'ITEM_CSJNO'
      Size = 6
    end
    object SALE_ADOQITEM_JYNUM: TIntegerField
      FieldName = 'ITEM_JYNUM'
    end
    object SALE_ADOQITEM_NO: TStringField
      FieldName = 'ITEM_NO'
      Size = 6
    end
    object SALE_ADOQitemname: TStringField
      FieldKind = fkLookup
      FieldName = 'itemname'
      LookupDataSet = LCITEM_ADOQ
      LookupKeyFields = 'ITEM_NO'