foryearbonus.dfm

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

          Width = 73
          Height = 31
          Caption = #21024#38500
          TabOrder = 8
          OnClick = btn_deleteClick
        end
      end
    end
    object TabSheet2: TTabSheet
      Caption = #24180#32456#22870#37329#34920'_'#26597#30475'  '
      ImageIndex = 1
      OnEnter = TabSheet2Enter
      object GroupBox2: TGroupBox
        Left = 1
        Top = 59
        Width = 729
        Height = 311
        Caption = #25968#25454#26597#30475#31383#21475
        TabOrder = 0
        object DBGrid1: TDBGrid
          Left = 6
          Top = 13
          Width = 718
          Height = 235
          Color = clInfoBk
          DataSource = dsforyearbns
          ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
          TabOrder = 0
          TitleFont.Charset = ANSI_CHARSET
          TitleFont.Color = clBlack
          TitleFont.Height = -13
          TitleFont.Name = #23435#20307
          TitleFont.Style = []
          Columns = <
            item
              Expanded = False
              FieldName = #21150#20107#22788#21517#31216
              Visible = True
            end
            item
              Expanded = False
              FieldName = #24180
              Visible = True
            end
            item
              Expanded = False
              FieldName = #24635#32463#29702#29305#21035#22870
              Visible = True
            end
            item
              Expanded = False
              FieldName = #20854#20182#22870#21169
              Visible = True
            end
            item
              Expanded = False
              FieldName = #20943#25187
              Visible = True
            end
            item
              Expanded = False
              FieldName = #35745#21010#36153#29992
              Visible = True
            end
            item
              Expanded = False
              FieldName = #36153#29992
              Visible = True
            end
            item
              Expanded = False
              FieldName = #20840#24180#32500#20462#20154#24037#36153
              Visible = True
            end
            item
              Expanded = False
              FieldName = #32500#20462#20154#24037#36153#35745#25552
              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
        object Panel4: TPanel
          Left = 3
          Top = 254
          Width = 723
          Height = 53
          TabOrder = 1
          object Panel9: TPanel
            Left = 8
            Top = 2
            Width = 63
            Height = 26
            TabOrder = 0
          end
          object Panel8: TPanel
            Left = 8
            Top = 28
            Width = 63
            Height = 22
            Caption = #21512#35745
            TabOrder = 1
          end
          object Panel5: TPanel
            Left = 71
            Top = 2
            Width = 92
            Height = 26
            Caption = #24635#32463#29702#29305#21035#22870
            TabOrder = 2
          end
          object Edit1: TEdit
            Left = 71
            Top = 29
            Width = 92
            Height = 19
            Color = clInfoBk
            Ctl3D = False
            ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
            ParentCtl3D = False
            TabOrder = 3
          end
          object Panel6: TPanel
            Left = 163
            Top = 2
            Width = 92
            Height = 26
            Caption = #20854#20182#22870#21169
            TabOrder = 4
          end
          object Edit2: TEdit
            Left = 163
            Top = 29
            Width = 92
            Height = 19
            Color = clInfoBk
            Ctl3D = False
            ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
            ParentCtl3D = False
            TabOrder = 5
          end
          object Panel7: TPanel
            Left = 255
            Top = 2
            Width = 92
            Height = 26
            Caption = #20943#25187
            TabOrder = 6
          end
          object Edit3: TEdit
            Left = 255
            Top = 29
            Width = 92
            Height = 19
            Color = clInfoBk
            Ctl3D = False
            ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
            ParentCtl3D = False
            TabOrder = 7
          end
          object Panel10: TPanel
            Left = 347
            Top = 2
            Width = 92
            Height = 26
            Caption = #35745#21010#36153#29992
            TabOrder = 8
          end
          object Edit4: TEdit
            Left = 347
            Top = 29
            Width = 92
            Height = 19
            Color = clInfoBk
            Ctl3D = False
            ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
            ParentCtl3D = False
            TabOrder = 9
          end
          object Panel11: TPanel
            Left = 531
            Top = 2
            Width = 92
            Height = 26
            Caption = #20840#24180#32500#20462#20154#24037#36153
            TabOrder = 10
          end
          object Panel12: TPanel
            Left = 439
            Top = 2
            Width = 92
            Height = 26
            Caption = #36153#29992
            TabOrder = 11
          end
          object Panel14: TPanel
            Left = 623
            Top = 2
            Width = 92
            Height = 26
            Caption = #32500#20462#20154#24037#36153#35745#25552
            TabOrder = 12
          end
          object Edit5: TEdit
            Left = 439
            Top = 29
            Width = 92
            Height = 19
            Color = clInfoBk
            Ctl3D = False
            ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
            ParentCtl3D = False
            TabOrder = 13
          end
          object Edit6: TEdit
            Left = 531
            Top = 29
            Width = 92
            Height = 19
            Color = clInfoBk
            Ctl3D = False
            ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
            ParentCtl3D = False
            TabOrder = 14
          end
          object Edit7: TEdit
            Left = 623
            Top = 29
            Width = 92
            Height = 19
            Color = clInfoBk
            Ctl3D = False
            ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
            ParentCtl3D = False
            TabOrder = 15
          end
        end
      end
      object GroupBox3: TGroupBox
        Left = 14
        Top = 5
        Width = 178
        Height = 50
        Caption = #25353#21150#20107#22788#21517#31216
        TabOrder = 1
        object cbbsc: TComboBox
          Left = 16
          Top = 21
          Width = 145
          Height = 21
          Color = clInfoBk
          ItemHeight = 13
          TabOrder = 0
        end
      end
      object GroupBox4: TGroupBox
        Left = 191
        Top = 5
        Width = 178
        Height = 50
        Caption = #25353#24180#20221
        TabOrder = 2
        object cbyear: TComboBox
          Left = 11
          Top = 20
          Width = 146
          Height = 21
          Color = clInfoBk
          Ctl3D = False
          ItemHeight = 13
          ParentCtl3D = False
          TabOrder = 0
          Items.Strings = (
            '1995'
            '1996'
            '1997'
            '1998'
            '1999'
            '2000'
            '2001'
            '2002'
            '2003'
            '2004'
            '2005'
            '2006'
            '2007'
            '2008'
            '2009'
            '2010'
            '')
        end
      end
      object Panel2: TPanel
        Left = 369
        Top = 10
        Width = 354
        Height = 45
        TabOrder = 3
        object btn_brs: TButton
          Left = 33
          Top = 7
          Width = 74
          Height = 29
          Caption = #20840#35272
          TabOrder = 0
          OnClick = btn_brsClick
        end
        object btn_qry: TButton
          Left = 106
          Top = 7
          Width = 74
          Height = 29
          Caption = #26597#35810
          TabOrder = 1
          OnClick = btn_qryClick
        end
        object btn_clr: TButton
          Left = 179
          Top = 7
          Width = 74
          Height = 29
          Caption = #28165#31354
          TabOrder = 2
          OnClick = btn_clrClick
        end
        object btn_prt: TButton
          Left = 253
          Top = 7
          Width = 74
          Height = 29
          Caption = #25171#21360#32467#26524
          TabOrder = 3
          OnClick = btn_prtClick
        end
      end
    end
  end
  object qforyearbns: TQuery
    CachedUpdates = True
    AfterOpen = qforyearbnsAfterOpen
    OnCalcFields = qforyearbnsCalcFields
    AutoRefresh = True
    DatabaseName = 'zxjx_jxw'
    RequestLive = True
    SQL.Strings = (
      'select *'
      'from pub_z_foryearbonus')
    UpdateObject = Upforyearbns
    Left = 627
    Top = 217
    object qforyearbnsBDEDesigner2: TStringField
      FieldName = #21150#20107#22788#21517#31216
      Origin = 'ZXJX_JXW.pub_z_foryearbonus.'#21150#20107#22788#21517#31216
      FixedChar = True
    end
    object qforyearbnsBDEDesigner3: TCurrencyField
      FieldName = #24635#32463#29702#29305#21035#22870
      Origin = 'ZXJX_JXW.pub_z_foryearbonus.'#24635#32463#29702#29305#21035#22870
    end
    object qforyearbnsBDEDesigner4: TCurrencyField
      FieldName = #20854#20182#22870#21169
      Origin = 'ZXJX_JXW.pub_z_foryearbonus.'#20854#20182#22870#21169
    end
    object qforyearbnsBDEDesigner5: TCurrencyField
      FieldName = #20943#25187
      Origin = 'ZXJX_JXW.pub_z_foryearbonus.'#20943#25187
    end
    object qforyearbnsBDEDesigner6: TCurrencyField
      FieldName = #35745#21010#36153#29992
      Origin = 'ZXJX_JXW.pub_z_foryearbonus.'#35745#21010#36153#29992
    end
    object qforyearbnsBDEDesigner7: TCurrencyField
      FieldName = #36153#29992
      Origin = 'ZXJX_JXW.pub_z_foryearbonus.'#36153#29992
    end
    object qforyearbnsBDEDesigner8: TCurrencyField
      FieldName = #20840#24180#32500#20462#20154#24037#36153
      Origin = 'ZXJX_JXW.pub_z_foryearbonus.'#20840#24180#32500#20462#20154#24037#36153
    end
    object qforyearbnsBDEDesigner9: TCurrencyField
      FieldName = #32500#20462#20154#24037#36153#35745#25552
      Origin = 'ZXJX_JXW.pub_z_foryearbonus.'#32500#20462#20154#24037#36153#35745#25552
    end
    object qforyearbnsBDEDesigner10: TStringField
      FieldName = #24180
      Origin = 'ZXJX_JXW.pub_z_foryearbonus.'#24180
      FixedChar = True
      Size = 8
    end
    object qforyearbnsBDEDesigner11: TStringField
      FieldName = #20027#31649
      Origin = 'ZXJX_JXW.pub_z_foryearbonus.'#20027#31649
      FixedChar = True
    end
    object qforyearbnsBDEDesigner12: TStringField
      FieldName = #23457#26680
      Origin = 'ZXJX_JXW.pub_z_foryearbonus.'#23457#26680
      FixedChar = True
    end
    object qforyearbnsBDEDesigner13: TStringField
      FieldName = #24405#20837
      Origin = 'ZXJX_JXW.pub_z_foryearbonus.'#24405#20837
      FixedChar = True
    end
    object qforyearbnsBDEDesigner14: TDateTimeField
      FieldName = #24405#20837#26085#26399
      Origin = 'ZXJX_JXW.pub_z_foryearbonus.'#24405#20837#26085#26399
    end
  end
  object dsforyearbns: TDataSource
    DataSet = qforyearbns
    Left = 559
    Top = 217
  end
  object Quse: TQuery
    CachedUpdates = True
    AutoRefresh = True
    DatabaseName = 'zxjx_jxw'
    Left = 526
    Top = 9
  end
  object Query1: TQuery
    CachedUpdates = True
    AutoRefresh = True
    DatabaseName = 'zxjx_jxw'
    Constrained = True
    Left = 456
    Top = 6
  end
  object Upforyearbns: TUpdateSQL
    ModifySQL.Strings = (
      'update pub_z_foryearbonus'
      'set'
      '  '#21150#20107#22788#21517#31216' = :'#21150#20107#22788#21517#31216','
      '  '#24635#32463#29702#29305#21035#22870' = :'#24635#32463#29702#29305#21035#22870','
      '  '#20854#20182#22870#21169' = :'#20854#20182#22870#21169','
      '  '#20943#25187' = :'#20943#25187','
      '  '#35745#21010#36153#29992' = :'#35745#21010#36153#29992','
      '  '#36153#29992' = :'#36153#29992','
      '  '#20840#24180#32500#20462#20154#24037#36153' = :'#20840#24180#32500#20462#20154#24037#36153','
      '  '#32500#20462#20154#24037#36153#35745#25552' = :'#32500#20462#20154#24037#36153#35745#25552','
      '  '#24180' = :'#24180','
      '  '#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'
      '  '#24180' = :OLD_'#24180)
    InsertSQL.Strings = (
      'insert into pub_z_foryearbonus'
      '  ('#21150#20107#22788#21517#31216', '#24635#32463#29702#29305#21035#22870', '#20854#20182#22870#21169', '#20943#25187', '#35745#21010#36153#29992', '#36153#29992', '#20840#24180#32500#20462#20154#24037#36153', '
      '   '#32500#20462#20154#24037#36153#35745#25552', '#24180', '#20027#31649', '#23457#26680', '#24405#20837', '#24405#20837#26085#26399')'
      'values'
      '  (:'#21150#20107#22788#21517#31216', :'#24635#32463#29702#29305#21035#22870', :'#20854#20182#22870#21169', :'#20943#25187', :'#35745#21010#36153#29992', :'#36153#29992', :'#20840#24180#32500#20462#20154#24037#36153', '
      '   :'#32500#20462#20154#24037#36153#35745#25552', :'#24180', :'#20027#31649', :'#23457#26680', :'#24405#20837', :'#24405#20837#26085#26399')')
    DeleteSQL.Strings = (
      'delete from pub_z_foryearbonus'
      'where'
      '  '#21150#20107#22788#21517#31216' = :OLD_'#21150#20107#22788#21517#31216' and'
      '  '#24180' = :OLD_'#24180)
    Left = 684
    Top = 214
  end
end