📄 unit1.~dfm
字号:
object Form1: TForm1
Left = 321
Top = 203
Width = 434
Height = 327
Caption = 'EjunSoft '#24518#21531#36719#20214' http://www.ejun.cn'
Color = clBtnFace
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
OldCreateOrder = False
OnCreate = FormCreate
DesignSize = (
426
293)
PixelsPerInch = 96
TextHeight = 12
object ComboBox1: TComboBox
Left = 88
Top = 232
Width = 145
Height = 20
ItemHeight = 12
TabOrder = 0
Text = 'ComboBox1'
Visible = False
Items.Strings = (
#24191#24030
#22825#27941
#19978#28023
#20848#24030
#27494#27721
#31119#24314
#19978#28023#28393
#29645#29664#28207
#22799#23041#22839
#24191#23433
#19978#20914
#31119#24030
#22825#23433#38376)
end
object GroupBox1: TGroupBox
Left = 16
Top = 16
Width = 398
Height = 260
Anchors = [akLeft, akTop, akRight, akBottom]
Caption = #25340#38899#33258#21160#23436#25104#36755#20837'EjunPYComboBox'#28436#31034
TabOrder = 1
object Label1: TLabel
Left = 8
Top = 240
Width = 150
Height = 12
Caption = #27880#20876#65306' http://www.ejun.cn'
Font.Charset = ANSI_CHARSET
Font.Color = clBlue
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
OnClick = Label1Click
OnMouseEnter = Label1MouseEnter
OnMouseLeave = Label1MouseLeave
end
object Label2: TLabel
Left = 16
Top = 40
Width = 288
Height = 12
Caption = #35831#22312'ComboBox'#20013#36755#20837#19979#34920#20013#20013#25991#21517#31216#30340#27721#35821#25340#38899#39318#23383#30446
end
object DBGrid1: TDBGrid
Left = 8
Top = 104
Width = 369
Height = 120
DataSource = DataSource1
TabOrder = 0
TitleFont.Charset = ANSI_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -12
TitleFont.Name = #23435#20307
TitleFont.Style = []
end
object DBPYComboBox1: TDBPYComboBox
Left = 56
Top = 64
Width = 145
Height = 20
ItemHeight = 12
TabOrder = 1
DataSource = DataSource1
DataField = 'name'
end
end
object ADOConnection1: TADOConnection
Connected = True
ConnectionString =
'Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=E:\De' +
'lphiProject\PYComboBox\Bin\data2.mdb;Mode=Share Deny None;Extend' +
'ed Properties="";Persist Security Info=False;Jet OLEDB:System da' +
'tabase="";Jet OLEDB:Registry Path="";Jet OLEDB:Database Password' +
'="";Jet OLEDB:Engine Type=5;Jet OLEDB:Database Locking Mode=1;Je' +
't OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transact' +
'ions=1;Jet OLEDB:New Database Password="";Jet OLEDB:Create Syste' +
'm Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don'#39 +
't Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica' +
' Repair=False;Jet OLEDB:SFP=False'
LoginPrompt = False
Mode = cmShareDenyNone
Provider = 'Microsoft.Jet.OLEDB.4.0'
Left = 64
Top = 24
end
object ADOTable1: TADOTable
Connection = ADOConnection1
CursorType = ctStatic
TableName = 'product'
Left = 104
Top = 24
end
object DataSource1: TDataSource
DataSet = ADOTable1
Left = 144
Top = 24
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -