📄 etp_month_acc.dfm
字号:
Height = 26
Font.Charset = ANSI_CHARSET
Font.Color = clBlue
Font.Height = -16
Font.Name = #23435#20307
Font.Style = [fsBold]
MaxValue = 0
MinValue = 2005
ParentFont = False
TabOrder = 2
Value = 0
end
object emonth: TSpinEdit
Left = 273
Top = 19
Width = 40
Height = 26
Font.Charset = ANSI_CHARSET
Font.Color = clBlue
Font.Height = -16
Font.Name = #23435#20307
Font.Style = [fsBold]
MaxValue = 12
MinValue = 1
ParentFont = False
TabOrder = 3
Value = 1
end
end
object CheckBox1: TCheckBox
Left = 353
Top = 36
Width = 81
Height = 17
Caption = #37325#26032#32479#35745
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 1
end
object PrtBtn: TBitBtn
Left = 561
Top = 32
Width = 85
Height = 24
Cursor = crHandPoint
Hint = #20462#25913'|'#20462#25913
Caption = #25171#21360'&P'
Enabled = False
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 2
OnClick = PrtBtnClick
Glyph.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000000000000000000000000000000000000FF00FF00FF00
FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000FF00FF00FF00FF00FF00FF00FF00FF000000
0000FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00FF00FF0000000000FF00FF0000000000FF00FF00FF00FF00000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000FF00FF0000000000FF00FF0000000000FF00
FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF0000FFFF0000FFFFFF00FF
FFFFFF00FF00FF00FF00000000000000000000000000FF00FF0000000000FF00
FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF0000000000000000000000
0000FF00FF00FF00FF0000000000FF00FF0000000000FF00FF00000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000FF00FF00FF00FF000000000000000000FF00
FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00FF00FF0000000000FF00FF0000000000FF00FF0000000000FF00FF000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000FF00FF0000000000FF00FF000000000000000000FF00FF00FF00
FF0000000000FFFFFF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFF000000FFFF00FF0000000000FF00FF0000000000FF00FF00FF00
FF00FF00FF0000000000FFFFFF00000000FF0000000000000000000000000000
0000FFFFFF00000000FF000000000000000000000000FF00FF00FF00FF00FF00
FF00FF00FF0000000000FFFFFF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFF000000FFFF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00FF00FF00FF00FF0000000000FFFFFF00000000FF00000000000000000000
000000000000FFFFFF00000000FFFF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00FF00FF00FF00FF0000000000FFFFFF00FFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FFFF00FF00FF00FF00FF00FF00FF00
FF00FF00FF00FF00FF00FF00FF00000000000000000000000000000000000000
000000000000000000000000000000000000FF00FF00FF00FF00}
end
object SearchBtn: TBitBtn
Left = 465
Top = 32
Width = 85
Height = 24
Caption = #26597#35810'&Q'
Default = True
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 3
OnClick = SearchBtnClick
Glyph.Data = {
36030000424D3603000000000000360000002800000010000000100000000100
1800000000000003000074120000741200000000000000000000C0C0C0C0C0C0
C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0800000800000C0C0C0C0C0C0C0C0C0
C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C08000
00800000800000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
C0C0C0C0C0C0C0C0C0C0C0800000800000800000C0C0C0C0C0C0C0C0C0C0C0C0
C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C08000008000
00C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C080000080000080
0000800000808080800000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
C0C0C0C0C0C0800000FFFF00FFFF00FFFF00FFFF00800000808080C0C0C0C0C0
C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0800000FFFF00FFFF00FFFF00FF
FF00FFFF00FFFF00800000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
C0C0C0800000FFFFFFFFFF00FFFF00FFFF00FFFF00FFFF00800000C0C0C0C0C0
C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0800000FFFF00FFFF00FFFF00FF
FF00FFFF00FFFF00800000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
C0C0C0800000FFFFFFFFFF00FFFF00FFFF00FFFF00FFFF00800000C0C0C0C0C0
C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0800000FFFFFFFFFF00FF
FFFFFFFF00800000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
C0C0C0C0C0C0C0C0C0800000800000800000800000C0C0C0C0C0C0C0C0C0C0C0
C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0}
end
object ExtBtn: TBitBtn
Left = 673
Top = 32
Width = 85
Height = 24
Cancel = True
Caption = #36864#20986'&X'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = []
ModalResult = 2
ParentFont = False
TabOrder = 4
Glyph.Data = {
EE000000424DEE000000000000007600000028000000100000000F0000000100
0400000000007800000000000000000000001000000000000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
888888880888888888888880080088888888880E088808888888000E00000000
888880EE07770888888880EE07770888888880EE07770888088880EE07770880
088880EE07770800000880EE07770880088880EE077708880888800077770888
888880077777088888888000000008888888}
end
object ProgressBar1: TProgressBar
Left = 2
Top = 64
Width = 764
Height = 16
Align = alBottom
TabOrder = 5
end
end
object ADOQ_Etp_shouzhi: TADOQuery
Connection = DataMod.ADOCon
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'select * from Etp_shouzhi')
Left = 80
Top = 120
object ADOQ_Etp_shouzhiid: TAutoIncField
FieldName = 'id'
ReadOnly = True
end
object ADOQ_Etp_shouzhiyearmonth: TStringField
FieldName = 'yearmonth'
Size = 7
end
object ADOQ_Etp_shouzhishou: TBCDField
FieldName = 'shou'
DisplayFormat = #65509',0.00'
EditFormat = '0.00'
Precision = 18
Size = 2
end
object ADOQ_Etp_shouzhiyinzhi: TBCDField
FieldName = 'yinzhi'
DisplayFormat = #65509',0.00'
EditFormat = '0.00'
Precision = 18
Size = 2
end
object ADOQ_Etp_shouzhishizhi: TBCDField
FieldName = 'shizhi'
DisplayFormat = #65509',0.00'
EditFormat = '0.00'
Precision = 18
Size = 2
end
object ADOQ_Etp_shouzhiZhiself: TBCDField
FieldName = 'Zhiself'
DisplayFormat = #65509',0.00'
EditFormat = '0.00'
Precision = 18
Size = 0
end
object ADOQ_Etp_shouzhibalance: TBCDField
FieldName = 'balance'
DisplayFormat = #65509',0.00'
EditFormat = '0.00'
Precision = 18
Size = 2
end
end
object RvProject1: TRvProject
Engine = RvSystem1
Left = 392
Top = 139
end
object RvSystem1: TRvSystem
TitleSetup = #30830#23450#25253#34920#36755#20986#26041#24335
TitleStatus = #27491#22312#29983#25104#25253#34920
TitlePreview = #25968#25454#39044#35272
SystemSetups = [ssAllowDestPrinter]
SystemFiler.StatusFormat = #27491#22312#29983#25104#31532'%p'#39029','#35831#31245#20505'.....'
SystemPreview.FormState = wsMaximized
SystemPreview.ZoomFactor = 100.000000000000000000
SystemPrinter.ScaleX = 100.000000000000000000
SystemPrinter.ScaleY = 100.000000000000000000
SystemPrinter.StatusFormat = #27491#22312#25171#21360#31532'%p'#39029
SystemPrinter.Title = 'ReportPrinter Report'
SystemPrinter.UnitsFactor = 1.000000000000000000
Left = 432
Top = 139
end
object Rv_GJSLMX: TRvDataSetConnection
RuntimeVisibility = rtDeveloper
DataSet = ADOQ_Etp_shouzhi
Left = 480
Top = 139
end
object DS_Etp_ShouZhi: TDataSource
DataSet = ADOQ_Etp_shouzhi
Left = 128
Top = 120
end
object adoqtmp: TADOQuery
Connection = DataMod.ADOCon
Parameters = <>
Left = 80
Top = 232
end
object ADOQupdate: TADOQuery
Connection = DataMod.ADOCon
Parameters = <>
Left = 128
Top = 232
end
object ADOQEtp_shouzhi: TADOQuery
Connection = DataMod.ADOCon
Parameters = <>
Left = 248
Top = 120
end
object ADOQ_TJFlag: TADOQuery
Connection = DataMod.ADOCon
Parameters = <>
Left = 464
Top = 256
end
object RvProject2: TRvProject
Engine = RvSystem2
Left = 584
Top = 184
end
object RvSystem2: TRvSystem
TitleSetup = #30830#23450#25253#34920#36755#20986#26041#24335
TitleStatus = #27491#22312#29983#25104#25253#34920
TitlePreview = #25968#25454#39044#35272
SystemSetups = [ssAllowDestPrinter]
SystemFiler.StatusFormat = #27491#22312#29983#25104#31532'%p'#39029','#35831#31245#20505'.....'
SystemPreview.FormState = wsMaximized
SystemPreview.ZoomFactor = 100.000000000000000000
SystemPrinter.ScaleX = 100.000000000000000000
SystemPrinter.ScaleY = 100.000000000000000000
SystemPrinter.StatusFormat = #27491#22312#25171#21360#31532'%p'#39029
SystemPrinter.Title = 'ReportPrinter Report'
SystemPrinter.UnitsFactor = 1.000000000000000000
Left = 584
Top = 224
end
object Rv_TJ_Etp_Month: TRvDataSetConnection
RuntimeVisibility = rtDeveloper
DataSet = ADOQ_Etp_shouzhi
Left = 584
Top = 256
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -