📄 query.dfm
字号:
object BitBtn8: TBitBtn
Left = 668
Top = 11
Width = 85
Height = 44
Caption = '开始查询'
Font.Charset = GB2312_CHARSET
Font.Color = clNavy
Font.Height = -14
Font.Name = '宋体'
Font.Style = []
ParentFont = False
TabOrder = 4
OnClick = BitBtn8Click
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
333333333333333FF3FF3333333333CC30003333333333773777333333333C33
3000333FF33337F33777339933333C3333333377F33337F3333F339933333C33
33003377333337F33377333333333C333300333F333337F33377339333333C33
3333337FF3333733333F33993333C33333003377FF33733333773339933C3333
330033377FF73F33337733339933C33333333FF377F373F3333F993399333C33
330077F377F337F33377993399333C33330077FF773337F33377399993333C33
33333777733337F333FF333333333C33300033333333373FF7773333333333CC
3000333333333377377733333333333333333333333333333333}
Layout = blGlyphTop
NumGlyphs = 2
end
object BitBtn9: TBitBtn
Left = 670
Top = 92
Width = 82
Height = 43
Caption = '清除条件'
Font.Charset = GB2312_CHARSET
Font.Color = clNavy
Font.Height = -14
Font.Name = '宋体'
Font.Style = []
ParentFont = False
TabOrder = 5
OnClick = BitBtn9Click
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
55555FFFFFFF5F55FFF5777777757559995777777775755777F7555555555550
305555555555FF57F7F555555550055BB0555555555775F777F55555550FB000
005555555575577777F5555550FB0BF0F05555555755755757F555550FBFBF0F
B05555557F55557557F555550BFBF0FB005555557F55575577F555500FBFBFB0
B05555577F555557F7F5550E0BFBFB00B055557575F55577F7F550EEE0BFB0B0
B05557FF575F5757F7F5000EEE0BFBF0B055777FF575FFF7F7F50000EEE00000
B0557777FF577777F7F500000E055550805577777F7555575755500000555555
05555777775555557F5555000555555505555577755555557555}
Layout = blGlyphTop
NumGlyphs = 2
end
object DBGrid3: TDBGrid
Left = 0
Top = 240
Width = 792
Height = 266
Align = alBottom
DataSource = dm.ds_mingping
Font.Charset = GB2312_CHARSET
Font.Color = clNavy
Font.Height = -14
Font.Name = '宋体'
Font.Style = []
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
ParentFont = False
ReadOnly = True
TabOrder = 6
TitleFont.Charset = GB2312_CHARSET
TitleFont.Color = clNavy
TitleFont.Height = -29
TitleFont.Name = '宋体'
TitleFont.Style = []
Columns = <
item
Alignment = taCenter
Expanded = False
FieldName = 'Name'
Title.Alignment = taCenter
Title.Font.Charset = GB2312_CHARSET
Title.Font.Color = clNavy
Title.Font.Height = -14
Title.Font.Name = '宋体'
Title.Font.Style = []
Width = 86
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'Company'
Title.Alignment = taCenter
Title.Caption = '公司'
Title.Font.Charset = GB2312_CHARSET
Title.Font.Color = clNavy
Title.Font.Height = -14
Title.Font.Name = '宋体'
Title.Font.Style = []
Width = 214
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'Address'
Title.Alignment = taCenter
Title.Caption = '地址'
Title.Font.Charset = GB2312_CHARSET
Title.Font.Color = clNavy
Title.Font.Height = -14
Title.Font.Name = '宋体'
Title.Font.Style = []
Width = 205
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'Companytel'
Title.Alignment = taCenter
Title.Font.Charset = GB2312_CHARSET
Title.Font.Color = clNavy
Title.Font.Height = -14
Title.Font.Name = '宋体'
Title.Font.Style = []
Width = 129
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'Handtel'
Title.Alignment = taCenter
Title.Font.Charset = GB2312_CHARSET
Title.Font.Color = clNavy
Title.Font.Height = -14
Title.Font.Name = '宋体'
Title.Font.Style = []
Width = 134
Visible = True
end
item
Expanded = False
FieldName = 'Hometel'
Title.Font.Charset = GB2312_CHARSET
Title.Font.Color = clNavy
Title.Font.Height = -14
Title.Font.Name = '宋体'
Title.Font.Style = []
Visible = False
end
item
Expanded = False
FieldName = 'Bptel'
Title.Font.Charset = GB2312_CHARSET
Title.Font.Color = clNavy
Title.Font.Height = -14
Title.Font.Name = '宋体'
Title.Font.Style = []
Visible = False
end
item
Expanded = False
FieldName = 'Papertel'
Title.Font.Charset = GB2312_CHARSET
Title.Font.Color = clNavy
Title.Font.Height = -14
Title.Font.Name = '宋体'
Title.Font.Style = []
Visible = False
end
item
Expanded = False
FieldName = 'Email'
Title.Font.Charset = GB2312_CHARSET
Title.Font.Color = clNavy
Title.Font.Height = -14
Title.Font.Name = '宋体'
Title.Font.Style = []
Visible = False
end
item
Expanded = False
FieldName = 'Url'
Title.Font.Charset = GB2312_CHARSET
Title.Font.Color = clNavy
Title.Font.Height = -14
Title.Font.Name = '宋体'
Title.Font.Style = []
Visible = False
end
item
Expanded = False
FieldName = 'No'
Title.Font.Charset = GB2312_CHARSET
Title.Font.Color = clNavy
Title.Font.Height = -14
Title.Font.Name = '宋体'
Title.Font.Style = []
Visible = False
end>
end
object BitBtn12: TBitBtn
Left = 672
Top = 176
Width = 81
Height = 41
Caption = '退出'
Font.Charset = GB2312_CHARSET
Font.Color = clNavy
Font.Height = -14
Font.Name = '宋体'
Font.Style = []
ParentFont = False
TabOrder = 7
Kind = bkClose
end
end
object TabSheet4: TTabSheet
Tag = 4
Caption = '统 计 分 析'
ImageIndex = 3
object Panel1: TPanel
Left = 0
Top = 0
Width = 792
Height = 506
Align = alClient
BevelOuter = bvLowered
TabOrder = 0
object dgraph: TDecisionGraph
Left = 1
Top = 72
Width = 790
Height = 433
DecisionSource = dm.dds_yewu
AllowZoom = False
Title.Text.Strings = (
'')
BottomAxis.Automatic = False
BottomAxis.AutomaticMaximum = False
BottomAxis.AutomaticMinimum = False
BottomAxis.Maximum = 12
Frame.Width = 2
LeftAxis.Automatic = False
LeftAxis.AutomaticMaximum = False
LeftAxis.AutomaticMinimum = False
LeftAxis.Maximum = 1000000
View3D = False
Align = alBottom
TabOrder = 0
object Series1: TBarSeries
Active = False
Marks.ArrowLength = 20
Marks.Visible = False
SeriesColor = clRed
Title = 'Template: 月份'
XValues.DateTime = False
XValues.Name = 'X'
XValues.Multiplier = 1
XValues.Order = loAscending
YValues.DateTime = False
YValues.Name = 'Bar'
YValues.Multiplier = 1
YValues.Order = loNone
Identifier = 'Template: 月份'
Style = 61
end
object Series2: TBarSeries
Active = False
ColorEachPoint = True
Marks.ArrowLength = 20
Marks.Style = smsValue
Marks.Visible = True
SeriesColor = clRed
Title = '1D Template: 月份'
XValues.DateTime = False
XValues.Name = 'X'
XValues.Multiplier = 1
XValues.Order = loAscending
YValues.DateTime = False
YValues.Name = 'Bar'
YValues.Multiplier = 1
YValues.Order = loNone
Identifier = '1D Template: 月份'
Style = 40
end
end
object RadioGroup1: TRadioGroup
Left = 112
Top = 8
Width = 513
Height = 49
Font.Charset = GB2312_CHARSET
Font.Color = clNavy
Font.Height = -14
Font.Name = '宋体'
Font.Style = []
ParentFont = False
TabOrder = 1
end
object RadioButton1: TRadioButton
Left = 184
Top = 24
Width = 185
Height = 17
Caption = '月保单总额分析'
Font.Charset = GB2312_CHARSET
Font.Color = clNavy
Font.Height = -19
Font.Name = '宋体'
Font.Style = []
ParentFont = False
TabOrder = 2
OnClick = RadioButton1Click
end
object RadioButton2: TRadioButton
Left = 408
Top = 24
Width = 169
Height = 17
Caption = '月理赔总额分析'
Font.Charset = GB2312_CHARSET
Font.Color = clNavy
Font.Height = -19
Font.Name = '宋体'
Font.Style = []
ParentFont = False
TabOrder = 3
OnClick = RadioButton2Click
end
object BitBtn13: TBitBtn
Left = 680
Top = 16
Width = 89
Height = 41
Caption = '退出'
Font.Charset = GB2312_CHARSET
Font.Color = clNavy
Font.Height = -19
Font.Name = '宋体'
Font.Style = []
ParentFont = False
TabOrder = 4
Kind = bkClose
end
end
end
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -