📄 unit9.dfm
字号:
object Form9: TForm9
Left = 249
Top = 113
Width = 504
Height = 373
Caption = #22521#35757#35780#20272#31649#29702
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Menu = MainMenu1
OldCreateOrder = False
OnActivate = FormActivate
PixelsPerInch = 96
TextHeight = 13
object DBGrid3: TDBGrid
Left = 0
Top = 6
Width = 265
Height = 307
DataSource = DataSource1
ReadOnly = True
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = #25104#32489#32534#21495
Visible = True
end
item
Expanded = False
FieldName = #22521#35757#32534#21495
Visible = True
end
item
Expanded = False
FieldName = #21592#24037#21495
Visible = True
end
item
Expanded = False
FieldName = #22521#35757#25104#32489
Visible = True
end>
end
object DBEdit1: TDBEdit
Left = 128
Top = 224
Width = 121
Height = 21
DataField = #32489#25928#25104#32489
DataSource = DataSource2
TabOrder = 1
Visible = False
end
object DBEdit2: TDBEdit
Left = 144
Top = 80
Width = 121
Height = 21
DataField = #21592#24037#21495
DataSource = DataSource1
TabOrder = 2
Visible = False
end
object GroupBox3: TGroupBox
Left = 272
Top = 2
Width = 215
Height = 193
Caption = #26597#35810
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -21
Font.Name = #21326#25991#34892#26999
Font.Style = []
ParentFont = False
TabOrder = 3
object Label10: TLabel
Left = 65
Top = 18
Width = 84
Height = 22
Caption = #22521#35757#32534#21495
end
object Label1: TLabel
Left = 76
Top = 108
Width = 63
Height = 22
Caption = #21592#24037#21495
end
object Edit1: TEdit
Left = 48
Top = 56
Width = 121
Height = 30
TabOrder = 0
end
object Edit2: TEdit
Left = 48
Top = 144
Width = 121
Height = 30
TabOrder = 1
end
end
object GroupBox1: TGroupBox
Left = 272
Top = 196
Width = 215
Height = 121
Caption = #35780#20272
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -21
Font.Name = #21326#25991#34892#26999
Font.Style = []
ParentFont = False
TabOrder = 4
object Label2: TLabel
Left = 65
Top = 26
Width = 84
Height = 22
Caption = #22521#35757#25104#32489
end
object DBEdit3: TDBEdit
Left = 48
Top = 64
Width = 121
Height = 30
DataField = #22521#35757#25104#32489
DataSource = DataSource1
TabOrder = 0
end
end
object ADOConnection1: TADOConnection
Connected = True
ConnectionString =
'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security In' +
'fo=False;Initial Catalog=it'
LoginPrompt = False
Provider = 'SQLOLEDB.1'
Left = 24
Top = 120
end
object ADOTable1: TADOTable
Connection = ADOConnection1
TableName = #22521#35757#25104#32489
Left = 64
Top = 144
object ADOTable1DSDesigner: TIntegerField
FieldName = #25104#32489#32534#21495
end
object ADOTable1DSDesigner2: TIntegerField
FieldName = #22521#35757#32534#21495
end
object ADOTable1DSDesigner3: TStringField
FieldName = #21592#24037#21495
FixedChar = True
Size = 5
end
object ADOTable1DSDesigner4: TIntegerField
FieldName = #22521#35757#25104#32489
end
end
object MainMenu1: TMainMenu
Left = 120
Top = 120
object N1: TMenuItem
Caption = #35780#20272
OnClick = N1Click
end
object N4: TMenuItem
Caption = #30830#23450
OnClick = N4Click
end
object N5: TMenuItem
Caption = #21462#28040
OnClick = N5Click
end
object N2: TMenuItem
Caption = #26597#35810
OnClick = N2Click
end
object N6: TMenuItem
Caption = #21462#28040#26597#35810
OnClick = N6Click
end
object N3: TMenuItem
Caption = #36864#20986
OnClick = N3Click
end
end
object DataSource1: TDataSource
DataSet = ADOTable1
Left = 104
Top = 160
end
object ADOTable2: TADOTable
Connection = ADOConnection1
IndexFieldNames = #21592#24037#21495
TableName = #32489#25928
Left = 64
Top = 216
end
object DataSource2: TDataSource
DataSet = ADOTable2
Left = 104
Top = 216
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -