bonusratio.dfm

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

          Height = 13
          Caption = #24405#20837
        end
        object Label13: TLabel
          Left = 526
          Top = 29
          Width = 58
          Height = 13
          AutoSize = False
          Caption = #24405#20837#26085#26399
        end
        object DBEdit7: TDBEdit
          Left = 44
          Top = 25
          Width = 103
          Height = 19
          Color = clInfoBk
          Ctl3D = False
          DataField = #20027#31649
          DataSource = dsbr
          ParentCtl3D = False
          TabOrder = 0
        end
        object DBEdit8: TDBEdit
          Left = 226
          Top = 25
          Width = 103
          Height = 19
          Color = clInfoBk
          Ctl3D = False
          DataField = #23457#26680
          DataSource = dsbr
          ParentCtl3D = False
          TabOrder = 1
        end
        object DBEdit9: TDBEdit
          Left = 409
          Top = 25
          Width = 103
          Height = 19
          Color = clInfoBk
          Ctl3D = False
          DataField = #24405#20837
          DataSource = dsbr
          ParentCtl3D = False
          TabOrder = 2
        end
        object DBEdit10: TDBEdit
          Left = 592
          Top = 25
          Width = 103
          Height = 19
          Color = clInfoBk
          Ctl3D = False
          DataField = #24405#20837#26085#26399
          DataSource = dsbr
          ParentCtl3D = False
          TabOrder = 3
        end
      end
    end
    object TabSheet2: TTabSheet
      Caption = '  '#28014#21160#22870#37329#26435#37325#34920'_'#26597#30475'  '
      ImageIndex = 1
      OnEnter = TabSheet2Enter
      object Panel3: TPanel
        Left = -6
        Top = 48
        Width = 731
        Height = 42
        TabOrder = 0
        object btn_brs: TButton
          Left = 214
          Top = 6
          Width = 74
          Height = 28
          Caption = #20840#35272
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
          TabOrder = 0
          OnClick = btn_brsClick
        end
        object btn_qry: TButton
          Left = 288
          Top = 6
          Width = 74
          Height = 28
          Caption = #26597#35810
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
          TabOrder = 1
          OnClick = btn_qryClick
        end
        object btn_clr: TButton
          Left = 362
          Top = 6
          Width = 74
          Height = 28
          Caption = #28165#31354
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
          TabOrder = 2
          OnClick = btn_clrClick
        end
        object btn_prt: TButton
          Left = 436
          Top = 6
          Width = 74
          Height = 28
          Caption = #25171#21360#32467#26524
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
          TabOrder = 3
          OnClick = btn_prtClick
        end
      end
      object GroupBox2: TGroupBox
        Left = 2
        Top = 100
        Width = 718
        Height = 175
        Caption = #25968#25454#26597#30475#31383#21475
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 1
        object DBGrid1: TDBGrid
          Left = 9
          Top = 18
          Width = 701
          Height = 150
          Color = clInfoBk
          DataSource = dsbr
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
          TabOrder = 0
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -12
          TitleFont.Name = #23435#20307
          TitleFont.Style = []
          Columns = <
            item
              Expanded = False
              FieldName = #24037#21495
              Visible = True
            end
            item
              Expanded = False
              FieldName = #22995#21517
              Visible = True
            end
            item
              Expanded = False
              FieldName = #23703#20301
              Visible = True
            end
            item
              Expanded = False
              FieldName = #21150#20107#22788#21517#31216
              Visible = True
            end
            item
              Expanded = False
              FieldName = #28014#21160#26435#37325
              Visible = True
            end
            item
              Expanded = False
              FieldName = #22870#21169
              Visible = True
            end
            item
              Expanded = False
              FieldName = #24212#25187
              Visible = True
            end
            item
              Expanded = False
              FieldName = #24180
              Visible = True
            end
            item
              Expanded = False
              FieldName = #26376
              Visible = True
            end
            item
              Expanded = False
              FieldName = #20027#31649
              Visible = True
            end
            item
              Expanded = False
              FieldName = #23457#26680
              Visible = True
            end
            item
              Expanded = False
              FieldName = #24405#20837
              Visible = True
            end
            item
              Expanded = False
              FieldName = #24405#20837#26085#26399
              Visible = True
            end>
        end
      end
      object GroupBox7: TGroupBox
        Left = 10
        Top = 6
        Width = 146
        Height = 42
        Caption = #25353#21150#20107#22788
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 2
        object cbbsc: TComboBox
          Left = 9
          Top = 15
          Width = 129
          Height = 21
          Color = clInfoBk
          Ctl3D = False
          ItemHeight = 13
          ParentCtl3D = False
          TabOrder = 0
        end
      end
      object GroupBox8: TGroupBox
        Left = 198
        Top = 7
        Width = 146
        Height = 41
        Caption = #25353#22995#21517
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 3
        object cbxm: TComboBox
          Left = 9
          Top = 16
          Width = 128
          Height = 21
          Color = clInfoBk
          Ctl3D = False
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = #23435#20307
          Font.Style = []
          ItemHeight = 13
          ParentCtl3D = False
          ParentFont = False
          TabOrder = 0
        end
      end
      object GroupBox9: TGroupBox
        Left = 386
        Top = 7
        Width = 146
        Height = 41
        Caption = #25353#24037#21495
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 4
        object cbgh: TComboBox
          Left = 9
          Top = 15
          Width = 130
          Height = 21
          Color = clInfoBk
          Ctl3D = False
          ItemHeight = 13
          ParentCtl3D = False
          TabOrder = 0
        end
      end
      object GroupBox10: TGroupBox
        Left = 574
        Top = 7
        Width = 146
        Height = 41
        Caption = #25353#23703#20301
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 5
        object cbgw: TComboBox
          Left = 8
          Top = 16
          Width = 129
          Height = 21
          Color = clInfoBk
          Ctl3D = False
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = #23435#20307
          Font.Style = []
          ItemHeight = 13
          ParentCtl3D = False
          ParentFont = False
          TabOrder = 0
        end
      end
    end
  end
  object qbr: TQuery
    CachedUpdates = True
    AutoRefresh = True
    DatabaseName = 'zxjx_jxw'
    RequestLive = True
    SQL.Strings = (
      
        'select a.'#24037#21495',a.'#28014#21160#26435#37325',a.'#22870#21169',a.'#24212#25187',a.'#24180',a.'#26376',a.'#20027#31649',a.'#23457#26680',a.'#24405#20837',a.'#24405#20837#26085#26399',b.'#22995#21517',' +
        'b.'#23703#20301',b.'#21150#20107#22788#21517#31216' '
      'from pub_z_payratio a , pub_z_stuff b'
      'where a.'#24037#21495'=b.'#24037#21495)
    UpdateObject = UpdateSqbr
    Left = 544
    Top = 65530
    object qbrBDEDesigner: TStringField
      FieldName = #24037#21495
      Origin = 'ZXJX_JXW.pub_z_payratio.'#24037#21495
      FixedChar = True
    end
    object qbrBDEDesigner2: TFloatField
      FieldName = #28014#21160#26435#37325
      Origin = 'ZXJX_JXW.pub_z_payratio.'#28014#21160#26435#37325
    end
    object qbrBDEDesigner3: TCurrencyField
      FieldName = #22870#21169
      Origin = 'ZXJX_JXW.pub_z_payratio.'#22870#21169
      EditFormat = '#.###'
    end
    object qbrBDEDesigner4: TCurrencyField
      FieldName = #24212#25187
      Origin = 'ZXJX_JXW.pub_z_payratio.'#24212#25187
      EditFormat = '#.###'
    end
    object qbrBDEDesigner5: TStringField
      FieldName = #24180
      Origin = 'ZXJX_JXW.pub_z_payratio.'#24180
      FixedChar = True
      Size = 8
    end
    object qbrBDEDesigner6: TStringField
      FieldName = #26376
      Origin = 'ZXJX_JXW.pub_z_payratio.'#26376
      FixedChar = True
      Size = 4
    end
    object qbrBDEDesigner7: TStringField
      FieldName = #20027#31649
      Origin = 'ZXJX_JXW.pub_z_payratio.'#20027#31649
      FixedChar = True
    end
    object qbrBDEDesigner8: TStringField
      FieldName = #23457#26680
      Origin = 'ZXJX_JXW.pub_z_payratio.'#23457#26680
      FixedChar = True
    end
    object qbrBDEDesigner9: TStringField
      FieldName = #24405#20837
      Origin = 'ZXJX_JXW.pub_z_payratio.'#24405#20837
      FixedChar = True
    end
    object qbrBDEDesigner10: TDateTimeField
      FieldName = #24405#20837#26085#26399
      Origin = 'ZXJX_JXW.pub_z_payratio.'#24405#20837#26085#26399
    end
    object qbrBDEDesigner11: TStringField
      FieldName = #22995#21517
      Origin = 'ZXJX_JXW.pub_z_stuff.'#22995#21517
      FixedChar = True
    end
    object qbrBDEDesigner12: TStringField
      FieldName = #23703#20301
      Origin = 'ZXJX_JXW.pub_z_stuff.'#23703#20301
      FixedChar = True
    end
    object qbrBDEDesigner13: TStringField
      FieldName = #21150#20107#22788#21517#31216
      Origin = 'ZXJX_JXW.pub_z_stuff.'#21150#20107#22788#21517#31216
      FixedChar = True
    end
  end
  object dsbr: TDataSource
    DataSet = qbr
    Left = 498
    Top = 65529
  end
  object UpdateSqbr: TUpdateSQL
    ModifySQL.Strings = (
      'update pub_z_payratio'
      'set'
      '  '#24037#21495' = :'#24037#21495','
      '  '#28014#21160#26435#37325' = :'#28014#21160#26435#37325','
      '  '#22870#21169' = :'#22870#21169','
      '  '#24212#25187' = :'#24212#25187','
      '  '#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'
      '  '#24037#21495' = :OLD_'#24037#21495' and'
      '  '#24405#20837#26085#26399' = :OLD_'#24405#20837#26085#26399)
    InsertSQL.Strings = (
      'insert into pub_z_payratio'
      '  ('#24037#21495', '#28014#21160#26435#37325', '#22870#21169', '#24212#25187', '#24180', '#26376', '#20027#31649', '#23457#26680', '#24405#20837', '#24405#20837#26085#26399')'
      'values'
      '  (:'#24037#21495', :'#28014#21160#26435#37325', :'#22870#21169', :'#24212#25187', :'#24180', :'#26376', :'#20027#31649', :'#23457#26680', :'#24405#20837', :'#24405#20837#26085#26399')')
    DeleteSQL.Strings = (
      'delete from pub_z_payratio'
      'where'
      '  '#24037#21495' = :OLD_'#24037#21495' and'
      '  '#24405#20837#26085#26399' = :OLD_'#24405#20837#26085#26399)
    Left = 589
    Top = 65530
  end
  object quse: TQuery
    CachedUpdates = True
    AutoRefresh = True
    DatabaseName = 'zxjx_jxw'
    RequestLive = True
    Left = 441
    Top = 65528
  end
  object qforqbr: TQuery
    CachedUpdates = True
    AutoRefresh = True
    DatabaseName = 'zxjx_jxw'
    Left = 683
    Top = 39
  end
  object dsforqbr: TDataSource
    DataSet = qforqbr
    Left = 640
    Top = 42
  end
end