📄 sy_ypcbcx.dfm
字号:
inherited FrmY_YPCBCX: TFrmY_YPCBCX
Left = 38
Top = 17
Caption = '进发存月盘存表'
ClientHeight = 523
ClientWidth = 742
OldCreateOrder = True
PixelsPerInch = 96
TextHeight = 12
inherited Panel11: TPanel
Width = 742
inherited panel1: TRxLabel
Width = 740
Caption = '进发存盘存表查询'
end
inherited DWMC: TLabel
Top = 24
end
object Label1: TLabel
Left = 544
Top = 24
Width = 36
Height = 12
Caption = '年份：'
end
object Label2: TLabel
Left = 650
Top = 24
Width = 24
Height = 12
Caption = '月份'
end
object SED_Year: TSpinEdit
Left = 572
Top = 18
Width = 65
Height = 21
MaxValue = 2050
MinValue = 1990
TabOrder = 0
Value = 1990
OnChange = SED_YearChange
end
object CBo_YF: TComboBox
Left = 675
Top = 19
Width = 50
Height = 20
ItemHeight = 12
TabOrder = 1
Items.Strings = (
'01'
'02'
'03'
'04'
'05'
'06'
'07'
'08'
'09'
'10'
'11'
'12')
end
object CB_bdpc: TCheckBox
Left = 468
Top = 22
Width = 69
Height = 17
Caption = '变动盘存'
TabOrder = 2
end
end
inherited Panel3: TPanel
Top = 488
Width = 742
inherited BBt_Quit: TBitBtn
Left = 645
end
inherited BBt_Find: TBitBtn
Left = 456
end
inherited BBt_Print: TBitBtn
Left = 550
end
end
inherited Pnl_Condition: TPanel
Width = 742
Height = 40
Visible = False
inherited l1: TLabel
Left = 515
Visible = False
end
inherited l2: TLabel
Left = 646
Width = 24
Caption = '月份'
end
inherited cmb_From: TComboBox
Left = 591
TabOrder = 1
Visible = False
end
inherited cmb_End: TComboBox
Left = 671
Top = 13
TabOrder = 0
end
end
inherited DBG_Result: TDBGrid
Top = 85
Width = 742
Height = 403
Columns = <
item
Expanded = False
FieldName = 'ZH'
PickList.Strings = ()
Title.Caption = '志号'
Width = 61
Visible = True
end
item
Expanded = False
FieldName = 'PPMC'
PickList.Strings = ()
ReadOnly = True
Title.Alignment = taCenter
Title.Caption = '票品名称'
Width = 109
Visible = True
end
item
Expanded = False
FieldName = 'JJ'
PickList.Strings = ()
ReadOnly = True
Title.Alignment = taCenter
Title.Caption = '销价'
Width = 53
Visible = True
end
item
Expanded = False
FieldName = 'SYJCSL'
PickList.Strings = ()
ReadOnly = True
Title.Alignment = taCenter
Title.Caption = '上月结存数量'
Width = 76
Visible = True
end
item
Expanded = False
FieldName = 'SYJCJE'
PickList.Strings = ()
ReadOnly = True
Title.Alignment = taCenter
Title.Caption = '上月结存金额'
Width = 78
Visible = True
end
item
Expanded = False
FieldName = 'BYZJSL'
PickList.Strings = ()
ReadOnly = True
Title.Alignment = taCenter
Title.Caption = '本月增加数量'
Width = 76
Visible = True
end
item
Expanded = False
FieldName = 'BYZJJJJE'
PickList.Strings = ()
ReadOnly = True
Title.Alignment = taCenter
Title.Caption = '本月增加金额'
Width = 74
Visible = True
end
item
Expanded = False
FieldName = 'BYJSSL'
PickList.Strings = ()
ReadOnly = True
Title.Alignment = taCenter
Title.Caption = '本月减少数量'
Width = 75
Visible = True
end
item
Expanded = False
FieldName = 'BYJSXJJE'
PickList.Strings = ()
ReadOnly = True
Title.Alignment = taCenter
Title.Caption = '本月减少金额'
Width = 78
Visible = True
end
item
Expanded = False
FieldName = 'SQKCSL'
PickList.Strings = ()
ReadOnly = True
Title.Alignment = taCenter
Title.Caption = '结存数量'
Width = 78
Visible = True
end
item
Expanded = False
FieldName = 'KCJJJE'
PickList.Strings = ()
ReadOnly = True
Title.Alignment = taCenter
Title.Caption = '结存金额'
Width = 74
Visible = True
end>
end
inherited Qry_Search: TRxQuery
AfterOpen = Qry_SearchAfterOpen
Left = 423
Top = 202
end
inherited Dso_Search: TDataSource
Left = 451
Top = 202
end
inherited Qry_Any: TQuery
Left = 556
end
inherited SqlStrings: TSqlStrings
jyp_Sql.Strings = (
'Select 2 ORD, T.TJC PPMC, T.ZH, PC.DWDM,PC.ND,PC.YF,PC.PPDM,PC.J' +
'J/100 JJ,'
' PC.SYJCSL, PC.SYJCJE/100 SYJCJE ,'
' PC.BYZJSL, PC.BYZJJJJE/100 BYZJJJJE,'
' PC.BYJSSL, PC.BYJSXJJE/100 BYJSXJJE,'
' PC.SQKCSL, PC.KCJJJE/100 KCJJJE'
' From TYS_JYPYPCB PC,TB_YZPPTXXB T'
' Where PC.PPDM=T.TDM'
' AND PC.ND=:ND'
' AND PC.YF=:YF'
' %BD'
'UNION ALL'
'Select 1, '#39' 小计'#39', '#39#39', '#39#39', '#39#39', '#39#39', '#39#39', 0, '
' SUM(PC.SYJCSL), SUM(PC.SYJCJE/100) SYJCJE ,'
' SUM(PC.BYZJSL), SUM(PC.BYZJJJJE/100) BYZJJJJE,'
' SUM(PC.BYJSSL), SUM(PC.BYJSXJJE/100) BYJSXJJE,'
' SUM(PC.SQKCSL), SUM(PC.KCJJJE/100) KCJJJE'
' From TYS_JYPYPCB PC'
' Where PC.ND=:ND'
' AND PC.YF=:YF'
' %BD'
'order by 1, 3'
''
''
' '
' ')
txp_Sql.Strings = (
'Select 2 ORD, T.TMC PPMC, T.ZH, PC.DWDM,PC.ND,PC.YF,PC.PPDM,PC.J' +
'J/100 JJ,'
' PC.SYJCSL, PC.SYJCJE/100 SYJCJE ,'
' PC.BYZJSL, PC.BYZJJE/100 BYZJJJJE,'
' PC.BYJSSL, PC.BYJSJE/100 BYJSXJJE,'
' PC.SQKCSL, PC.SQKCJE/100 KCJJJE'
' From TYS_TXPYPCB PC, TB_YZPPXXB T'
' Where PC.PPDM=T.TDM'
' AND PC.ND=:ND'
' AND PC.YF=:YF'
' %BD'
'UNION ALL'
'Select 1, '#39' 小计'#39', '#39#39', '#39#39', '#39#39', '#39#39', '#39#39', 0,'
' SUM(PC.SYJCSL), SUM(PC.SYJCJE/100) SYJCJE ,'
' SUM(PC.BYZJSL), SUM(PC.BYZJJE/100) BYZJJJJE,'
' SUM(PC.BYJSSL), SUM(PC.BYJSJE/100) BYJSXJJE,'
' SUM(PC.SQKCSL), SUM(PC.SQKCJE/100) KCJJJE'
' From TYS_TXPYPCB PC'
' Where PC.ND=:ND'
' AND PC.YF=:YF'
' %BD'
'order by 1, 3'
''
''
''
' ')
yp_Sql.Strings = (
'Select 2 ORD, T.MC PPMC, T.ZH, PC.DWDM,PC.ND,PC.YF,PC.PPDM,PC.JJ' +
'/100 JJ,'
' PC.SYJCSL SYJCSL, PC.SYJCJE/100 SYJCJE,'
' PC.BYZJSL BYZJSL, PC.BYZJJJJE/100 BYZJJJJE,'
' PC.BYJSSL BYJSSL, PC.BYJSXJJE/100 BYJSXJJE,'
' PC.SQKCSL SQKCSL, PC.KCJJJE/100 KCJJJE'
' From TYS_YPYPCB PC,TB_JYPTXXB T'
' Where PC.PPDM=T.TDM'
' AND PC.ND=:ND'
' AND PC.YF=:YF'
' %BD'
'UNION ALL'
'Select 1, '#39' 小计'#39', '#39#39', '#39#39', '#39#39', '#39#39', '#39#39', 0,'
' SUM(PC.SYJCSL), SUM(PC.SYJCJE/100) SYJCJE ,'
' SUM(PC.BYZJSL), SUM(PC.BYZJJJJE/100) BYZJJJJE,'
' SUM(PC.BYJSSL), SUM(PC.BYJSXJJE/100) BYJSXJJE,'
' SUM(PC.SQKCSL), SUM(PC.KCJJJE/100) KCJJJE'
' From TYS_YPYPCB PC'
' Where PC.ND=:ND'
' AND PC.YF=:YF'
' %BD'
'order by 1, 3'
''
''
'')
grp_Sql.Strings = (
'Select 2 ORD, T.PPMC, T.ZH, PC.DWDM,PC.ND,PC.YF,PC.PPDM,PC.JJ/10' +
'0 JJ,'
' PC.SYJCSL, PC.SYJCJE/100 SYJCJE ,'
' PC.BYZJSL, PC.BYZJJJJE/100 BYZJJJJE,'
' PC.BYJSSL, PC.BYJSXJJE/100 BYJSXJJE,'
' PC.SQKCSL, PC.KCJJJE/100 KCJJJE'
' From TYS_GRPYPCB PC, VW_BASE T'
' Where PC.PPDM=T.PPDM'
' AND PC.ND=:ND'
' AND PC.YF=:YF'
' %BD'
'UNION ALL'
'Select 1, '#39' 小计'#39', '#39#39', '#39#39', '#39#39', '#39#39', '#39#39', 0,'
' SUM(PC.SYJCSL), SUM(PC.SYJCJE/100) SYJCJE ,'
' SUM(PC.BYZJSL), SUM(PC.BYZJJJJE/100) BYZJJJJE,'
' SUM(PC.BYJSSL), SUM(PC.BYJSXJJE/100) BYJSXJJE,'
' SUM(PC.SQKCSL), SUM(PC.KCJJJE/100) KCJJJE'
' From TYS_GRPYPCB PC'
' Where PC.ND=:ND'
' AND PC.YF=:YF'
' %BD'
'order by 1, 3'
''
' ')
Left = 395
Top = 202
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -