ckdd1.dfm

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

  object ADOTable4: TADOTable
    Active = True
    Connection = MainForm.ADOConnection1
    CursorType = ctStatic
    Filter = 'ywybz=1'
    Filtered = True
    TableName = 'RYDA'
    Left = 416
    Top = 184
    object StringField1: TStringField
      DisplayLabel = '编码'
      FieldName = 'code'
      Size = 5
    end
    object StringField2: TStringField
      DisplayLabel = '名称'
      FieldName = 'name'
      Size = 200
    end
    object ADOTable4bm: TStringField
      DisplayLabel = '部门'
      FieldName = 'bm'
      Size = 50
    end
    object ADOTable4xb: TStringField
      DisplayLabel = '性别'
      FieldName = 'xb'
      Size = 4
    end
    object ADOTable4csrq: TDateTimeField
      DisplayLabel = '出生日期'
      FieldName = 'csrq'
    end
    object ADOTable4dh: TStringField
      DisplayLabel = '电话'
      FieldName = 'dh'
      Size = 50
    end
    object ADOTable4zz: TStringField
      DisplayLabel = '住址'
      FieldName = 'zz'
      Size = 200
    end
  end
  object dxDBGridLayoutList1: TdxDBGridLayoutList
    Left = 336
    Top = 184
    object dxDBGridLayoutList1Item1: TdxDBGridLayout
      Data = {
        FE050000545046301054647844424772696457726170706572000542616E6473
        0E0100000D44656661756C744C61796F7574091348656164657250616E656C52
        6F77436F756E740201084B65794669656C640604636F64650D53756D6D617279
        47726F7570730E001053756D6D617279536570617261746F7206022C200C466F
        6E742E43686172736574070E4742323331325F434841525345540A466F6E742E
        436F6C6F72070C636C57696E646F77546578740B466F6E742E48656967687402
        F409466F6E742E4E616D650604CBCECCE50A466F6E742E5374796C650B000A50
        6172656E74466F6E74081042616E64466F6E742E43686172736574070F444546
        41554C545F434841525345540E42616E64466F6E742E436F6C6F72070C636C57
        696E646F77546578740F42616E64466F6E742E48656967687402F50D42616E64
        466F6E742E4E616D65060D4D532053616E732053657269660E42616E64466F6E
        742E5374796C650B000A44617461536F757263650710434B44442E4461746153
        6F75726365330D46696C7465722E416374697665090F46696C7465722E437269
        74657269610A04000000000000000D477269644C696E65436F6C6F720706636C
        4E61767912486561646572466F6E742E43686172736574070E4742323331325F
        4348415253455410486561646572466F6E742E436F6C6F72070C636C57696E64
        6F775465787411486561646572466F6E742E48656967687402F40F4865616465
        72466F6E742E4E616D650604CBCECCE510486561646572466F6E742E5374796C
        650B000F4F7074696F6E734265686176696F720B0C6564676F4175746F536F72
        740E6564676F447261675363726F6C6C0B6564676F45646974696E6713656467
        6F456E74657253686F77456469746F72136564676F496D6D6564696174654564
        69746F720D6564676F4D756C7469536F72740E6564676F5461625468726F7567
        680F6564676F566572745468726F75676800094F7074696F6E7344420B106564
        676F43616E63656C4F6E457869740D6564676F43616E496E7365727411656467
        6F43616E4E617669676174696F6E116564676F436F6E6669726D44656C657465
        126564676F4C6F6164416C6C5265636F726473106564676F557365426F6F6B6D
        61726B73000B4F7074696F6E73566965770B136564676F42616E644865616465
        7257696474680D6564676F496E64696361746F720D6564676F5573654269746D
        6170001350726576696577466F6E742E43686172736574070F44454641554C54
        5F434841525345541150726576696577466F6E742E436F6C6F720706636C426C
        75651250726576696577466F6E742E48656967687402F5105072657669657746
        6F6E742E4E616D65060D4D532053616E73205365726966115072657669657746
        6F6E742E5374796C650B0000135464784442477269644D61736B436F6C756D6E
        04636F6465055769647468024A0942616E64496E646578020008526F77496E64
        65780200094669656C644E616D650604636F6465000013546478444247726964
        4D61736B436F6C756D6E046E616D65055769647468026F0942616E64496E6465
        78020008526F77496E6465780200094669656C644E616D6506046E616D650000
        135464784442477269644D61736B436F6C756D6E02647A055769647468038100
        0942616E64496E646578020008526F77496E6465780200094669656C644E616D
        650602647A0000135464784442477269644D61736B436F6C756D6E0264680557
        6964746802570942616E64496E646578020008526F77496E6465780200094669
        656C644E616D65060264680000135464784442477269644D61736B436F6C756D
        6E02637A05576964746802570942616E64496E646578020008526F77496E6465
        780200094669656C644E616D650602637A0000135464784442477269644D6173
        6B436F6C756D6E036C7872055769647468023D0942616E64496E646578020008
        526F77496E6465780200094669656C644E616D6506036C787200001354647844
        42477269644D61736B436F6C756D6E02627A05576964746802790942616E6449
        6E646578020008526F77496E6465780200094669656C644E616D650602627A00
        0000}
    end
    object dxDBGridLayoutList1Item2: TdxDBGridLayout
      Data = {
        F7050000545046301054647844424772696457726170706572000542616E6473
        0E0100000D44656661756C744C61796F7574091348656164657250616E656C52
        6F77436F756E740201084B65794669656C640604636F64650D53756D6D617279
        47726F7570730E001053756D6D617279536570617261746F7206022C200C466F
        6E742E43686172736574070E4742323331325F434841525345540A466F6E742E
        436F6C6F72070C636C57696E646F77546578740B466F6E742E48656967687402
        F409466F6E742E4E616D650604CBCECCE50A466F6E742E5374796C650B000A50
        6172656E74466F6E74081042616E64466F6E742E43686172736574070F444546
        41554C545F434841525345540E42616E64466F6E742E436F6C6F72070C636C57
        696E646F77546578740F42616E64466F6E742E48656967687402F50D42616E64
        466F6E742E4E616D65060D4D532053616E732053657269660E42616E64466F6E
        742E5374796C650B000A44617461536F757263650710434B44442E4461746153
        6F75726365340D46696C7465722E416374697665090F46696C7465722E437269
        74657269610A040000000000000012486561646572466F6E742E436861727365
        74070E4742323331325F4348415253455410486561646572466F6E742E436F6C
        6F72070C636C57696E646F775465787411486561646572466F6E742E48656967
        687402F40F486561646572466F6E742E4E616D650604CBCECCE5104865616465
        72466F6E742E5374796C650B000F4F7074696F6E734265686176696F720B0C65
        64676F4175746F536F72740E6564676F447261675363726F6C6C0B6564676F45
        646974696E67136564676F456E74657253686F77456469746F72136564676F49
        6D6D656469617465456469746F720D6564676F4D756C7469536F72740E656467
        6F5461625468726F7567680F6564676F566572745468726F75676800094F7074
        696F6E7344420B106564676F43616E63656C4F6E457869740D6564676F43616E
        44656C6574650D6564676F43616E496E73657274116564676F43616E4E617669
        676174696F6E116564676F436F6E6669726D44656C657465126564676F4C6F61
        64416C6C5265636F726473106564676F557365426F6F6B6D61726B73000B4F70
        74696F6E73566965770B136564676F42616E6448656164657257696474680D65
        64676F496E64696361746F720D6564676F5573654269746D6170001350726576
        696577466F6E742E43686172736574070F44454641554C545F43484152534554
        1150726576696577466F6E742E436F6C6F720706636C426C7565125072657669
        6577466F6E742E48656967687402F51050726576696577466F6E742E4E616D65
        060D4D532053616E732053657269661150726576696577466F6E742E5374796C
        650B0000135464784442477269644D61736B436F6C756D6E04636F6465055769
        64746802450942616E64496E646578020008526F77496E646578020009466965
        6C644E616D650604636F64650000135464784442477269644D61736B436F6C75
        6D6E046E616D65055769647468023F0942616E64496E646578020008526F7749
        6E6465780200094669656C644E616D6506046E616D6500001354647844424772
        69644D61736B436F6C756D6E02626D055769647468023E0942616E64496E6465
        78020008526F77496E6465780200094669656C644E616D650602626D00001354
        64784442477269644D61736B436F6C756D6E0278620557696474680238094261
        6E64496E646578020008526F77496E6465780200094669656C644E616D650602
        786200001354647844424772696444617465436F6C756D6E0463737271055769
        64746802560942616E64496E646578020008526F77496E646578020009466965
        6C644E616D650604637372710000135464784442477269644D61736B436F6C75
        6D6E02646805576964746802600942616E64496E646578020008526F77496E64
        65780200094669656C644E616D65060264680000135464784442477269644D61
        736B436F6C756D6E027A7A055769647468027C0942616E64496E646578020008
        526F77496E6465780200094669656C644E616D6506027A7A000000}
    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 = 'CKDD002'
    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 ADOTable2jhj: TBCDField
      DisplayLabel = '成本价'
      DisplayWidth = 19
      FieldName = 'jhj'
      OnSetText = ADOTable2jhjSetText
      Precision = 18
      Size = 3
    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 ADOTable2kcsl: TBCDField
      DisplayLabel = '库存数量'
      FieldName = 'kcsl'
      Precision = 18
      Size = 0
    end
  end
  object ADOTable1: TADOTable
    Active = True
    Connection = MainForm.ADOConnection1
    CursorType = ctStatic
    AfterScroll = ADOTable1AfterScroll
    TableName = 'CKDD001'
    Left = 416
    Top = 80
    object ADOTable1code: TStringField
      DisplayLabel = '单号'
      FieldName = 'code'
    end
    object ADOTable1kdrq: TDateTimeField
      DisplayLabel = '开单日期'
      FieldName = 'kdrq'
    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 ADOTable1ywyname: TStringField
      DisplayLabel = '业务员'
      FieldKind = fkLookup
      FieldName = 'ywyname'
      LookupDataSet = ADOTable4
      LookupKeyFields = 'code'
      LookupResultField = 'name'
      KeyFields = 'ywy'
      Lookup = True
    end
    object ADOTable1dkr: TStringField
      DisplayLabel = '开单人'
      FieldName = 'dkr'
      Size = 6
    end
    object ADOTable1dcck: TStringField
      DisplayLabel = '调出仓库'
      FieldName = 'dcck'
      Size = 5
    end
    object ADOTable1drck: TStringField
      DisplayLabel = '调入仓库'
      FieldName = 'drck'
      Size = 5
    end
    object ADOTable1dcckname: TStringField
      FieldKind = fkLookup
      FieldName = 'dcckname'
      LookupDataSet = ADOTable3
      LookupKeyFields = 'code'
      LookupResultField = 'name'
      KeyFields = 'dcck'
      Lookup = True
    end
    object ADOTable1drckname: TStringField
      FieldKind = fkLookup
      FieldName = 'drckname'
      LookupDataSet = ADOTable3
      LookupKeyFields = 'code'
      LookupResultField = 'name'
      KeyFields = 'drck'
      Lookup = True
    end
    object ADOTable1shrq: TDateTimeField
      FieldName = 'shrq'
    end
    object ADOTable1shr: TStringField
      FieldName = 'shr'
    end
  end
  object PopupMenu1: TPopupMenu
    Alignment = paCenter
    Left = 24
    Top = 192
    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 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 N13: TMenuItem
      Caption = '单据查找'
      ShortCut = 114
      OnClick = N13Click
    end
    object N12: TMenuItem
      Caption = '-'
    end
    object N3: TMenuItem
      Caption = '审核入账'
      ShortCut = 121
      OnClick = N3Click
    end
  end
end