📄 u_main.~dfm
字号:
Hints.Strings = (
#39318#35760#24405
#19978#19968#35760#24405
#19979#19968#35760#24405
#26411#35760#24405
#25554#20837#35760#24405
#21024#38500#35760#24405
#32534#36753#35760#24405
#20445#23384#35760#24405
#21462#28040#20445#23384
#21047#26032#35760#24405)
ParentCtl3D = False
ParentShowHint = False
ConfirmDelete = False
ShowHint = True
TabOrder = 0
OnClick = DBNavigator1Click
end
end
object Panel1: TPanel
Left = 616
Top = 504
Width = 153
Height = 17
Caption = 'Panel1'
TabOrder = 2
Visible = False
object Btn_xzst: TButton
Left = 38
Top = 40
Width = 75
Height = 25
Caption = #36873#25321#35797#39064
TabOrder = 0
Visible = False
OnClick = Btn_xzstClick
end
object Btn_charu: TButton
Left = 38
Top = 64
Width = 75
Height = 25
Caption = #25554#20837#35797#39064
TabOrder = 1
Visible = False
OnClick = Btn_charuClick
end
object Button1: TButton
Left = 38
Top = 96
Width = 75
Height = 25
Caption = #36816#34892
TabOrder = 2
Visible = False
OnClick = Button1Click
end
object Btn_Pic: TButton
Left = 46
Top = 16
Width = 75
Height = 25
Caption = 'Btn_Pic'
TabOrder = 3
Visible = False
OnClick = Btn_PicClick
end
object Btn_A2B2: TButton
Left = 24
Top = 176
Width = 113
Height = 25
Caption = 'A2'#12289'B2'
TabOrder = 4
Visible = False
OnClick = Btn_A2B2Click
end
object Btn_C14: TButton
Left = 32
Top = 152
Width = 137
Height = 25
Caption = 'C1'#12289'C2'#12289'C3'#12289'C4'
TabOrder = 5
Visible = False
OnClick = Btn_C14Click
end
object Btn_M: TButton
Left = 46
Top = 128
Width = 75
Height = 25
Caption = 'Btn_M'
TabOrder = 6
Visible = False
OnClick = Btn_MClick
end
object CbB_ID: TComboBox
Left = 160
Top = 88
Width = 145
Height = 22
Style = csDropDownList
ItemHeight = 14
TabOrder = 7
Visible = False
end
object CbB_YxID: TComboBox
Left = 168
Top = 112
Width = 145
Height = 22
Style = csDropDownList
ItemHeight = 14
TabOrder = 8
Visible = False
end
end
object BtnEnd: TPDJXPButton
Left = 144
Top = 512
Width = 113
Height = 41
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = #23435#20307
Font.Style = [fsBold]
Caption = #20132#21367
ParentFont = False
TabOrder = 3
OnClick = BtnEndClick
end
object Btn_Exit: TPDJXPButton
Left = 260
Top = 512
Width = 113
Height = 41
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = #23435#20307
Font.Style = [fsBold]
Caption = #36864#20986
ParentFont = False
TabOrder = 4
OnClick = Btn_ExitClick
end
object DBMemo1: TPDJXPDBMemo
Left = 152
Top = 32
Width = 409
Height = 217
DataField = 'strQuestion'
ReadOnly = True
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 5
end
object DBGrid2: TPDJXPDBGrid
Left = 16
Top = 16
Width = 121
Height = 537
DataSource = DsTest
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -20
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 6
TitleFont.Charset = ANSI_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -14
TitleFont.Name = #23435#20307
TitleFont.Style = []
OnDrawColumnCell = DBGrid2DrawColumnCell
Columns = <
item
Alignment = taCenter
Expanded = False
FieldName = 'ID'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = #23435#20307
Font.Style = [fsBold]
ReadOnly = True
Title.Alignment = taCenter
Title.Caption = #39064#30446#32534#21495
Width = 90
Visible = True
end>
end
object Panel2: TPanel
Left = 18
Top = 560
Width = 359
Height = 27
Alignment = taLeftJustify
BevelOuter = bvNone
Caption = #20132#35686#20415#27665#26381#21153#32593' http://www.fuwuabc.cn COPYRIGHT2008'
Color = 14085111
Ctl3D = False
Font.Charset = ANSI_CHARSET
Font.Color = clHotLight
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentCtl3D = False
ParentFont = False
TabOrder = 7
end
object ADOConnection1: TADOConnection
ConnectionString =
'Provider=Microsoft.Jet.OLEDB.4.0;Password="";User ID=Admin;Data ' +
'Source=Exam.MDB;Mode=Share Deny None;Extended Properties="";Pers' +
'ist Security Info=True;Jet OLEDB:System database="";Jet OLEDB:Re' +
'gistry Path="";Jet OLEDB:Database Password="";Jet OLEDB:Engine T' +
'ype=5;Jet OLEDB:Database Locking Mode=1;Jet OLEDB:Global Partial' +
' Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New D' +
'atabase Password="";Jet OLEDB:Create System Database=False;Jet O' +
'LEDB:Encrypt Database=False;Jet OLEDB:Don'#39't Copy Locale on Compa' +
'ct=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLED' +
'B:SFP=False'
KeepConnection = False
LoginPrompt = False
Provider = 'Microsoft.Jet.OLEDB.4.0'
Left = 88
Top = 16
end
object ADOQuery1: TADOQuery
Connection = ADOConnection1
CursorType = ctStatic
BeforeScroll = ADOQuery1BeforeScroll
AfterScroll = ADOQuery1AfterScroll
Parameters = <>
SQL.Strings = (
'select * from ExamInfo order by ID')
Left = 40
Top = 88
end
object DsTest: TDataSource
DataSet = ADOQuery1
Left = 80
Top = 112
end
object ADOQuery2: TADOQuery
Connection = ADOConnection1
Parameters = <>
Left = 24
Top = 136
end
object Timer1: TTimer
Enabled = False
Interval = 45000
OnTimer = Timer1Timer
Left = 336
Top = 40
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -