?? c_tdtf.dfm
字號:
inherited TdtfForm: TTdtfForm
Left = 181
Top = 88
Width = 518
Height = 438
Caption = #32467#24080
OldCreateOrder = True
PixelsPerInch = 96
TextHeight = 12
inherited Panel1: TPanel
Width = 510
Height = 101
Font.Name = 'System'
Font.Style = [fsBold]
ParentFont = False
object Bevel2: TBevel [0]
Left = 8
Top = 40
Width = 497
Height = 56
Shape = bsFrame
end
inherited lblTitile: TLabel
Left = 194
Width = 125
Caption = #22242#38431#36864#25151
end
inherited Image1: TImage
Left = 160
end
object Label2: TLabel
Left = 294
Top = 48
Width = 64
Height = 16
Caption = #36864#25151#26085#26399
end
object Label3: TLabel
Left = 395
Top = 48
Width = 64
Height = 16
Caption = #36864#25151#26102#38388
end
object edtJzrq: TMaskEdit
Left = 294
Top = 64
Width = 99
Height = 24
EditMask = '!0000/99/99;1; '
MaxLength = 10
TabOrder = 0
Text = ' - - '
OnExit = edtJzrqExit
end
object edtJzsj: TMaskEdit
Left = 395
Top = 64
Width = 100
Height = 24
EditMask = '!90:00;1; '
MaxLength = 5
TabOrder = 1
Text = ' : '
OnExit = edtJzsjExit
end
object edtTdmc: TLabeledEdit
Left = 14
Top = 64
Width = 267
Height = 24
EditLabel.Width = 64
EditLabel.Height = 16
EditLabel.Caption = #22242#38431#21517#31216
LabelPosition = lpAbove
LabelSpacing = 3
ReadOnly = True
TabOrder = 2
end
end
inherited Panel2: TPanel
Top = 101
Width = 510
Height = 275
Font.Name = 'System'
Font.Style = [fsBold]
ParentFont = False
inherited Bevel1: TBevel
Width = 500
Height = 265
end
object ListView1: TListView
Left = 5
Top = 5
Width = 500
Height = 265
Align = alClient
Checkboxes = True
Columns = <
item
AutoSize = True
Caption = #25151#38388#21495
end>
ReadOnly = True
SortType = stText
TabOrder = 0
ViewStyle = vsList
end
end
inherited Panel3: TPanel
Top = 376
Width = 510
inherited btnOK: TBitBtn
Left = 350
OnClick = btnOKClick
end
inherited btnCanc: TBitBtn
Left = 430
end
object btnSelAll: TBitBtn
Left = 8
Top = 5
Width = 100
Height = 25
Caption = #20840#37096#36873#25321
TabOrder = 2
OnClick = btnSelAllClick
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
0400000000008000000000000000000000001000000000000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
8888000888888888800000088444444440000008848888888000888884888888
8848888884888888884884444488888888488488848888888848848884888888
8848848884888888884884888444444444488488888884888888848888888488
8888000888888488800000044444448880000008888888888000}
end
object btnSelCanc: TBitBtn
Left = 112
Top = 5
Width = 100
Height = 25
Caption = #20840#37096#21462#28040
TabOrder = 3
OnClick = btnSelCancClick
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
0400000000008000000000000000000000001000000000000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
8888888800088888800088880004444440008888000888888000888884888888
8848000884888888884800044488888888480008848888888848848884888888
8848848800088888800084880004444440008488000884888000848888888488
8888000888880008888800044444000888880008888800088888}
end
end
inherited DosMove1: TDosMove
Left = 56
end
object qryKfzt: TQuery
DatabaseName = 'LfHotelUser'
RequestLive = True
SQL.Strings = (
'select * from KFZT where D_KRBH=:KRBH')
Left = 352
Top = 8
ParamData = <
item
DataType = ftString
Name = 'KRBH'
ParamType = ptInput
end>
end
object qryKrzd: TQuery
OnNewRecord = qryKrzdNewRecord
DatabaseName = 'LfHotelUser'
RequestLive = True
SQL.Strings = (
'select * from KRZD')
Left = 320
Top = 8
end
object qryKrzdKf: TQuery
DatabaseName = 'LfHotelUser'
RequestLive = True
SQL.Strings = (
'select * from KRZD')
Left = 392
Top = 8
end
object tblBqj: TTable
DatabaseName = 'LfHotelUser'
TableName = 'BQJ'
Left = 128
Top = 16
end
end
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -