basepay_base.dfm

主要是介绍DELPHI三层应用以及分布式数据库的应用

      ParentFont = False
      TabOrder = 4
    end
    object DBEdit2: TDBEdit
      Left = 112
      Top = 69
      Width = 135
      Height = 19
      Color = clInfoBk
      Ctl3D = False
      DataField = #26412#26376#28385#21220#22825#25968
      DataSource = dspaybase
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      ParentCtl3D = False
      ParentFont = False
      TabOrder = 2
    end
    object DBEdit1: TDBEdit
      Left = 112
      Top = 38
      Width = 135
      Height = 19
      Color = clInfoBk
      Ctl3D = False
      DataField = #20840#21220#22870#21169
      DataSource = dspaybase
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      ParentCtl3D = False
      ParentFont = False
      TabOrder = 1
    end
    object DBComboBox1: TDBComboBox
      Left = 112
      Top = 7
      Width = 135
      Height = 21
      BevelInner = bvNone
      Color = clInfoBk
      Ctl3D = False
      DataField = #21150#20107#22788#21517#31216
      DataSource = dspaybase
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      ItemHeight = 13
      ParentCtl3D = False
      ParentFont = False
      TabOrder = 0
    end
  end
  object Panel1: TPanel
    Left = 259
    Top = 0
    Width = 103
    Height = 260
    Align = alRight
    TabOrder = 1
    object btn_first: TButton
      Left = 6
      Top = 5
      Width = 89
      Height = 25
      Caption = #39318#35760#24405
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      OnClick = btn_firstClick
    end
    object btn_prev: TButton
      Left = 6
      Top = 30
      Width = 89
      Height = 25
      Caption = #21069#19968#26465
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      OnClick = btn_prevClick
    end
    object btn_next: TButton
      Left = 6
      Top = 55
      Width = 89
      Height = 25
      Caption = #21518#19968#26465
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 2
      OnClick = btn_nextClick
    end
    object btn_last: TButton
      Left = 6
      Top = 80
      Width = 89
      Height = 25
      Caption = #23614#35760#24405
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 3
      OnClick = btn_lastClick
    end
    object btn_addnew: TButton
      Left = 6
      Top = 105
      Width = 89
      Height = 25
      Caption = #26032#22686
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 4
      OnClick = btn_addnewClick
    end
    object btn_edit: TButton
      Left = 6
      Top = 130
      Width = 89
      Height = 25
      Caption = #20462#25913
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 5
      OnClick = btn_editClick
    end
    object btn_save: TButton
      Left = 6
      Top = 205
      Width = 89
      Height = 25
      Caption = #20445#23384
      Enabled = False
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 6
      OnClick = btn_saveClick
    end
    object btn_cancel: TButton
      Left = 6
      Top = 155
      Width = 89
      Height = 25
      Caption = #25918#24323
      Enabled = False
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 7
      OnClick = btn_cancelClick
    end
    object btn_delete: TButton
      Left = 6
      Top = 180
      Width = 89
      Height = 25
      Caption = #21024#38500
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 8
      OnClick = btn_deleteClick
    end
    object Button1: TButton
      Left = 6
      Top = 230
      Width = 89
      Height = 25
      Caption = #36755#20837#20010#20154#20449#24687
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 9
      OnClick = Button1Click
    end
  end
  object dspaybase: TDataSource
    DataSet = tpaybase
    Left = 14
    Top = 49
  end
  object qforuse: TQuery
    CachedUpdates = True
    AutoRefresh = True
    DatabaseName = 'zxjx_jxw'
    Left = 2
    Top = 138
  end
  object tpay: TTable
    CachedUpdates = True
    AutoRefresh = True
    DatabaseName = 'zxjx_jxw'
    TableName = 'dbo.pub_z_payin'
    Left = 4
    Top = 92
  end
  object qforuse2: TQuery
    CachedUpdates = True
    AutoRefresh = True
    DatabaseName = 'zxjx_jxw'
    Constrained = True
    RequestLive = True
    SQL.Strings = (
      '')
    Left = 3
    Top = 180
    object qforuse2BDEDesigner: TStringField
      FieldName = #24037#21495
      Origin = 'ZXJX_JXW.pub_z_stuff.'#24037#21495
      FixedChar = True
    end
  end
  object qforuse3: TQuery
    CachedUpdates = True
    AutoRefresh = True
    DatabaseName = 'zxjx_jxw'
    Constrained = True
    Left = 2
    Top = 214
  end
  object Query1: TQuery
    CachedUpdates = True
    AutoRefresh = True
    DatabaseName = 'zxjx_jxw'
    Constrained = True
    Left = 41
    Top = 220
  end
  object tpaybase: TQuery
    CachedUpdates = True
    DatabaseName = 'zxjx_jxw'
    RequestLive = True
    SQL.Strings = (
      'select * from pub_z_payinbase')
    UpdateObject = uptpaybase
    Left = 16
    Top = 8
  end
  object uptpaybase: TUpdateSQL
    ModifySQL.Strings = (
      'update pub_z_payinbase'
      'set'
      '  '#21150#20107#22788#21517#31216' = :'#21150#20107#22788#21517#31216','
      '  '#26412#26376#28385#21220#22825#25968' = :'#26412#26376#28385#21220#22825#25968','
      '  '#20840#21220#22870#21169' = :'#20840#21220#22870#21169','
      '  '#24180' = :'#24180','
      '  '#26376' = :'#26376','
      '  '#20027#31649' = :'#20027#31649','
      '  '#23457#26680' = :'#23457#26680','
      '  '#24405#20837' = :'#24405#20837','
      '  '#24405#20837#26085#26399' = :'#24405#20837#26085#26399
      'where'
      '  '#21150#20107#22788#21517#31216' = :OLD_'#21150#20107#22788#21517#31216' and'
      '  '#24405#20837#26085#26399' = :OLD_'#24405#20837#26085#26399)
    InsertSQL.Strings = (
      'insert into pub_z_payinbase'
      '  ('#21150#20107#22788#21517#31216', '#26412#26376#28385#21220#22825#25968', '#20840#21220#22870#21169', '#24180', '#26376', '#20027#31649', '#23457#26680', '#24405#20837', '#24405#20837#26085#26399')'
      'values'
      '  (:'#21150#20107#22788#21517#31216', :'#26412#26376#28385#21220#22825#25968', :'#20840#21220#22870#21169', :'#24180', :'#26376', :'#20027#31649', :'#23457#26680', :'#24405#20837', '
      '   :'#24405#20837#26085#26399')')
    DeleteSQL.Strings = (
      'delete from pub_z_payinbase'
      'where'
      '  '#21150#20107#22788#21517#31216' = :OLD_'#21150#20107#22788#21517#31216' and'
      '  '#24405#20837#26085#26399' = :OLD_'#24405#20837#26085#26399)
    Left = 72
    Top = 8
  end
end