📄 u_gzfltj.dfm
字号:
object GZFLTJ: TGZFLTJ
Left = 192
Top = 114
Width = 544
Height = 375
Caption = #25925#38556#20998#31867#32479#35745
Color = clBtnFace
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
OldCreateOrder = False
Position = poScreenCenter
OnShow = FormShow
DesignSize = (
536
341)
PixelsPerInch = 96
TextHeight = 14
object Label1: TLabel
Left = 16
Top = 12
Width = 70
Height = 14
Caption = #32479#35745#26102#27573#65306
end
object Label2: TLabel
Left = 308
Top = 12
Width = 56
Height = 14
Caption = #19994#21153#20998#31867
end
object Label3: TLabel
Left = 16
Top = 36
Width = 28
Height = 14
Caption = #21306#22495
end
object RQ1: TDateTimePicker
Left = 84
Top = 8
Width = 97
Height = 22
Date = 38856.408008865740000000
Time = 38856.408008865740000000
TabOrder = 0
OnChange = RQ1Change
end
object RQ2: TDateTimePicker
Left = 188
Top = 8
Width = 97
Height = 22
Date = 38856.408008865740000000
Time = 38856.408008865740000000
TabOrder = 1
OnChange = RQ1Change
end
object DBGridEh1: TDBGridEh
Left = 12
Top = 60
Width = 513
Height = 241
Anchors = [akLeft, akTop, akRight, akBottom]
AutoFitColWidths = True
DataSource = DataSource1
Flat = True
FooterColor = clWindow
FooterFont.Charset = ANSI_CHARSET
FooterFont.Color = clWindowText
FooterFont.Height = -14
FooterFont.Name = #23435#20307
FooterFont.Style = []
TabOrder = 2
TitleFont.Charset = ANSI_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -14
TitleFont.Name = #23435#20307
TitleFont.Style = []
UseMultiTitle = True
DefaultColumnState = False
lineColor = clGreen
SelectedColor = clHighlight
SelectedFontColor = clWhite
activerowcolor = True
rowsinglecolor = clMoneyGreen
rowdoublecolor = clCream
end
object BitBtn1: TBitBtn
Left = 12
Top = 308
Width = 137
Height = 25
Anchors = [akLeft, akBottom]
Caption = #29983#25104'Excel'#25253#34920
TabOrder = 3
OnClick = BitBtn1Click
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
0400000000008000000000000000000000001000000010000000000000000000
BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00DDDDDDDDDDDD
DDDDDDDDDDDDDDDDDDDDDDDDDDDDDD00000DD00000000006660DD08888880E00
000DD000000000EEE080DD07778E0EEE0080DDD078E0EEE07700DDDD0E0EEE00
0000DDD0E0EEE080DDDDDD0E0EEE07080DDDD0E0EEE0777080DD0E0EEE0D0777
080D00EEE0DDD077700D00000DDDDD00000DDDDDDDDDDDDDDDDD}
end
object BitBtn2: TBitBtn
Left = 168
Top = 308
Width = 81
Height = 25
Anchors = [akLeft, akBottom]
Caption = #23548#20986
TabOrder = 4
OnClick = BitBtn2Click
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333303
333333333333337FF3333333333333903333333333333377FF33333333333399
03333FFFFFFFFF777FF3000000999999903377777777777777FF0FFFF0999999
99037F3337777777777F0FFFF099999999907F3FF777777777770F00F0999999
99037F773777777777730FFFF099999990337F3FF777777777330F00FFFFF099
03337F773333377773330FFFFFFFF09033337F3FF3FFF77733330F00F0000003
33337F773777777333330FFFF0FF033333337F3FF7F3733333330F08F0F03333
33337F7737F7333333330FFFF003333333337FFFF77333333333000000333333
3333777777333333333333333333333333333333333333333333}
NumGlyphs = 2
end
object BitBtn3: TBitBtn
Left = 444
Top = 308
Width = 81
Height = 25
Anchors = [akRight, akBottom]
TabOrder = 5
Kind = bkClose
end
object ComboBox1: TComboBox
Left = 368
Top = 8
Width = 157
Height = 22
Style = csDropDownList
ItemHeight = 14
ItemIndex = 0
TabOrder = 6
Text = #27169#25311
OnChange = RQ1Change
Items.Strings = (
#27169#25311
#25968#23383
#23485#24102)
end
object QH: TComboBox
Left = 84
Top = 32
Width = 201
Height = 22
Style = csDropDownList
ItemHeight = 14
TabOrder = 7
OnChange = RQ1Change
end
object Query1: TQuery
DatabaseName = 'CTIC'
SQL.Strings = (
'SELECT '#32500#20462#32467#26524#21450#21407#22240',COUNT(*) As '#25968#37327' FROM '#26381#21153#21333
'Where '#26381#21153#31867#22411'='#39#25253#38556#39
'GROUP BY '#32500#20462#32467#26524#21450#21407#22240)
Left = 32
Top = 124
end
object DataSource1: TDataSource
DataSet = Query1
Left = 64
Top = 124
end
object SaveDialog1: TSaveDialog
DefaultExt = 'xls'
Filter = 'Excel Files (*.xls)|*.xls'
Left = 24
Top = 264
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -