VB编写的考试系统和论文
源代码在线查看： tiku.dfm
object Form7: TForm7
Left = 124
Top = 34
AutoScroll = False
BorderIcons = [biSystemMenu, biMinimize]
Caption = #35797#39064#28155#21152
ClientHeight = 492
ClientWidth = 652
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Icon.Data = {
0000010001002020100000000000E80200001600000028000000200000004000
0000010004000000000080020000000000000000000000000000000000000000
000000008000008000000080800080000000800080008080000080808000C0C0
C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF009999
999999999999999999999999999994444F00F40F444444444444444444499C44
4F00F40F444444444444444444499CC44F0F0F0F444444440000004444499CCC
4F0F0F0F444440008888880044499CCCCF04F00F444008888888888804499CCC
CF00000F4008F8F8F8F8888804499CCCCF04F00F0F8F88888888800004499CCC
CF0F0040F8F8F8F8F800078804499CCCCCF0040F8F888F880077787804499CCC
CCCFC0F8F8F8F8F00787878044499CCCCCCC0F8F8F8F80070878788044499CCC
CCC0F8F8F8F807770787880444499CCCCCC0FFFF8F8077780878780444499CCC
CC08F8F8F80F77870787804444499CCCCC0FFF8F80F0F7780878044444499CCC
C0F8F8F8078F0F870787044444499CCCC0FF8FF07777F0F80880444444499CCC
C0F8F8F077878F0F0804444444499CCC0FFFFF07777878F00044444444499CCC
0FF8F000000000000F4F444444499CCC0FFFF07778787880F0F0F44444499CCC
0FF807878787870CCF00F44444499CCC0FFF0778787870CCF000F44444499CCC
0FF8078787800CCCCFFF0F4444499CCC0FF07878780CCCCCCCCCFF4444499CCC
C0F0777700CCCCCCCCCCCC4444499CCCC0F07700CCCCCCCCCCCCCCC444499CCC
CC0000CCCCCCCCCCCCCCCCCC44499CCCCCCCCCCCCCCCCCCCCCCCCCCCC4499CCC
CCCCCCCCCCCCCCCCCCCCCCCCCC49999999999999999999999999999999990000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000000000000000000000000000}
OldCreateOrder = False
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object Label4: TLabel
Left = 0
Top = 72
Width = 60
Height = 13
Caption = #35797#39064#20869#23481#65306
end
object SpeedButton1: TSpeedButton
Left = 24
Top = 464
Width = 65
Height = 25
Caption = #22686#21152#35797#39064
OnClick = SpeedButton1Click
end
object SpeedButton2: TSpeedButton
Left = 120
Top = 464
Width = 65
Height = 25
Caption = #39064#24211#31649#29702
OnClick = SpeedButton2Click
end
object c: TSpeedButton
Left = 220
Top = 464
Width = 65
Height = 25
Caption = #20851' '#38381
OnClick = cClick
end
object Panel1: TPanel
Left = 0
Top = 0
Width = 649
Height = 65
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 = 16
Width = 39
Height = 13
Caption = #20998' '#20540#65306
end
object Label3: TLabel
Left = 432
Top = 24
Width = 39
Height = 13
Caption = #39064' '#22411#65306
end
object cb2: TComboBox
Left = 272
Top = 16
Width = 145
Height = 21
ItemHeight = 13
ItemIndex = 0
TabOrder = 0
Text = '1'
Items.Strings = (
'1'
'2'
'3'
'4'
'5')
end
object Cb3: TComboBox
Left = 472
Top = 16
Width = 145
Height = 21
ItemHeight = 13
ItemIndex = 0
TabOrder = 1
Text = #21333#36873#39064
OnClick = Cb3Click
Items.Strings = (
#21333#36873#39064
#22810#36873#39064)
end
object cb1: TComboBox
Left = 72
Top = 16
Width = 145
Height = 21
ItemHeight = 13
TabOrder = 2
end
end
object Panel2: TPanel
Left = 0
Top = 336
Width = 649
Height = 113
BorderStyle = bsSingle
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 1
object r1: TRadioButton
Left = 8
Top = 8
Width = 33
Height = 17
Caption = 'A'
TabOrder = 0
end
object r2: TRadioButton
Left = 370
Top = 8
Width = 41
Height = 17
Caption = 'B'
TabOrder = 1
end
object R3: TRadioButton
Left = 8
Top = 40
Width = 41
Height = 17
Caption = 'C'
TabOrder = 2
end
object r4: TRadioButton
Left = 370
Top = 40
Width = 41
Height = 17
Caption = 'D'
TabOrder = 3
end
object R5: TRadioButton
Left = 8
Top = 72
Width = 41
Height = 17
Caption = 'E'
TabOrder = 4
end
object R6: TRadioButton
Left = 370
Top = 72
Width = 49
Height = 17
Caption = 'F'
TabOrder = 5
end
object Edit1: TEdit
Left = 56
Top = 8
Width = 200
Height = 21
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 6
end
object Edit2: TEdit
Left = 410
Top = 8
Width = 200
Height = 21
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 7
end
object Edit3: TEdit
Left = 56
Top = 40
Width = 200
Height = 21
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 8
end
object Edit4: TEdit
Left = 410
Top = 40
Width = 200
Height = 21
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 9
end
object Edit5: TEdit
Left = 56
Top = 72
Width = 200
Height = 21
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 10
end
object Edit6: TEdit
Left = 410
Top = 72
Width = 200
Height = 21
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 11
end
object c1: TCheckBox
Left = 8
Top = 8
Width = 41
Height = 17
Caption = 'A'
TabOrder = 12
end
object c2: TCheckBox
Left = 370
Top = 8
Width = 33
Height = 17
Caption = 'B'
TabOrder = 13
end
object c3: TCheckBox
Left = 8
Top = 40
Width = 41
Height = 17
Caption = 'C'
TabOrder = 14
end
object c4: TCheckBox
Left = 370
Top = 40
Width = 33
Height = 17
Caption = 'D'
TabOrder = 15
end
object c5: TCheckBox
Left = 8
Top = 72
Width = 41
Height = 17
Caption = 'E'
TabOrder = 16
end
object c6: TCheckBox
Left = 370
Top = 72
Width = 37
Height = 17
Caption = 'F'
TabOrder = 17
end
end
object memo1: TMemo
Left = 0
Top = 88
Width = 649
Height = 233
TabOrder = 2
end
object q7: TADOQuery
Connection = Form2.ADOConnection1
Parameters =
Left = 16
Top = 48
end
end
