一个比较好的网上考试系统
源代码在线查看： tiku.dfm.bak
object Form7: TForm7
Left = 210
Top = 123
Width = 772
Height = 595
Caption = #39064#24211#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 Label4: TLabel
Left = 8
Top = 88
Width = 60
Height = 13
Caption = #35797#39064#20869#23481#65306
end
object SpeedButton1: TSpeedButton
Left = 56
Top = 488
Width = 65
Height = 22
Caption = #22686#21152#35797#39064
end
object Panel1: TPanel
Left = 8
Top = 8
Width = 681
Height = 73
BorderStyle = bsSingle
TabOrder = 0
object Label1: TLabel
Left = 16
Top = 16
Width = 48
Height = 13
Caption = #31185#30446#21517#65306
end
object Label2: TLabel
Left = 232
Top = 24
Width = 39
Height = 13
Caption = #20998' '#20540#65306
end
object Label3: TLabel
Left = 432
Top = 32
Width = 39
Height = 13
Caption = #39064' '#22411#65306
end
object cb1: TComboBox
Left = 64
Top = 16
Width = 145
Height = 21
ItemHeight = 13
TabOrder = 0
end
object ComboBox2: TComboBox
Left = 272
Top = 24
Width = 145
Height = 21
ItemHeight = 13
ItemIndex = 0
TabOrder = 1
Text = '1'
Items.Strings = (
'1'
'2'
'3'
'4'
'5')
end
object Cb3: TComboBox
Left = 480
Top = 24
Width = 145
Height = 21
ItemHeight = 13
ItemIndex = 0
TabOrder = 2
Text = #21333#36873#39064
OnClick = Cb3Click
Items.Strings = (
#21333#36873#39064
#22810#36873#39064)
end
end
object Panel2: TPanel
Left = 48
Top = 368
Width = 641
Height = 145
BorderStyle = bsSingle
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 1
object c1: TDBCheckBox
Left = 8
Top = 8
Width = 49
Height = 25
Caption = 'A'
DataField = 'right_a'
DataSource = DataSource1
TabOrder = 0
ValueChecked = 'True'
ValueUnchecked = 'False'
end
object c2: TDBCheckBox
Left = 288
Top = 16
Width = 41
Height = 17
Caption = 'B'
DataField = 'right_b'
DataSource = DataSource1
TabOrder = 1
ValueChecked = 'True'
ValueUnchecked = 'False'
end
object c3: TDBCheckBox
Left = 8
Top = 40
Width = 41
Height = 17
Caption = 'C'
DataField = 'right_c'
DataSource = DataSource1
TabOrder = 2
ValueChecked = 'True'
ValueUnchecked = 'False'
end
object c4: TDBCheckBox
Left = 288
Top = 40
Width = 41
Height = 17
Caption = 'D'
DataField = 'a_D'
DataSource = DataSource1
TabOrder = 3
ValueChecked = 'True'
ValueUnchecked = 'False'
end
object c5: TDBCheckBox
Left = 8
Top = 72
Width = 41
Height = 17
Caption = 'E'
DataField = 'a_E'
DataSource = DataSource1
TabOrder = 4
ValueChecked = 'True'
ValueUnchecked = 'False'
end
object c6: TDBCheckBox
Left = 288
Top = 72
Width = 33
Height = 17
Caption = 'F'
DataField = 'a_F'
DataSource = DataSource1
TabOrder = 5
ValueChecked = 'True'
ValueUnchecked = 'False'
end
object DBEdit1: TDBEdit
Left = 48
Top = 8
Width = 121
Height = 21
DataField = 'a_A'
DataSource = DataSource1
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 6
end
object DBEdit2: TDBEdit
Left = 336
Top = 8
Width = 121
Height = 21
DataField = 'a_B'
DataSource = DataSource1
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 7
end
object edit3: TDBEdit
Left = 48
Top = 40
Width = 121
Height = 21
DataField = 'a_C'
DataSource = DataSource1
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 8
end
object DBEdit4: TDBEdit
Left = 336
Top = 40
Width = 121
Height = 21
DataField = 'a_D'
DataSource = DataSource1
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 9
end
object DBEdit5: TDBEdit
Left = 48
Top = 72
Width = 121
Height = 21
DataField = 'a_E'
DataSource = DataSource1
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 10
end
object DBEdit6: TDBEdit
Left = 344
Top = 72
Width = 121
Height = 21
DataField = 'a_F'
DataSource = DataSource1
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 11
end
object r1: TRadioButton
Left = 8
Top = 8
Width = 33
Height = 17
Caption = 'A'
TabOrder = 12
end
object r2: TRadioButton
Left = 288
Top = 16
Width = 41
Height = 17
Caption = 'B'
TabOrder = 13
end
object R3: TRadioButton
Left = 8
Top = 40
Width = 41
Height = 17
Caption = 'C'
TabOrder = 14
end
object r4: TRadioButton
Left = 288
Top = 40
Width = 41
Height = 17
Caption = 'D'
TabOrder = 15
end
object R5: TRadioButton
Left = 8
Top = 72
Width = 41
Height = 17
Caption = 'E'
TabOrder = 16
end
object R6: TRadioButton
Left = 288
Top = 72
Width = 49
Height = 17
Caption = 'F'
TabOrder = 17
end
end
object m1: TDBMemo
Left = 48
Top = 120
Width = 553
Height = 225
DataField = 'Tm'
DataSource = DataSource1
TabOrder = 2
end
object q6: TADOQuery
Active = True
Connection = Form2.ADOConnection1
CursorType = ctStatic
Parameters =
SQL.Strings = (
'select tm,a_A,a_B,a_C,a_D,a_E,a_F,right_A,right_b,right_c,right_' +
'D,right_e,right_F from timu')
Left = 48
end
object DataSource1: TDataSource
DataSet = q6
Left = 16
Top = 8
end
object q7: TADOQuery
Connection = Form2.ADOConnection1
Parameters =
Left = 128
end
end
