dmunit.~dfm

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

      LookupResultField = 'ITEM_NAME'
      KeyFields = 'ITEM_NO'
      Lookup = True
    end
    object SALE_ADOQITEM_PRICE: TBCDField
      FieldName = 'ITEM_PRICE'
      Precision = 18
      Size = 2
    end
    object SALE_ADOQITEM_NUM: TIntegerField
      FieldName = 'ITEM_NUM'
    end
    object SALE_ADOQITEM_MON: TBCDField
      FieldName = 'ITEM_MON'
      Precision = 18
      Size = 2
    end
    object SALE_ADOQITEM_TIME: TDateTimeField
      FieldName = 'ITEM_TIME'
    end
    object SALE_ADOQITEM_MEN: TStringField
      FieldName = 'ITEM_MEN'
      Size = 6
    end
    object SALE_ADOQITEM_BS: TStringField
      FieldName = 'ITEM_BS'
    end
    object SALE_ADOQITEM_LSNO: TStringField
      FieldName = 'ITEM_LSNO'
      Size = 6
    end
    object SALE_ADOQITEM_MARKS: TStringField
      FieldName = 'ITEM_MARKS'
      Size = 50
    end
    object SALE_ADOQSALENO: TAutoIncField
      FieldName = 'SALENO'
      ReadOnly = True
    end
    object SALE_ADOQITEM_DATE: TDateTimeField
      FieldName = 'ITEM_DATE'
    end
  end
  object SALE_DS: TDataSource
    DataSet = SALE_ADOQ
    Left = 48
    Top = 592
  end
  object LCSALEHZ_DS: TDataSource
    DataSet = LCSALEHZ_ADOQ
    Left = 232
    Top = 600
  end
  object LCSALEHZ_ADOQ: TADOQuery
    Connection = ADOC
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT * FROM LCSALE_HZ')
    Left = 296
    Top = 600
    object LCSALEHZ_ADOQSALENO: TAutoIncField
      FieldName = 'SALENO'
      ReadOnly = True
    end
    object LCSALEHZ_ADOQSALE_CARNO: TStringField
      FieldName = 'SALE_CARNO'
      Size = 15
    end
    object LCSALEHZ_ADOQSALE_HZ: TStringField
      FieldName = 'SALE_HZ'
      Size = 15
    end
    object LCSALEHZ_ADOQSALE_ITEMNO: TStringField
      FieldName = 'SALE_ITEMNO'
    end
    object LCSALEHZ_ADOQSALE_ITEMNAME: TStringField
      FieldName = 'SALE_ITEMNAME'
      Size = 30
    end
    object LCSALEHZ_ADOQSALE_UNIT: TStringField
      FieldName = 'SALE_UNIT'
      Size = 15
    end
    object LCSALEHZ_ADOQSALE_NUM: TBCDField
      FieldName = 'SALE_NUM'
      Precision = 18
      Size = 2
    end
    object LCSALEHZ_ADOQSALE_PRICE: TBCDField
      FieldName = 'SALE_PRICE'
      Precision = 18
      Size = 2
    end
    object LCSALEHZ_ADOQSALE_SORT: TStringField
      FieldName = 'SALE_SORT'
    end
    object LCSALEHZ_ADOQSALE_BZ: TStringField
      FieldName = 'SALE_BZ'
    end
    object LCSALEHZ_ADOQcarno: TStringField
      FieldKind = fkLookup
      FieldName = 'carno'
      LookupDataSet = LCBASE_ADOQ
      LookupKeyFields = 'LC_NO'
      LookupResultField = 'LC_NAME'
      KeyFields = 'SALE_CARNO'
      Lookup = True
    end
    object LCSALEHZ_ADOQbzname: TStringField
      FieldKind = fkLookup
      FieldName = 'bzname'
      LookupDataSet = CLASS_ADOQ
      LookupKeyFields = 'CLASS_ID'
      LookupResultField = 'CLASS_NAME'
      KeyFields = 'SALE_BZ'
      Lookup = True
    end
  end
  object CUST_ADOQ: TADOQuery
    Connection = ADOC
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT * FROM CUST_ITEM')
    Left = 176
    Top = 536
  end
  object CUST_DS: TDataSource
    DataSet = CUST_ADOQ
    Left = 128
    Top = 536
  end
  object passupADOQ: TADOQuery
    Connection = ADOC
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT * FROM CUST_ITEM')
    Left = 72
    Top = 80
  end
  object Check_Rights: TADOQuery
    Connection = ADOC
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'Cust_Name'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 20
        Value = Null
      end>
    SQL.Strings = (
      'select formname=B.PBS,BtnName=B.Button_Name'
      'from Pre P,Cust_Item C,Button B'
      'where P.UseID=C.Cust_No and P.ID_No=B.ID_No and '
      #9'C.Cust_Name=:Cust_Name')
    Left = 68
    Top = 144
  end
  object CGTJADOQ: TADOQuery
    Connection = ADOC
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT JM.CGD_NO,CG.CG_NAME,JM.CGD_TIME,I.ITEM_NAME,'
      'JP.ITEM_SORT,JP.ITEM_UNIT,JP.ITEM_PRICE,JP.ITEM_NUM,'
      'JP.ITEM_MON FROM JH_CGDM JM '
      'LEFT JOIN JH_CGDP JP ON'
      'JM.CGD_NO=JP.CGD_NO'
      'LEFT JOIN ITEM_CG CG ON'
      'CG.CG_ID=JM.CGD_MAN'
      'LEFT JOIN ITEM_ITEM I ON'
      'I.ITEM_ID=JP.ITEM_NO')
    Left = 616
    Top = 16
  end
  object CGTJDS: TDataSource
    DataSet = CGTJADOQ
    Left = 688
    Top = 8
  end
  object RKDTJADOQ: TADOQuery
    Connection = ADOC
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      
        'SELECT RM.RKD_NO,CG.CG_NAME,RM.RKD_TIME,S.STOCK_NAME,CG1.CG_NAME' +
        ',I.ITEM_NAME,'
      'RP.ITEM_SORT,RP.ITEM_UNIT,RP.ITEM_PRICE,RP.ITEM_NUM,RP.ITEM_MON'
      'FROM RKD_M RM'
      'LEFT JOIN RKD_P RP ON'
      'RP.RKD_NO=RM.RKD_NO'
      'LEFT JOIN ITEM_CG CG ON'
      'CG.CG_ID=RM.RKD_MAN'
      'LEFT JOIN ITEM_STOCK S ON'
      'S.STOCK_ID=RM.RKD_STOCK'
      'LEFT JOIN ITEM_ITEM I ON'
      'I.ITEM_ID=RP.ITEM_NO'
      'LEFT JOIN ITEM_CG CG1 ON'
      'CG1.CG_ID=RM.RKD_PERSON')
    Left = 616
    Top = 80
  end
  object RKDTJDS: TDataSource
    DataSet = RKDTJADOQ
    Left = 688
    Top = 72
  end
  object CKDTJADOQ: TADOQuery
    Connection = ADOC
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      ''
      
        'SELECT CM.CKD_NO,CM.CKD_TIME,S.STOCK_NAME,CG.CG_NAME,I.ITEM_NAME' +
        ',CP.ITEM_SORT,'
      'CP.ITEM_UNIT,CP.ITEM_PRICE,CP.ITEM_NUM,CP.ITEM_MON'
      'FROM CKD_M CM'
      'LEFT JOIN CKD_P CP ON'
      'CP.CKD_NO=CM.CKD_NO'
      'LEFT JOIN ITEM_ITEM I ON'
      'I.ITEM_ID=CP.ITEM_NO'
      'LEFT JOIN ITEM_CG CG ON'
      'CG.CG_ID=CM.CKD_MAN'
      'LEFT JOIN ITEM_STOCK S ON'
      'S.STOCK_ID=CM.CKD_STOCK')
    Left = 616
    Top = 144
  end
  object CKDTJDS: TDataSource
    DataSet = CKDTJADOQ
    Left = 688
    Top = 136
  end
  object LCRKDTJ_ADOQ: TADOQuery
    Connection = ADOC
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT LM.LCRKD_NO,CG.CG_NAME,LM.LCRKD_TIME,LB.LC_NAME,'
      'LR.LCROAD_NAME,LCI.ITEM_NAME,LP.LCRKD_SORT,LP.LCRKD_UNIT,'
      'LP.LCRKD_PRICE,LP.LCRKD_NUM,LP.LCRKD_MON'
      'FROM LCRKD_M LM '
      'LEFT JOIN LCRKD_P LP ON'
      'LM.LCRKD_NO=LP.LCRKD_NO'
      'LEFT JOIN ITEM_CG CG ON'
      'CG.CG_ID=LM.LCRKD_MAN'
      'LEFT JOIN LCBASE LB ON'
      'LM.LCRKD_CARNO=LB.LC_NO'
      'LEFT JOIN LCITEM_ITEM LCI ON'
      'LP.LCRKD_ITEMNO=LCI.ITEM_NO'
      'LEFT JOIN LCROAD_ITEM LR ON'
      'LR.LCROAD_NO=LM.LCRKD_ROAD')
    Left = 616
    Top = 208
  end
  object LCRKDTJ_DS: TDataSource
    DataSet = LCRKDTJ_ADOQ
    Left = 688
    Top = 200
  end
  object CLASS_ADOQ: TADOQuery
    Connection = ADOC
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT * FROM CLASS_ITEM')
    Left = 128
    Top = 648
  end
  object CLASS_DS: TDataSource
    DataSet = CLASS_ADOQ
    Left = 80
    Top = 648
  end
  object JXZM_ADOQ: TADOQuery
    Connection = ADOC
    CursorType = ctStatic
    AfterInsert = JXZM_ADOQAfterInsert
    Parameters = <>
    SQL.Strings = (
      'SELECT * FROM JXZ_M')
    Left = 456
    Top = 15
    object JXZM_ADOQJXZ_NO: TStringField
      FieldName = 'JXZ_NO'
      Size = 15
    end
    object JXZM_ADOQJXZ_CARNO: TStringField
      FieldName = 'JXZ_CARNO'
    end
    object JXZM_ADOQJXZ_JBZ: TStringField
      FieldName = 'JXZ_JBZ'
    end
    object JXZM_ADOQJXZ_TIME: TDateTimeField
      FieldName = 'JXZ_TIME'
    end
    object JXZM_ADOQJXZ_JCARNO: TStringField
      FieldName = 'JXZ_JCARNO'
    end
    object JXZM_ADOQJXZ_JSBZ: TStringField
      FieldName = 'JXZ_JSBZ'
    end
    object JXZM_ADOQJXZ_MARKS: TStringField
      FieldName = 'JXZ_MARKS'
      Size = 50
    end
    object JXZM_ADOQJXZ_BS: TStringField
      FieldName = 'JXZ_BS'
      Size = 10
    end
    object JXZM_ADOQJXZ_HXNO: TStringField
      FieldName = 'JXZ_HXNO'
      Size = 15
    end
    object JXZM_ADOQjcarno: TStringField
      FieldKind = fkLookup
      FieldName = 'jcarno'
      LookupDataSet = LCBASE_ADOQ
      LookupKeyFields = 'LC_NO'
      LookupResultField = 'LC_NAME'
      KeyFields = 'JXZ_CARNO'
      Lookup = True
    end
    object JXZM_ADOQjscarno: TStringField
      FieldKind = fkLookup
      FieldName = 'jscarno'
      LookupDataSet = LCBASE_ADOQ
      LookupKeyFields = 'LC_NO'
      LookupResultField = 'LC_NAME'
      KeyFields = 'JXZ_JCARNO'
      Lookup = True
    end
    object JXZM_ADOQjbz: TStringField
      FieldKind = fkLookup
      FieldName = 'jbz'
      LookupDataSet = CLASS_ADOQ
      LookupKeyFields = 'CLASS_ID'
      LookupResultField = 'CLASS_NAME'
      KeyFields = 'JXZ_JBZ'
      Lookup = True
    end
    object JXZM_ADOQjsbz: TStringField
      FieldKind = fkLookup
      FieldName = 'jsbz'
      LookupDataSet = CLASS_ADOQ
      LookupKeyFields = 'CLASS_ID'
      LookupResultField = 'CLASS_NAME'
      KeyFields = 'JXZ_JSBZ'
      Lookup = True
    end
  end
  object JXZM_DS: TDataSource
    DataSet = JXZM_ADOQ
    Left = 520
    Top = 16
  end
  object JXZP_DS: TDataSource
    DataSet = JXZP_ADOT
    Left = 520
    Top = 72
  end
  object JXZP_ADOT: TADOTable
    Connection = ADOC
    CursorType = ctStatic
    IndexFieldNames = 'JXZ_NO'
    MasterFields = 'JXZ_NO'
    MasterSource = JXZM_DS
    TableName = 'JXZ_P'
    Left = 456
    Top = 72
    object JXZP_ADOTJXZ_NO: TStringField
      FieldName = 'JXZ_NO'
    end
    object JXZP_ADOTJXZ_ITEMNO: TStringField
      FieldName = 'JXZ_ITEMNO'
      Size = 30
    end
    object JXZP_ADOTJXZ_ITEMSORT: TStringField
      FieldName = 'JXZ_ITEMSORT'
    end
    object JXZP_ADOTJXZ_ITEMUNIT: TStringField
      FieldName = 'JXZ_ITEMUNIT'
    end
    object JXZP_ADOTJXZ_ITEMPRICE: TBCDField
      FieldName = 'JXZ_ITEMPRICE'
      Precision = 18
      Size = 2
    end
    object JXZP_ADOTJXZ_ITEMNUM: TBCDField
      FieldName = 'JXZ_ITEMNUM'
      Precision = 18
      Size = 2
    end
    object JXZP_ADOTJXZ_ITEMMON: TBCDField
      FieldName = 'JXZ_ITEMMON'
      Precision = 18
      Size = 2
    end
    object JXZP_ADOTitemname: TStringField
      FieldKind = fkLookup
      FieldName = 'itemname'
      LookupDataSet = LCITEM_ADOQ
      LookupKeyFields = 'ITEM_NO'
      LookupResultField = 'ITEM_NAME'
      KeyFields = 'JXZ_ITEMNO'
      Lookup = True
    end
  end
  object JXZNOADOQ: TADOQuery
    Connection = ADOC
    Parameters = <>
    Left = 624
    Top = 320
  end
  object JSZM_ADOQ: TADOQuery
    Connection = ADOC
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT * FROM JSZ_M ')
    Left = 456
    Top = 136
    object JSZM_ADOQJSZ_NO: TStringField
      FieldName = 'JSZ_NO'
    end
    object JSZM_ADOQJSZ_TIME: TDateTimeField
      FieldName = 'JSZ_TIME'
    end
    object JSZM_ADOQJSZ_CARNO: TStringField
      FieldName = 'JSZ_CARNO'
    end
    object JSZM_ADOQJSZ_BZ: TStringField
      FieldName = 'JSZ_BZ'
    end
    object JSZM_ADOQJSZ_JCARNO: TStringField
      FieldName = 'JSZ_JCARNO'
    end
    object JSZM_ADOQJSZ_JBZ: TStringField
      FieldName = 'JSZ_JBZ'
    end
    object JSZM_ADOQJSZ_HZBH: TStringField
      FieldName = 'JSZ_HZBH'
    end
    object JSZM_ADOQJSZ_HZ: TStringField
      FieldName = 'JSZ_HZ'
    end
    object JSZM_ADOQjxcarno: TStringField
      FieldKind = fkLookup
      FieldName = 'jxcarno'
      LookupDataSet = LCBASE_ADOQ
      LookupKeyFields = 'LC_NO'
      LookupResultField = 'LC_NAME'
      KeyFields = 'JSZ_CARNO'
      Lookup = True
    end
    object JSZM_ADOQjxbz: TStringField
      FieldKind = fkLookup
      FieldName = 'jxbz'
      LookupDataSet = CLASS_ADOQ
      LookupKeyFields = 'CLASS_ID'
      LookupResultField = 'CLASS_NAME'
      KeyFields = 'JSZ_BZ'
      Lookup = True
    end
    object JSZM_ADOQjscarno: TStringField
      FieldKind = fkLookup
      FieldName = 'jscarno'
      LookupDataSet = LCBASE_ADOQ
      LookupKeyFields = 'LC_NO'
      LookupResultField = 'LC_NAME'
      KeyFields = 'JSZ_JCARNO'
      Lookup = True
    end
    object JSZM_ADOQjsbz: TStringField
      FieldKind = fkLookup
      FieldName = 'jsbz'
      LookupDataSet = CLASS_ADOQ
      LookupKeyFields = 'CLASS_ID'
      LookupResultField = 'CLASS_NAME'
      KeyFields = 'JSZ_JBZ'
      Lookup = True
    end
    object JSZM_ADOQJSZ_HX: TBooleanField
      FieldName = 'JSZ_HX'