📄 unit3.dfm
字号:
object Form3: TForm3
Left = 239
Top = 175
Width = 549
Height = 342
BorderIcons = [biSystemMenu]
Caption = #31185#23460#20449#24687
Color = clBtnFace
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
Menu = MainMenu1
OldCreateOrder = False
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 12
object Panel1: TPanel
Left = 0
Top = 0
Width = 540
Height = 193
BevelInner = bvLowered
TabOrder = 0
object Label1: TLabel
Left = 200
Top = 10
Width = 24
Height = 12
Caption = #31185#23460
end
object DBGrid1: TDBGrid
Left = 0
Top = 31
Width = 537
Height = 162
DataSource = DataSource2
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
TabOrder = 0
TitleFont.Charset = ANSI_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -12
TitleFont.Name = #23435#20307
TitleFont.Style = []
end
object DBLookupComboBox1: TDBLookupComboBox
Left = 234
Top = 6
Width = 145
Height = 20
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
KeyField = #32534#21495
ListField = #21517#31216
ListSource = DataSource1
TabOrder = 1
OnClick = DBLookupComboBox1Click
end
end
object Panel2: TPanel
Left = 0
Top = 193
Width = 540
Height = 96
BevelInner = bvLowered
TabOrder = 1
object Label2: TLabel
Left = 64
Top = 14
Width = 24
Height = 12
Caption = #32534#21495
end
object Label3: TLabel
Left = 208
Top = 15
Width = 48
Height = 12
Caption = #31185#23460#21517#31216
end
object Label4: TLabel
Left = 401
Top = 11
Width = 24
Height = 12
Caption = #21307#29983
end
object Label5: TLabel
Left = 40
Top = 39
Width = 48
Height = 12
Caption = #20837#32844#26102#38388
end
object Label6: TLabel
Left = 230
Top = 39
Width = 24
Height = 12
Caption = #32844#31216
end
object DBEdit1: TDBEdit
Left = 96
Top = 10
Width = 98
Height = 20
DataField = #32534#21495
DataSource = DataSource1
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
TabOrder = 0
end
object DBEdit2: TDBEdit
Left = 97
Top = 35
Width = 97
Height = 20
DataField = #20837#32844#26085#26399
DataSource = DataSource2
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
TabOrder = 1
end
object DBEdit3: TDBEdit
Left = 265
Top = 10
Width = 111
Height = 20
DataField = #21517#31216
DataSource = DataSource1
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
TabOrder = 2
end
object DBEdit4: TDBEdit
Left = 264
Top = 37
Width = 113
Height = 20
DataField = #32844#31216
DataSource = DataSource2
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
TabOrder = 3
end
object DBEdit5: TDBEdit
Left = 432
Top = 9
Width = 98
Height = 20
DataField = #22995#21517
DataSource = DataSource2
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
TabOrder = 4
end
end
object MainMenu1: TMainMenu
Left = 304
Top = 72
object N1: TMenuItem
Caption = #36864#20986
OnClick = N1Click
end
end
object ADOTable1: TADOTable
Active = True
Connection = ADOConnection1
CursorType = ctStatic
TableName = #31185#23460#36164#26009
Left = 216
Top = 72
end
object DataSource1: TDataSource
DataSet = ADOTable1
Left = 264
Top = 72
end
object ADOConnection1: TADOConnection
Connected = True
ConnectionString =
'Provider=Microsoft.Jet.OLEDB.4.0;Password="";Data Source='#21307#30103#20449#24687#26597#35810#31995 +
#32479'.mdb;Persist Security Info=True'
LoginPrompt = False
Mode = cmShareDenyNone
Provider = 'Microsoft.Jet.OLEDB.4.0'
Left = 176
Top = 72
end
object ADOTable2: TADOTable
Active = True
Connection = ADOConnection1
CursorType = ctStatic
TableName = #21307#29983#36164#26009
Left = 216
Top = 120
end
object DataSource2: TDataSource
DataSet = ADOTable2
Left = 264
Top = 120
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -