unit1.dfm

自己写的一个动态访问SQL数据的程序

object Form1: TForm1
  Left = 148
  Top = 177
  Width = 630
  Height = 556
  Caption = 'APMTS'#25968#25454#37096#20998#23548#20986#31034#20363#31243#24207
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {
    0000010001002020040000000000E80200001600000028000000200000004000
    0000010004000000000000020000000000000000000000000000000000000000
    000000008000008000000080800080000000800080008080000080808000C0C0
    C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
    0000000888888000000000000000000008888888888888800000000000000888
    8888888888888880000000000000008888888888000000000000000000000000
    0000000000000000000000000000000000000000000088F00000000780000000
    0000000000888FFF0000007778000000000000008888FFFF0000000778000000
    00000088888FFFFF00000000000000000000888888FFFF0FF000000000000000
    008888888FFFF080F000000000000000088888888FFF0780FF00000000000000
    8888888888FFF0780F000000000000088888888888FFF0780FF0000000000088
    88888888888FFF0780F000000000088888888888888FFF0780FF000000000888
    888888888888FFF0780F000000000888888888888888FFF0780FF00000000088
    8888888888888FFF0780F000000000888888888888888FFF0780FF0000000008
    88888888888888FFF0780F000000000888888888888888FFF0780FF000000000
    888888888888888FFF0780F000000000888888888888888FFF0780F000000000
    0888888888888888FFF070F0000000000888888888888888FFF00FF000000000
    00888888888888888FFF0F000000000000888888888888888FBFFF0000000000
    000888888888888888FBF00000000000000888888888888888FFF00000000000
    0000888888888888888F0000000000000000000000000000000000000000FFE0
    7FFFF8001FFF80001FDFC00FFEEFFFFF1F67FFFC0F83FFF00781FFC007C1FF00
    07E3FC0003FBF80003FDF00001FDE00001FEC00000FE800000FE0000007E0000
    007E0000003D8000003B80000007C000001FC000000FE000000FE000000FF000
    000FF000000FF800001FF800001FFC00003FFC00003FFE00007FFF0000FF}
  Menu = MainMenu1
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Button1: TButton
    Left = 120
    Top = 8
    Width = 161
    Height = 25
    Caption = #26816#27979#23616#22495#32593'SQL'
    TabOrder = 0
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 288
    Top = 8
    Width = 153
    Height = 25
    Caption = #26816#27979#26412#26426'SQL'
    TabOrder = 1
    OnClick = Button2Click
  end
  object PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 622
    Height = 502
    ActivePage = TabSheet1
    Align = alClient
    Images = ImageList1
    TabOrder = 2
    object TabSheet1: TTabSheet
      Caption = #25968#25454#23548#20986
      object StatusBar1: TStatusBar
        Left = 0
        Top = 454
        Width = 614
        Height = 19
        Panels = <
          item
            Width = 50
          end
          item
            Width = 50
          end>
      end
      object Panel2: TPanel
        Left = 0
        Top = 41
        Width = 614
        Height = 177
        Align = alTop
        BevelInner = bvLowered
        TabOrder = 1
        object Label1: TLabel
          Left = 56
          Top = 16
          Width = 489
          Height = 13
          AutoSize = False
          Caption = #33509#35201#36830#25509#21040'MS SQL SERVER'#25968#25454#24211#65292#24517#39035#25351#23450#26381#21153#22120#12289#29992#25143#21517#21644#23494#30721#12290
        end
        object Image1: TImage
          Left = 8
          Top = 8
          Width = 32
          Height = 32
          AutoSize = True
          Picture.Data = {
            07544269746D617042080000424D420800000000000042000000280000002000
            0000200000000100100003000000000800000000000000000000000000000000
            0000007C0000E00300001F000000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
            FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F0000000000000000FF7FFF7FFF7FFF7F
            FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
            FF7FFF7FFF7FFF7FFF7FFF7F00000000DF6BDF6BF701F70100000000FF7FFF7F
            FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
            FF7FFF7FFF7FFF7F00000000DF6BDF6B5F475F47BF02BF02F701F70100000000
            FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
            FF7FFF7F00000000DF6BDF6B5F475F47FF26FF26FF26FF26BF02BF02F701F701
            00000000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
            00000000DF6BDF6B5F475F47FF26FF26FF26FF26FF26FF26FF26FF26BF02BF02
            F701F70100000000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F0000
            DF6BDF6B5F475F47FF26FF26FF26FF26FF26FF26FF26FF26FF26FF26FF26FF26
            BF02BF02F701F7010000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F0000
            5F475F47FF26FF26FF26FF26FF26FF26FF26FF26FF26FF26FF26FF265F475F47
            DF6BDF6BBF02F7010000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
            00000000FF26FF26FF26FF26FF26FF26FF26FF26FF26FF265F475F47DF6BDF6B
            5F475F47BF02F7010000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
            FF7FFF7F00000000FF26FF26FF26FF26FF265F475F475F47DF6BDF6B5F475F47
            FF26BF02F7010000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
            FF7FFF7FFF7FFF7F00000000FF260000000000000000DF6B5F475F47FF26FF26
            FF26BF02F7010000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
            FF7FFF7FFF7FFF7FFF7FFF7F0000F701BF02BF02F7010000FF26FF26FF26FF26
            BF02F7010000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
            FF7FFF7FFF7FFF7F00000000DF6BDF6BDF6BBF02F7010000FF26FF26FF26FF26
            BF02F7010000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
            FF7FFF7F00000000DF6BDF6BEF3D0000DF6BBF02BF02F7010000FF26FF26BF02
            F7010000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
            00000000DF6BDF6BEF3D0000AD35AD35EF3DDF6BBF02F7010000FF26FF26BF02
            F7010000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F00000000
            DF6BDF6BEF3D0000AD35AD35AD35AD358C31DF6BBF02BF02F7010000BF02F701
            0000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F00000000DF6BDF6B
            EF3D0000AD35AD35AD35AD35AD35AD35AD35EF3DDF6BBF02F7010000BF02F701
            0000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F0000DF6BDF6BEF3D0000
            AD35AD35AD35AD35AD35AD35AD35AD35AD358C31DF6BBF02BF02F70100000000
            FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F0000DF6BD65A0000AD35AD35
            AD35AD35AD35AD35AD35AD35AD35AD35AD35AD35EF3DDF6BBF02F70100000000
            FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F0000DF6B8C312925AD35AD35
            AD35AD35AD35AD35AD35C039E07FC039AD35AD358C31DF6BBF02BF02F7010000
            FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F0000DF6BEF3D2925AD35AD35
            AD35AD35AD35AD35AD35C039E07FE07FC039AD35AD35EF3DDF6BBF02F7010000
            FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F0000DF6B8C312925AD35
            AD35AD35AD35AD35AD35C039E07FC039E07FC039C0398C31DF6BBF02BF02F701
            0000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F0000DF6BEF3D2925AD35
            AD35AD35AD35AD35AD35C039E07FC039C039E07F606F606FEF3DDF6BBF02F701
            0000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F0000DF6B8C312925
            AD35E05E606FE07FC039C039E07FC039AD35C039C039C0398C31DF6BBF02BF02
            F7010000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F0000DF6BEF3D2925
            E07F606FC039C039E07FC039E07FC039AD35AD35AD35AD35AD35EF3DDF6BBF02
            F7010000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F0000DF6B8C31
            2925C039AD35AD35C039E07FE07FC039AD35AD35AD35AD35AD358C31DF6BBF02
            BF02F7010000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F0000DF6BEF3D
            2925AD35AD35AD35AD35C039E07FC039AD35AD35AD35AD35AD35AD35EF3DDF6B
            BF02F7010000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F0000DF6B
            8C312925AD35AD35AD35AD35C039AD35AD35AD35AD35AD35AD35AD358C31DF6B
            BF02BF02F7010000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F0000DF6B
            EF3D2925AD35AD35AD35AD35AD35AD35AD35AD35AD35AD35AD35AD35AD35EF3D
            DF6BBF02F7010000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F0000
            DF6B8C3129252925292529252925292529252925292529252925292529258C31
            DF6BBF02BF02F7010000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F0000
            DF6BEF3D00000000000000000000000000000000000000000000000000000000
            EF3DDF6BBF02F7010000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
            0000DF6BDF6BDF6BDF6BDF6BDF6BDF6BDF6BDF6BDF6BDF6BDF6BDF6BDF6BDF6B
            DF6BDF6BBF020000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
            FF7F000000000000000000000000000000000000000000000000000000000000
            000000000000FF7FFF7FFF7FFF7F}
        end
        object Label2: TLabel
          Left = 56
          Top = 56
          Width = 61
          Height = 13
          Caption = #26381#21153#22120'(&S)'#65306
        end
        object Label3: TLabel
          Left = 240
          Top = 112
          Width = 48
          Height = 13
          Caption = #29992#25143#21517#65306
        end
        object Label4: TLabel
          Left = 416
          Top = 112
          Width = 36
          Height = 13
          Caption = #23494#30721#65306
        end
        object Bevel1: TBevel
          Left = 56
          Top = 83
          Width = 545
          Height = 57
        end
        object Label12: TLabel
          Left = 344
          Top = 60
          Width = 86
          Height = 13
          Caption = #25152#26377#25968#25454#24211'(&D)'#65306
        end
        object cmb_sql_server: TComboBox
          Left = 128
          Top = 56
          Width = 169
          Height = 21
          ItemHeight = 13
          TabOrder = 0
        end
        object RadioButton1: TRadioButton
          Left = 64
          Top = 88
          Width = 233
          Height = 17
          Caption = #20351#29992'WINDOWS'#36523#20221#39564#35777
          TabOrder = 1
        end
        object RadioButton2: TRadioButton
          Left = 64
          Top = 112
          Width = 169
          Height = 17
          Caption = #20351#29992'SQL SERVER'#36523#20221#39564#35777
          Checked = True
          TabOrder = 2
          TabStop = True
        end
        object cmb_sql_database: TComboBox
          Left = 440
          Top = 56
          Width = 161
          Height = 21
          ItemHeight = 13
          TabOrder = 3
          OnChange = cmb_sql_databaseChange
        end
        object edt_sql_username: TEdit
          Left = 285
          Top = 109
          Width = 121
          Height = 21
          TabOrder = 4
          Text = 'sa'
        end
        object edt_sql_password: TEdit
          Left = 456
          Top = 107
          Width = 121
          Height = 21
          PasswordChar = '*'
          TabOrder = 5
          Text = 'sa'
        end
        object BitBtn1: TBitBtn
          Left = 421
          Top = 147