xschd1.dfm

思微POS连锁超市管理系统 (商业代码),几年前的东西了

        2E4E616D65060D4D532053616E732053657269661150726576696577466F6E74
        2E5374796C650B0000135464784442477269644D61736B436F6C756D6E066670
        6E616D650D56657274416C69676E6D656E740708746C43656E7465720942616E
        64496E646578020008526F77496E6465780200094669656C644E616D65060666
        706E616D65000000}
    end
  end
  object DataSource3: TDataSource
    DataSet = ADOTable3
    Left = 384
    Top = 216
  end
  object DataSource4: TDataSource
    DataSet = ADOTable4
    Left = 416
    Top = 216
  end
  object Query1: TADOQuery
    Connection = MainForm.ADOConnection1
    Parameters = <>
    Left = 336
    Top = 216
  end
  object ADOTable2: TADOTable
    Active = True
    Connection = MainForm.ADOConnection1
    CursorType = ctStatic
    BeforePost = ADOTable2BeforePost
    IndexFieldNames = 'code'
    MasterFields = 'code'
    MasterSource = DataSource1
    TableName = 'XSCH002'
    Left = 120
    Top = 192
    object ADOTable2spcode: TStringField
      DisplayLabel = '货品编码'
      DisplayWidth = 10
      FieldName = 'spcode'
      OnSetText = ADOTable2spcodeSetText
      Size = 15
    end
    object ADOTable2spname: TStringField
      DisplayLabel = '货品名称'
      DisplayWidth = 25
      FieldName = 'spname'
      Size = 200
    end
    object ADOTable2jldw: TStringField
      DisplayLabel = '单位'
      DisplayWidth = 10
      FieldName = 'jldw'
      Size = 10
    end
    object ADOTable2js: TBCDField
      DisplayLabel = '件数'
      DisplayWidth = 19
      FieldName = 'js'
      OnSetText = ADOTable2jsSetText
      Precision = 18
      Size = 3
    end
    object ADOTable2ss: TBCDField
      DisplayLabel = '散数'
      DisplayWidth = 19
      FieldName = 'ss'
      OnSetText = ADOTable2ssSetText
      Precision = 18
      Size = 3
    end
    object ADOTable2sl: TBCDField
      DisplayLabel = '数量'
      DisplayWidth = 19
      FieldName = 'sl'
      OnSetText = ADOTable2slSetText
      Precision = 18
      Size = 3
    end
    object ADOTable2dj: TBCDField
      DisplayLabel = '单价'
      DisplayWidth = 19
      FieldName = 'dj'
      OnSetText = ADOTable2djSetText
      Precision = 18
      Size = 3
    end
    object ADOTable2sui: TBCDField
      DisplayLabel = '税率'
      DisplayWidth = 19
      FieldName = 'sui'
      OnSetText = ADOTable2suiSetText
      Precision = 18
      Size = 2
    end
    object ADOTable2je: TBCDField
      DisplayLabel = '金额'
      DisplayWidth = 19
      FieldName = 'je'
      Precision = 18
      Size = 3
    end
    object ADOTable2id: TAutoIncField
      DisplayLabel = 'ID'
      DisplayWidth = 10
      FieldName = 'id'
    end
    object ADOTable2code: TStringField
      DisplayLabel = '主单号'
      DisplayWidth = 20
      FieldName = 'code'
    end
    object ADOTable2bzgg: TBCDField
      DisplayLabel = '包装'
      DisplayWidth = 19
      FieldName = 'bzgg'
      Precision = 18
      Size = 0
    end
    object ADOTable2ddcode: TStringField
      DisplayLabel = '订单号'
      FieldName = 'ddcode'
    end
    object ADOTable2kcsl: TBCDField
      DisplayLabel = '库存数量'
      FieldName = 'kcsl'
      Precision = 18
      Size = 0
    end
    object ADOTable2jhj: TBCDField
      FieldName = 'jhj'
      Precision = 19
    end
  end
  object ADOTable1: TADOTable
    Active = True
    Connection = MainForm.ADOConnection1
    CursorType = ctStatic
    AfterScroll = ADOTable1AfterScroll
    TableName = 'XSCH001'
    Left = 376
    Top = 64
    object ADOTable1code: TStringField
      DisplayLabel = '单号'
      FieldName = 'code'
    end
    object ADOTable1kdrq: TDateTimeField
      DisplayLabel = '开单日期'
      FieldName = 'kdrq'
    end
    object ADOTable1kdr: TStringField
      DisplayLabel = '开单人'
      FieldName = 'kdr'
      Size = 10
    end
    object ADOTable1KH: TStringField
      DisplayLabel = '客户编码'
      FieldName = 'KH'
      Size = 5
    end
    object ADOTable1khname: TStringField
      DisplayLabel = '客户名称'
      FieldKind = fkLookup
      FieldName = 'khname'
      LookupDataSet = ADOTable3
      LookupKeyFields = 'code'
      LookupResultField = 'name'
      KeyFields = 'KH'
      Lookup = True
    end
    object ADOTable1zje: TBCDField
      DisplayLabel = '总金额'
      FieldName = 'zje'
      Precision = 18
      Size = 3
    end
    object ADOTable1ywy: TStringField
      DisplayLabel = '业务员'
      FieldName = 'ywy'
      Size = 10
    end
    object ADOTable1bz: TStringField
      DisplayLabel = '备注'
      FieldName = 'bz'
      Size = 200
    end
    object ADOTable1zt: TStringField
      DisplayLabel = '单据状态'
      FieldName = 'zt'
      Size = 10
    end
    object ADOTable1fplx: TStringField
      DisplayLabel = '发票类型'
      FieldName = 'fplx'
    end
    object ADOTable1ck: TStringField
      DisplayLabel = '出货仓'
      FieldName = 'ck'
      Visible = False
      Size = 5
    end
    object ADOTable1yfje: TBCDField
      DisplayLabel = '付款金额'
      FieldName = 'yfje'
      Precision = 18
      Size = 2
    end
    object ADOTable1ckname: TStringField
      FieldKind = fkLookup
      FieldName = 'ckname'
      LookupDataSet = ADOTable5
      LookupKeyFields = 'code'
      LookupResultField = 'name'
      KeyFields = 'ck'
      Lookup = True
    end
    object ADOTable1ywyname: TStringField
      FieldKind = fkLookup
      FieldName = 'ywyname'
      LookupDataSet = ADOTable4
      LookupKeyFields = 'code'
      LookupResultField = 'name'
      KeyFields = 'ywy'
      Lookup = True
    end
    object ADOTable1shrq: TDateTimeField
      FieldName = 'shrq'
    end
    object ADOTable1shr: TStringField
      FieldName = 'shr'
    end
  end
  object PopupMenu1: TPopupMenu
    Alignment = paCenter
    Left = 72
    Top = 160
    object N2: TMenuItem
      Caption = '修改单号'
      ShortCut = 116
      OnClick = N2Click
    end
    object Bit1: TMenuItem
      Caption = '第 一 单'
      ShortCut = 16454
      OnClick = Bit1Click
    end
    object Bit4: TMenuItem
      Caption = '最后一单'
      ShortCut = 16460
      OnClick = Bit4Click
    end
    object N1: TMenuItem
      Caption = '-'
    end
    object N4: TMenuItem
      Caption = '选择订单'
      ShortCut = 120
      OnClick = N4Click
    end
    object N9: TMenuItem
      Caption = '选择货品'
      ShortCut = 119
      OnClick = N9Click
    end
    object N10: TMenuItem
      Caption = '删除货品'
      ShortCut = 16452
      OnClick = N10Click
    end
    object N11: TMenuItem
      Caption = '历史价格'
      ShortCut = 16458
      OnClick = N11Click
    end
    object N3: TMenuItem
      Caption = '审核入账'
      ShortCut = 121
      OnClick = N3Click
    end
    object N12: TMenuItem
      Caption = '-'
    end
    object N13: TMenuItem
      Caption = '单据查找'
      ShortCut = 114
      OnClick = N13Click
    end
  end
  object ADOTable5: TADOTable
    Active = True
    Connection = MainForm.ADOConnection1
    CursorType = ctStatic
    TableName = 'CKDA'
    Left = 448
    Top = 184
    object ADOTable5code: TStringField
      DisplayLabel = '代码'
      FieldName = 'code'
      Size = 5
    end
    object ADOTable5name: TStringField
      DisplayLabel = '名称'
      FieldName = 'name'
      Size = 200
    end
    object ADOTable5dz: TStringField
      DisplayLabel = '地址'
      FieldName = 'dz'
      Size = 200
    end
    object ADOTable5dh: TStringField
      DisplayLabel = '联系电话'
      FieldName = 'dh'
      Size = 50
    end
    object ADOTable5cz: TStringField
      DisplayLabel = '传真'
      FieldName = 'cz'
      Size = 50
    end
    object ADOTable5lxr: TStringField
      DisplayLabel = '联系人'
      FieldName = 'lxr'
      Size = 50
    end
  end
  object DataSource5: TDataSource
    DataSet = ADOTable5
    Left = 448
    Top = 216
  end
  object ADOTable6: TADOTable
    Active = True
    Connection = MainForm.ADOConnection1
    CursorType = ctStatic
    TableName = 'FPLX'
    Left = 480
    Top = 184
    object ADOTable6fpname: TStringField
      DisplayLabel = '发票类型'
      FieldName = 'fpname'
    end
  end
  object DataSource6: TDataSource
    DataSet = ADOTable6
    Left = 480
    Top = 216
  end
end