unit1.dfm

本代码通过delphi界面与数据库连接

object form1: Tform1
  Left = 59
  Top = 126
  Width = 987
  Height = 574
  Caption = #25253#34920#25171#21360
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poDefault
  Visible = True
  WindowState = wsMaximized
  OnActivate = FormActivate
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 66
    Top = 501
    Width = 95
    Height = 19
    Caption = #26597#35810#32467#26524#65306
    Font.Charset = GB2312_CHARSET
    Font.Color = clNavy
    Font.Height = -19
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object Label2: TLabel
    Left = 38
    Top = 28
    Width = 72
    Height = 13
    Caption = #35831#36873#25321#25968#25454#24211
  end
  object Panel1: TPanel
    Left = 407
    Top = 57
    Width = 521
    Height = 237
    TabOrder = 0
    object ListBox1: TListBox
      Left = 19
      Top = 9
      Width = 143
      Height = 219
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = #23435#20307
      Font.Style = []
      ItemHeight = 19
      ParentFont = False
      TabOrder = 0
    end
    object GroupBox1: TGroupBox
      Left = 170
      Top = 9
      Width = 105
      Height = 134
      Caption = #19982#20540#20851#31995
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      object RadioButton1: TRadioButton
        Left = 9
        Top = 19
        Width = 87
        Height = 20
        Caption = #31561#20110
        Checked = True
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -19
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 0
        TabStop = True
        OnClick = RadioButton4Click
      end
      object RadioButton2: TRadioButton
        Left = 9
        Top = 47
        Width = 87
        Height = 20
        Caption = #19981#31561#20110
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -19
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 1
        OnClick = RadioButton4Click
      end
      object RadioButton3: TRadioButton
        Left = 9
        Top = 76
        Width = 87
        Height = 20
        Caption = #30456#20284#20110
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -19
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 2
        OnClick = RadioButton4Click
      end
      object RadioButton4: TRadioButton
        Left = 9
        Top = 104
        Width = 87
        Height = 20
        Caption = #33539#22260#22312
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -19
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 3
        OnClick = RadioButton4Click
      end
    end
    object ComboBox1: TComboBox
      Left = 276
      Top = 38
      Width = 124
      Height = 27
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = #23435#20307
      Font.Style = []
      ItemHeight = 19
      ParentFont = False
      TabOrder = 2
    end
    object ComboBox2: TComboBox
      Left = 276
      Top = 85
      Width = 124
      Height = 27
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = #23435#20307
      Font.Style = []
      ItemHeight = 19
      ParentFont = False
      TabOrder = 3
      Visible = False
    end
    object GroupBox2: TGroupBox
      Left = 416
      Top = 28
      Width = 86
      Height = 77
      Caption = #26465#20214#20851#31995
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 4
      Visible = False
      object RadioButton5: TRadioButton
        Left = 19
        Top = 19
        Width = 58
        Height = 20
        Caption = #24182#19988
        Checked = True
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -19
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 0
        TabStop = True
      end
      object RadioButton6: TRadioButton
        Left = 19
        Top = 47
        Width = 58
        Height = 20
        Caption = #25110
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -19
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 1
      end
    end
    object ListBox4: TListBox
      Left = 170
      Top = 151
      Width = 238
      Height = 77
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = #23435#20307
      Font.Style = []
      ItemHeight = 19
      MultiSelect = True
      ParentFont = False
      TabOrder = 5
    end
    object BitBtn5: TBitBtn
      Left = 416
      Top = 113
      Width = 89
      Height = 30
      Caption = #28155#21152
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 6
      OnClick = BitBtn5Click
    end
    object BitBtn6: TBitBtn
      Left = 416
      Top = 142
      Width = 89
      Height = 29
      Caption = #21024#38500
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 7
      OnClick = BitBtn6Click
    end
    object BitBtn7: TBitBtn
      Left = 416
      Top = 170
      Width = 89
      Height = 30
      Caption = #28165#31354
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 8
      OnClick = BitBtn7Click
    end
    object BitBtn8: TBitBtn
      Left = 416
      Top = 199
      Width = 89
      Height = 29
      Caption = #26597#35810
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 9
      OnClick = BitBtn8Click
    end
  end
  object Panel2: TPanel
    Left = 28
    Top = 57
    Width = 370
    Height = 237
    TabOrder = 1
    object ListBox2: TListBox
      Left = 9
      Top = 9
      Width = 106
      Height = 210
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = #23435#20307
      Font.Style = []
      ItemHeight = 19
      MultiSelect = True
      ParentFont = False
      TabOrder = 0
    end
    object BitBtn1: TBitBtn
      Left = 130
      Top = 32
      Width = 89
      Height = 26
      Caption = '==>'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      OnClick = BitBtn1Click
    end
    object BitBtn2: TBitBtn
      Left = 130
      Top = 76
      Width = 89
      Height = 29
      Caption = '<=='
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 2
      OnClick = BitBtn2Click
    end
    object BitBtn3: TBitBtn
      Left = 130
      Top = 123
      Width = 89
      Height = 29
      Caption = #20840#37096
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 3
      OnClick = BitBtn3Click
    end
    object BitBtn4: TBitBtn
      Left = 130
      Top = 170
      Width = 89
      Height = 30
      Caption = #28165#31354
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 4
      OnClick = BitBtn4Click
    end
    object ListBox3: TListBox
      Left = 236
      Top = 9
      Width = 115
      Height = 219
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = #23435#20307
      Font.Style = []
      ItemHeight = 19
      MultiSelect = True
      ParentFont = False
      TabOrder = 5
    end
  end
  object BitBtn9: TBitBtn
    Left = 586
    Top = 501
    Width = 89
    Height = 30
    Caption = #25171#21360
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -19
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 2
  end
  object BitBtn10: TBitBtn
    Left = 690
    Top = 501
    Width = 89
    Height = 30
    Caption = #25171#21360#35774#32622
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -19
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 3
  end
  object ComboBox3: TComboBox
    Left = 142
    Top = 19
    Width = 171
    Height = 21
    ItemHeight = 13
    TabOrder = 4
    Text = #20154#20107#26723#26696#34920'1'
    Items.Strings = (
      #20154#20107#26723#26696#34920'1'
      #20154#20107#26723#26696#34920'2'
      #20154#20107#26723#26696#34920'3'
      #20154#20107#26723#26696#34920'4'
      #20154#20107#26723#26696#34920'5'
      #20154#20107#26723#26696#34920'6'
      #20154#20107#26723#26696#34920'7'
      #20154#20107#26723#26696#34920'8')
  end
  object BitBtn12: TBitBtn
    Left = 321
    Top = 19
    Width = 89
    Height = 29
    Caption = #30830#23450
    TabOrder = 6
    OnClick = BitBtn12Click
  end
  object BitBtn11: TBitBtn
    Left = 804
    Top = 501
    Width = 88
    Height = 30
    Caption = #25253#34920#35774#32622
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -19
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 5
  end
  object DBGrid1: TDBGrid
    Left = 38
    Top = 321
    Width = 871
    Height = 172
    DataSource = DataSource1
    TabOrder = 7
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
  end
  object DataSource1: TDataSource
    DataSet = Query1
    Left = 656
    Top = 16
  end
  object Query1: TQuery
    DatabaseName = 'E:\DELPHI6'#24212#29992#31243#24207#35774#35745#25216#24039#31934#31929#65288#30446#24405#65289'\'#31532#20116#31456'  '#25968#25454#24211'\'#23450#21046'SQL'#26597#35810'(39)'
    Left = 696
    Top = 16
  end
end