?? jm_kcdetail.dfm
字號:
object Frm_KCDetail: TFrm_KCDetail
Left = 37
Top = 109
BorderStyle = bsDialog
Caption = '庫存一覽表'
ClientHeight = 487
ClientWidth = 708
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋體'
Font.Style = []
OldCreateOrder = False
Position = poDesktopCenter
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 12
object Panel1: TPanel
Left = 0
Top = 0
Width = 708
Height = 101
Align = alTop
BevelOuter = bvLowered
TabOrder = 0
object XttxTitle: TRxLabel
Left = 1
Top = 1
Width = 706
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 = 10
Top = 39
Width = 60
Height = 12
Caption = '使用單位：'
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -12
Font.Name = '宋體'
Font.Style = []
ParentFont = False
end
object Rgp_ppfl: TRadioGroup
Left = 1
Top = 57
Width = 706
Height = 43
Align = alBottom
Caption = '庫存分類'
Columns = 5
ItemIndex = 1
Items.Strings = (
'營業員庫存一覽'
'庫存總量一覽'
'庫存與營業員庫存匯總一覽')
TabOrder = 0
OnClick = Rgp_ppflClick
end
end
object Panel2: TPanel
Left = 0
Top = 101
Width = 708
Height = 345
Align = alClient
BevelOuter = bvLowered
TabOrder = 1
object DBGrid1: TDBGrid
Left = 1
Top = 1
Width = 706
Height = 343
Align = alClient
DataSource = DataSource1
TabOrder = 0
TitleFont.Charset = GB2312_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -12
TitleFont.Name = '宋體'
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = 'TMC'
Title.Caption = '名稱'
Width = 196
Visible = True
end
item
Expanded = False
FieldName = 'ZH'
Title.Caption = '志號'
Width = 109
Visible = True
end
item
Expanded = False
FieldName = 'JJ'
Title.Caption = '進價(元)'
Width = 105
Visible = True
end
item
Expanded = False
FieldName = 'TS'
Title.Caption = '庫存數量(未包括前臺)'
Width = 125
Visible = True
end
item
Expanded = False
FieldName = 'TYPE'
Title.Caption = '票品類別'
Visible = True
end
item
Expanded = False
FieldName = 'KFMC'
Title.Caption = '庫房名稱'
Width = 67
Visible = True
end>
end
object DBGrid3: TDBGrid
Left = 1
Top = 1
Width = 706
Height = 343
Align = alClient
DataSource = DataSource3
TabOrder = 2
TitleFont.Charset = GB2312_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -12
TitleFont.Name = '宋體'
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = 'YGMC'
Title.Caption = '營業員'
Visible = True
end
item
Expanded = False
FieldName = 'PPMC'
Title.Caption = '名稱'
Visible = True
end
item
Expanded = False
FieldName = 'ZH'
Title.Caption = '志號'
Visible = True
end
item
Expanded = False
FieldName = 'JJ'
Title.Caption = '進價(元)'
Visible = True
end
item
Expanded = False
FieldName = 'SL'
Title.Caption = '庫存數量'
Visible = True
end
item
Expanded = False
FieldName = 'LB'
Title.Caption = '票品類別'
Visible = True
end>
end
object DBGrid2: TDBGrid
Left = 1
Top = 1
Width = 706
Height = 343
Align = alClient
DataSource = DataSource2
PopupMenu = data.pm_Export
TabOrder = 1
TitleFont.Charset = GB2312_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -12
TitleFont.Name = '宋體'
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = 'TMC'
Title.Caption = '名稱'
Width = 248
Visible = True
end
item
Expanded = False
FieldName = 'ZH'
Title.Caption = '志號'
Width = 113
Visible = True
end
item
Expanded = False
FieldName = 'JJ'
Title.Caption = '進價(元)'
Visible = True
end
item
Expanded = False
FieldName = 'TS'
Title.Caption = '庫存總量(包括前臺)'
Width = 116
Visible = True
end
item
Expanded = False
FieldName = 'TYPE'
Title.Caption = '票品類別'
Width = 80
Visible = True
end>
end
end
object Panel3: TPanel
Left = 0
Top = 446
Width = 708
Height = 41
Align = alBottom
BevelOuter = bvLowered
TabOrder = 2
object btn_find: TButton
Left = 422
Top = 7
Width = 75
Height = 28
Caption = '查詢(&F)'
TabOrder = 0
end
object btn_print: TButton
Left = 526
Top = 7
Width = 75
Height = 28
Caption = '打印(&P)'
TabOrder = 1
OnClick = btn_printClick
end
object btn_exit: TButton
Left = 622
Top = 7
Width = 75
Height = 28
Caption = '關閉(&C)'
TabOrder = 2
OnClick = btn_exitClick
end
end
object Qry_htkc: TQuery
DatabaseName = 'yzpp'
SQL.Strings = (
'select a.jj/100 jj,b.tmc,a.ppdm,b.zh,a.ts,'#39'集郵票'#39' type,a.kfdm,c' +
'.kfmc from tys_jyppkc a,tb_yzppxxb b,tgs_kfb c where a.ppdm=b.td' +
'm and a.kfdm=c.kfdm '
'union all'
'select a.jj/100 jj,b.tmc,a.ppdm,b.zh,a.ts,'#39'集郵品'#39' type,a.kfdm,c' +
'.kfmc from tys_yppkc a,tb_yzppxxb b,tgs_kfb c where a.ppdm=b.tdm' +
' and a.kfdm=c.kfdm '
'union all'
'select a.jj/100 jj,b.tmc,a.ppdm,b.zh,a.ts,'#39'購入票'#39' type,a.kfdm,c' +
'.kfmc from tys_grppkc a,tb_yzppxxb b,tgs_kfb c where a.ppdm=b.td' +
'm and a.kfdm=c.kfdm '
'order by kfdm,type,ppdm,jj')
Left = 108
Top = 117
object Qry_htkcJJ: TFloatField
FieldName = 'JJ'
DisplayFormat = '#,##0.00'
end
object Qry_htkcTMC: TStringField
FieldName = 'TMC'
Size = 120
end
object Qry_htkcPPDM: TStringField
FieldName = 'PPDM'
Size = 15
end
object Qry_htkcZH: TStringField
FieldName = 'ZH'
Size = 16
end
object Qry_htkcTS: TFloatField
FieldName = 'TS'
DisplayFormat = '#,##'
end
object Qry_htkcTYPE: TStringField
FieldName = 'TYPE'
FixedChar = True
Size = 6
end
object Qry_htkcKFMC: TStringField
FieldName = 'KFMC'
Size = 30
end
end
object DataSource1: TDataSource
DataSet = Qry_htkc
Left = 136
Top = 117
end
object Qry_yyykc: TQuery
DatabaseName = 'yzpp'
SQL.Strings = (
'SELECT B.YGMC, JJ, DECODE(LB,'#39'0'#39','#39'集郵票'#39','#39'1'#39','#39'集郵品'#39','#39'2'#39','#39'購入' +
'票'#39') LB, ZH, PPMC, DJ, SL, YSSL, LSSL FROM TM_YYYKC a,TGS_RYB B ' +
'WHERE A.YGDM=B.YGDM')
Left = 108
Top = 157
object Qry_yyykcYGMC: TStringField
FieldName = 'YGMC'
Size = 12
end
object Qry_yyykcJJ: TFloatField
FieldName = 'JJ'
OnGetText = Qry_yyykcJJGetText
OnSetText = Qry_yyykcJJSetText
end
object Qry_yyykcLB: TStringField
FieldName = 'LB'
Size = 6
end
object Qry_yyykcZH: TStringField
FieldName = 'ZH'
Size = 16
end
object Qry_yyykcPPMC: TStringField
FieldName = 'PPMC'
Size = 120
end
object Qry_yyykcDJ: TFloatField
FieldName = 'DJ'
end
object Qry_yyykcSL: TFloatField
FieldName = 'SL'
DisplayFormat = '#,##'
end
object Qry_yyykcYSSL: TFloatField
FieldName = 'YSSL'
DisplayFormat = '#,##'
end
object Qry_yyykcLSSL: TFloatField
FieldName = 'LSSL'
DisplayFormat = '#,##'
end
end
object Qry_hz: TQuery
DatabaseName = 'yzpp'
SQL.Strings = (
'select sum(ts) ts,jj/100 jj,tmc,ppdm,zh,type from (select a.jj,b' +
'.tmc,a.ppdm,b.zh,a.ts,'#39'集郵票'#39' type from tys_jyppkc a,tb_yzppxxb' +
' b where a.ppdm=b.tdm'
'union all'
'select a.jj,b.tmc,a.ppdm,b.zh,a.ts,'#39'集郵品'#39' type from tys_yppkc ' +
'a,tb_yzppxxb b where a.ppdm=b.tdm'
'union all'
'select a.jj, b.tmc,a.ppdm,b.zh,a.ts,'#39'購入票'#39' type from tys_grppk' +
'c a,tb_yzppxxb b where a.ppdm=b.tdm'
'union all'
'select jj,ppmc tmc,ppdm,zh,sl ts,decode(lb,'#39'0'#39','#39'集郵票'#39','#39'1'#39','#39'集' +
'郵品'#39','#39'2'#39','#39'購入票'#39') type from tm_yyykc) '
'group by jj,tmc,ppdm,zh,type order by type,ppdm,jj ')
Left = 108
Top = 197
object Qry_hzJJ: TFloatField
FieldName = 'JJ'
DisplayFormat = '#,##0.00'
end
object Qry_hzTMC: TStringField
FieldName = 'TMC'
Size = 120
end
object Qry_hzPPDM: TStringField
FieldName = 'PPDM'
Size = 15
end
object Qry_hzZH: TStringField
FieldName = 'ZH'
Size = 16
end
object Qry_hzTS: TFloatField
FieldName = 'TS'
DisplayFormat = '#,##'
end
object Qry_hzTYPE: TStringField
FieldName = 'TYPE'
Size = 6
end
end
object DataSource2: TDataSource
DataSet = Qry_hz
Left = 136
Top = 197
end
object DataSource3: TDataSource
AutoEdit = False
DataSet = Qry_yyykc
Left = 136
Top = 156
end
end
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -