📄 queryfrm.dfm
字号:
object frmQuery: TfrmQuery
Left = 174
Top = 87
Width = 609
Height = 451
Caption = #26597#35810
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
OldCreateOrder = False
OnClose = FormClose
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 12
object pgcMain: TPageControl
Left = 0
Top = 0
Width = 601
Height = 424
ActivePage = tbsWn
Align = alClient
TabIndex = 0
TabOrder = 0
object tbsWn: TTabSheet
Caption = #19975#33021#26597#35810
object grdWn: TDBGrid
Left = 0
Top = 178
Width = 593
Height = 219
Align = alClient
DataSource = dsWn
TabOrder = 0
TitleFont.Charset = GB2312_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -12
TitleFont.Name = #23435#20307
TitleFont.Style = []
end
object pnlTop_Wn: TPanel
Left = 0
Top = 0
Width = 593
Height = 137
Align = alTop
BevelOuter = bvNone
TabOrder = 1
object lvConditionWn: TListView
Left = 297
Top = 0
Width = 296
Height = 137
Align = alClient
Columns = <
item
Caption = #34920#26684#21517#31216
Width = 80
end
item
Caption = #23383#27573#21517#31216
Width = 80
end
item
Caption = #25805#20316#31526#21495
Width = 80
end
item
Caption = #20540
Width = 60
end
item
Caption = #36830#25509#31526#21495
Width = 80
end>
GridLines = True
ReadOnly = True
RowSelect = True
TabOrder = 0
ViewStyle = vsReport
end
object pnlTop_Left_Wn: TPanel
Left = 0
Top = 0
Width = 297
Height = 137
Align = alLeft
BevelOuter = bvNone
TabOrder = 1
object lblTablName: TLabel
Left = 16
Top = 14
Width = 48
Height = 12
Caption = #34920#26684#21517#31216
end
object lblFieldName: TLabel
Left = 16
Top = 39
Width = 48
Height = 12
Caption = #23383#27573#21517#31216
end
object lblOprator: TLabel
Left = 16
Top = 62
Width = 48
Height = 12
Caption = #36816#31639#31526#21495
end
object lblFieldValue: TLabel
Left = 16
Top = 85
Width = 48
Height = 12
Caption = #23383#27573#30340#20540
end
object lblLink: TLabel
Left = 16
Top = 110
Width = 48
Height = 12
Caption = #36830#25509#31526#21495
end
object btnWnAdd: TSpeedButton
Left = 259
Top = 31
Width = 23
Height = 22
Caption = '>'
OnClick = btnWnAddClick
end
object btnWnClear: TSpeedButton
Left = 259
Top = 71
Width = 23
Height = 22
Caption = '<'
OnClick = btnWnClearClick
end
object cboTabName: TComboBox
Left = 104
Top = 8
Width = 145
Height = 20
Style = csDropDownList
ItemHeight = 12
TabOrder = 0
OnChange = cboTabNameChange
end
object cboFieldName: TComboBox
Left = 104
Top = 32
Width = 145
Height = 20
Style = csDropDownList
ItemHeight = 12
TabOrder = 1
OnChange = cboFieldNameChange
end
object cboOprator: TComboBox
Left = 104
Top = 56
Width = 145
Height = 20
Style = csDropDownList
ItemHeight = 12
TabOrder = 2
OnChange = cboOpratorChange
end
object cboFieldValue: TComboBox
Left = 104
Top = 80
Width = 145
Height = 20
ItemHeight = 12
TabOrder = 3
end
object cboLink: TComboBox
Left = 104
Top = 106
Width = 145
Height = 20
Style = csDropDownList
ItemHeight = 12
TabOrder = 4
OnChange = cboLinkChange
end
object dtpFieldValue: TDateTimePicker
Left = 104
Top = 80
Width = 145
Height = 20
CalAlignment = dtaLeft
Date = 37507.1285217708
Time = 37507.1285217708
DateFormat = dfShort
DateMode = dmComboBox
Kind = dtkDate
ParseInput = False
TabOrder = 5
Visible = False
OnChange = dtpFieldValueChange
end
end
end
object pnlMiddleWn: TPanel
Left = 0
Top = 137
Width = 593
Height = 41
Align = alTop
BevelOuter = bvLowered
TabOrder = 2
object btnWnPrint: TButton
Left = 104
Top = 8
Width = 75
Height = 25
Caption = #25171#21360#25253#34920
TabOrder = 0
end
object btnWnQuery: TButton
Left = 16
Top = 8
Width = 75
Height = 25
Caption = #24320#22987#26597#35810
TabOrder = 1
OnClick = btnWnQueryClick
end
end
end
object tbsKc: TTabSheet
Caption = #24211#23384#26597#35810
ImageIndex = 1
object pnlMiddle_Kc: TPanel
Left = 0
Top = 82
Width = 593
Height = 41
Align = alTop
BevelOuter = bvLowered
TabOrder = 0
object btnKcPrint: TButton
Left = 104
Top = 8
Width = 75
Height = 25
Caption = #25171#21360#25253#34920
TabOrder = 0
OnClick = btnKcPrintClick
end
object btnKcQuery: TButton
Left = 16
Top = 8
Width = 75
Height = 25
Caption = #24320#22987#26597#35810
TabOrder = 1
OnClick = btnKcQueryClick
end
end
object pnlTop_Kc: TPanel
Left = 0
Top = 0
Width = 593
Height = 82
Align = alTop
BevelOuter = bvNone
TabOrder = 1
object lblCk_Kc: TLabel
Left = 16
Top = 17
Width = 48
Height = 12
Caption = #20179#24211#21517#31216
end
object lblHwlb: TLabel
Left = 240
Top = 17
Width = 48
Height = 12
Caption = #36135#21697#31867#21035
end
object lblCd: TLabel
Left = 16
Top = 52
Width = 48
Height = 12
Caption = #21697#29260#20135#22320
end
object lblGg: TLabel
Left = 240
Top = 52
Width = 48
Height = 12
Caption = #35268' '#26684
end
object cboCk_Kc: TComboBox
Left = 72
Top = 13
Width = 145
Height = 20
ItemHeight = 12
TabOrder = 0
OnChange = cboCk_KcChange
Items.Strings = (
'CK1'
'CK2'
'All')
end
object cboHwlb: TComboBox
Left = 304
Top = 13
Width = 145
Height = 20
ItemHeight = 12
TabOrder = 1
OnChange = cboCk_KcChange
end
object cboCd: TComboBox
Left = 72
Top = 48
Width = 145
Height = 20
ItemHeight = 12
TabOrder = 2
OnChange = cboCk_KcChange
end
object cboGg: TComboBox
Left = 304
Top = 48
Width = 145
Height = 20
ItemHeight = 12
TabOrder = 3
OnChange = cboCk_KcChange
end
end
object grdKc: TDBGrid
Left = 0
Top = 123
Width = 593
Height = 274
Align = alClient
DataSource = dsKc
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
TabOrder = 2
TitleFont.Charset = GB2312_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -12
TitleFont.Name = #23435#20307
TitleFont.Style = []
end
end
end
object dsWn: TDataSource
DataSet = qryWn
Left = 12
Top = 287
end
object dsKc: TDataSource
DataSet = qryKc
Left = 44
Top = 287
end
object qryWn: TADOQuery
Parameters = <>
Left = 12
Top = 327
end
object qryKc: TADOQuery
CacheSize = 1500
ParamCheck = False
Parameters = <>
Prepared = True
Left = 44
Top = 327
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -