unit6.dfm

能够动态的实现数据库表的创建

object course: Tcourse
  Left = 224
  Top = 180
  Width = 548
  Height = 452
  Caption = #25152#23398#35838#31243#31649#29702
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 540
    Height = 418
    Align = alClient
    Color = clInactiveCaptionText
    TabOrder = 0
    object Label2: TLabel
      Left = 24
      Top = 240
      Width = 68
      Height = 16
      Caption = #25152#23398#19987#19994
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label1: TLabel
      Left = 264
      Top = 240
      Width = 68
      Height = 16
      Caption = #35838#31243#21517#31216
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label3: TLabel
      Left = 40
      Top = 280
      Width = 51
      Height = 16
      Caption = #23398#26102#25968
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label4: TLabel
      Left = 264
      Top = 280
      Width = 68
      Height = 16
      Caption = #25152#38656#23398#20998
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label5: TLabel
      Left = 24
      Top = 312
      Width = 68
      Height = 16
      Caption = #20219#35838#25945#24072
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
    end
    object DBGrid1: TDBGrid
      Left = 16
      Top = 32
      Width = 521
      Height = 185
      DataSource = DataSource1
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      OnDblClick = DBGrid1DblClick
    end
    object Edit1: TEdit
      Left = 360
      Top = 240
      Width = 121
      Height = 21
      TabOrder = 1
    end
    object Edit2: TEdit
      Left = 104
      Top = 280
      Width = 121
      Height = 21
      TabOrder = 2
    end
    object Edit3: TEdit
      Left = 360
      Top = 280
      Width = 121
      Height = 21
      TabOrder = 3
    end
    object Edit4: TEdit
      Left = 104
      Top = 320
      Width = 121
      Height = 21
      TabOrder = 4
    end
    object DBLookupComboBox1: TDBLookupComboBox
      Left = 104
      Top = 240
      Width = 121
      Height = 21
      KeyField = #31995#21517#31216
      ListSource = DataSource2
      TabOrder = 5
    end
    object BitBtn1: TBitBtn
      Left = 56
      Top = 368
      Width = 89
      Height = 33
      Caption = #26032#22686
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 6
      OnClick = BitBtn1Click
      Glyph.Data = {
        42020000424D4202000000000000420000002800000010000000100000000100
        1000030000000002000000000000000000000000000000000000007C0000E003
        00001F0000001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
        1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7CD26E0008410C1F7C1F7C1F7C
        1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7CD26E802C4100410C410C1F7C1F7C
        1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C8B2D043D31465967C6140018840C1F7C
        1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C2B5AA2185B6B175FF65A8B2D410C410C
        1F7C1F7C1F7C1F7C1F7C1F7C1F7CD26EA2187B6F5B6B5967B452CE31840C0008
        840C1F7C1F7C1F7C1F7C1F7CD26EA434F75E3146945239670529175FB6524F42
        0008840C1F7C1F7C1F7C8B2DCC49CC497B6F7A6B9556744E4E73F65AD75A9552
        534600081F7C1F7C1F7C2E4AA434BD77724E5346D556D656D55A8B2DD75AB556
        CD39071D1F7C1F7CD26EA1349B73B556F75E724EB5563146D65A043DB5563146
        84101F7C1F7CD26ECC491763B4529B6F1863F75EF75E9552185F4E73734E6018
        1F7C1F7C1F7CCC49673DFE7B7A6B9B73BC73D65AF75E59673967F75E410C1F7C
        1F7C1F7C1F7C1F7C65496549A50808217B6F9B6F5B6B5B6B18636018C6511F7C
        1F7C1F7C1F7C1F7C1F7C1F7C0F3AC614A5088B2DD656596705291F7C296F1F7C
        1F7C1F7C1F7C1F7C1F7C1F7CAC2D4A25482584103863CD394A251F7C1F7C840C
        1F7C1F7C1F7C1F7C1F7C1F7C724E1F7C1F7C8B2D0529C61C1F7C1F7C1F7CA134
        1F7C1F7C1F7C}
    end
    object BitBtn2: TBitBtn
      Left = 232
      Top = 368
      Width = 89
      Height = 33
      Caption = #21024#38500
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 7
      OnClick = BitBtn2Click
      Glyph.Data = {
        36040000424D3604000000000000360000002800000010000000100000000100
        2000000000000004000000000000000000000000000000000000FFFFFF00FFFF
        FF00000000000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF000000
        000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000
        00001B1BCB000807BE000807BE0000000000FFFFFF00FFFFFF00000000000505
        BC000505BC0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000
        0000393ADF005F5FF8004B4CEA0000000000FFFFFF00000000001313C5006867
        FD006B6BFF002827D30000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF000000
        0000504FED006464FA006B6BFF004343E500000000001313C5005B5BF5006B6B
        FF006B6BFF00393ADF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF000000
        0000393ADF005B5BF5005B5BF5006867FD004343E5005B5BF5006464FA006867
        FD005F5FF800201FCD0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF0000000000393ADF005352EF005555F100605FF8006464FA005555F1006464
        FA004B4CEA00201FCD0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF0000000000393ADF00504FED005352EF005555F1006464FA004B4C
        EA00201FCD0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00000000004B4CEA004343E5004B4CEA004B4CEA004B4C
        EA00201FCD0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00000000004343E500393ADF004343E5004343E5004B4C
        EA004343E50000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF0000000000504FED002D2DD6003738DD00393ADF004343
        E5004343E5001B1BCB0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00000000003434DB003434DB002D2DD6003434DB003434DB003434
        DB003D3DE1004343E5001313C50000000000FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00000000003434DB003434DB002222CF002827D300504FED004343
        E5003434DB003738DD003738DD001313C50000000000FFFFFF00FFFFFF00FFFF
        FF00000000005352EF00393ADF001B1BCB003434DB003D3DE100000000002D2D
        D6003D3DE1003434DB004343E5001313C50000000000FFFFFF00FFFFFF00FFFF
        FF0000000000504FED004343E5004343E5004343E5003434DB00000000000000
        00002222CF00393ADF003D3DE1002D2DD60000000000FFFFFF00FFFFFF00FFFF
        FF00FFFFFF0000000000504FED004B4CEA004B4CEA0000000000FFFFFF00FFFF
        FF0000000000000000000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00000000000000000000000000FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00}
    end
    object BitBtn3: TBitBtn
      Left = 408
      Top = 368
      Width = 89
      Height = 33
      Caption = #36864#20986
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 8
      OnClick = BitBtn3Click
      Glyph.Data = {
        DE010000424DDE01000000000000760000002800000024000000120000000100
        0400000000006801000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333333FFFFF333333000033333388888833333333333F888888FFF333
        000033338811111188333333338833FFF388FF33000033381119999111833333
        38F338888F338FF30000339119933331111833338F388333383338F300003391
        13333381111833338F8F3333833F38F3000039118333381119118338F38F3338
        33F8F38F000039183333811193918338F8F333833F838F8F0000391833381119
        33918338F8F33833F8338F8F000039183381119333918338F8F3833F83338F8F
        000039183811193333918338F8F833F83333838F000039118111933339118338
        F3833F83333833830000339111193333391833338F33F8333FF838F300003391
        11833338111833338F338FFFF883F83300003339111888811183333338FF3888
        83FF83330000333399111111993333333388FFFFFF8833330000333333999999
        3333333333338888883333330000333333333333333333333333333333333333
        0000}
      NumGlyphs = 2
    end
  end
  object ADOQuery1: TADOQuery
    Active = True
    Connection = Form2.ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from '#35838#31243)
    Left = 296
    Top = 136
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 344
    Top = 136
  end
  object DataSource2: TDataSource
    DataSet = ADOQuery2
    Left = 344
    Top = 176
  end
  object ADOQuery2: TADOQuery
    Active = True
    Connection = Form2.ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select DISTINCT '#31995#21517#31216' from '#38498#31995)
    Left = 296
    Top = 176
  end
  object ADOQuery3: TADOQuery
    Connection = Form2.ADOConnection1
    Parameters = <>
    Left = 312
    Top = 312
  end
end