?? fhd_cx.dfm
字號:
ParamType = ptInput
Value = '0=0'
end
item
DataType = ftString
Name = 'CON1'
ParamType = ptInput
Value = 'DWJC'
end
item
DataType = ftString
Name = 'CON2'
ParamType = ptInput
Value = #39#39
end
item
DataType = ftString
Name = 'CON3'
ParamType = ptInput
Value = #39#39
end
item
DataType = ftString
Name = 'CON4'
ParamType = ptInput
Value = #39#39
end
item
DataType = ftString
Name = 'CON5'
ParamType = ptInput
Value = #39#39
end
item
DataType = ftString
Name = 'CON6'
ParamType = ptInput
Value = #39#39
end
item
DataType = ftString
Name = 'CON7'
ParamType = ptInput
Value = #39#39
end
item
DataType = ftString
Name = 'CON8'
ParamType = ptInput
Value = #39#39
end
item
DataType = ftString
Name = 'CON_GRP'
ParamType = ptInput
Value = 'DWJC'
end
item
DataType = ftString
Name = 'CON_ORD'
ParamType = ptInput
Value = 'DWJC'
end>
Left = 61
Top = 219
end
object qry_GRP: TRxQuery
AfterOpen = qry_JYPAfterOpen
DatabaseName = 'YZPP'
SQL.Strings = (
'SELECT 2 ORD, '#39' '#39'||J.FHDH FHDH, G.DWJC, R.RCKXZMC, '#39'('#39'||Y.ZH||'#39 +
')'#39'||Y.TMC PPDM,'
' DECODE(JSZT, 1, '#39'是'#39', '#39'否'#39') JSZT,'
' Z.ZTMC ZTZT,'
' DECODE(HDR, NULL, '#39'否'#39', '#39'是'#39') FH,'
' TO_CHAR(KDRQ,'#39'YYYY-MM-DD'#39') KDRQ,'
' TO_CHAR(CKRQ,'#39'YYYY-MM-DD'#39') CKRQ,'
' 0 MZ, J.JJ/100 JJ, J.YJ/100 YJ, J.XJ/100 XJ, J.SL, J.ZK, J.JSJ' +
'/100 JSJ,'
' J.SL*(J.XJ*nvl(J.ZK/100, 0)+nvl(J.JSJ,0))/100 JSJE, PXM, F.BZ,' +
' decode(F.JSZT, '#39'0'#39','#39'正常'#39','#39'1'#39','#39'被撤消'#39', '#39'2'#39','#39'被沖正'#39','#39'沖正'#39') zt' +
', F.YJDH'
' FROM TKS_GRPCKPP J, TB_YZPPXXB Y, TKS_GRPFHD F, TGS_GXDWSJB G,' +
' TGS_JRCKXZDM R, TG_ZTZTDMB Z'
' WHERE J.PPDM = Y.TDM AND J.FHDH = F.FHDH AND F.QXDW = G.DWDM A' +
'ND F.CKXZ = R.RCKXZDM(+)'
' AND F.ZTZT = Z.ZTZTDM AND %CON'
'UNION ALL'
'SELECT 1 ORD, G.DWJC FHDH,%CON1, %CON2, %CON3, %CON4, %CON5, %CO' +
'N6, %CON7, %CON8,'
' 0, 0, 0, 0, SUM(J.SL) SL, 0, 0 JSJ, 0 JSJE, PXM, '#39#39' bz, '#39#39'zt, ' +
#39#39' YJDH'
' FROM TKS_GRPCKPP J, TB_YZPPXXB Y, TKS_GRPFHD F, TGS_GXDWSJB G,' +
' TGS_JRCKXZDM R, TG_ZTZTDMB Z'
' WHERE J.PPDM = Y.TDM AND J.FHDH = F.FHDH AND F.QXDW = G.DWDM A' +
'ND F.CKXZ = R.RCKXZDM(+)'
' AND F.ZTZT = Z.ZTZTDM AND %CON'
' GROUP BY PXM, %CON_GRP'
'ORDER BY PXM, %CON_ORD, 1,2 desc'
' ')
Macros = <
item
DataType = ftString
Name = 'CON'
ParamType = ptInput
Value = '0=0'
end
item
DataType = ftString
Name = 'CON1'
ParamType = ptInput
Value = 'DWJC'
end
item
DataType = ftString
Name = 'CON2'
ParamType = ptInput
Value = #39#39
end
item
DataType = ftString
Name = 'CON3'
ParamType = ptInput
Value = #39#39
end
item
DataType = ftString
Name = 'CON4'
ParamType = ptInput
Value = #39#39
end
item
DataType = ftString
Name = 'CON5'
ParamType = ptInput
Value = #39#39
end
item
DataType = ftString
Name = 'CON6'
ParamType = ptInput
Value = #39#39
end
item
DataType = ftString
Name = 'CON7'
ParamType = ptInput
Value = #39#39
end
item
DataType = ftString
Name = 'CON8'
ParamType = ptInput
Value = #39#39
end
item
DataType = ftString
Name = 'CON_GRP'
ParamType = ptInput
Value = 'DWJC'
end
item
DataType = ftString
Name = 'CON_ORD'
ParamType = ptInput
Value = 'DWJC'
end>
Left = 61
Top = 184
end
object qry_YP: TRxQuery
AfterOpen = qry_JYPAfterOpen
DatabaseName = 'YZPP'
SQL.Strings = (
'SELECT 2 ORD, '#39' '#39'||J.FHDH FHDH, G.DWJC, R.RCKXZMC, '#39'('#39'||Y.ZH||'#39 +
')'#39'||Y.MC PPDM,'
' DECODE(JSZT, 1, '#39'是'#39', '#39'否'#39') JSZT,'
' Z.ZTMC ZTZT,'
' DECODE(HDR, NULL, '#39'否'#39', '#39'是'#39') FH,'
' TO_CHAR(KDRQ,'#39'YYYY-MM-DD'#39') KDRQ,'
' TO_CHAR(CKRQ,'#39'YYYY-MM-DD'#39') CKRQ,'
' 0 MZ, J.JJ/100 JJ, J.YJ/100 YJ, J.XJ/100 XJ, J.SL, J.ZK, J.JSJ' +
'/100 JSJ,'
' J.SL*(J.XJ*nvl(J.ZK/100, 0)+nvl(J.JSJ,0))/100 JSJE, PXM, F.BZ,' +
' decode(F.JSZT, '#39'0'#39','#39'正常'#39','#39'1'#39','#39'被撤消'#39', '#39'2'#39','#39'被沖正'#39','#39'沖正'#39') zt' +
', F.YJDH'
' FROM TKS_YPCKPP J, TB_JYPTXXB Y, TKS_YPFHD F, TGS_GXDWSJB G, T' +
'GS_JRCKXZDM R, TG_ZTZTDMB Z'
' WHERE J.PPDM = Y.TDM AND J.FHDH = F.FHDH AND F.QXDW = G.DWDM A' +
'ND F.CKXZ = R.RCKXZDM(+)'
' AND F.ZTZT = Z.ZTZTDM AND F.CKXZ <> '#39'11'#39' AND %CON'
'UNION ALL'
'SELECT 1 ORD, G.DWJC FHDH, %CON1, %CON2, %CON3, %CON4, %CON5, %C' +
'ON6, %CON7, %CON8,'
' 0, 0 , 0 , 0, SUM(J.SL) SL,0, 0 JSJ, 0 JSJE, PXM, '#39#39' bz, '#39#39' zt' +
', '#39#39' YJDH'
' FROM TKS_YPCKPP J, TB_JYPTXXB Y, TKS_YPFHD F, TGS_GXDWSJB G, T' +
'GS_JRCKXZDM R, TG_ZTZTDMB Z'
' WHERE J.PPDM = Y.TDM AND J.FHDH = F.FHDH AND F.QXDW = G.DWDM A' +
'ND F.CKXZ = R.RCKXZDM(+)'
' AND F.ZTZT = Z.ZTZTDM AND F.CKXZ <> '#39'11'#39' AND %CON'
' GROUP BY PXM, %CON_GRP'
'ORDER BY PXM, %CON_ORD, 1,2 desc'
' ')
Macros = <
item
DataType = ftString
Name = 'CON'
ParamType = ptInput
Value = '0=0'
end
item
DataType = ftString
Name = 'CON1'
ParamType = ptInput
Value = 'DWJC'
end
item
DataType = ftString
Name = 'CON2'
ParamType = ptInput
Value = #39#39
end
item
DataType = ftString
Name = 'CON3'
ParamType = ptInput
Value = #39#39
end
item
DataType = ftString
Name = 'CON4'
ParamType = ptInput
Value = #39#39
end
item
DataType = ftString
Name = 'CON5'
ParamType = ptInput
Value = #39#39
end
item
DataType = ftString
Name = 'CON6'
ParamType = ptInput
Value = #39#39
end
item
DataType = ftString
Name = 'CON7'
ParamType = ptInput
Value = #39#39
end
item
DataType = ftString
Name = 'CON8'
ParamType = ptInput
Value = #39#39
end
item
DataType = ftString
Name = 'CON_GRP'
ParamType = ptInput
Value = 'DWJC'
end
item
DataType = ftString
Name = 'CON_ORD'
ParamType = ptInput
Value = 'DWJC'
end>
Left = 61
Top = 149
end
object qry_JYP: TRxQuery
AfterOpen = qry_JYPAfterOpen
DatabaseName = 'YZPP'
SQL.Strings = (
'SELECT 2 ORD, '#39' '#39'||J.FHDH FHDH, G.DWJC, R.RCKXZMC, '#39'('#39'||Y.ZH||'#39 +
')'#39'||Y.TMC PPDM,'
' DECODE(JSZT, 1, '#39'是'#39', '#39'否'#39') JSZT,'
' Z.ZTMC ZTZT,'
' DECODE(HDR, NULL, '#39'否'#39', '#39'是'#39') FH,'
' TO_CHAR(KDRQ,'#39'YYYY-MM-DD'#39') KDRQ,'
' TO_CHAR(CKRQ,'#39'YYYY-MM-DD'#39') CKRQ,'
' 0 MZ, J.JJ/100 JJ, J.YJ/100 YJ, J.XJ/100 XJ, J.SL, J.ZK, J.JSJ' +
'/100 JSJ,'
' J.SL*(J.XJ*nvl(J.ZK/100, 0)+nvl(J.JSJ,0))/100 JSJE, PXM, F.BZ,' +
' decode(F.JSZT, '#39'0'#39','#39'正常'#39','#39'1'#39','#39'被撤消'#39', '#39'2'#39','#39'被沖正'#39','#39'沖正'#39') zt' +
', F.YJDH'
' FROM TKS_JYCKPP J, TB_YZPPTXXB Y, TKS_JYFHD F, TGS_GXDWSJB G, ' +
'TGS_JRCKXZDM R, TG_ZTZTDMB Z'
' WHERE J.PPDM = Y.TDM AND J.FHDH = F.FHDH AND F.QXDW = G.DWDM A' +
'ND F.CKXZ = R.RCKXZDM(+)'
' AND F.ZTZT = Z.ZTZTDM AND F.CKXZ <> '#39'11'#39' AND %CON'
'UNION ALL'
'SELECT 1 ORD, G.DWJC FHDH,%CON1, %CON2, %CON3, %CON4, %CON5, %CO' +
'N6, %CON7, %CON8,'
' 0, 0, 0, 0, SUM(J.SL) SL, 0, 0 JSJ, 0 JSJE, PXM, '#39#39' bz, '#39#39' zt,' +
' '#39#39' YJDH'
' FROM TKS_JYCKPP J, TB_YZPPTXXB Y, TKS_JYFHD F, TGS_GXDWSJB G, ' +
'TGS_JRCKXZDM R, TG_ZTZTDMB Z'
' WHERE J.PPDM = Y.TDM AND J.FHDH = F.FHDH AND F.QXDW = G.DWDM A' +
'ND F.CKXZ = R.RCKXZDM(+)'
' AND F.ZTZT = Z.ZTZTDM AND F.CKXZ <> '#39'11'#39' AND %CON'
' GROUP BY PXM, %CON_GRP'
'ORDER BY PXM, %CON_ORD, 1, 2 desc'
' ')
Macros = <
item
DataType = ftString
Name = 'CON'
ParamType = ptInput
Value = '0=0'
end
item
DataType = ftString
Name = 'CON1'
ParamType = ptInput
Value = 'DWJC'
end
item
DataType = ftString
Name = 'CON2'
ParamType = ptInput
Value = #39#39
end
item
DataType = ftString
Name = 'CON3'
ParamType = ptInput
Value = #39#39
end
item
DataType = ftString
Name = 'CON4'
ParamType = ptInput
Value = #39#39
end
item
DataType = ftString
Name = 'CON5'
ParamType = ptInput
Value = #39#39
end
item
DataType = ftString
Name = 'CON6'
ParamType = ptInput
Value = #39#39
end
item
DataType = ftString
Name = 'CON7'
ParamType = ptInput
Value = #39#39
end
item
DataType = ftString
Name = 'CON8'
ParamType = ptInput
Value = #39#39
end
item
DataType = ftString
Name = 'CON_GRP'
ParamType = ptInput
Value = 'DWJC'
end
item
DataType = ftString
Name = 'CON_ORD'
ParamType = ptInput
Value = 'DWJC'
end>
Left = 61
Top = 112
end
end
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -