📄 unit_frmsellrecord.dfm
字号:
inherited frmsellrecord: Tfrmsellrecord
Left = 68
Top = 92
BorderIcons = [biSystemMenu, biMaximize]
Caption = #21806#31080#35760#24405#32479#35745#26597#35810
ClientHeight = 594
ClientWidth = 895
OldCreateOrder = True
WindowState = wsMaximized
OnResize = FormResize
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 12
inherited Bevel1: TBevel
Width = 895
end
inherited Bevel2: TBevel
Top = 548
Width = 895
end
inherited Panel1: TPanel
Width = 895
object Label1: TLabel
Left = 16
Top = 24
Width = 136
Height = 16
Caption = #21806#31080#35760#24405#32479#35745#26597#35810
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
end
inherited Panel2: TPanel
Width = 895
Height = 479
object CyberSizePanel1: TCyberSizePanel
Left = 0
Top = 0
Width = 185
Height = 479
SizeBarWidth = 7
HotSpotVisible = True
HotSpotSizePercent = 30
TabOrder = 0
object GroupBox1: TGroupBox
Left = 0
Top = 0
Width = 177
Height = 479
Align = alClient
Caption = #26597#35810#26465#20214
TabOrder = 0
object Panelconsign: TPanel
Left = 2
Top = 14
Width = 173
Height = 463
Align = alClient
BevelOuter = bvNone
TabOrder = 0
object Panel4: TPanel
Left = 0
Top = 0
Width = 173
Height = 463
Align = alClient
BevelOuter = bvNone
TabOrder = 0
object Panel35: TPanel
Left = 0
Top = 100
Width = 173
Height = 25
Align = alTop
BevelOuter = bvNone
TabOrder = 0
object chkperson: TCheckBox
Left = 16
Top = 8
Width = 97
Height = 17
Caption = #25805#20316#21592
TabOrder = 0
OnClick = chkpersonClick
end
object Comboperson: TComboBox
Left = 16
Top = 28
Width = 150
Height = 20
Style = csDropDownList
ItemHeight = 12
TabOrder = 1
end
end
object Panel33: TPanel
Left = 0
Top = 50
Width = 173
Height = 25
Align = alTop
BevelOuter = bvNone
TabOrder = 1
object ChkCinema: TCheckBox
Left = 16
Top = 8
Width = 97
Height = 17
Caption = #25918#26144#22320#28857
TabOrder = 0
OnClick = ChkCinemaClick
end
object Combocinema: TComboBox
Left = 16
Top = 28
Width = 150
Height = 20
Style = csDropDownList
ItemHeight = 12
TabOrder = 1
OnChange = CombocinemaChange
end
end
object Panel31: TPanel
Left = 0
Top = 0
Width = 173
Height = 25
Align = alTop
BevelOuter = bvNone
TabOrder = 2
object Label2: TLabel
Left = 16
Top = 53
Width = 12
Height = 12
Caption = #33267
end
object Chkplandate: TCheckBox
Left = 16
Top = 8
Width = 97
Height = 17
Caption = #25918#26144#26085#26399
TabOrder = 0
OnClick = ChkplandateClick
end
object Dtpstartdate: TDateTimePicker
Left = 16
Top = 32
Width = 150
Height = 20
CalAlignment = dtaLeft
Date = 37635.9730663657
Time = 37635.9730663657
ShowCheckbox = True
DateFormat = dfShort
DateMode = dmComboBox
Kind = dtkDate
ParseInput = False
TabOrder = 1
end
object Dtpenddate: TDateTimePicker
Left = 16
Top = 68
Width = 150
Height = 20
CalAlignment = dtaLeft
Date = 37635.9730663657
Time = 37635.9730663657
ShowCheckbox = True
DateFormat = dfShort
DateMode = dmComboBox
Kind = dtkDate
ParseInput = False
TabOrder = 2
end
end
object Panel34: TPanel
Left = 0
Top = 75
Width = 173
Height = 25
Align = alTop
BevelOuter = bvNone
TabOrder = 3
object Chkhall: TCheckBox
Left = 16
Top = 8
Width = 97
Height = 17
Caption = #24433#21381
TabOrder = 0
OnClick = ChkhallClick
end
object Combohall: TComboBox
Left = 16
Top = 28
Width = 150
Height = 20
Style = csDropDownList
ItemHeight = 12
TabOrder = 1
end
end
object Panel32: TPanel
Left = 0
Top = 25
Width = 173
Height = 25
Align = alTop
BevelOuter = bvNone
TabOrder = 4
object chkstatus: TCheckBox
Left = 16
Top = 8
Width = 97
Height = 17
Caption = #29366#24577
TabOrder = 0
OnClick = chkstatusClick
end
object Combostatus: TComboBox
Left = 16
Top = 28
Width = 150
Height = 20
Style = csDropDownList
ItemHeight = 12
TabOrder = 1
Items.Strings = (
'0-'#21806#31080
'1-'#36864#31080
'2-'#24223#31080
'3-'#39044#35746)
end
end
object Btnquery: TBitBtn
Left = 88
Top = 416
Width = 75
Height = 25
Caption = #26597#35810
TabOrder = 5
OnClick = BtnqueryClick
end
object Panel36: TPanel
Left = 0
Top = 125
Width = 173
Height = 25
Align = alTop
BevelOuter = bvNone
TabOrder = 6
object chktickettype: TCheckBox
Left = 16
Top = 8
Width = 97
Height = 17
Caption = #31080#31867
TabOrder = 0
OnClick = chktickettypeClick
end
object Combotickettype: TComboBox
Left = 16
Top = 28
Width = 150
Height = 20
Style = csDropDownList
ItemHeight = 12
TabOrder = 1
end
end
object Panel37: TPanel
Left = 0
Top = 150
Width = 173
Height = 25
Align = alTop
BevelOuter = bvNone
TabOrder = 7
object chkseattype: TCheckBox
Left = 16
Top = 8
Width = 97
Height = 17
Caption = #24231#31867
TabOrder = 0
OnClick = chkseattypeClick
end
object Comboseattype: TComboBox
Left = 16
Top = 28
Width = 150
Height = 20
Style = csDropDownList
ItemHeight = 12
TabOrder = 1
end
end
end
end
end
end
object Panel5: TPanel
Left = 185
Top = 0
Width = 710
Height = 479
Align = alClient
BevelOuter = bvNone
TabOrder = 1
object ListView1: TCyberListView
Left = 0
Top = 0
Width = 710
Height = 479
Align = alClient
AlphaSortAll = True
Columns = <
item
Caption = #25918#26144#26085#26399
Width = 70
end
item
Caption = #25918#26144#22320#28857
Width = 100
end
item
Caption = #24433#21381
Width = 80
end
item
Alignment = taRightJustify
Caption = #22330#27425
Width = 40
end
item
Caption = #26102#38388
end
item
Caption = #24433#29255
Width = 100
end
item
Caption = #24231#31867
Width = 60
end
item
Caption = #31080#31867
Width = 60
end
item
Alignment = taRightJustify
Caption = #25240#25187#29575'%'
Width = 60
end
item
Alignment = taRightJustify
Caption = #31080#20215
end
item
Caption = #21806#31080#21592
end
item
Caption = #21806#31080#26085#26399
Width = 120
end
item
Caption = #29366#24577
Width = 60
end
item
Caption = #36864#31080#21592
Width = 60
end
item
Alignment = taRightJustify
Caption = #25163#32493#36153
Width = 60
end
item
Caption = #36864#31080#26102#38388
Width = 120
end>
FillLastColumn = False
ReadOnly = True
RowSelect = True
TabOrder = 0
ViewStyle = vsReport
OnCustomDrawItem = ListView1CustomDrawItem
end
end
end
inherited Panel3: TPanel
Top = 553
Width = 895
inherited BtnExit: TBitBtn
Left = 872
end
object BtnExcel: TBitBtn
Left = 784
Top = 8
Width = 75
Height = 25
Caption = #23548#20837'&Excel'
TabOrder = 1
OnClick = BtnExcelClick
end
end
object CyberXPMenu1: TCyberXPMenu
DimLevel = 30
GrayLevel = 10
Font.Charset = GB2312_CHARSET
Font.Color = clMenuText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
Color = clBtnFace
IconBackColor = clBtnFace
MenuBarColor = clBtnFace
SelectColor = clHighlight
SelectBorderColor = clHighlight
SelectFontColor = clMenuText
DisabledColor = clInactiveCaption
SeparatorColor = clBtnFace
CheckedColor = clHighlight
IconWidth = 24
DrawSelect = True
UseSystemColors = True
OverrideOwnerDraw = False
Gradient = False
FlatMenu = False
AutoDetect = False
XPControls = [xcMainMenu, xcPopupMenu, xcToolbar, xcControlbar, xcCombo, xcEdit, xcMaskEdit, xcMemo, xcRichEdit, xcCheckBox, xcRadioButton, xcButton, xcBitBtn, xcSpeedButton, xcPanel, xcCybermenuBtn]
Active = True
Left = 144
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -