salededuct.dfm

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

          Caption = #23614#35760#24405
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
          TabOrder = 3
          OnClick = btn_lastClick
        end
        object btn_addnew: TButton
          Left = 325
          Top = 7
          Width = 73
          Height = 28
          Caption = #26032#22686
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
          TabOrder = 4
          OnClick = btn_addnewClick
        end
        object btn_edit: TButton
          Left = 397
          Top = 7
          Width = 73
          Height = 28
          Caption = #20462#25913
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
          TabOrder = 5
          OnClick = btn_editClick
        end
        object btn_save: TButton
          Left = 619
          Top = 7
          Width = 73
          Height = 28
          Caption = #20445#23384
          Enabled = False
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
          TabOrder = 6
          OnClick = btn_saveClick
        end
        object btn_cancel: TButton
          Left = 470
          Top = 7
          Width = 75
          Height = 28
          Caption = #25918#24323
          Enabled = False
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
          TabOrder = 7
          OnClick = btn_cancelClick
        end
        object btn_delete: TButton
          Left = 544
          Top = 7
          Width = 75
          Height = 28
          Caption = #21024#38500
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
          TabOrder = 8
          OnClick = btn_deleteClick
        end
      end
    end
    object TabSheet2: TTabSheet
      Caption = #38646#37197#20214#38144#21806#35745#25552#34920'_'#26597#30475'  '
      ImageIndex = 1
      OnEnter = TabSheet2Enter
      object GroupBox3: TGroupBox
        Left = 44
        Top = 2
        Width = 146
        Height = 42
        Caption = #25353#21150#20107#22788
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 0
        object cbbsc: TComboBox
          Left = 7
          Top = 14
          Width = 134
          Height = 21
          Color = clInfoBk
          ItemHeight = 13
          TabOrder = 0
        end
      end
      object Panel2: TPanel
        Left = 43
        Top = 44
        Width = 658
        Height = 42
        TabOrder = 1
        object btn_brs: TButton
          Left = 215
          Top = 6
          Width = 74
          Height = 29
          Caption = #20840#35272
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlack
          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 = 29
          Caption = #26597#35810
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
          TabOrder = 1
          OnClick = btn_qryClick
        end
        object btn_clr: TButton
          Left = 361
          Top = 6
          Width = 74
          Height = 29
          Caption = #28165#31354
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
          TabOrder = 2
          OnClick = btn_clrClick
        end
        object btn_prt: TButton
          Left = 434
          Top = 6
          Width = 74
          Height = 29
          Caption = #25171#21360#32467#26524
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
          TabOrder = 3
          OnClick = btn_prtClick
        end
      end
      object GroupBox2: TGroupBox
        Left = 3
        Top = 90
        Width = 727
        Height = 246
        Caption = #25968#25454#26597#30475#31383#21475
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 2
        object DBGrid1: TDBGrid
          Left = 8
          Top = 16
          Width = 709
          Height = 219
          Color = clInfoBk
          DataSource = dssalededuct
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = #23435#20307
          Font.Style = []
          ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
          ParentFont = False
          TabOrder = 0
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clBlack
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          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 = #26376
              Visible = True
            end
            item
              Expanded = False
              FieldName = #24050#25552#36135#27454
              Visible = True
            end
            item
              Expanded = False
              FieldName = #24212#38144#36135#27454
              Visible = True
            end
            item
              Expanded = False
              FieldName = #24050#38144#36135#27454
              Visible = True
            end
            item
              Expanded = False
              FieldName = #22238#31548#36135#27454
              Visible = True
            end
            item
              Expanded = False
              FieldName = #38646#37197#20214#22238#27454#29575
              Visible = True
            end
            item
              Expanded = False
              FieldName = #38646#37197#20214#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
      end
      object GroupBox4: TGroupBox
        Left = 354
        Top = 2
        Width = 347
        Height = 42
        Caption = #25353#24180#26376
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 3
        object Label13: TLabel
          Left = 166
          Top = 19
          Width = 12
          Height = 12
          AutoSize = False
          Caption = #24180
        end
        object Label14: TLabel
          Left = 291
          Top = 18
          Width = 42
          Height = 12
          AutoSize = False
          Caption = #26376
        end
        object cbyear: TComboBox
          Left = 15
          Top = 14
          Width = 145
          Height = 21
          Color = clInfoBk
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = #23435#20307
          Font.Style = []
          ItemHeight = 13
          ParentFont = False
          TabOrder = 0
          Items.Strings = (
            '1995'
            '1996'
            '1997'
            '1998'
            '1999'
            '2000'
            '2001'
            '2002'
            '2003'
            '2004'
            '2005'
            '2006'
            '2007'
            '2008'
            '2009'
            '2010'
            ''
            '')
        end
        object cbmonth: TComboBox
          Left = 207
          Top = 15
          Width = 79
          Height = 21
          Color = clInfoBk
          ItemHeight = 13
          TabOrder = 1
          Items.Strings = (
            '1'
            '2'
            '3'
            '4'
            '5'
            '6'
            '7'
            '8'
            '9'
            '10'
            '11'
            '12')
        end
      end
    end
  end
  object qsalededuct: TQuery
    CachedUpdates = True
    OnCalcFields = qsaledeductCalcFields
    AutoRefresh = True
    DatabaseName = 'zxjx_jxw'
    RequestLive = True
    SQL.Strings = (
      'select *'
      'from pub_z_salededuct'
      '')
    UpdateObject = upsalededuct
    Left = 616
    Top = 198
    object qsaledeductBDEDesigner: TAutoIncField
      FieldName = #24207#21495
      Origin = 'ZXJX_JXW.pub_z_salededuct.'#24207#21495
    end
    object qsaledeductBDEDesigner2: TStringField
      FieldName = #21150#20107#22788#21517#31216
      Origin = 'ZXJX_JXW.pub_z_salededuct.'#21150#20107#22788#21517#31216
      FixedChar = True
    end
    object qsaledeductBDEDesigner3: TCurrencyField
      FieldName = #24050#25552#36135#27454
      Origin = 'ZXJX_JXW.pub_z_salededuct.'#24050#25552#36135#27454
    end
    object qsaledeductBDEDesigner4: TCurrencyField
      FieldName = #24212#38144#36135#27454
      Origin = 'ZXJX_JXW.pub_z_salededuct.'#24212#38144#36135#27454
    end
    object qsaledeductBDEDesigner5: TCurrencyField
      FieldName = #24050#38144#36135#27454
      Origin = 'ZXJX_JXW.pub_z_salededuct.'#24050#38144#36135#27454
    end
    object qsaledeductBDEDesigner6: TCurrencyField
      FieldName = #22238#31548#36135#27454
      Origin = 'ZXJX_JXW.pub_z_salededuct.'#22238#31548#36135#27454
    end
    object qsaledeductBDEDesigner7: TCurrencyField
      FieldName = #38646#37197#20214#22238#27454#29575
      Origin = 'ZXJX_JXW.pub_z_salededuct.'#38646#37197#20214#22238#27454#29575
    end
    object qsaledeductBDEDesigner8: TCurrencyField
      FieldName = #38646#37197#20214#35745#25552
      Origin = 'ZXJX_JXW.pub_z_salededuct.'#38646#37197#20214#35745#25552
    end
    object qsaledeductBDEDesigner9: TStringField
      FieldName = #24180
      Origin = 'ZXJX_JXW.pub_z_salededuct.'#24180
      FixedChar = True
      Size = 8
    end
    object qsaledeductBDEDesigner10: TStringField
      FieldName = #26376
      Origin = 'ZXJX_JXW.pub_z_salededuct.'#26376
      FixedChar = True
      Size = 4
    end
    object qsaledeductBDEDesigner11: TStringField
      FieldName = #20027#31649
      Origin = 'ZXJX_JXW.pub_z_salededuct.'#20027#31649
      FixedChar = True
    end
    object qsaledeductBDEDesigner12: TStringField
      FieldName = #23457#26680
      Origin = 'ZXJX_JXW.pub_z_salededuct.'#23457#26680
      FixedChar = True
    end
    object qsaledeductBDEDesigner13: TStringField
      FieldName = #24405#20837
      Origin = 'ZXJX_JXW.pub_z_salededuct.'#24405#20837
      FixedChar = True
    end
    object qsaledeductBDEDesigner14: TDateTimeField
      FieldName = #24405#20837#26085#26399
      Origin = 'ZXJX_JXW.pub_z_salededuct.'#24405#20837#26085#26399
    end
  end
  object dssalededuct: TDataSource
    DataSet = qsalededuct
    Left = 552
    Top = 198
  end
  object Quse: TQuery
    CachedUpdates = True
    AutoRefresh = True
    DatabaseName = 'zxjx_jxw'
    Left = 536
    Top = 85
  end
  object upsalededuct: TUpdateSQL
    ModifySQL.Strings = (
      'update pub_z_salededuct'
      'set'
      '  '#21150#20107#22788#21517#31216' = :'#21150#20107#22788#21517#31216','
      '  '#24050#25552#36135#27454' = :'#24050#25552#36135#27454','
      '  '#24212#38144#36135#27454' = :'#24212#38144#36135#27454','
      '  '#24050#38144#36135#27454' = :'#24050#38144#36135#27454','
      '  '#22238#31548#36135#27454' = :'#22238#31548#36135#27454','
      '  '#38646#37197#20214#22238#27454#29575' = :'#38646#37197#20214#22238#27454#29575','
      '  '#38646#37197#20214#35745#25552' = :'#38646#37197#20214#35745#25552','
      '  '#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'
      '  '#24180' = :OLD_'#24180' and'
      '  '#26376' = :OLD_'#26376)
    InsertSQL.Strings = (
      'insert into pub_z_salededuct'
      '  ('#21150#20107#22788#21517#31216', '#24050#25552#36135#27454', '#24212#38144#36135#27454', '#24050#38144#36135#27454', '#22238#31548#36135#27454', '#38646#37197#20214#22238#27454#29575', '#38646#37197#20214#35745#25552', '
      '   '#24180', '#26376', '#20027#31649', '#23457#26680', '#24405#20837', '#24405#20837#26085#26399')'
      'values'
      '  (:'#21150#20107#22788#21517#31216', :'#24050#25552#36135#27454', :'#24212#38144#36135#27454', :'#24050#38144#36135#27454', :'#22238#31548#36135#27454', :'#38646#37197#20214#22238#27454#29575', '
      '   :'#38646#37197#20214#35745#25552', :'#24180', :'#26376', :'#20027#31649', :'#23457#26680', :'#24405#20837', :'#24405#20837#26085#26399')')
    DeleteSQL.Strings = (
      'delete from pub_z_salededuct'
      'where'
      '  '#21150#20107#22788#21517#31216' = :OLD_'#21150#20107#22788#21517#31216' and'
      '  '#24180' = :OLD_'#24180' and'
      '  '#26376' = :OLD_'#26376)
    Left = 672
    Top = 199
  end
end