📄 guangli.dfm
字号:
object Mainfrm: TMainfrm
Left = 127
Top = 57
HelpContext = 1
AutoScroll = False
BorderIcons = [biSystemMenu, biMinimize]
Caption = '保险之友'
ClientHeight = 534
ClientWidth = 800
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Menu = MainMenu1
OldCreateOrder = False
Position = poScreenCenter
OnClose = FormClose
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object Label31: TLabel
Left = 24
Top = 32
Width = 49
Height = 14
Caption = 'Label30'
Font.Charset = GB2312_CHARSET
Font.Color = clNavy
Font.Height = -14
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object DBText26: TDBText
Left = 88
Top = 32
Width = 65
Height = 17
Font.Charset = GB2312_CHARSET
Font.Color = clNavy
Font.Height = -14
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object ToolBar1: TToolBar
Left = 0
Top = 0
Width = 800
Height = 57
ButtonHeight = 54
ButtonWidth = 102
Caption = 'ToolBar1'
Flat = True
Font.Charset = ANSI_CHARSET
Font.Color = clNavy
Font.Height = -19
Font.Name = '宋体'
Font.Style = []
ParentFont = False
TabOrder = 0
object BitBtn1: TBitBtn
Left = 0
Top = 0
Width = 88
Height = 54
Cursor = crHandPoint
Caption = '增加'
TabOrder = 0
OnClick = BitBtn1Click
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
33333333FF33333333FF333993333333300033377F3333333777333993333333
300033F77FFF3333377739999993333333333777777F3333333F399999933333
33003777777333333377333993333333330033377F3333333377333993333333
3333333773333333333F333333333333330033333333F33333773333333C3333
330033333337FF3333773333333CC333333333FFFFF77FFF3FF33CCCCCCCCCC3
993337777777777F77F33CCCCCCCCCC3993337777777777377333333333CC333
333333333337733333FF3333333C333330003333333733333777333333333333
3000333333333333377733333333333333333333333333333333}
NumGlyphs = 2
end
object ToolButton4: TToolButton
Left = 88
Top = 0
Width = 17
Caption = 'ToolButton4'
ImageIndex = 2
Style = tbsSeparator
end
object BitBtn4: TBitBtn
Left = 105
Top = 0
Width = 90
Height = 54
Cursor = crHandPoint
Caption = '删除'
TabOrder = 3
OnClick = BitBtn4Click
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
55555FFFFFFF5F55FFF5777777757559995777777775755777F7555555555550
305555555555FF57F7F555555550055BB0555555555775F777F55555550FB000
005555555575577777F5555550FB0BF0F05555555755755757F555550FBFBF0F
B05555557F55557557F555550BFBF0FB005555557F55575577F555500FBFBFB0
B05555577F555557F7F5550E0BFBFB00B055557575F55577F7F550EEE0BFB0B0
B05557FF575F5757F7F5000EEE0BFBF0B055777FF575FFF7F7F50000EEE00000
B0557777FF577777F7F500000E055550805577777F7555575755500000555555
05555777775555557F5555000555555505555577755555557555}
NumGlyphs = 2
end
object ToolButton5: TToolButton
Left = 195
Top = 0
Width = 20
Caption = 'ToolButton5'
ImageIndex = 3
Style = tbsSeparator
end
object BitBtn3: TBitBtn
Left = 215
Top = 0
Width = 93
Height = 54
Cursor = crHandPoint
Caption = '修改'
TabOrder = 2
OnClick = BitBtn3Click
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000000
000033333377777777773333330FFFFFFFF03FF3FF7FF33F3FF700300000FF0F
00F077F777773F737737E00BFBFB0FFFFFF07773333F7F3333F7E0BFBF000FFF
F0F077F3337773F3F737E0FBFBFBF0F00FF077F3333FF7F77F37E0BFBF00000B
0FF077F3337777737337E0FBFBFBFBF0FFF077F33FFFFFF73337E0BF0000000F
FFF077FF777777733FF7000BFB00B0FF00F07773FF77373377373330000B0FFF
FFF03337777373333FF7333330B0FFFF00003333373733FF777733330B0FF00F
0FF03333737F37737F373330B00FFFFF0F033337F77F33337F733309030FFFFF
00333377737FFFFF773333303300000003333337337777777333}
NumGlyphs = 2
end
object ToolButton2: TToolButton
Left = 308
Top = 0
Width = 20
Caption = 'ToolButton2'
ImageIndex = 0
Style = tbsSeparator
end
object BitBtn2: TBitBtn
Left = 328
Top = 0
Width = 91
Height = 54
Cursor = crHandPoint
Caption = '取消'
TabOrder = 1
OnClick = BitBtn2Click
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333FFFFF3333333333999993333333333F77777FFF333333999999999
3333333777333777FF3333993333339993333377FF3333377FF3399993333339
993337777FF3333377F3393999333333993337F777FF333337FF993399933333
399377F3777FF333377F993339993333399377F33777FF33377F993333999333
399377F333777FF3377F993333399933399377F3333777FF377F993333339993
399377FF3333777FF7733993333339993933373FF3333777F7F3399933333399
99333773FF3333777733339993333339933333773FFFFFF77333333999999999
3333333777333777333333333999993333333333377777333333}
NumGlyphs = 2
end
object ToolButton1: TToolButton
Left = 419
Top = 0
Width = 22
Caption = 'ToolButton1'
Style = tbsSeparator
end
object BitBtn5: TBitBtn
Left = 441
Top = 0
Width = 225
Height = 54
Cursor = crHandPoint
Caption = '系统查询与统计分析'
TabOrder = 4
OnClick = BitBtn5Click
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333333333333333333333333333333333333333333333333333333333
3333333333333333333333333333333333333333333FF3333333333333003333
3333333333773FF3333333333309003333333333337F773FF333333333099900
33333FFFFF7F33773FF30000000999990033777777733333773F099999999999
99007FFFFFFF33333F7700000009999900337777777F333F7733333333099900
33333333337F3F77333333333309003333333333337F77333333333333003333
3333333333773333333333333333333333333333333333333333333333333333
3333333333333333333333333333333333333333333333333333}
NumGlyphs = 2
end
object ToolButton3: TToolButton
Left = 666
Top = 0
Width = 39
Caption = 'ToolButton3'
ImageIndex = 1
Style = tbsSeparator
end
object BitBtn7: TBitBtn
Left = 705
Top = 0
Width = 91
Height = 54
Cursor = crHandPoint
Caption = '关闭'
TabOrder = 5
OnClick = BitBtn7Click
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333FFFFF3333333333000003333333333F77777FFF333333009999900
3333333777777777FF33330998FFF899033333777333F3777FF33099FFFCFFF9
903337773337333777F3309FFFFFFFCF9033377333F3337377FF098FF0FFFFFF
890377F3373F3333377F09FFFF0FFFFFF90377F3F373FFFFF77F09FCFFF90000
F90377F733377777377F09FFFFFFFFFFF90377F333333333377F098FFFFFFFFF
890377FF3F33333F3773309FCFFFFFCF9033377F7333F37377F33099FFFCFFF9
90333777FF37F3377733330998FCF899033333777FF7FF777333333009999900
3333333777777777333333333000003333333333377777333333}
NumGlyphs = 2
end
end
object StatusBar1: TStatusBar
Left = 0
Top = 512
Width = 800
Height = 22
Panels = <>
SimplePanel = False
end
object Panel1: TPanel
Left = 0
Top = 57
Width = 800
Height = 455
Align = alClient
BevelOuter = bvLowered
TabOrder = 2
object Panel2: TPanel
Left = 1
Top = 1
Width = 185
Height = 453
Align = alLeft
BorderStyle = bsSingle
TabOrder = 0
object GridBaodan: TDBGrid
Tag = 4
Left = 1
Top = 1
Width = 179
Height = 447
Align = alClient
Anchors = []
BorderStyle = bsNone
DataSource = dm.ds_baodan
Font.Charset = GB2312_CHARSET
Font.Color = clNavy
Font.Height = -16
Font.Name = '宋体'
Font.Style = []
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
ParentFont = False
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
Columns = <
item
Alignment = taCenter
ButtonStyle = cbsNone
Expanded = False
FieldName = 'Baodanno'
Title.Alignment = taCenter
Title.Caption = '保 单 号'
Title.Font.Charset = GB2312_CHARSET
Title.Font.Color = clNavy
Title.Font.Height = -16
Title.Font.Name = '宋体'
Title.Font.Style = []
Width = 177
Visible = True
end>
end
end
object Panel3: TPanel
Left = 186
Top = 1
Width = 613
Height = 453
Align = alClient
BorderStyle = bsSingle
TabOrder = 1
object PageControl1: TPageControl
Left = 1
Top = 1
Width = 607
Height = 447
ActivePage = TabSheet3
Align = alClient
Font.Charset = GB2312_CHARSET
Font.Color = clNavy
Font.Height = -21
Font.Name = '宋体'
Font.Style = []
MultiLine = True
ParentFont = False
Style = tsFlatButtons
TabOrder = 0
object TabSheet1: TTabSheet
Tag = 1
Caption = ' 保 单 '
Font.Charset = GB2312_CHARSET
Font.Color = clNavy
Font.Height = -19
Font.Name = '宋体'
Font.Style = []
ParentFont = False
object Bevel1: TBevel
Left = 0
Top = 0
Width = 593
Height = 89
Cursor = crHandPoint
end
object Bevel2: TBevel
Left = 0
Top = 96
Width = 593
Height = 305
end
object Label1: TLabel
Left = 8
Top = 8
Width = 49
Height = 14
Caption = '保单号:'
Font.Charset = GB2312_CHARSET
Font.Color = clNavy
Font.Height = -14
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label2: TLabel
Left = 8
Top = 48
Width = 56
Height = 14
Caption = '生效日：'
Font.Charset = GB2312_CHARSET
Font.Color = clNavy
Font.Height = -14
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label3: TLabel
Left = 312
Top = 48
Width = 49
Height = 14
Caption = '到期日:'
Font.Charset = GB2312_CHARSET
Font.Color = clNavy
Font.Height = -14
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object DBText2: TDBText
Left = 64
Top = 48
Width = 49
Height = 17
DataField = 'Beginyear'
DataSource = dm.ds_baodan
Font.Charset = GB2312_CHARSET
Font.Color = clNavy
Font.Height = -14
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object DBText3: TDBText
Left = 136
Top = 48
Width = 25
Height = 17
DataField = 'Beginmonth'
DataSource = dm.ds_baodan
Font.Charset = GB2312_CHARSET
Font.Color = clNavy
Font.Height = -14
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object DBText4: TDBText
Left = 184
Top = 48
Width = 33
Height = 17
DataField = 'Enddate'
DataSource = dm.ds_baodan
Font.Charset = GB2312_CHARSET
Font.Color = clNavy
Font.Height = -14
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object DBText5: TDBText
Left = 368
Top = 48
Width = 41
Height = 17
DataField = 'Endyear'
DataSource = dm.ds_baodan
Font.Charset = GB2312_CHARSET
Font.Color = clNavy
Font.Height = -14
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object DBText6: TDBText
Left = 464
Top = 48
Width = 25
Height = 17
DataField = 'Endmonth'
DataSource = dm.ds_baodan
Font.Charset = GB2312_CHARSET
Font.Color = clNavy
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -