unit4.~dfm

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

object stuselect: Tstuselect
  Left = 255
  Top = 128
  Width = 595
  Height = 434
  Caption = #23398#29983#22522#26412#20449#24687#26597#35810
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 587
    Height = 407
    Align = alClient
    Color = clGradientActiveCaption
    TabOrder = 0
    object DBGrid1: TDBGrid
      Left = 8
      Top = 176
      Width = 561
      Height = 177
      DataSource = DataSource1
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
    end
    object GroupBox1: TGroupBox
      Left = 0
      Top = 0
      Width = 185
      Height = 137
      Caption = #31934#30830#26597#35810
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 1
      object Label1: TLabel
        Left = 16
        Top = 56
        Width = 34
        Height = 16
        Caption = #22995#21517
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = #23435#20307
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label2: TLabel
        Left = 16
        Top = 32
        Width = 34
        Height = 16
        Caption = #23398#21495
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = #23435#20307
        Font.Style = [fsBold]
        ParentFont = False
      end
      object name: TEdit
        Left = 56
        Top = 56
        Width = 121
        Height = 24
        TabOrder = 0
      end
      object id: TEdit
        Left = 56
        Top = 24
        Width = 121
        Height = 24
        TabOrder = 1
      end
      object Button2: TButton
        Left = 24
        Top = 112
        Width = 75
        Height = 25
        Caption = #26597#35810
        TabOrder = 2
        OnClick = Button2Click
      end
      object Button5: TButton
        Left = 104
        Top = 112
        Width = 75
        Height = 25
        Caption = #37325#32622
        TabOrder = 3
        OnClick = Button5Click
      end
    end
    object GroupBox2: TGroupBox
      Left = 184
      Top = 0
      Width = 209
      Height = 137
      Caption = #27169#31946#26597#35810
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 2
      object Label5: TLabel
        Left = 8
        Top = 24
        Width = 68
        Height = 16
        Caption = #25152#22312#23398#38498
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = #23435#20307
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label6: TLabel
        Left = 8
        Top = 56
        Width = 68
        Height = 16
        Caption = #25152#22312#19987#19994
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = #23435#20307
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Button3: TButton
        Left = 24
        Top = 112
        Width = 75
        Height = 25
        Caption = #26597#35810
        TabOrder = 0
        OnClick = Button3Click
      end
      object DBLookupComboBox1: TDBLookupComboBox
        Left = 88
        Top = 16
        Width = 113
        Height = 24
        KeyField = #23398#38498#21517#31216
        ListSource = DataSource2
        TabOrder = 1
        OnCloseUp = DBLookupComboBox1CloseUp
      end
      object DBLookupComboBox2: TDBLookupComboBox
        Left = 88
        Top = 48
        Width = 113
        Height = 24
        KeyField = #31995#21517#31216
        ListSource = DataSource3
        TabOrder = 2
      end
      object Button6: TButton
        Left = 104
        Top = 112
        Width = 75
        Height = 25
        Caption = #37325#32622
        TabOrder = 3
        OnClick = Button6Click
      end
    end
    object Button1: TButton
      Left = 240
      Top = 144
      Width = 75
      Height = 25
      Caption = #21047#26032
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 3
      OnClick = Button1Click
    end
    object Button4: TButton
      Left = 240
      Top = 360
      Width = 75
      Height = 25
      Caption = #36820#22238
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 4
      OnClick = Button4Click
    end
    object GroupBox3: TGroupBox
      Left = 392
      Top = 0
      Width = 185
      Height = 137
      Caption = #25171#21360
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 5
      object Button7: TButton
        Left = 56
        Top = 112
        Width = 75
        Height = 25
        Caption = #25171#21360
        TabOrder = 0
        OnClick = Button7Click
      end
    end
  end
  object ADOQuery1: TADOQuery
    Active = True
    Connection = Form2.ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from '#23398#29983#22522#26412#20449#24687#34920)
    Left = 400
    Top = 176
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 448
    Top = 176
  end
  object ADOQuery2: TADOQuery
    Active = True
    Connection = Form2.ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select DISTINCT '#23398#38498#21517#31216' from '#38498#31995)
    Left = 400
    Top = 216
  end
  object DataSource2: TDataSource
    DataSet = ADOQuery2
    Left = 448
    Top = 216
  end
  object ADOQuery3: TADOQuery
    Active = True
    Connection = Form2.ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select DISTINCT '#31995#21517#31216' from '#38498#31995)
    Left = 400
    Top = 256
  end
  object DataSource3: TDataSource
    DataSet = ADOQuery3
    Left = 448
    Top = 256
  end
end