cgfkd1.dfm

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

        F409466F6E742E4E616D650604CBCECCE50A466F6E742E5374796C650B000A50
        6172656E74466F6E74081042616E64466F6E742E43686172736574070F444546
        41554C545F434841525345540E42616E64466F6E742E436F6C6F72070C636C57
        696E646F77546578740F42616E64466F6E742E48656967687402F50D42616E64
        466F6E742E4E616D65060D4D532053616E732053657269660E42616E64466F6E
        742E5374796C650B000A44617461536F7572636507116367666B642E44617461
        536F75726365330D46696C7465722E416374697665090F46696C7465722E4372
        6974657269610A040000000000000012486561646572466F6E742E4368617273
        6574070E4742323331325F4348415253455410486561646572466F6E742E436F
        6C6F72070C636C57696E646F775465787411486561646572466F6E742E486569
        67687402F40F486561646572466F6E742E4E616D650604CBCECCE51048656164
        6572466F6E742E5374796C650B00094F7074696F6E7344420B106564676F4361
        6E63656C4F6E457869740D6564676F43616E44656C6574650D6564676F43616E
        496E73657274116564676F43616E4E617669676174696F6E116564676F436F6E
        6669726D44656C657465126564676F4C6F6164416C6C5265636F726473106564
        676F557365426F6F6B6D61726B73000B4F7074696F6E73566965770B13656467
        6F42616E6448656164657257696474680D6564676F496E64696361746F720D65
        64676F5573654269746D6170001350726576696577466F6E742E436861727365
        74070F44454641554C545F434841525345541150726576696577466F6E742E43
        6F6C6F720706636C426C75651250726576696577466F6E742E48656967687402
        F51050726576696577466F6E742E4E616D65060D4D532053616E732053657269
        661150726576696577466F6E742E5374796C650B000013546478444247726964
        4D61736B436F6C756D6E04636F646506536F7274656407046373557005576964
        7468023D0942616E64496E646578020008526F77496E6465780200094669656C
        644E616D650604636F64650000135464784442477269644D61736B436F6C756D
        6E046E616D65055769647468026A0942616E64496E646578020008526F77496E
        6465780200094669656C644E616D6506046E616D650000135464784442477269
        644D61736B436F6C756D6E02647105576964746802490942616E64496E646578
        020008526F77496E6465780200094669656C644E616D65060264710000135464
        784442477269644D61736B436F6C756D6E036C7872055769647468024B094261
        6E64496E646578020008526F77496E6465780200094669656C644E616D650603
        6C78720000135464784442477269644D61736B436F6C756D6E046C7864680557
        69647468026D0942616E64496E646578020008526F77496E6465780200094669
        656C644E616D6506046C7864680000135464784442477269644D61736B436F6C
        756D6E02637A05576964746802600942616E64496E646578020008526F77496E
        6465780200094669656C644E616D650602637A0000135464784442477269644D
        61736B436F6C756D6E046C78647A05576964746802550942616E64496E646578
        020008526F77496E6465780200094669656C644E616D6506046C78647A000000}
    end
    object dxDBGridLayoutList1Item2: TdxDBGridLayout
      Data = {
        F8050000545046301054647844424772696457726170706572000542616E6473
        0E0100000D44656661756C744C61796F7574091348656164657250616E656C52
        6F77436F756E740201084B65794669656C640604636F64650D53756D6D617279
        47726F7570730E001053756D6D617279536570617261746F7206022C200C466F
        6E742E43686172736574070E4742323331325F434841525345540A466F6E742E
        436F6C6F72070C636C57696E646F77546578740B466F6E742E48656967687402
        F409466F6E742E4E616D650604CBCECCE50A466F6E742E5374796C650B000A50
        6172656E74466F6E74081042616E64466F6E742E43686172736574070F444546
        41554C545F434841525345540E42616E64466F6E742E436F6C6F72070C636C57
        696E646F77546578740F42616E64466F6E742E48656967687402F50D42616E64
        466F6E742E4E616D65060D4D532053616E732053657269660E42616E64466F6E
        742E5374796C650B000A44617461536F7572636507116367666B642E44617461
        536F75726365340D46696C7465722E416374697665090F46696C7465722E4372
        6974657269610A040000000000000012486561646572466F6E742E4368617273
        6574070E4742323331325F4348415253455410486561646572466F6E742E436F
        6C6F72070C636C57696E646F775465787411486561646572466F6E742E486569
        67687402F40F486561646572466F6E742E4E616D650604CBCECCE51048656164
        6572466F6E742E5374796C650B000F4F7074696F6E734265686176696F720B0C
        6564676F4175746F536F72740E6564676F447261675363726F6C6C0B6564676F
        45646974696E67136564676F456E74657253686F77456469746F72136564676F
        496D6D656469617465456469746F720D6564676F4D756C7469536F72740E6564
        676F5461625468726F7567680F6564676F566572745468726F75676800094F70
        74696F6E7344420B106564676F43616E63656C4F6E457869740D6564676F4361
        6E44656C6574650D6564676F43616E496E73657274116564676F43616E4E6176
        69676174696F6E116564676F436F6E6669726D44656C657465126564676F4C6F
        6164416C6C5265636F726473106564676F557365426F6F6B6D61726B73000B4F
        7074696F6E73566965770B136564676F42616E6448656164657257696474680D
        6564676F496E64696361746F720D6564676F5573654269746D61700013507265
        76696577466F6E742E43686172736574070F44454641554C545F434841525345
        541150726576696577466F6E742E436F6C6F720706636C426C75651250726576
        696577466F6E742E48656967687402F51050726576696577466F6E742E4E616D
        65060D4D532053616E732053657269661150726576696577466F6E742E537479
        6C650B0000135464784442477269644D61736B436F6C756D6E04636F64650557
        6964746802450942616E64496E646578020008526F77496E6465780200094669
        656C644E616D650604636F64650000135464784442477269644D61736B436F6C
        756D6E046E616D65055769647468023F0942616E64496E646578020008526F77
        496E6465780200094669656C644E616D6506046E616D65000013546478444247
        7269644D61736B436F6C756D6E02626D055769647468023E0942616E64496E64
        6578020008526F77496E6465780200094669656C644E616D650602626D000013
        5464784442477269644D61736B436F6C756D6E02786205576964746802380942
        616E64496E646578020008526F77496E6465780200094669656C644E616D6506
        02786200001354647844424772696444617465436F6C756D6E04637372710557
        6964746802560942616E64496E646578020008526F77496E6465780200094669
        656C644E616D650604637372710000135464784442477269644D61736B436F6C
        756D6E02646805576964746802600942616E64496E646578020008526F77496E
        6465780200094669656C644E616D65060264680000135464784442477269644D
        61736B436F6C756D6E027A7A055769647468027C0942616E64496E6465780200
        08526F77496E6465780200094669656C644E616D6506027A7A000000}
    end
    object dxDBGridLayoutList1Item3: TdxDBGridLayout
      Data = {
        17050000545046301054647844424772696457726170706572000542616E6473
        0E0100000D44656661756C744C61796F7574091348656164657250616E656C52
        6F77436F756E740201084B65794669656C640604636F64650D53756D6D617279
        47726F7570730E001053756D6D617279536570617261746F7206022C200C466F
        6E742E43686172736574070E4742323331325F434841525345540A466F6E742E
        436F6C6F72070C636C57696E646F77546578740B466F6E742E48656967687402
        F409466F6E742E4E616D650604CBCECCE50A466F6E742E5374796C650B000A50
        6172656E74466F6E74081042616E64466F6E742E43686172736574070E474232
        3331325F434841525345540E42616E64466F6E742E436F6C6F72070C636C5769
        6E646F77546578740F42616E64466F6E742E48656967687402F40D42616E6446
        6F6E742E4E616D650604CBCECCE50E42616E64466F6E742E5374796C650B000A
        44617461536F7572636507116367666B642E44617461536F75726365350D4669
        6C7465722E416374697665090F46696C7465722E43726974657269610A040000
        000000000012486561646572466F6E742E43686172736574070E474232333132
        5F4348415253455410486561646572466F6E742E436F6C6F72070C636C57696E
        646F775465787411486561646572466F6E742E48656967687402F40F48656164
        6572466F6E742E4E616D650604CBCECCE510486561646572466F6E742E537479
        6C650B00094F7074696F6E7344420B106564676F43616E63656C4F6E45786974
        0D6564676F43616E44656C6574650D6564676F43616E496E7365727411656467
        6F43616E4E617669676174696F6E116564676F436F6E6669726D44656C657465
        126564676F4C6F6164416C6C5265636F726473106564676F557365426F6F6B6D
        61726B73000B4F7074696F6E73566965770B136564676F42616E644865616465
        7257696474680D6564676F496E64696361746F720D6564676F5573654269746D
        6170001350726576696577466F6E742E43686172736574070F44454641554C54
        5F434841525345541150726576696577466F6E742E436F6C6F720706636C426C
        75651250726576696577466F6E742E48656967687402F5105072657669657746
        6F6E742E4E616D65060D4D532053616E73205365726966115072657669657746
        6F6E742E5374796C650B0000135464784442477269644D61736B436F6C756D6E
        04636F646505576964746802410942616E64496E646578020008526F77496E64
        65780200094669656C644E616D650604636F6465000013546478444247726964
        4D61736B436F6C756D6E046E616D65055769647468026E0942616E64496E6465
        78020008526F77496E6465780200094669656C644E616D6506046E616D650000
        135464784442477269644D61736B436F6C756D6E02647A055769647468026A09
        42616E64496E646578020008526F77496E6465780200094669656C644E616D65
        0602647A0000135464784442477269644D61736B436F6C756D6E026468055769
        64746802550942616E64496E646578020008526F77496E646578020009466965
        6C644E616D65060264680000135464784442477269644D61736B436F6C756D6E
        02637A055769647468025C0942616E64496E646578020008526F77496E646578
        0200094669656C644E616D650602637A0000135464784442477269644D61736B
        436F6C756D6E036C7872055769647468025C0942616E64496E64657802000852
        6F77496E6465780200094669656C644E616D6506036C7872000000}
    end
    object dxDBGridLayoutList1Item4: TdxDBGridLayout
      Data = {
        A6030000545046301054647844424772696457726170706572000542616E6473
        0E0100000D44656661756C744C61796F7574091348656164657250616E656C52
        6F77436F756E740201084B65794669656C640604464B46530D53756D6D617279
        47726F7570730E001053756D6D617279536570617261746F7206022C200C466F
        6E742E43686172736574070E4742323331325F434841525345540A466F6E742E
        436F6C6F72070C636C57696E646F77546578740B466F6E742E48656967687402
        F409466F6E742E4E616D650604CBCECCE50A466F6E742E5374796C650B000A50
        6172656E74466F6E74081042616E64466F6E742E43686172736574070F444546
        41554C545F434841525345540E42616E64466F6E742E436F6C6F72070C636C57
        696E646F77546578740F42616E64466F6E742E48656967687402F50D42616E64
        466F6E742E4E616D65060D4D532053616E732053657269660E42616E64466F6E
        742E5374796C650B000A44617461536F7572636507116367666B642E44617461
        536F75726365360F46696C7465722E43726974657269610A0400000000000000
        12486561646572466F6E742E43686172736574070E4742323331325F43484152
        53455410486561646572466F6E742E436F6C6F72070C636C57696E646F775465
        787411486561646572466F6E742E48656967687402F40F486561646572466F6E
        742E4E616D650604CBCECCE510486561646572466F6E742E5374796C650B0009
        4F7074696F6E7344420B106564676F43616E63656C4F6E457869740D6564676F
        43616E44656C6574650D6564676F43616E496E73657274116564676F43616E4E
        617669676174696F6E116564676F436F6E6669726D44656C657465126564676F
        4C6F6164416C6C5265636F726473106564676F557365426F6F6B6D61726B7300
        0B4F7074696F6E73566965770B136564676F42616E6448656164657257696474
        680D6564676F496E64696361746F720D6564676F5573654269746D6170001350
        726576696577466F6E742E43686172736574070F44454641554C545F43484152
        5345541150726576696577466F6E742E436F6C6F720706636C426C7565125072
        6576696577466F6E742E48656967687402F51050726576696577466F6E742E4E
        616D65060D4D532053616E732053657269661150726576696577466F6E742E53
        74796C650B0000135464784442477269644D61736B436F6C756D6E04464B4653
        0942616E64496E646578020008526F77496E6465780200094669656C644E616D
        650604464B4653000000}
    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
    AfterScroll = ADOTable2AfterScroll
    IndexFieldNames = 'code'
    MasterFields = 'code'
    MasterSource = DataSource1
    TableName = 'CGFK002'
    Left = 120
    Top = 192
    object ADOTable2spcode: TStringField
      DisplayLabel = '单号'
      FieldName = 'code'
    end
    object ADOTable2cgdh: TStringField
      DisplayLabel = '采购单号'
      FieldName = 'cgdh'
    end
    object ADOTable2djje: TBCDField
      DisplayLabel = '总金额'
      FieldName = 'djje'
      Precision = 18
      Size = 2
    end
    object ADOTable2yfje: TBCDField
      DisplayLabel = '已结金额'
      FieldName = 'yfje'
      Precision = 18
      Size = 2
    end
    object ADOTable2fkje: TBCDField
      DisplayLabel = '本次结算'
      FieldName = 'fkje'
      Precision = 18
      Size = 2
    end
    object ADOTable2bz: TStringField
      DisplayLabel = '备注'
      FieldName = 'bz'
      Size = 200
    end
    object ADOTable2id: TAutoIncField
      FieldName = 'id'
      ReadOnly = True
    end
  end
  object ADOTable1: TADOTable
    Active = True
    Connection = MainForm.ADOConnection1
    CursorType = ctStatic
    AfterScroll = ADOTable1AfterScroll
    TableName = 'CGFK001'
    Left = 368
    Top = 120
    object ADOTable1code: TStringField
      DisplayLabel = '单号'
      FieldName = 'code'
    end
    object ADOTable1kdrq: TDateTimeField
      DisplayLabel = '开单日期'
      FieldName = 'kdrq'
    end
    object ADOTable1kdr: TStringField
      DisplayLabel = '开单人'
      FieldName = 'kdr'
      Size = 10
    end
    object ADOTable1fkfs: TStringField
      FieldName = 'fkfs'
      LookupDataSet = ADOTable6
      LookupKeyFields = 'FKFS'
      LookupResultField = 'FKFS'
      Size = 8
    end
    object ADOTable1fkje: TBCDField
      FieldName = 'fkje'
      Precision = 18
      Size = 2
    end
    object ADOTable1jsr: TStringField
      FieldName = 'ywy'
      Size = 5
    end
    object ADOTable1ysk: TBooleanField
      FieldName = 'yfk'
    end
    object ADOTable1ywyname: TStringField
      FieldKind = fkLookup
      FieldName = 'ywyname'
      LookupDataSet = ADOTable4
      LookupKeyFields = 'code'
      LookupResultField = 'name'
      KeyFields = 'ywy'
      Lookup = True
    end
    object ADOTable1bz: TStringField
      DisplayLabel = '备注'
      FieldName = 'bz'
      Size = 200
    end
    object ADOTable1zt: TStringField
      FieldName = 'zt'
      Size = 10
    end
    object ADOTable1ghs: TStringField
      FieldName = 'ghs'
      Size = 5
    end
    object ADOTable1ghsname: TStringField
      FieldKind = fkLookup
      FieldName = 'ghsname'
      LookupDataSet = ADOTable3
      LookupKeyFields = 'code'
      LookupResultField = 'name'
      KeyFields = 'ghs'
      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 N13: TMenuItem
      Caption = '单据查找'
      ShortCut = 114
      OnClick = N13Click
    end
    object N4: TMenuItem
      Caption = '删除记录'
      ShortCut = 16452
      OnClick = N4Click
    end
    object N1: TMenuItem
      Caption = '-'
    end
    object N3: TMenuItem
      Caption = '审核入账'
      ShortCut = 121
      OnClick = N3Click
    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 = 'FKFS'
    Left = 480
    Top = 184
    object ADOTable6FKFS: TStringField
      DisplayLabel = '付款方式'
      FieldName = 'FKFS'
      Size = 10
    end
  end
  object DataSource6: TDataSource
    DataSet = ADOTable6
    Left = 480
    Top = 216
  end
end