ufrmimportdb2.dfm

数据库通用工具

object frmImportDB2: TfrmImportDB2
  Left = 319
  Top = 80
  BorderStyle = bsSingle
  Caption = #25968#25454#36801#31227
  ClientHeight = 573
  ClientWidth = 792
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -14
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 14
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 792
    Height = 553
    Align = alClient
    BevelInner = bvLowered
    TabOrder = 0
    object Panel4: TPanel
      Left = 2
      Top = 302
      Width = 788
      Height = 249
      Align = alClient
      BevelInner = bvLowered
      TabOrder = 0
      object labA: TLabel
        Left = 652
        Top = 8
        Width = 7
        Height = 14
        Caption = '0'
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlue
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
      end
      object labB: TLabel
        Left = 652
        Top = 32
        Width = 7
        Height = 14
        Caption = '0'
        Font.Charset = ANSI_CHARSET
        Font.Color = clMaroon
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
      end
      object Label12: TLabel
        Left = 560
        Top = 8
        Width = 70
        Height = 14
        Caption = #28304#34920#23383#27573#25968
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlue
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
      end
      object Label13: TLabel
        Left = 560
        Top = 32
        Width = 84
        Height = 14
        Caption = #30446#30340#34920#23383#27573#25968
        Font.Charset = ANSI_CHARSET
        Font.Color = clMaroon
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
      end
      object labRa: TLabel
        Left = 684
        Top = 8
        Width = 56
        Height = 14
        Caption = #35760#24405#25968' 0'
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlue
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
      end
      object labRb: TLabel
        Left = 684
        Top = 32
        Width = 56
        Height = 14
        Caption = #35760#24405#25968' 0'
        Font.Charset = ANSI_CHARSET
        Font.Color = clMaroon
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
      end
      object bbtRun: TBitBtn
        Left = 576
        Top = 163
        Width = 90
        Height = 80
        Caption = #25191#34892#36801#31227'(&R)'
        Enabled = False
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clRed
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 7
        OnClick = bbtRunClick
      end
      object lv: TListView
        Left = 2
        Top = 2
        Width = 300
        Height = 245
        Align = alLeft
        Columns = <
          item
            AutoSize = True
            Caption = #28304#34920#23383#27573
          end
          item
            AutoSize = True
            Caption = #30446#30340#34920#23383#27573
          end
          item
            AutoSize = True
            Caption = #31867#22411
          end>
        ColumnClick = False
        GridLines = True
        HideSelection = False
        Items.Data = {
          9E0000000500000000000000FFFFFFFFFFFFFFFF010000000000000003616161
          0362626200000000FFFFFFFFFFFFFFFF01000000000000000331323303343536
          00000000FFFFFFFFFFFFFFFF0100000000000000036363630331323301000000
          FFFFFFFFFFFFFFFF0100000000000000033435360364646400000000FFFFFFFF
          FFFFFFFF010000000000000003666666036767670100FFFFFFFFFFFFFFFF}
        ReadOnly = True
        RowSelect = True
        StateImages = ImageList1
        TabOrder = 0
        ViewStyle = vsReport
        OnCustomDrawSubItem = lvCustomDrawSubItem
        OnKeyDown = lvKeyDown
        OnResize = lvResize
      end
      object btnadd: TButton
        Left = 680
        Top = 63
        Width = 90
        Height = 50
        Caption = #28155#21152'(&T)'
        TabOrder = 1
        OnClick = btnaddClick
      end
      object btndel: TButton
        Left = 576
        Top = 113
        Width = 90
        Height = 50
        Caption = #21024#38500'(&D)'
        Enabled = False
        TabOrder = 2
        OnClick = btndelClick
      end
      object btnclear: TButton
        Left = 680
        Top = 113
        Width = 90
        Height = 50
        Caption = #28165#38500'(&C)'
        Enabled = False
        TabOrder = 3
        OnClick = btnclearClick
      end
      object btnout: TButton
        Left = 680
        Top = 193
        Width = 90
        Height = 50
        Cancel = True
        Caption = #36864#20986'(&Q)'
        TabOrder = 4
        OnClick = btnoutClick
      end
      object BitBtn1: TBitBtn
        Left = 576
        Top = 63
        Width = 90
        Height = 50
        Caption = '&Auto'
        TabOrder = 5
        OnClick = BitBtn1Click
      end
      object mo: TMemo
        Left = 302
        Top = 2
        Width = 250
        Height = 245
        Align = alLeft
        ScrollBars = ssBoth
        TabOrder = 6
        OnKeyDown = moKeyDown
      end
    end
    object Panel5: TPanel
      Left = 2
      Top = 2
      Width = 788
      Height = 150
      Align = alTop
      TabOrder = 1
      object DBGrid1: TDBGrid
        Left = 541
        Top = 1
        Width = 246
        Height = 148
        Align = alClient
        DataSource = DataSource1
        ReadOnly = True
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -14
        TitleFont.Name = #23435#20307
        TitleFont.Style = []
      end
      object Panel2: TPanel
        Left = 1
        Top = 1
        Width = 280
        Height = 148
        Align = alLeft
        BevelInner = bvLowered
        TabOrder = 1
        object Label2: TLabel
          Left = 16
          Top = 33
          Width = 45
          Height = 13
          AutoSize = False
          Caption = #28304#24211
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlue
          Font.Height = -14
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
        end
        object Label5: TLabel
          Left = 16
          Top = 64
          Width = 56
          Height = 14
          Caption = #28304#24211#34920#21517
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlue
          Font.Height = -14
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
        end
        object edita2: TEdit
          Left = 64
          Top = 28
          Width = 121
          Height = 22
          TabOrder = 0
          Text = 'newhis'
          OnKeyDown = edita1KeyDown
        end
        object edita5: TComboBox
          Left = 15
          Top = 92
          Width = 250
          Height = 22
          Style = csDropDownList
          ItemHeight = 14
          TabOrder = 1
          OnChange = edita5Change
          OnKeyDown = edita1KeyDown
        end
      end
      object lv1: TListView
        Left = 281
        Top = 1
        Width = 260
        Height = 148
        Align = alLeft
        Columns = <
          item
            Caption = #23383#27573
            Width = 100
          end
          item
            Caption = #31867#22411
            Width = 100