📄 table.dfm
字号:
Height = 13
Caption = #30456#29255' '
FocusControl = DBImage1
end
object Label18: TLabel
Left = 8
Top = 120
Width = 24
Height = 13
Caption = #22791#27880
FocusControl = DBMemo1
end
object DBImage1: TDBImage
Left = 8
Top = 24
Width = 105
Height = 89
DataField = #30456#29255
DataSource = DataSource1
Stretch = True
TabOrder = 0
OnClick = DBImage1Click
end
object DBMemo1: TDBMemo
Left = 2
Top = 135
Width = 111
Height = 114
Align = alCustom
DataField = #22791#27880
DataSource = DataSource1
ImeName = #32043#20809#25340#38899#36755#20837#27861
ScrollBars = ssBoth
TabOrder = 1
end
end
end
object TabSheet2: TTabSheet
Caption = #20840#37096#35760#24405
ImageIndex = 1
object DBGrid1: TDBGrid
Left = 0
Top = 0
Width = 665
Height = 422
Align = alClient
DataSource = DataSource1
ImeName = #32043#20809#25340#38899#36755#20837#27861
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 = #22995#21517
Visible = True
end
item
Expanded = False
FieldName = #24615#21035
Width = 60
Visible = True
end
item
Expanded = False
FieldName = #20303#22336
Visible = True
end
item
Expanded = False
FieldName = #20986#29983#26085#26399
Visible = True
end
item
Expanded = False
FieldName = #25152#23646#20998#32452
Visible = True
end
item
Expanded = False
FieldName = #23478#24237#30005#35805
Visible = True
end
item
Expanded = False
FieldName = 'E-Mail'
Visible = True
end
item
Expanded = False
FieldName = 'QQ'
Visible = True
end
item
Expanded = False
FieldName = 'ICQ'
Visible = True
end
item
Expanded = False
FieldName = 'MSN'
Visible = True
end
item
Expanded = False
FieldName = #20027#39029
Visible = True
end
item
Expanded = False
FieldName = #25163#26426
Visible = True
end
item
Expanded = False
FieldName = #21333#20301#30005#35805
Visible = True
end
item
Expanded = False
FieldName = #37038#32534
Visible = True
end
item
Expanded = False
FieldName = #20256#30495
Visible = True
end
item
Expanded = False
FieldName = #30456#29255
Visible = True
end
item
Expanded = False
FieldName = #22791#27880
Visible = True
end>
end
end
end
object GroupBox5: TGroupBox
Left = 680
Top = 16
Width = 129
Height = 105
Caption = #20449#24687
TabOrder = 1
object Label19: TLabel
Left = 80
Top = 24
Width = 38
Height = 13
Caption = 'Label19'
end
object Label20: TLabel
Left = 80
Top = 48
Width = 38
Height = 13
Caption = 'Label20'
end
object Label21: TLabel
Left = 8
Top = 24
Width = 63
Height = 13
Caption = #24403#21069#35760#24405': '
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsUnderline]
ParentFont = False
end
object Label22: TLabel
Left = 8
Top = 48
Width = 66
Height = 13
Caption = #24635#20849#35760#24405': '
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsUnderline]
ParentFont = False
end
end
object GroupBox6: TGroupBox
Left = 680
Top = 128
Width = 129
Height = 305
Caption = #25968#25454#25805#20316
TabOrder = 2
object Button1: TButton
Left = 24
Top = 16
Width = 75
Height = 25
Action = DataSetFirst1
Caption = #31532#19968#26465
TabOrder = 0
end
object Button2: TButton
Left = 24
Top = 48
Width = 75
Height = 25
Action = DataSetPrior1
Caption = #21069#19968#26465
TabOrder = 1
end
object Button3: TButton
Left = 24
Top = 80
Width = 75
Height = 25
Action = DataSetNext1
Caption = #19979#19968#26465
TabOrder = 2
end
object Button4: TButton
Left = 24
Top = 112
Width = 75
Height = 25
Action = DataSetLast1
Caption = #26368#21518#19968#26465
TabOrder = 3
end
object Button5: TButton
Left = 24
Top = 144
Width = 75
Height = 25
Action = DataSetInsert1
Caption = #25554#20837
TabOrder = 4
end
object Button6: TButton
Left = 24
Top = 176
Width = 75
Height = 25
Action = DataSetDelete1
Caption = #21024#38500
TabOrder = 5
end
object Button7: TButton
Left = 24
Top = 208
Width = 75
Height = 25
Action = DataSetPost1
Caption = #20445#23384
TabOrder = 6
end
object Button8: TButton
Left = 24
Top = 240
Width = 75
Height = 25
Action = DataSetCancel1
Caption = #21462#28040
TabOrder = 7
end
object Button9: TButton
Left = 24
Top = 272
Width = 75
Height = 25
Action = DataSetRefresh1
Caption = #21047#26032
TabOrder = 8
end
end
object ADOConnection1: TADOConnection
Connected = True
ConnectionString =
'Provider=SQLOLEDB.1;Password=sa;Persist Security Info=True;User ' +
'ID=sa;Initial Catalog=rsgl;Data Source=.;Use Procedure for Prepa' +
're=1;Auto Translate=True;Packet Size=4096;Workstation ID=LZH;Use' +
' Encryption for Data=False;Tag with column collation when possib' +
'le=False'
LoginPrompt = False
Mode = cmShareDenyNone
Provider = 'SQLOLEDB.1'
Left = 400
Top = 256
end
object ADOTable1: TADOTable
Active = True
Connection = ADOConnection1
CursorType = ctStatic
TableName = 'txl'
Left = 428
Top = 256
object ADOTable1DSDesigner2: TWideStringField
FieldName = #24615#21035
Size = 50
end
object ADOTable1DSDesigner3: TWideStringField
FieldName = #20303#22336
Size = 30
end
object ADOTable1DSDesigner4: TDateTimeField
FieldName = #20986#29983#26085#26399
end
object ADOTable1DSDesigner5: TWideStringField
FieldName = #25152#23646#20998#32452
Size = 50
end
object ADOTable1DSDesigner6: TWideStringField
FieldName = #23478#24237#30005#35805
end
object ADOTable1EMail: TWideStringField
FieldName = 'E-Mail'
Size = 25
end
object ADOTable1QQ: TWideStringField
FieldName = 'QQ'
Size = 50
end
object ADOTable1ICQ: TWideStringField
FieldName = 'ICQ'
Size = 50
end
object ADOTable1MSN: TWideStringField
FieldName = 'MSN'
Size = 50
end
object ADOTable1DSDesigner7: TWideStringField
FieldName = #20027#39029
Size = 50
end
object ADOTable1DSDesigner8: TWideStringField
FieldName = #25163#26426
Size = 50
end
object ADOTable1DSDesigner9: TWideStringField
FieldName = #21333#20301#30005#35805
Size = 50
end
object ADOTable1DSDesigner10: TWideStringField
FieldName = #37038#32534
Size = 50
end
object ADOTable1DSDesigner11: TWideStringField
FieldName = #20256#30495
Size = 50
end
object ADOTable1DSDesigner12: TBlobField
FieldName = #30456#29255
end
object ADOTable1DSDesigner13: TMemoField
FieldName = #22791#27880
BlobType = ftMemo
end
object ADOTable1DSDesigner: TWideStringField
FieldName = #22995#21517
end
object ADOTable1DSDesigner14: TWideStringField
FieldName = #25152#23646#37096#38376
Size = 50
end
object ADOTable1DSDesigner15: TStringField
FieldName = #23398#21382
end
object ADOTable1DSDesigner16: TStringField
FieldName = #23130#23035#29366#20917
end
object ADOTable1DSDesigner17: TStringField
FieldName = #25152#22312#23703#20301
end
end
object DataSource1: TDataSource
DataSet = ADOTable1
OnDataChange = DataSource1DataChange
Left = 344
Top = 256
end
object ActionList1: TActionList
Left = 456
Top = 256
object DataSetFirst1: TDataSetFirst
Category = 'Dataset'
Caption = 'DataSetFirst1'
end
object DataSetPrior1: TDataSetPrior
Category = 'Dataset'
Caption = 'DataSetPrior1'
end
object DataSetNext1: TDataSetNext
Category = 'Dataset'
Caption = 'DataSetNext1'
end
object DataSetLast1: TDataSetLast
Category = 'Dataset'
Caption = 'DataSetLast1'
end
object DataSetInsert1: TDataSetInsert
Category = 'Dataset'
Caption = 'DataSetInsert1'
end
object DataSetDelete1: TDataSetDelete
Category = 'Dataset'
Caption = 'DataSetDelete1'
end
object DataSetPost1: TDataSetPost
Category = 'Dataset'
Caption = 'DataSetPost1'
end
object DataSetCancel1: TDataSetCancel
Category = 'Dataset'
Caption = 'DataSetCancel1'
end
object DataSetRefresh1: TDataSetRefresh
Category = 'Dataset'
Caption = 'DataSetRefresh1'
end
end
object OpenPictureDialog1: TOpenPictureDialog
Left = 484
Top = 256
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -