unit1.dfm

Delphi实现手动生成试卷

object Form1: TForm1
  Left = 220
  Top = 115
  Width = 696
  Height = 480
  Caption = #25163#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
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox1: TGroupBox
    Left = 48
    Top = 40
    Width = 185
    Height = 177
    Caption = #35838#31243#36873#25321
    Font.Charset = DEFAULT_CHARSET
    Font.Color = 8421440
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    object RadioButton1: TRadioButton
      Left = 32
      Top = 48
      Width = 113
      Height = 17
      Caption = #25968#23398#39064
      Enabled = False
      TabOrder = 0
      OnClick = RadioButton1Click
    end
    object RadioButton2: TRadioButton
      Left = 32
      Top = 104
      Width = 121
      Height = 17
      Caption = #35745#31639#26426#25991#21270#22522#30784
      TabOrder = 1
      OnClick = RadioButton2Click
    end
  end
  object GroupBox2: TGroupBox
    Left = 264
    Top = 40
    Width = 185
    Height = 177
    Caption = #20869#23481
    Font.Charset = DEFAULT_CHARSET
    Font.Color = 8421440
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    object Label1: TLabel
      Left = 8
      Top = 32
      Width = 33
      Height = 13
      AutoSize = False
      Caption = #31185#30446
    end
    object Label2: TLabel
      Left = 8
      Top = 80
      Width = 33
      Height = 13
      AutoSize = False
      Caption = #39064#22411
    end
    object Label3: TLabel
      Left = 8
      Top = 128
      Width = 33
      Height = 13
      AutoSize = False
      Caption = #20998#20540
    end
    object DBMemo7: TDBMemo
      Left = 40
      Top = 24
      Width = 137
      Height = 25
      DataField = #31185#30446
      DataSource = DataSource1
      TabOrder = 0
    end
    object DBMemo8: TDBMemo
      Left = 40
      Top = 72
      Width = 137
      Height = 25
      DataField = #39064#22411
      DataSource = DataSource1
      TabOrder = 1
    end
    object DBMemo9: TDBMemo
      Left = 40
      Top = 120
      Width = 137
      Height = 25
      DataField = #20998#20540
      DataSource = DataSource1
      TabOrder = 2
    end
  end
  object GroupBox3: TGroupBox
    Left = 48
    Top = 240
    Width = 521
    Height = 177
    Caption = #39064#24178#21644#36873#39033
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clTeal
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    object Label7: TLabel
      Left = 208
      Top = 24
      Width = 7
      Height = 13
      Caption = 'A'
    end
    object Label8: TLabel
      Left = 208
      Top = 64
      Width = 7
      Height = 13
      Caption = 'B'
    end
    object Label9: TLabel
      Left = 208
      Top = 112
      Width = 7
      Height = 13
      Caption = 'C'
    end
    object Label10: TLabel
      Left = 208
      Top = 152
      Width = 8
      Height = 13
      Caption = 'D'
    end
    object Label11: TLabel
      Left = 432
      Top = 16
      Width = 65
      Height = 13
      AutoSize = False
      Caption = #27491#30830#31572#26696
    end
    object DBMemo1: TDBMemo
      Left = 8
      Top = 16
      Width = 177
      Height = 153
      DataField = #39064#24178
      DataSource = DataSource1
      TabOrder = 0
    end
    object DBMemo2: TDBMemo
      Left = 224
      Top = 16
      Width = 169
      Height = 25
      DataField = 'A'
      DataSource = DataSource1
      TabOrder = 1
    end
    object DBMemo3: TDBMemo
      Left = 224
      Top = 56
      Width = 169
      Height = 25
      DataField = 'B'
      DataSource = DataSource1
      TabOrder = 2
    end
    object DBMemo4: TDBMemo
      Left = 224
      Top = 104
      Width = 169
      Height = 25
      DataField = 'C'
      DataSource = DataSource1
      TabOrder = 3
    end
    object DBMemo5: TDBMemo
      Left = 224
      Top = 144
      Width = 169
      Height = 25
      DataField = 'D'
      DataSource = DataSource1
      TabOrder = 4
    end
    object DBMemo6: TDBMemo
      Left = 424
      Top = 48
      Width = 89
      Height = 121
      DataField = #27491#30830#31572#26696
      DataSource = DataSource1
      TabOrder = 5
    end
  end
  object GroupBox4: TGroupBox
    Left = 472
    Top = 40
    Width = 185
    Height = 177
    Caption = #20869#23481
    Font.Charset = DEFAULT_CHARSET
    Font.Color = 8421440
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 3
    object Label4: TLabel
      Left = 16
      Top = 24
      Width = 24
      Height = 13
      AutoSize = False
      Caption = #38590#24230
    end
    object Label5: TLabel
      Left = 24
      Top = 80
      Width = 17
      Height = 13
      AutoSize = False
      Caption = 'ID'
    end
    object DBMemo10: TDBMemo
      Left = 48
      Top = 24
      Width = 121
      Height = 25
      DataField = #38590#24230
      DataSource = DataSource1
      TabOrder = 0
    end
    object DBMemo11: TDBMemo
      Left = 48
      Top = 72
      Width = 121
      Height = 25
      DataField = 'ID'
      DataSource = DataSource1
      TabOrder = 1
    end
  end
  object Button1: TButton
    Left = 584
    Top = 240
    Width = 75
    Height = 25
    Caption = #19978#19968#39064
    Font.Charset = DEFAULT_CHARSET
    Font.Color = 8421440
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 4
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 584
    Top = 288
    Width = 75
    Height = 25
    Caption = #19979#19968#39064
    TabOrder = 5
    OnClick = Button2Click
  end
  object Button3: TButton
    Left = 584
    Top = 336
    Width = 75
    Height = 25
    Caption = #21024#38500
    TabOrder = 6
    OnClick = Button3Click
  end
  object Button4: TButton
    Left = 584
    Top = 392
    Width = 75
    Height = 25
    Caption = #29983#25104
    TabOrder = 7
    OnClick = Button4Click
  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;Use Proced' +
      'ure for Prepare=1;Auto Translate=True;Packet Size=4096;Workstati' +
      'on ID=BILLGATES;Use Encryption for Data=False;Tag with column co' +
      'llation when possible=False'
    Provider = 'SQLOLEDB.1'
  end
  object ADOTable2: TADOTable
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    TableName = 'NewAllTest'
    Top = 40
  end
  object DataSource1: TDataSource
    DataSet = ADODataSet1
    Top = 80
  end
  object ADODataSet1: TADODataSet
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    CommandText = 'select * from alltest '
    Parameters = <>
    Left = 56
  end
end