📄 unit12.dfm
字号:
object Form_vist_out: TForm_vist_out
Left = 221
Top = 112
Width = 696
Height = 480
BorderIcons = [biSystemMenu, biMinimize]
Caption = #20986#27004#30331#35760
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
object Label1: TLabel
Left = 71
Top = 32
Width = 210
Height = 24
Caption = #23578#26410#20986#27004#30340#26469#35775#20154#65306' '
Font.Charset = DEFAULT_CHARSET
Font.Color = clMaroon
Font.Height = -19
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object DBGrid1: TDBGrid
Left = 47
Top = 75
Width = 601
Height = 252
DataSource = DataSource1
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
OnDblClick = Button1Click
Columns = <
item
Expanded = False
FieldName = 'visitor_name'
Title.Caption = #35775#23458#22995#21517
Width = 76
Visible = True
end
item
Expanded = False
FieldName = 'host_name'
Title.Caption = #34987#35775#20154#22995#21517
Width = 68
Visible = True
end
item
Expanded = False
FieldName = 'host_room'
Title.Caption = #34987#35775#20154#23517#23460#21495
Visible = True
end
item
Expanded = False
FieldName = 'relation'
Title.Caption = #19982#34987#35775#20154#30340#20851#31995
Visible = True
end
item
Expanded = False
FieldName = 'time_in'
Title.Caption = #26469#35775#26102#38388
Width = 92
Visible = True
end
item
Expanded = False
FieldName = 'time_out'
Title.Caption = #20986#27004#26102#38388
Width = 97
Visible = True
end
item
Expanded = False
FieldName = 'certificate'
Title.Caption = #35777#20214#21517#31216
Visible = True
end
item
Expanded = False
FieldName = 'remark'
Title.Caption = #22791#27880
Width = 259
Visible = True
end>
end
object Button1: TButton
Left = 318
Top = 382
Width = 75
Height = 25
Caption = #30331#35760#20986#27004
TabOrder = 1
OnClick = Button1Click
end
object Button2: TButton
Left = 462
Top = 382
Width = 75
Height = 25
Caption = #21462' '#28040
TabOrder = 2
OnClick = Button2Click
end
object DataSource1: TDataSource
DataSet = Table1
Left = 32
Top = 344
end
object Table1: TTable
Active = True
DatabaseName = 'main'
Filter = 'is_out=0'
Filtered = True
FieldDefs = <
item
Name = 'id'
Attributes = [faRequired]
DataType = ftInteger
end
item
Name = 'visitor_name'
Attributes = [faFixed]
DataType = ftString
Size = 20
end
item
Name = 'host_name'
Attributes = [faFixed]
DataType = ftString
Size = 20
end
item
Name = 'host_room'
Attributes = [faFixed]
DataType = ftString
Size = 10
end
item
Name = 'relation'
Attributes = [faFixed]
DataType = ftString
Size = 14
end
item
Name = 'time_in'
Attributes = [faFixed]
DataType = ftString
Size = 20
end
item
Name = 'time_out'
Attributes = [faFixed]
DataType = ftString
Size = 20
end
item
Name = 'watch'
Attributes = [faFixed]
DataType = ftString
Size = 20
end
item
Name = 'certificate'
Attributes = [faFixed]
DataType = ftString
Size = 14
end
item
Name = 'remark'
DataType = ftString
Size = 50
end
item
Name = 'is_out'
DataType = ftBoolean
end>
StoreDefs = True
TableName = 'dbo.vist_log'
Left = 96
Top = 360
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -