📄 ye.dfm
字号:
object Frmye: TFrmye
Left = 202
Top = -15
Width = 1024
Height = 747
Align = alClient
Caption = #12304#20313#39069#27719#24635#26597#35810#12305
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
Position = poDesktopCenter
WindowState = wsMaximized
OnActivate = FormActivate
OnClose = FormClose
PixelsPerInch = 96
TextHeight = 13
object Pz: TPanel
Left = 0
Top = 0
Width = 1016
Height = 713
Align = alClient
Alignment = taRightJustify
BevelInner = bvLowered
BevelOuter = bvLowered
BorderStyle = bsSingle
Color = clSkyBlue
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 0
object help: TLabel
Left = 2
Top = 628
Width = 1008
Height = 25
Align = alBottom
AutoSize = False
Color = clGradientActiveCaption
Font.Charset = GB2312_CHARSET
Font.Color = clWhite
Font.Height = -16
Font.Name = #26999#20307'_GB2312'
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
Layout = tlCenter
end
object GroupBox4: TGroupBox
Left = 1
Top = 61
Width = 1013
Height = 504
Caption = #25910#27454#35760#24405
Color = clSkyBlue
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentColor = False
ParentFont = False
TabOrder = 0
object DBGrid1: TDBGrid
Left = 2
Top = 15
Width = 1009
Height = 487
Align = alClient
Color = clWhite
DataSource = DataSource2
FixedColor = clWhite
Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit, dgMultiSelect]
ReadOnly = True
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clBlue
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
OnKeyPress = DBGrid1KeyPress
OnTitleClick = DBGrid1TitleClick
Columns = <
item
Expanded = False
FieldName = 'fb'
Title.Alignment = taCenter
Title.Caption = #20998#37096
Title.Color = clMoneyGreen
Width = 105
Visible = True
end
item
Expanded = False
FieldName = 'ks'
Title.Alignment = taCenter
Title.Caption = #31185#23460
Title.Color = clMoneyGreen
Width = 105
Visible = True
end
item
Alignment = taRightJustify
Expanded = False
FieldName = 'sk'
Title.Alignment = taCenter
Title.Caption = #25910#27454#37329#39069
Title.Color = clMoneyGreen
Width = 105
Visible = True
end
item
Alignment = taRightJustify
Expanded = False
FieldName = 'fk'
Title.Alignment = taCenter
Title.Caption = #20184#27454#37329#39069
Title.Color = clMoneyGreen
Width = 105
Visible = True
end
item
Alignment = taRightJustify
Expanded = False
FieldName = 'glfy'
Title.Alignment = taCenter
Title.Caption = #31649#29702#36153#29992
Title.Color = clMoneyGreen
Width = 105
Visible = True
end
item
Alignment = taRightJustify
Expanded = False
FieldName = 'ye'
Title.Alignment = taCenter
Title.Caption = #31246#21069#20313#39069
Title.Color = clMoneyGreen
Width = 105
Visible = True
end
item
Alignment = taRightJustify
Expanded = False
FieldName = 'sj'
Title.Alignment = taCenter
Title.Caption = #20986#21475#36864#31246
Title.Color = clMoneyGreen
Width = 105
Visible = True
end
item
Alignment = taRightJustify
Expanded = False
FieldName = 'sxf'
Title.Alignment = taCenter
Title.Caption = #25163#32493#36153
Title.Color = clMoneyGreen
Width = 105
Visible = True
end
item
Alignment = taRightJustify
Expanded = False
FieldName = 'cye'
Title.Alignment = taCenter
Title.Caption = #20313#39069
Title.Color = clMoneyGreen
Width = 105
Visible = True
end>
end
end
object Pd: TPanel
Left = 2
Top = 653
Width = 1008
Height = 54
Align = alBottom
BevelInner = bvLowered
BorderStyle = bsSingle
Color = clWhite
TabOrder = 1
object bprint: TBitBtn
Left = 547
Top = 9
Width = 89
Height = 33
Caption = #21024' '#38500
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
OnClick = bprintClick
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
04000000000080000000120B0000120B00001000000010000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF00C0C0C00000FFFF00FF000000C0C0C000FFFF0000FFFFFF00DADADADADADA
DADAADADADADA1ADADADDADADADA11DADAD1ADADADAD111DAD1DDADADADAD11A
D11A00000000000115AD0888888888511ADA08008008081511AD08888888811A
D1150444444514444D51D4FFFFF15FFF4ADAA4F00F00F00F4DADD4FFFFFFFFFF
4ADAA444444444444DADD484484484484ADAA444444444444DAD}
end
object breturn: TBitBtn
Left = 640
Top = 9
Width = 89
Height = 33
Caption = #36820' '#22238
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 1
OnClick = breturnClick
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
04000000000080000000120B0000120B00001000000010000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF00C0C0C00000FFFF00FF000000C0C0C000FFFF0000FFFFFF00DADADA0ADADA
DADAADADA00DADADADADDADA0A007ADADADAADA0ADAD707DADADDAD0DADADA07
DADAADAD0D007DA0ADADDADAD00A70DA0ADAADADAD0DAD0D0DADDADADADADAD0
0ADAADADADADADA00DADDADADADAD70A0ADAADADADA707AD0DADDADA0007DAD0
DADAADAD0DADA707ADADDADA0AD7077ADADAADAD00077DADADAD}
end
object bprintc: TBitBtn
Left = 454
Top = 9
Width = 89
Height = 33
Caption = 'EXCEL'#34920
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -9
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 2
OnClick = bprintcClick
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
04000000000080000000120B0000120B00001000000010000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF00C0C0C00000FFFF00FF000000C0C0C000FFFF0000FFFFFF00DADADADADADA
DADAADADADAD00000000DADA4ADA0FFFFFF0ADAD44AD0F7777F04444444A0FFF
FFF0ADAD44AD0F7777F0DADA4ADA0FFFFFF0ADADADAD0F7777F0DA00000A0FFF
FFF0AD0FFF0D0000000000000F0ADADADADA0FFF0F0DADADADAD0F7F000ADADA
DADA0F7F00ADADADADAD0FF00ADADADADADA0000ADADADADADAD}
end
object Bkshz: TBitBtn
Left = 361
Top = 9
Width = 89
Height = 33
Caption = #31185#23460#27719#24635
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 3
OnClick = BkshzClick
Glyph.Data = {
66010000424D6601000000000000760000002800000014000000140000000100
040000000000F0000000CE0E0000C40E00001000000000000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
FFFFFFFF0000FFFFFFFFFFFFFFFFFFFF0000FFFFFFF000FFFFF000FF0000FFFF
FFF080FFFFF080FF0000FFFFFFF0007FFF7000FF0000FFFFFFF00000000000FF
0000FF0000008000080000FF0000FF0FFFF08000080000FF0000FF0F00F00000
000000FF0000FF0FFFFF0000F0000FFF0000FF0CCCCCC00CCC00FFFF0000FFFC
FFFFF00FFF00FFFF0000FFFCF00F00080F00FFFF0000FFFCFFFFFFFFFFCFFFFF
0000FFFCCCCCCCCCCCCFFFFF0000FFFC8CC8CC8CC8CFFFFF0000FFFCCCCCCCCC
CCCFFFFF0000FFFFFFFFFFFFFFFFFFFF0000FFFFFFFFFFFFFFFFFFFF0000FFFF
FFFFFFFFFFFFFFFF0000}
end
object Bfbhz: TBitBtn
Left = 269
Top = 9
Width = 89
Height = 33
Caption = #20998#37096#27719#24635
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 4
OnClick = BfbhzClick
Glyph.Data = {
66010000424D6601000000000000760000002800000014000000140000000100
040000000000F0000000CE0E0000C40E00001000000000000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
FFFFFFFF0000FFFFFFFFFFFFFFFFFFFF0000FFFFFFF000FFFFF000FF0000FFFF
FFF080FFFFF080FF0000FFFFFFF0007FFF7000FF0000FFFFFFF00000000000FF
0000FF0000008000080000FF0000FF0FFFF08000080000FF0000FF0F00F00000
000000FF0000FF0FFFFF0000F0000FFF0000FF0CCCCCC00CCC00FFFF0000FFFC
FFFFF00FFF00FFFF0000FFFCF00F00080F00FFFF0000FFFCFFFFFFFFFFCFFFFF
0000FFFCCCCCCCCCCCCFFFFF0000FFFC8CC8CC8CC8CFFFFF0000FFFCCCCCCCCC
CCCFFFFF0000FFFFFFFFFFFFFFFFFFFF0000FFFFFFFFFFFFFFFFFFFF0000FFFF
FFFFFFFFFFFFFFFF0000}
end
end
object pq: TPanel
Left = 2
Top = 2
Width = 1008
Height = 58
Align = alTop
BevelInner = bvLowered
BevelOuter = bvLowered
Color = clSkyBlue
TabOrder = 2
object cks: TCheckBox
Left = 543
Top = 20
Width = 57
Height = 17
Caption = #31185#23460
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -