?? fhd_cx.dfm
字號:
object Frm_FHD_CX: TFrm_FHD_CX
Left = 41
Top = -4
BorderStyle = bsDialog
Caption = '發貨單查詢'
ClientHeight = 523
ClientWidth = 742
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋體'
Font.Style = []
KeyPreview = True
OldCreateOrder = False
Position = poDesktopCenter
ShowHint = True
OnDestroy = FormDestroy
PixelsPerInch = 96
TextHeight = 12
object RxDBG_fhd: TRxDBGrid
Left = 0
Top = 45
Width = 742
Height = 439
Align = alClient
DataSource = DataSource1
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
PopupMenu = data.pm_Export
TabOrder = 0
TitleFont.Charset = GB2312_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -12
TitleFont.Name = '宋體'
TitleFont.Style = []
OnDrawColumnCell = RxDBG_fhdDrawColumnCell
Columns = <
item
Expanded = False
FieldName = 'FHDH'
Title.Caption = '去向單位/發貨單號'
Width = 117
Visible = True
end
item
Expanded = False
FieldName = 'YJDH'
Title.Caption = '依據單號'
Visible = True
end
item
Expanded = False
FieldName = 'PPDM'
Title.Caption = '票品名稱'
Width = 95
Visible = True
end
item
Expanded = False
FieldName = 'RCKXZMC'
Title.Caption = '出庫性質'
Width = 54
Visible = True
end
item
Expanded = False
FieldName = 'ZTZT'
ReadOnly = True
Title.Caption = '在途狀態'
Visible = True
end
item
Expanded = False
FieldName = 'MZ'
Title.Caption = '面值(元)'
Width = 52
Visible = True
end
item
Expanded = False
FieldName = 'JJ'
Title.Caption = '進價(元)'
Width = 49
Visible = True
end
item
Expanded = False
FieldName = 'XJ'
Title.Caption = '銷價(元)'
Width = 45
Visible = True
end
item
Expanded = False
FieldName = 'SL'
Title.Caption = '總數/數量'
Width = 60
Visible = True
end
item
Expanded = False
FieldName = 'ZK'
Title.Caption = '折扣(%)'
Width = 43
Visible = True
end
item
Expanded = False
FieldName = 'JSJ'
Title.Caption = '結算價(元)'
Visible = True
end
item
Expanded = False
FieldName = 'JSJE'
Title.Caption = '結算金額(元)'
Visible = True
end
item
Expanded = False
FieldName = 'FH'
Title.Caption = '已復核'
Width = 38
Visible = True
end
item
Expanded = False
FieldName = 'KDRQ'
Title.Caption = '開單日期'
Width = 62
Visible = True
end
item
Expanded = False
FieldName = 'CKRQ'
Title.Caption = '出庫日期'
Width = 62
Visible = True
end
item
Expanded = False
FieldName = 'zt'
Title.Caption = '狀態'
Visible = True
end
item
Expanded = False
FieldName = 'bz'
Title.Caption = '備注'
Visible = True
end>
end
object Panel1: TPanel
Left = 0
Top = 484
Width = 742
Height = 39
Align = alBottom
BevelInner = bvLowered
BevelOuter = bvNone
TabOrder = 1
object BitBtn1: TBitBtn
Left = 650
Top = 6
Width = 75
Height = 25
Caption = '返回(&X)'
TabOrder = 0
Kind = bkClose
end
object BitBtn2: TBitBtn
Left = 431
Top = 6
Width = 75
Height = 25
Caption = '查詢(&F)'
TabOrder = 1
OnClick = BitBtn2Click
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
0400000000008000000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00DDDDDDDDDDDD
DDDDDDDDDDDDDDDDDDDDCCCCCDDDDDCCCCCDCFCCCDDDDDCFCCCDCFCCCDDDDDCF
CCCDCCCCCCCDCCCCCCCDCCFCCCCCCFCCCCCDCCFCCCDCCFCCCCCDCCFCCCDCCFCC
CCCDDCCCCCCCCCCCCCDDDDCFCCCDCFCCCDDDDDCCCCCDCCCCCDDDDDDCCCDDDCCC
DDDDDDDCFCDDDCFCDDDDDDDCCCDDDCCCDDDDDDDDDDDDDDDDDDDD}
end
object BitBtn3: TBitBtn
Left = 528
Top = 6
Width = 93
Height = 25
Caption = '打印表格(&P)'
TabOrder = 2
OnClick = BitBtn3Click
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
00033FFFFFFFFFFFFFFF0888888888888880777777777777777F088888888888
8880777777777777777F0000000000000000FFFFFFFFFFFFFFFF0F8F8F8F8F8F
8F80777777777777777F08F8F8F8F8F8F9F0777777777777777F0F8F8F8F8F8F
8F807777777777777F7F0000000000000000777777777777777F3330FFFFFFFF
03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
33333337F3FF7F3733333330F08F0F0333333337F7737F7333333330FFFF0033
33333337FFFF7733333333300000033333333337777773333333}
NumGlyphs = 2
end
object BBt_CZFHD: TBitBtn
Tag = 201
Left = 300
Top = 6
Width = 109
Height = 25
Hint = '沖正發貨單'
Caption = '沖正發貨單(&C)'
TabOrder = 3
OnClick = BBt_CZFHDClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000000
000033333377777777773333330FFFFFFFF03FF3FF7FF33F3FF700300000FF0F
00F077F777773F737737E00BFBFB0FFFFFF07773333F7F3333F7E0BFBF000FFF
F0F077F3337773F3F737E0FBFBFBF0F00FF077F3333FF7F77F37E0BFBF00000B
0FF077F3337777737337E0FBFBFBFBF0FFF077F33FFFFFF73337E0BF0000000F
FFF077FF777777733FF7000BFB00B0FF00F07773FF77373377373330000B0FFF
FFF03337777373333FF7333330B0FFFF00003333373733FF777733330B0FF00F
0FF03333737F37737F373330B00FFFFF0F033337F77F33337F733309030FFFFF
00333377737FFFFF773333303300000003333337337777777333}
NumGlyphs = 2
end
object Button1: TButton
Tag = 11
Left = 16
Top = 6
Width = 117
Height = 25
Caption = '打印本月出庫匯總單'
TabOrder = 4
OnClick = Button1Click
end
object Button2: TButton
Tag = 22
Left = 136
Top = 6
Width = 141
Height = 25
Caption = '打印依據單的出庫匯總單'
TabOrder = 5
OnClick = Button1Click
end
end
object Panel2: TPanel
Left = 0
Top = 0
Width = 742
Height = 45
Align = alTop
BevelOuter = bvLowered
TabOrder = 2
object XttxTitle: TRxLabel
Left = 1
Top = 1
Width = 740
Height = 24
Align = alTop
Alignment = taCenter
Caption = '集郵入庫單查詢'
Font.Charset = GB2312_CHARSET
Font.Color = clGreen
Font.Height = -24
Font.Name = '楷體_GB2312'
Font.Style = [fsBold, fsUnderline]
ParentFont = False
end
object DWMC: TLabel
Left = 20
Top = 25
Width = 60
Height = 12
Caption = '使用單位：'
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -12
Font.Name = '宋體'
Font.Style = []
ParentFont = False
end
object Panel3: TPanel
Left = 579
Top = 8
Width = 161
Height = 34
BevelOuter = bvNone
TabOrder = 0
object Label2: TLabel
Left = 7
Top = 18
Width = 12
Height = 12
Caption = '年'
end
object Label3: TLabel
Left = 87
Top = 17
Width = 12
Height = 12
Caption = '月'
end
object SpinEdit1: TSpinEdit
Left = 23
Top = 12
Width = 57
Height = 21
MaxLength = 4
MaxValue = 2050
MinValue = 1980
TabOrder = 0
Value = 1980
OnChange = SpinEdit1Change
end
object SpinEdit2: TSpinEdit
Left = 99
Top = 12
Width = 50
Height = 21
MaxLength = 2
MaxValue = 12
MinValue = 1
TabOrder = 1
Value = 12
OnChange = SpinEdit1Change
end
end
end
object DataSource1: TDataSource
Left = 96
Top = 112
end
object Qry_Static: TQuery
AutoCalcFields = False
DatabaseName = 'YZPP'
SQL.Strings = (
'select * from TYS_JYCKJHDB')
Left = 494
Top = 346
end
object Qry_Static2: TQuery
AutoCalcFields = False
DatabaseName = 'YZPP'
SQL.Strings = (
'select * from TYS_JYCKJHDB')
Left = 526
Top = 346
end
object qry_TXP: 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,'
' Y.TPMZ/100 MZ, J.JJ/100 JJ, 0 YJ, J.XJ/100 XJ, J.SL, J.ZK, J.J' +
'SJ/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_TXCKPP J, TB_YZPPXXB Y, TKS_TXFHD F, TGS_GXDWSJB G, T' +
'GS_JRCKXZDM R, TG_ZTZTDMB Z'
' WHERE J.TUDM = 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_TXCKPP J, TB_YZPPXXB Y, TKS_TXFHD F, TGS_GXDWSJB G, T' +
'GS_JRCKXZDM R, TG_ZTZTDMB Z'
' WHERE J.TUDM = 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'
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -