?? sy_jyspnxstjb.dfm
字號:
Height = 31
Columns = 2
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋體'
Font.Style = []
ItemIndex = 1
Items.Strings = (
'本級'
'下級')
ParentFont = False
TabOrder = 0
OnClick = RG_JBClick
end
end
object Panel3: TPanel
Left = 0
Top = 533
Width = 790
Height = 38
Align = alBottom
BevelInner = bvLowered
BevelOuter = bvNone
TabOrder = 1
object BBt_Quit: TBitBtn
Left = 696
Top = 6
Width = 75
Height = 25
Cancel = True
Caption = '返回(&X)'
ModalResult = 3
TabOrder = 4
Glyph.Data = {
DE010000424DDE01000000000000760000002800000024000000120000000100
0400000000006801000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00388888888877
F7F787F8888888888333333F00004444400888FFF444448888888888F333FF8F
000033334D5007FFF4333388888888883338888F0000333345D50FFFF4333333
338F888F3338F33F000033334D5D0FFFF43333333388788F3338F33F00003333
45D50FEFE4333333338F878F3338F33F000033334D5D0FFFF43333333388788F
3338F33F0000333345D50FEFE4333333338F878F3338F33F000033334D5D0FFF
F43333333388788F3338F33F0000333345D50FEFE4333333338F878F3338F33F
000033334D5D0EFEF43333333388788F3338F33F0000333345D50FEFE4333333
338F878F3338F33F000033334D5D0EFEF43333333388788F3338F33F00003333
4444444444333333338F8F8FFFF8F33F00003333333333333333333333888888
8888333F00003333330000003333333333333FFFFFF3333F00003333330AAAA0
333333333333888888F3333F00003333330000003333333333338FFFF8F3333F
0000}
NumGlyphs = 2
end
object BBt_Find: TBitBtn
Left = 410
Top = 6
Width = 75
Height = 25
Caption = '查詢(&F)'
TabOrder = 2
OnClick = BBt_FindClick
Glyph.Data = {
36030000424D3603000000000000360000002800000010000000100000000100
1800000000000003000000000000000000000000000000000000FF00FFFF00FF
FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF0000FF0000
FF0000FF0000FF0000FF00FFFF00FFFF00FFFF00FFFF00FFFF0000FF0000FF00
00FF0000FF0000FF00FFFF0000FFFFFFFF0000FF0000FF0000FF00FFFF00FFFF
00FFFF00FFFF00FFFF0000FFFFFFFF0000FF0000FF0000FF00FFFF0000FFFFFF
FF0000FF0000FF0000FF00FFFF00FFFF00FFFF00FFFF00FFFF0000FFFFFFFF00
00FF0000FF0000FF00FFFF0000FF0000FF0000FF0000FF0000FF0000FF0000FF
00FFFF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00FFFF0000FF0000
FFFFFFFF0000FF0000FF0000FF0000FF0000FF0000FFFFFFFF0000FF0000FF00
00FF0000FF0000FF00FFFF0000FF0000FFFFFFFF0000FF0000FF0000FF00FFFF
0000FF0000FFFFFFFF0000FF0000FF0000FF0000FF0000FF00FFFF0000FF0000
FFFFFFFF0000FF0000FF0000FF00FFFF0000FF0000FFFFFFFF0000FF0000FF00
00FF0000FF0000FF00FFFF00FFFF0000FF0000FF0000FF0000FF0000FF0000FF
0000FF0000FF0000FF0000FF0000FF0000FF0000FF00FFFF00FFFF00FFFF00FF
FF0000FFFFFFFF0000FF0000FF0000FF00FFFF0000FFFFFFFF0000FF0000FF00
00FF00FFFF00FFFF00FFFF00FFFF00FFFF0000FF0000FF0000FF0000FF0000FF
00FFFF0000FF0000FF0000FF0000FF0000FF00FFFF00FFFF00FFFF00FFFF00FF
FF00FFFF0000FF0000FF0000FF00FFFF00FFFF00FFFF0000FF0000FF0000FF00
FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF0000FFFFFFFF0000FF00FFFF
00FFFF00FFFF0000FFFFFFFF0000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
FF00FFFF0000FF0000FF0000FF00FFFF00FFFF00FFFF0000FF0000FF0000FF00
FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF}
end
object BBt_Print: TBitBtn
Left = 505
Top = 6
Width = 75
Height = 25
Caption = '打印(&P)'
TabOrder = 3
OnClick = BBt_PrintClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
0003377777777777777308888888888888807F33333333333337088888888888
88807FFFFFFFFFFFFFF7000000000000000077777777777777770F8F8F8F8F8F
8F807F333333333333F708F8F8F8F8F8F9F07F333333333337370F8F8F8F8F8F
8F807FFFFFFFFFFFFFF7000000000000000077777777777777773330FFFFFFFF
03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
33333337F3F37F3733333330F08F0F0333333337F7337F7333333330FFFF0033
33333337FFFF7733333333300000033333333337777773333333}
NumGlyphs = 2
end
object btn_dj: TBitBtn
Left = 296
Top = 6
Width = 95
Height = 25
Caption = '登記收入(E)'
TabOrder = 1
OnClick = btn_djClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000000
000033333377777777773333330FFFFFFFF03FF3FF7FF33F3FF700300000FF0F
00F077F777773F737737E00BFBFB0FFFFFF07773333F7F3333F7E0BFBF000FFF
F0F077F3337773F3F737E0FBFBFBF0F00FF077F3333FF7F77F37E0BFBF00000B
0FF077F3337777737337E0FBFBFBFBF0FFF077F33FFFFFF73337E0BF0000000F
FFF077FF777777733FF7000BFB00B0FF00F07773FF77373377373330000B0FFF
FFF03337777373333FF7333330B0FFFF00003333373733FF777733330B0FF00F
0FF03333737F37737F373330B00FFFFF0F033337F77F33337F733309030FFFFF
00333377737FFFFF773333303300000003333337337777777333}
NumGlyphs = 2
end
object Bbt_Send: TBitBtn
Left = 601
Top = 6
Width = 75
Height = 25
Hint = '修改'
Caption = '發送(&T)'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋體'
Font.Style = []
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 0
Visible = False
OnClick = Bbt_SendClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
33333333333FFFFFFFFF333333000000000033333377777777773333330FFFFF
FFF03333337F333333373333330FFFFFFFF03333337F3FF3FFF73333330F00F0
00F03333F37F773777373330330FFFFFFFF03337FF7F3F3FF3F73339030F0800
F0F033377F7F737737373339900FFFFFFFF03FF7777F3FF3FFF70999990F00F0
00007777777F7737777709999990FFF0FF0377777777FF37F3730999999908F0
F033777777777337F73309999990FFF0033377777777FFF77333099999000000
3333777777777777333333399033333333333337773333333333333903333333
3333333773333333333333303333333333333337333333333333}
NumGlyphs = 2
end
end
object Pnl_Condition: TPanel
Left = 0
Top = 53
Width = 790
Height = 44
Align = alTop
BevelOuter = bvLowered
TabOrder = 2
object lbl_ND: TLabel
Left = 295
Top = 20
Width = 36
Height = 12
Caption = '年度：'
end
object lbl_YF: TLabel
Left = 391
Top = 20
Width = 36
Height = 12
Caption = '月份：'
end
object Label1: TLabel
Left = 703
Top = 21
Width = 60
Height = 12
Caption = '單位：萬元'
end
object RGr_Method: TRadioGroup
Left = 14
Top = 6
Width = 123
Height = 31
Caption = '統計方式'
Columns = 2
ItemIndex = 1
Items.Strings = (
'年'
'月')
TabOrder = 0
OnClick = RGr_MethodClick
end
object SED_Year: TSpinEdit
Left = 337
Top = 16
Width = 46
Height = 21
MaxValue = 2050
MinValue = 1990
TabOrder = 1
Value = 1990
OnChange = SED_YearChange
end
object SED_Month: TSpinEdit
Left = 433
Top = 16
Width = 37
Height = 21
MaxValue = 12
MinValue = 1
TabOrder = 2
Value = 1
OnChange = SED_MonthChange
end
end
object Qry_Search: TQuery
DatabaseName = 'YZPP'
SQL.Strings = (
' Select B.DWDM ,B.DWMC ,NVL(A.JYPSR/10000,0) JYPSR,NVL(A.YPSR/10' +
'000,0) YPSR,'
' NVL(A.QTSR/10000,0) QTSR,NVL(A.ML/10000,0)ML,NVL(A.HJ/10000,0) ' +
'HJ ,B.JYPSR/10000 JYPSRHJ,'
' B.YPSR/10000 YPSRHJ,B.QTSR/10000 QTSRHJ,B.ML/10000 MLHJ,B.HJ/10' +
'000 HJHJ'
' from (Select B.DWDM,B.DWMC,sum(A.JYPSR) JYPSR ,sum(A.YPSR) YP' +
'SR ,'
' sum(A.QTSR) QTSR,sum(A.ML) ML,sum(A.JYPSR+A.YPSR+A.QTSR) HJ'
' from TYS_JYYWSRTJB A,TO_GXDWSJB B WHERE A.DWDM=B.DWDM'
' GROUP BY B.DWDM,B.DWMC'
' UNION Select '#39'99999999'#39','#39'合計'#39',SUM(JYPSR),SUM(YPSR),SUM(QTSR)' +
',SUM(ML),SUM(HJ)'
' FROM (Select A.ND,A.YF,B.DWMC,A.JYPSR,A.YPSR,A.QTSR,A.ML,A.JY' +
'PSR+A.YPSR+A.QTSR HJ'
' from TYS_JYYWSRTJB A,TO_GXDWSJB B'
' WHERE A.DWDM=B.DWDM )) A ,'
' (Select DWDM ,DWMC ,JYPSR ,YPSR ,QTSR ,ML ,HJ from'
' (Select B.DWDM,B.DWMC,sum(A.JYPSR) JYPSR ,sum(A.YPSR) YPSR ,s' +
'um(A.QTSR) QTSR,'
' sum(A.ML) ML,sum(A.JYPSR+A.YPSR+A.QTSR) HJ from TYS_JYYWSRTJB' +
' A,TO_GXDWSJB B'
' WHERE A.DWDM=B.DWDM GROUP BY B.DWDM,B.DWMC'
' UNION Select '#39'99999999'#39','#39'合計'#39','
' SUM(JYPSR),SUM(YPSR),SUM(QTSR),'
' SUM(ML),SUM(HJ) FROM'
' (Select A.ND,A.YF,B.DWMC,A.JYPSR,A.YPSR,A.QTSR,'
' A.ML,A.JYPSR+A.YPSR+A.QTSR HJ'
' from TYS_JYYWSRTJB A,TO_GXDWSJB B WHERE A.DWDM=B.DWDM'
' ))) B WHERE A.DWDM(+)=B.DWDM'
' ')
UpdateObject = UpdateSQL1
Left = 392
Top = 200
object Qry_SearchDWDM: TStringField
FieldName = 'DWDM'
Size = 8
end
object Qry_SearchDWMC: TStringField
FieldName = 'DWMC'
Size = 40
end
object Qry_SearchJYPSR: TFloatField
FieldName = 'JYPSR'
OnGetText = Qry_SearchJYPSRGetText
end
object Qry_SearchYPSR: TFloatField
FieldName = 'YPSR'
OnGetText = Qry_SearchJYPSRGetText
end
object Qry_SearchQTSR: TFloatField
FieldName = 'QTSR'
OnGetText = Qry_SearchJYPSRGetText
end
object Qry_SearchML: TFloatField
FieldName = 'ML'
OnGetText = Qry_SearchJYPSRGetText
end
object Qry_SearchHJ: TFloatField
FieldName = 'HJ'
OnGetText = Qry_SearchJYPSRGetText
end
object Qry_SearchJYPSRHJ: TFloatField
FieldName = 'JYPSRHJ'
OnGetText = Qry_SearchJYPSRGetText
end
object Qry_SearchYPSRHJ: TFloatField
FieldName = 'YPSRHJ'
OnGetText = Qry_SearchJYPSRGetText
end
object Qry_SearchQTSRHJ: TFloatField
FieldName = 'QTSRHJ'
OnGetText = Qry_SearchJYPSRGetText
end
object Qry_SearchMLHJ: TFloatField
FieldName = 'MLHJ'
OnGetText = Qry_SearchJYPSRGetText
end
object Qry_SearchHJHJ: TFloatField
FieldName = 'HJHJ'
OnGetText = Qry_SearchJYPSRGetText
end
end
object Dso_Search: TDataSource
DataSet = Qry_Search
Left = 424
Top = 200
end
object Qry_Any: TQuery
DatabaseName = 'yzpp'
Left = 496
Top = 200
end
object UpdateSQL1: TUpdateSQL
Left = 360
Top = 200
end
end
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -