📄 unit12.dfm
字号:
object Form12: TForm12
Left = 241
Top = 126
Width = 847
Height = 343
Caption = #34218#37228#20307#31995#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 DBGrid1: TDBGrid
Left = 0
Top = 0
Width = 497
Height = 281
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 = #21592#24037#21495
Visible = True
end
item
Expanded = False
FieldName = #22995#21517
Visible = True
end
item
Expanded = False
FieldName = #37096#38376#21495
Visible = True
end
item
Expanded = False
FieldName = #37096#38376#21517#31216
Visible = True
end
item
Expanded = False
FieldName = #32844#20301
Visible = True
end
item
Expanded = False
FieldName = #24213#34218
Visible = True
end>
end
object DBEdit3: TDBEdit
Left = 272
Top = 184
Width = 121
Height = 21
DataField = #21592#24037#21495
DataSource = DataSource1
TabOrder = 1
Visible = False
end
object DBEdit2: TDBEdit
Left = 264
Top = 136
Width = 121
Height = 21
DataField = #24213#34218
DataSource = DataSource3
TabOrder = 2
Visible = False
end
object GroupBox3: TGroupBox
Left = 504
Top = 0
Width = 329
Height = 143
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 = 25
Top = 34
Width = 63
Height = 22
Caption = #21592#24037#21495
end
object Label3: TLabel
Left = 188
Top = 92
Width = 21
Height = 22
Caption = #21040
end
object Label1: TLabel
Left = 33
Top = 90
Width = 42
Height = 22
Caption = #24213#34218
end
object Edit1: TEdit
Left = 112
Top = 32
Width = 121
Height = 30
TabOrder = 0
end
object Edit3: TEdit
Left = 232
Top = 88
Width = 57
Height = 30
TabOrder = 1
end
object Edit2: TEdit
Left = 112
Top = 88
Width = 57
Height = 30
TabOrder = 2
end
end
object GroupBox1: TGroupBox
Left = 504
Top = 149
Width = 329
Height = 132
Caption = #20462#25913
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 = 5
Height = 22
end
object Label4: TLabel
Left = 49
Top = 50
Width = 42
Height = 22
Caption = #24213#34218
end
object DBEdit1: TDBEdit
Left = 112
Top = 48
Width = 121
Height = 30
DataField = #24213#34218
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
Active = True
Connection = ADOConnection1
CursorType = ctStatic
IndexFieldNames = #37096#38376#21495
TableName = #24213#34218
Left = 64
Top = 144
object ADOTable1DSDesigner: TStringField
FieldName = #21592#24037#21495
FixedChar = True
Size = 5
end
object ADOTable1DSDesigner2: TStringField
FieldName = #37096#38376#21495
FixedChar = True
Size = 2
end
object ADOTable1DSDesigner3: TStringField
FieldName = #32844#20301
FixedChar = True
Size = 10
end
object ADOTable1DSDesigner4: TIntegerField
FieldName = #24213#34218
end
object ADOTable1Field: TStringField
FieldKind = fkLookup
FieldName = #37096#38376#21517#31216
LookupDataSet = ADOTable2
LookupKeyFields = #37096#38376#21495
LookupResultField = #37096#38376#21517#31216
KeyFields = #37096#38376#21495
Lookup = True
end
object ADOTable1Field2: TStringField
FieldKind = fkLookup
FieldName = #22995#21517
LookupDataSet = ADOTable4
LookupKeyFields = #21592#24037#21495
LookupResultField = #22995#21517
KeyFields = #21592#24037#21495
Lookup = True
end
end
object DataSource1: TDataSource
DataSet = ADOTable1
Left = 104
Top = 160
end
object MainMenu1: TMainMenu
Left = 120
Top = 120
object N1: TMenuItem
Caption = #20462#25913
OnClick = N1Click
end
object N2: TMenuItem
Caption = #30830#23450
OnClick = N2Click
end
object N3: TMenuItem
Caption = #21462#28040
OnClick = N3Click
end
object N4: TMenuItem
Caption = #26597#35810
OnClick = N4Click
end
object N6: TMenuItem
Caption = #21462#28040#26597#35810
OnClick = N6Click
end
object N5: TMenuItem
Caption = #36864#20986
OnClick = N5Click
end
end
object ADOTable2: TADOTable
Active = True
Connection = ADOConnection1
CursorType = ctStatic
IndexFieldNames = #37096#38376#21495
TableName = #21333#20301
Left = 56
Top = 216
object ADOTable2DSDesigner: TStringField
FieldName = #37096#38376#21495
FixedChar = True
Size = 2
end
object ADOTable2DSDesigner2: TStringField
FieldName = #37096#38376#21517#31216
FixedChar = True
end
object ADOTable2DSDesigner3: TStringField
FieldName = #37096#38376#36127#36131#20154
FixedChar = True
Size = 5
end
object ADOTable2DSDesigner4: TStringField
FieldName = #37096#38376#30005#35805
FixedChar = True
end
object ADOTable2DSDesigner5: TStringField
FieldName = #37096#38376#20171#32461
FixedChar = True
Size = 100
end
object ADOTable2DSDesigner6: TIntegerField
FieldName = #24212#26377#20027#31649#20154#25968
end
object ADOTable2DSDesigner7: TIntegerField
FieldName = #29616#26377#20027#31649#20154#25968
end
object ADOTable2DSDesigner8: TIntegerField
FieldName = #24212#26377#32844#21592#25968
end
object ADOTable2DSDesigner9: TIntegerField
FieldName = #29616#26377#32844#21592#25968
end
end
object DataSource2: TDataSource
DataSet = ADOTable2
Left = 96
Top = 232
end
object ADOTable4: TADOTable
Active = True
Connection = ADOConnection1
CursorType = ctStatic
TableName = #21592#24037#34920
Left = 200
Top = 224
object StringField1: TStringField
FieldName = #21592#24037#21495
FixedChar = True
Size = 5
end
object StringField2: TStringField
FieldName = #22995#21517
FixedChar = True
end
object StringField3: TStringField
FieldName = #37096#38376#21495
FixedChar = True
Size = 2
end
object StringField4: TStringField
FieldName = #24615#21035
FixedChar = True
Size = 2
end
object StringField5: TStringField
FieldName = #22269#31821
FixedChar = True
end
object StringField6: TStringField
FieldName = #20986#29983#26085#26399
FixedChar = True
Size = 10
end
object StringField7: TStringField
FieldName = #20986#29983#22320
FixedChar = True
Size = 50
end
object StringField8: TStringField
FieldName = #31821#36143
FixedChar = True
Size = 50
end
object StringField9: TStringField
FieldName = #27665#26063
FixedChar = True
end
object ADOTable2DSDesigner10: TStringField
FieldName = #36523#20221#25110#25252#29031#21495
FixedChar = True
Size = 18
end
object ADOTable2DSDesigner11: TStringField
FieldName = #25919#27835#38754#35980
FixedChar = True
end
object ADOTable2DSDesigner12: TStringField
FieldName = #23130#23035#29366#20917
FixedChar = True
Size = 4
end
object ADOTable2DSDesigner13: TStringField
FieldName = #23478#24237#20303#22336
FixedChar = True
Size = 100
end
object ADOTable2DSDesigner14: TStringField
FieldName = #23478#24237#30005#35805
FixedChar = True
end
object ADOTable2DSDesigner15: TStringField
FieldName = #31227#21160#30005#35805
FixedChar = True
Size = 11
end
object ADOTable2DSDesigner16: TStringField
FieldName = #21150#20844#30005#35805
FixedChar = True
end
object ADOTable2DSDesigner17: TStringField
FieldName = #26368#39640#23398#21382
FixedChar = True
end
object ADOTable2DSDesigner18: TStringField
FieldName = #27605#19994#23398#26657
FixedChar = True
Size = 100
end
object ADOTable2DSDesigner19: TStringField
FieldName = #24037#20316#29366#24577
FixedChar = True
end
object ADOTable2DSDesigner20: TStringField
FieldName = #32844#20301
FixedChar = True
Size = 10
end
object ADOTable2DSDesigner21: TStringField
FieldName = #29992#24037#24418#24335
FixedChar = True
end
object ADOTable2DSDesigner22: TStringField
FieldName = #29992#24037#26399#38480
FixedChar = True
Size = 10
end
object ADOTable2DSDesigner23: TStringField
FieldName = #21152#20837#26102#38388
FixedChar = True
Size = 10
end
object ADOTable2DSDesigner24: TStringField
FieldName = #36716#27491#26102#38388
FixedChar = True
Size = 10
end
object ADOTable2DSDesigner25: TStringField
FieldName = #26032#36827#20154#21592#26631#24535
FixedChar = True
Size = 2
end
end
object DataSource4: TDataSource
DataSet = ADOTable1
Left = 240
Top = 240
end
object DataSource3: TDataSource
DataSet = ADOTable3
Left = 248
Top = 192
end
object ADOTable3: TADOTable
Active = True
Connection = ADOConnection1
CursorType = ctStatic
IndexFieldNames = #21592#24037#21495
TableName = #34218#37228
Left = 208
Top = 176
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -