unit1.~dfm

Delphi实现的自动生成试卷源代码

object Form1: TForm1
  Left = 209
  Top = 124
  Width = 696
  Height = 480
  Caption = #33258#21160#29983#25104#21367#23376
  Color = 14548991
  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 GroupBox1: TGroupBox
    Left = 56
    Top = 40
    Width = 218
    Height = 73
    Caption = #36873#25321#35797#39064#31867#22411
    Color = 14548991
    Font.Charset = DEFAULT_CHARSET
    Font.Color = 8421440
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentColor = False
    ParentFont = False
    TabOrder = 0
    object RadioButton1: TRadioButton
      Left = 48
      Top = 16
      Width = 114
      Height = 18
      Caption = #25968#23398#39064
      Color = 14548991
      ParentColor = False
      TabOrder = 0
      OnClick = RadioButton1Click
    end
    object RadioButton2: TRadioButton
      Left = 48
      Top = 40
      Width = 114
      Height = 18
      Caption = #35745#31639#26426#25991#21270#22522#30784
      Color = 14548991
      ParentColor = False
      TabOrder = 1
      OnClick = RadioButton2Click
    end
  end
  object GroupBox2: TGroupBox
    Left = 304
    Top = 232
    Width = 346
    Height = 193
    Caption = #35797#39064#20869#23481
    Color = 14548991
    Font.Charset = DEFAULT_CHARSET
    Font.Color = 8421440
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentColor = False
    ParentFont = False
    TabOrder = 1
    object DBNavigator1: TDBNavigator
      Left = 16
      Top = 160
      Width = 300
      Height = 28
      DataSource = DataSource2
      TabOrder = 0
    end
    object DBMemo1: TDBMemo
      Left = 8
      Top = 16
      Width = 329
      Height = 129
      Color = 14548991
      DataField = #39064#24178
      DataSource = DataSource2
      Font.Charset = DEFAULT_CHARSET
      Font.Color = 8421440
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 1
    end
  end
  object DBGrid1: TDBGrid
    Left = 304
    Top = 48
    Width = 346
    Height = 162
    Color = 14548991
    DataSource = DataSource2
    FixedColor = 14548991
    Font.Charset = DEFAULT_CHARSET
    Font.Color = 8421440
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
  end
  object GroupBox3: TGroupBox
    Left = 56
    Top = 304
    Width = 218
    Height = 121
    Caption = #35797#21367#29983#25104#36873#39033
    Font.Charset = DEFAULT_CHARSET
    Font.Color = 8421440
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 3
    object RadioButton3: TRadioButton
      Left = 48
      Top = 32
      Width = 114
      Height = 18
      Caption = #29983#25104#35797#21367
      Font.Charset = DEFAULT_CHARSET
      Font.Color = 8421440
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      OnClick = RadioButton3Click
    end
    object RadioButton4: TRadioButton
      Left = 48
      Top = 72
      Width = 114
      Height = 18
      Caption = #28165#38500#29983#25104#35797#21367
      Font.Charset = DEFAULT_CHARSET
      Font.Color = 8421440
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      OnClick = RadioButton4Click
    end
  end
  object GroupBox4: TGroupBox
    Left = 56
    Top = 120
    Width = 217
    Height = 177
    Caption = #35797#39064#20010#25968#36873#25321
    Font.Charset = DEFAULT_CHARSET
    Font.Color = 8421440
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 4
    object Label1: TLabel
      Left = 16
      Top = 24
      Width = 33
      Height = 13
      AutoSize = False
      Caption = #29983#25104
      Font.Charset = DEFAULT_CHARSET
      Font.Color = 8421440
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label2: TLabel
      Left = 128
      Top = 32
      Width = 73
      Height = 13
      AutoSize = False
      Caption = #36947#36873#25321#39064
      Font.Charset = DEFAULT_CHARSET
      Font.Color = 8421440
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label3: TLabel
      Left = 16
      Top = 64
      Width = 33
      Height = 17
      AutoSize = False
      Caption = #29983#25104
      Font.Charset = DEFAULT_CHARSET
      Font.Color = 8421440
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label4: TLabel
      Left = 128
      Top = 72
      Width = 57
      Height = 13
      AutoSize = False
      Caption = #36947#22635#31354#39064
      Font.Charset = DEFAULT_CHARSET
      Font.Color = 8421440
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label5: TLabel
      Left = 16
      Top = 104
      Width = 33
      Height = 17
      AutoSize = False
      Caption = #29983#25104
      Font.Charset = DEFAULT_CHARSET
      Font.Color = 8421440
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label6: TLabel
      Left = 128
      Top = 104
      Width = 57
      Height = 13
      AutoSize = False
      Caption = #36947#21028#26029#39064
      Font.Charset = DEFAULT_CHARSET
      Font.Color = 8421440
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label7: TLabel
      Left = 16
      Top = 144
      Width = 33
      Height = 13
      AutoSize = False
      Caption = #38590#24230
    end
    object Label8: TLabel
      Left = 136
      Top = 144
      Width = 25
      Height = 13
      Caption = '(1~3)'
    end
    object Edit1: TEdit
      Left = 56
      Top = 24
      Width = 65
      Height = 21
      Color = 14548991
      TabOrder = 0
      OnChange = Edit1Change
    end
    object Edit2: TEdit
      Left = 56
      Top = 64
      Width = 65
      Height = 21
      Color = 14548991
      TabOrder = 1
      OnChange = Edit2Change
    end
    object Edit3: TEdit
      Left = 56
      Top = 96
      Width = 65
      Height = 21
      Color = 14548991
      TabOrder = 2
      OnChange = Edit3Change
    end
    object Edit4: TEdit
      Left = 56
      Top = 136
      Width = 65
      Height = 21
      Color = 14548991
      TabOrder = 3
      OnChange = Edit4Change
    end
  end
  object ADOConnection1: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security In' +
      'fo=False;Initial Catalog='#32852#26426#32771#35797#31995#32479';Data Source=BILLGATES'
    Mode = cmShareDenyNone
    Provider = 'SQLOLEDB.1'
    Left = 8
    Top = 120
  end
  object ADOTable1: TADOTable
    Connection = ADOConnection1
    CursorType = ctStatic
    TableName = 'alltest'
    Left = 8
    Top = 168
  end
  object ADOTable2: TADOTable
    Connection = ADOConnection1
    CursorType = ctStatic
    TableName = 'NewAllTest'
    Left = 8
    Top = 208
  end
  object DataSource1: TDataSource
    DataSet = ADOTable1
    Left = 8
    Top = 248
  end
  object DataSource2: TDataSource
    DataSet = ADOTable2
    Left = 8
    Top = 288
  end
  object ADODataSet1: TADODataSet
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    CommandText = 'select * from alltest where '#31185#30446' = 1'
    Parameters = <>
    Left = 272
    Top = 8
  end
end