📄 u_fwsctj.dfm
字号:
object FWSCTJ: TFWSCTJ
Left = 192
Top = 114
BorderStyle = bsDialog
Caption = #25805#20316#21592#26381#21153#26102#38271#32479#35745
ClientHeight = 320
ClientWidth = 532
Color = clBtnFace
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
OldCreateOrder = False
Position = poScreenCenter
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 12
object Label1: TLabel
Left = 8
Top = 16
Width = 48
Height = 12
Caption = #32479#35745#26102#27573
end
object Label2: TLabel
Left = 272
Top = 16
Width = 48
Height = 12
Caption = #26381#21153#31867#22411
end
object Label3: TLabel
Left = 404
Top = 16
Width = 48
Height = 12
Caption = #19994#21153#31867#22411
end
object RQ1: TDateTimePicker
Left = 60
Top = 12
Width = 101
Height = 20
Date = 39029.676471076390000000
Time = 39029.676471076390000000
TabOrder = 0
end
object RQ2: TDateTimePicker
Left = 164
Top = 12
Width = 101
Height = 20
Date = 39029.676471076390000000
Time = 39029.676471076390000000
TabOrder = 1
end
object DBGridEh1: TDBGridEh
Left = 8
Top = 40
Width = 517
Height = 241
AllowedOperations = []
AutoFitColWidths = True
DataSource = DataSource1
Flat = True
FooterColor = clWindow
FooterFont.Charset = ANSI_CHARSET
FooterFont.Color = clWindowText
FooterFont.Height = -12
FooterFont.Name = #23435#20307
FooterFont.Style = []
TabOrder = 2
TitleFont.Charset = ANSI_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -12
TitleFont.Name = #23435#20307
TitleFont.Style = []
UseMultiTitle = True
DefaultColumnState = False
lineColor = clGreen
SelectedColor = clHighlight
SelectedFontColor = clWhite
activerowcolor = False
rowsinglecolor = clMoneyGreen
rowdoublecolor = clCream
end
object BitBtn1: TBitBtn
Left = 8
Top = 288
Width = 81
Height = 25
Caption = #32479#35745
TabOrder = 3
OnClick = BitBtn1Click
end
object BitBtn2: TBitBtn
Left = 104
Top = 288
Width = 81
Height = 25
Caption = #25171#21360
TabOrder = 4
OnClick = BitBtn2Click
end
object BitBtn3: TBitBtn
Left = 444
Top = 288
Width = 81
Height = 25
TabOrder = 5
Kind = bkClose
end
object FWLX: TComboBox
Left = 324
Top = 12
Width = 69
Height = 20
ItemHeight = 12
TabOrder = 6
end
object YWLX: TComboBox
Left = 456
Top = 12
Width = 69
Height = 20
ItemHeight = 12
TabOrder = 7
Items.Strings = (
#27169#25311
#25968#23383
#23485#24102)
end
object Query1: TQuery
DatabaseName = 'CTIC'
SQL.Strings = (
'Select '#25509#24453#21592',Count(*) As '#21463#29702#25143#25968',Sum(('#36890#35805#32467#26463#26102#38388'-'#26102#38388')*24*60) As '#21463#29702#26102#38388' From ' +
#26381#21153#21333
'Group By '#25509#24453#21592)
Left = 48
Top = 104
end
object DataSource1: TDataSource
DataSet = Query1
Left = 80
Top = 104
end
object PrintDBGridEh1: TPrintDBGridEh
DBGridEh = DBGridEh1
Options = [pghFitGridToPageWidth]
Page.BottomMargin = 2.000000000000000000
Page.LeftMargin = 2.000000000000000000
Page.RightMargin = 2.000000000000000000
Page.TopMargin = 2.000000000000000000
PageFooter.LeftFont.Charset = DEFAULT_CHARSET
PageFooter.LeftFont.Color = clWindowText
PageFooter.LeftFont.Height = -11
PageFooter.LeftFont.Name = 'MS Sans Serif'
PageFooter.LeftFont.Style = []
PageFooter.CenterFont.Charset = DEFAULT_CHARSET
PageFooter.CenterFont.Color = clWindowText
PageFooter.CenterFont.Height = -11
PageFooter.CenterFont.Name = 'MS Sans Serif'
PageFooter.CenterFont.Style = []
PageFooter.RightFont.Charset = DEFAULT_CHARSET
PageFooter.RightFont.Color = clWindowText
PageFooter.RightFont.Height = -11
PageFooter.RightFont.Name = 'MS Sans Serif'
PageFooter.RightFont.Style = []
PageFooter.Font.Charset = DEFAULT_CHARSET
PageFooter.Font.Color = clWindowText
PageFooter.Font.Height = -11
PageFooter.Font.Name = 'MS Sans Serif'
PageFooter.Font.Style = []
PageHeader.LeftFont.Charset = DEFAULT_CHARSET
PageHeader.LeftFont.Color = clWindowText
PageHeader.LeftFont.Height = -11
PageHeader.LeftFont.Name = 'MS Sans Serif'
PageHeader.LeftFont.Style = []
PageHeader.CenterFont.Charset = DEFAULT_CHARSET
PageHeader.CenterFont.Color = clWindowText
PageHeader.CenterFont.Height = -11
PageHeader.CenterFont.Name = 'MS Sans Serif'
PageHeader.CenterFont.Style = []
PageHeader.RightFont.Charset = DEFAULT_CHARSET
PageHeader.RightFont.Color = clWindowText
PageHeader.RightFont.Height = -11
PageHeader.RightFont.Name = 'MS Sans Serif'
PageHeader.RightFont.Style = []
PageHeader.Font.Charset = DEFAULT_CHARSET
PageHeader.Font.Color = clWindowText
PageHeader.Font.Height = -11
PageHeader.Font.Name = 'MS Sans Serif'
PageHeader.Font.Style = []
PrintFontsize = 11
Units = MM
Left = 48
Top = 136
BeforeGridText_Data = {
7B5C727466315C616E73695C616E73696370673933365C64656666305C646566
6C616E67313033335C6465666C616E676665323035327B5C666F6E7474626C7B
5C66305C666E696C5C6663686172736574313334205C2762665C2761635C2763
635C2765355F4742323331323B7D7B5C66315C666E696C5C6663686172736574
313334204D532053616E732053657269663B7D7D0D0A5C766965776B696E6434
5C7563315C706172645C71635C6C616E67323035325C625C66305C667333325C
2762325C2764395C2764375C2766375C2764345C2762315C2762375C2766655C
2763655C2766315C2763315C2762665C2763645C2762335C2762635C2763365C
62305C66315C66733136200D0A5C706172207D0D0A00}
AfterGridText_Data = {
7B5C727466315C616E73695C616E73696370673933365C64656666305C646566
6C616E67313033335C6465666C616E676665323035327B5C666F6E7474626C7B
5C66305C666E696C5C6663686172736574313334205C2763625C2763655C2763
635C2765353B7D7B5C66315C666E696C5C6663686172736574313334204D5320
53616E732053657269663B7D7D0D0A5C766965776B696E64345C7563315C7061
72645C6C616E67323035325C66305C667331385C2762355C2761355C2763655C
2762625C2761335C2762615C2762375C2764365C2764365C2764335C66315C66
733136200D0A5C706172207D0D0A00}
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -