dmunit.~dfm

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

object DM: TDM
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  Left = 111
  Height = 724
  Width = 815
  object ADOC: TADOConnection
    CommandTimeout = 300
    LoginPrompt = False
    Provider = 'SQLOLEDB.1'
    Left = 16
    Top = 8
  end
  object CG_DS: TDataSource
    DataSet = CG_ADOQ
    Left = 128
    Top = 16
  end
  object CG_ADOQ: TADOQuery
    Connection = ADOC
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT * FROM ITEM_CG')
    Left = 176
    Top = 16
  end
  object GY_ADOQ: TADOQuery
    Connection = ADOC
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT * FROM ITEM_GY')
    Left = 176
    Top = 72
  end
  object GY_DS: TDataSource
    DataSet = GY_ADOQ
    Left = 128
    Top = 72
  end
  object ITEM_DS: TDataSource
    DataSet = ITEM_ADOQ
    Left = 128
    Top = 128
  end
  object UNIT_DS: TDataSource
    DataSet = UNIT_ADOQ
    Left = 128
    Top = 184
  end
  object SORT_DS: TDataSource
    DataSet = SORT_ADOQ
    Left = 128
    Top = 240
  end
  object STOCK_DS: TDataSource
    DataSet = STOCK_ADOQ
    Left = 128
    Top = 288
  end
  object ITEM_ADOQ: TADOQuery
    Connection = ADOC
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT * FROM ITEM_ITEM')
    Left = 176
    Top = 128
    object ITEM_ADOQITEM_ID: TStringField
      FieldName = 'ITEM_ID'
      Size = 10
    end
    object ITEM_ADOQITEM_NAME: TStringField
      FieldName = 'ITEM_NAME'
      Size = 30
    end
    object ITEM_ADOQITEM_UNIT: TStringField
      FieldName = 'ITEM_UNIT'
      Size = 10
    end
    object ITEM_ADOQITEM_PRICE: TBCDField
      FieldName = 'ITEM_PRICE'
      Precision = 18
      Size = 2
    end
    object ITEM_ADOQITEM_MARKS: TStringField
      FieldName = 'ITEM_MARKS'
      Size = 50
    end
    object ITEM_ADOQITEM_SOTR: TStringField
      FieldName = 'ITEM_SOTR'
    end
    object ITEM_ADOQitemunit: TStringField
      FieldKind = fkLookup
      FieldName = 'itemunit'
      LookupDataSet = UNIT_ADOQ
      LookupKeyFields = 'NUIT_ID'
      LookupResultField = 'NUIT_NAME'
      KeyFields = 'ITEM_UNIT'
      Lookup = True
    end
    object ITEM_ADOQitemsort: TStringField
      FieldKind = fkLookup
      FieldName = 'itemsort'
      LookupDataSet = SORT_ADOQ
      LookupKeyFields = 'SORTID'
      LookupResultField = 'SORTNAME'
      KeyFields = 'ITEM_SOTR'
      Lookup = True
    end
    object ITEM_ADOQITEM_NUM: TBCDField
      FieldName = 'ITEM_NUM'
      Precision = 18
      Size = 2
    end
  end
  object UNIT_ADOQ: TADOQuery
    Connection = ADOC
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT * FROM ITEM_UNIT')
    Left = 176
    Top = 184
  end
  object SORT_ADOQ: TADOQuery
    Connection = ADOC
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT * FROM ITEM_SORT')
    Left = 176
    Top = 240
  end
  object STOCK_ADOQ: TADOQuery
    Connection = ADOC
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT * FROM ITEM_STOCK')
    Left = 176
    Top = 288
  end
  object JHM_ADOQ: TADOQuery
    Connection = ADOC
    CursorType = ctStatic
    AfterInsert = JHM_ADOQAfterInsert
    Parameters = <>
    SQL.Strings = (
      'SELECT * FROM JH_CGDM')
    Left = 296
    Top = 8
    object JHM_ADOQCGD_NO: TStringField
      FieldName = 'CGD_NO'
      Size = 15
    end
    object JHM_ADOQcgman: TStringField
      FieldKind = fkLookup
      FieldName = 'cgman'
      LookupDataSet = CG_ADOQ
      LookupKeyFields = 'CG_ID'
      LookupResultField = 'CG_NAME'
      KeyFields = 'CGD_MAN'
      Lookup = True
    end
    object JHM_ADOQCGD_MAN: TStringField
      FieldName = 'CGD_MAN'
    end
    object JHM_ADOQCGD_TIME: TDateTimeField
      FieldName = 'CGD_TIME'
    end
    object JHM_ADOQCGD_MARKS: TStringField
      FieldName = 'CGD_MARKS'
      Size = 50
    end
  end
  object JHM_DS: TDataSource
    DataSet = JHM_ADOQ
    Left = 232
    Top = 8
  end
  object JHP_DS: TDataSource
    DataSet = JHP_ADOT
    Left = 232
    Top = 56
  end
  object JHP_ADOT: TADOTable
    Connection = ADOC
    CursorType = ctStatic
    IndexFieldNames = 'CGD_NO'
    MasterFields = 'CGD_NO'
    MasterSource = JHM_DS
    TableName = 'JH_CGDP'
    Left = 296
    Top = 56
    object JHP_ADOTCGD_NO: TStringField
      FieldName = 'CGD_NO'
      Size = 15
    end
    object JHP_ADOTITEM_NO: TStringField
      FieldName = 'ITEM_NO'
      Size = 15
    end
    object JHP_ADOTITEM_SORT: TStringField
      FieldName = 'ITEM_SORT'
      Size = 15
    end
    object JHP_ADOTITEM_UNIT: TStringField
      FieldName = 'ITEM_UNIT'
      Size = 15
    end
    object JHP_ADOTITEM_PRICE: TBCDField
      FieldName = 'ITEM_PRICE'
      Precision = 18
      Size = 2
    end
    object JHP_ADOTITEM_NUM: TBCDField
      FieldName = 'ITEM_NUM'
      Precision = 18
      Size = 2
    end
    object JHP_ADOTITEM_MON: TBCDField
      FieldName = 'ITEM_MON'
      Precision = 18
      Size = 2
    end
    object JHP_ADOTitemname: TStringField
      FieldKind = fkLookup
      FieldName = 'itemname'
      LookupDataSet = ITEM_ADOQ
      LookupKeyFields = 'ITEM_ID'
      LookupResultField = 'ITEM_NAME'
      KeyFields = 'ITEM_NO'
      Lookup = True
    end
    object JHP_ADOTitemsort: TStringField
      FieldKind = fkLookup
      FieldName = 'itemsort'
      LookupDataSet = SORT_ADOQ
      LookupKeyFields = 'SORTID'
      LookupResultField = 'SORTNAME'
      KeyFields = 'ITEM_SORT'
      Size = 0
      Lookup = True
    end
    object JHP_ADOTitemunit: TStringField
      FieldKind = fkLookup
      FieldName = 'itemunit'
      LookupDataSet = UNIT_ADOQ
      LookupKeyFields = 'NUIT_ID'
      LookupResultField = 'NUIT_NAME'
      KeyFields = 'ITEM_UNIT'
      Lookup = True
    end
  end
  object JHNOADOQ: TADOQuery
    Connection = ADOC
    Parameters = <>
    Left = 360
    Top = 8
  end
  object RKDM_DS: TDataSource
    DataSet = RKDM_ADOQ
    Left = 232
    Top = 120
  end
  object RKDM_ADOQ: TADOQuery
    Connection = ADOC
    CursorType = ctStatic
    AfterInsert = RKDM_ADOQAfterInsert
    Parameters = <>
    SQL.Strings = (
      'SELECT * FROM RKD_M')
    Left = 296
    Top = 120
    object RKDM_ADOQRKD_NO: TStringField
      FieldName = 'RKD_NO'
      Size = 15
    end
    object RKDM_ADOQRKD_MAN: TStringField
      FieldName = 'RKD_MAN'
    end
    object RKDM_ADOQRKD_TIME: TDateTimeField
      FieldName = 'RKD_TIME'
    end
    object RKDM_ADOQRKD_STOCK: TStringField
      FieldName = 'RKD_STOCK'
      Size = 15
    end
    object RKDM_ADOQRKD_MARKS: TStringField
      FieldName = 'RKD_MARKS'
      Size = 50
    end
    object RKDM_ADOQRKD_PERSON: TStringField
      FieldName = 'RKD_PERSON'
    end
    object RKDM_ADOQRKD_BS: TStringField
      FieldName = 'RKD_BS'
      Size = 10
    end
    object RKDM_ADOQrkman: TStringField
      FieldKind = fkLookup
      FieldName = 'rkman'
      LookupDataSet = CG_ADOQ
      LookupKeyFields = 'CG_ID'
      LookupResultField = 'CG_NAME'
      KeyFields = 'RKD_MAN'
      Lookup = True
    end
    object RKDM_ADOQrkstock: TStringField
      FieldKind = fkLookup
      FieldName = 'rkstock'
      LookupDataSet = STOCK_ADOQ
      LookupKeyFields = 'STOCK_ID'
      LookupResultField = 'STOCK_NAME'
      KeyFields = 'RKD_STOCK'
      Lookup = True
    end
    object RKDM_ADOQrkperson: TStringField
      FieldKind = fkLookup
      FieldName = 'rkperson'
      LookupDataSet = CG_ADOQ
      LookupKeyFields = 'CG_ID'
      LookupResultField = 'CG_NAME'
      KeyFields = 'RKD_PERSON'
      Lookup = True
    end
  end
  object RKDP_DS: TDataSource
    DataSet = RKDP_ADOT
    Left = 232
    Top = 176
  end
  object RKNOADOQ: TADOQuery
    Connection = ADOC
    Parameters = <>
    Left = 360
    Top = 120
  end
  object RKDP_ADOT: TADOTable
    Connection = ADOC
    CursorType = ctStatic
    IndexFieldNames = 'RKD_NO'
    MasterFields = 'RKD_NO'
    MasterSource = RKDM_DS
    TableName = 'RKD_P'
    Left = 296
    Top = 176
    object RKDP_ADOTRKD_NO: TStringField
      FieldName = 'RKD_NO'
      Size = 15
    end
    object RKDP_ADOTField22: TStringField
      FieldKind = fkLookup
      FieldName = 'itemno'
      LookupDataSet = ITEM_ADOQ
      LookupKeyFields = 'ITEM_ID'
      LookupResultField = 'ITEM_NAME'
      KeyFields = 'ITEM_NO'
      Lookup = True
    end
    object RKDP_ADOTITEM_NO: TStringField
      FieldName = 'ITEM_NO'
    end
    object RKDP_ADOTITEM_SORT: TStringField
      FieldName = 'ITEM_SORT'
    end
    object RKDP_ADOTITEM_UNIT: TStringField
      FieldName = 'ITEM_UNIT'
    end
    object RKDP_ADOTITEM_PRICE: TBCDField
      FieldName = 'ITEM_PRICE'
      Precision = 18
      Size = 2
    end
    object RKDP_ADOTITEM_NUM: TBCDField
      FieldName = 'ITEM_NUM'
      Precision = 18
      Size = 2
    end
    object RKDP_ADOTITEM_MON: TBCDField
      FieldName = 'ITEM_MON'
      Precision = 18
      Size = 2
    end
    object RKDP_ADOTrkitem: TStringField
      FieldKind = fkLookup
      FieldName = 'rkitem'
      LookupDataSet = ITEM_ADOQ
      LookupKeyFields = 'ITEM_ID'
      LookupResultField = 'ITEM_NAME'
      KeyFields = 'ITEM_NO'
      Lookup = True
    end
  end
  object CKDM_ADOQ: TADOQuery
    Connection = ADOC
    CursorType = ctStatic
    AfterInsert = CKDM_ADOQAfterInsert
    Parameters = <>
    SQL.Strings = (
      'SELECT * FROM CKD_M')
    Left = 296
    Top = 240
    object CKDM_ADOQCKD_NO: TStringField
      FieldName = 'CKD_NO'
      Size = 15
    end
    object CKDM_ADOQCKD_TIME: TDateTimeField
      FieldName = 'CKD_TIME'
    end
    object CKDM_ADOQckstock: TStringField
      FieldKind = fkLookup
      FieldName = 'ckstock'
      LookupDataSet = STOCK_ADOQ
      LookupKeyFields = 'STOCK_ID'
      LookupResultField = 'STOCK_NAME'
      KeyFields = 'CKD_STOCK'
      Lookup = True
    end
    object CKDM_ADOQCKD_STOCK: TStringField
      FieldName = 'CKD_STOCK'
      Size = 15
    end
    object CKDM_ADOQCKD_MAN: TStringField
      FieldName = 'CKD_MAN'
      Size = 15
    end
    object CKDM_ADOQCKD_BS: TStringField
      FieldName = 'CKD_BS'
      Size = 10
    end
    object CKDM_ADOQCKD_MARKS: TStringField
      FieldName = 'CKD_MARKS'
      Size = 50
    end
    object CKDM_ADOQckman: TStringField
      FieldKind = fkLookup
      FieldName = 'ckman'
      LookupDataSet = CG_ADOQ
      LookupKeyFields = 'CG_ID'
      LookupResultField = 'CG_NAME'
      KeyFields = 'CKD_MAN'
      Lookup = True
    end
  end
  object CKDM_DS: TDataSource
    DataSet = CKDM_ADOQ
    Left = 232
    Top = 240
  end
  object CKDP_DS: TDataSource
    DataSet = CKDP_ADOT
    Left = 232
    Top = 296
  end
  object CKDP_ADOT: TADOTable
    Connection = ADOC
    CursorType = ctStatic
    IndexFieldNames = 'CKD_NO'
    MasterFields = 'CKD_NO'
    MasterSource = CKDM_DS
    TableName = 'CKD_P'
    Left = 296
    Top = 296
    object CKDP_ADOTCKD_NO: TStringField
      FieldName = 'CKD_NO'
      Size = 15
    end
    object CKDP_ADOTitemname: TStringField
      FieldKind = fkLookup
      FieldName = 'itemname'
      LookupDataSet = ITEM_ADOQ
      LookupKeyFields = 'ITEM_ID'
      LookupResultField = 'ITEM_NAME'
      KeyFields = 'ITEM_NO'
      Lookup = True
    end
    object CKDP_ADOTITEM_NO: TStringField
      FieldName = 'ITEM_NO'
    end
    object CKDP_ADOTITEM_SORT: TStringField
      FieldName = 'ITEM_SORT'
      Size = 15
    end
    object CKDP_ADOTITEM_UNIT: TStringField
      FieldName = 'ITEM_UNIT'
      Size = 15
    end
    object CKDP_ADOTITEM_PRICE: TBCDField