?? jm_tjfh.dfm
字號:
object frm_tjfh: Tfrm_tjfh
Left = 25
Top = 19
BorderIcons = [biSystemMenu]
BorderStyle = bsDialog
Caption = '集郵門市管理'
ClientHeight = 477
ClientWidth = 664
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋體'
Font.Style = []
OldCreateOrder = False
Position = poScreenCenter
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 12
object Panel2: TPanel
Left = 0
Top = 0
Width = 664
Height = 49
Align = alTop
BevelOuter = bvLowered
TabOrder = 0
object XttxTitle: TRxLabel
Left = 1
Top = 1
Width = 662
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 Label11: TLabel
Left = 17
Top = 27
Width = 48
Height = 12
Caption = '操作員：'
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -12
Font.Name = '宋體'
Font.Style = []
ParentFont = False
end
end
object Panel1: TPanel
Left = 0
Top = 49
Width = 664
Height = 428
Align = alClient
BevelOuter = bvNone
TabOrder = 1
object Panel4: TPanel
Left = 0
Top = 387
Width = 664
Height = 41
Align = alBottom
BevelOuter = bvLowered
TabOrder = 0
object btnSave: TButton
Left = 395
Top = 8
Width = 75
Height = 25
Caption = '復核'
TabOrder = 0
OnClick = btnSaveClick
end
object btnPrint: TButton
Left = 477
Top = 8
Width = 75
Height = 25
Caption = '打印'
TabOrder = 1
OnClick = btnPrintClick
end
object btnExit: TButton
Left = 575
Top = 8
Width = 75
Height = 25
Caption = '退出'
ModalResult = 1
TabOrder = 2
end
end
object Panel5: TPanel
Left = 0
Top = 39
Width = 664
Height = 348
Align = alClient
BevelOuter = bvSpace
TabOrder = 1
object Panel6: TPanel
Left = 1
Top = 1
Width = 185
Height = 346
Align = alLeft
BevelOuter = bvLowered
TabOrder = 0
object DBGrid1: TDBGrid
Left = 1
Top = 33
Width = 183
Height = 312
Align = alClient
DataSource = DataSource1
PopupMenu = data.pm_Export
TabOrder = 0
TitleFont.Charset = GB2312_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -12
TitleFont.Name = '宋體'
TitleFont.Style = []
OnDrawColumnCell = DBGrid1DrawColumnCell
Columns = <
item
Expanded = False
FieldName = 'FPDH'
Title.Caption = '退繳單號'
Width = 158
Visible = True
end>
end
object Panel3: TPanel
Left = 1
Top = 1
Width = 183
Height = 32
Align = alTop
BevelOuter = bvNone
TabOrder = 1
object CheckBox1: TCheckBox
Left = 8
Top = 11
Width = 141
Height = 17
Caption = '顯示未處理退繳單'
Checked = True
State = cbChecked
TabOrder = 0
OnClick = CheckBox1Click
end
end
end
object Panel7: TPanel
Left = 186
Top = 1
Width = 477
Height = 346
Align = alClient
BevelOuter = bvLowered
TabOrder = 1
object Label2: TLabel
Left = 16
Top = 15
Width = 48
Height = 12
Caption = '營業員：'
end
object Label3: TLabel
Left = 16
Top = 41
Width = 60
Height = 12
Caption = '開單日期：'
end
object Label4: TLabel
Left = 16
Top = 65
Width = 60
Height = 12
Caption = '復核日期：'
end
object Label1: TLabel
Left = 243
Top = 15
Width = 54
Height = 12
Caption = '回退庫房:'
end
object DBGrid2: TDBGrid
Left = 1
Top = 88
Width = 475
Height = 257
Align = alBottom
DataSource = DataSource2
PopupMenu = data.pm_Export
TabOrder = 0
TitleFont.Charset = GB2312_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -12
TitleFont.Name = '宋體'
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = 'FPDH'
Visible = False
end
item
Expanded = False
FieldName = 'ZH'
Title.Caption = '票品志號'
Width = 57
Visible = True
end
item
Expanded = False
FieldName = 'PPDM'
Visible = False
end
item
Expanded = False
FieldName = 'PPMC'
Title.Caption = '票品名稱'
Width = 116
Visible = True
end
item
Expanded = False
FieldName = 'JJ'
Title.Caption = '進價(元)'
Visible = True
end
item
Expanded = False
FieldName = 'SJ'
Title.Caption = '售價(元)'
Width = 86
Visible = True
end
item
Expanded = False
FieldName = 'LBMC'
ReadOnly = True
Title.Caption = '類別'
Width = 55
Visible = True
end
item
Expanded = False
FieldName = 'SL'
Title.Caption = '退繳數量'
Visible = True
end>
end
object DBEdit1: TDBEdit
Left = 88
Top = 12
Width = 121
Height = 20
Color = cl3DLight
DataField = 'YGMC'
DataSource = DataSource1
TabOrder = 1
end
object DBDateEdit1: TDBDateEdit
Left = 88
Top = 36
Width = 121
Height = 21
DataField = 'KDRQ'
DataSource = DataSource1
Color = cl3DLight
NumGlyphs = 2
TabOrder = 2
YearDigits = dyFour
end
object DBDateEdit2: TDBDateEdit
Left = 88
Top = 62
Width = 121
Height = 21
DataField = 'GHRQ'
DataSource = DataSource1
Color = cl3DLight
NumGlyphs = 2
TabOrder = 3
YearDigits = dyFour
end
object DateEdit1: TDateEdit
Left = 268
Top = 56
Width = 115
Height = 21
NumGlyphs = 2
PopupFont.Charset = DEFAULT_CHARSET
PopupFont.Color = clWindowText
PopupFont.Height = -11
PopupFont.Name = 'MS Sans Serif'
PopupFont.Style = []
TabOrder = 4
Visible = False
end
object Cmb_kfdm: TComboBox
Left = 300
Top = 11
Width = 145
Height = 20
ItemHeight = 12
TabOrder = 5
end
end
end
object Panel8: TPanel
Left = 0
Top = 0
Width = 664
Height = 39
Align = alTop
BevelOuter = bvLowered
TabOrder = 2
object Rgp_ppfl: TRadioGroup
Left = 1
Top = 1
Width = 662
Height = 37
Align = alClient
Caption = '營業員票品分類'
Columns = 5
ItemIndex = 0
Items.Strings = (
'集郵票'
'集郵品'
'購入票')
TabOrder = 0
OnClick = Rgp_ppflClick
end
end
end
object DataSource1: TDataSource
AutoEdit = False
DataSet = Qry_tpd
Left = 108
Top = 161
end
object Qry_tpd: TQuery
CachedUpdates = True
AfterOpen = Qry_tpdAfterOpen
AfterScroll = Qry_tpdAfterOpen
DatabaseName = 'YZPP'
RequestLive = True
SQL.Strings = (
'select FPDH ,YGDM ,CKXZ,QXDW ,KDRQ ,GHRQ from tm_qttjd')
UpdateObject = UpdateSQL1
Left = 136
Top = 161
object Qry_tpdFPDH: TStringField
FieldName = 'FPDH'
Origin = 'JM_YZPP.TM_QTTJD.FPDH'
Size = 15
end
object Qry_tpdYGDM: TStringField
FieldName = 'YGDM'
Origin = 'JM_YZPP.TM_QTTJD.YGDM'
Size = 8
end
object Qry_tpdCKXZ: TStringField
FieldName = 'CKXZ'
Origin = 'JM_YZPP.TM_QTTJD.CKXZ'
Size = 2
end
object Qry_tpdQXDW: TStringField
FieldName = 'QXDW'
Origin = 'JM_YZPP.TM_QTTJD.QXDW'
Size = 8
end
object Qry_tpdKDRQ: TDateTimeField
FieldName = 'KDRQ'
Origin = 'JM_YZPP.TM_QTTJD.KDRQ'
end
object Qry_tpdGHRQ: TDateTimeField
FieldName = 'GHRQ'
Origin = 'JM_YZPP.TM_QTTJD.GHRQ'
end
object Qry_tpdYGMC: TStringField
FieldKind = fkLookup
FieldName = 'YGMC'
LookupDataSet = Query1
LookupKeyFields = 'YGDM'
LookupResultField = 'YGMC'
KeyFields = 'YGDM'
Size = 10
Lookup = True
end
end
object UpdateSQL1: TUpdateSQL
ModifySQL.Strings = (
'UPDATE TM_QTTJD'
'SET'
' FPDH=:FPDH ,'
' YGDM=:YGDM ,'
' CKXZ=:CKXZ,'
' QXDW=:QXDW ,'
' KDRQ=:KDRQ ,'
' GHRQ=:GHRQ'
'WHERE FPDH=:OLD_FPDH')
Left = 165
Top = 162
end
object DataSource2: TDataSource
AutoEdit = False
DataSet = Qry_tjpp
Left = 345
Top = 155
end
object Qry_tjpp: TQuery
CachedUpdates = True
BeforeInsert = Qry_tjppBeforeInsert
DatabaseName = 'YZPP'
RequestLive = True
SQL.Strings = (
'select FPDH, KFDM, PPDM, JJ, lb, ZH, PPMC, SJ, SL, BZ from TM_QT' +
'TJPPMX')
UpdateObject = UpdateSQL2
Left = 373
Top = 155
object Qry_tjppFPDH: TStringField
FieldName = 'FPDH'
Origin = 'YZPP.TM_QTTJPPMX.FPDH'
Size = 16
end
object Qry_tjppKFDM: TStringField
FieldName = 'KFDM'
Origin = 'YZPP.TM_QTTJPPMX.KFDM'
Size = 3
end
object Qry_tjppPPDM: TStringField
FieldName = 'PPDM'
Origin = 'YZPP.TM_QTTJPPMX.PPDM'
Size = 15
end
object Qry_tjppJJ: TFloatField
FieldName = 'JJ'
Origin = 'YZPP.TM_QTTJPPMX.JJ'
OnGetText = Qry_tjppJJGetText
OnSetText = Qry_tjppJJSetText
end
object Qry_tjppLB: TStringField
FieldName = 'LB'
Origin = 'YZPP.TM_QTTJPPMX.LB'
Size = 5
end
object Qry_tjppZH: TStringField
FieldName = 'ZH'
Origin = 'YZPP.TM_QTTJPPMX.ZH'
Size = 16
end
object Qry_tjppPPMC: TStringField
FieldName = 'PPMC'
Origin = 'YZPP.TM_QTTJPPMX.PPMC'
Size = 120
end
object Qry_tjppSJ: TFloatField
FieldName = 'SJ'
Origin = 'YZPP.TM_QTTJPPMX.SJ'
OnGetText = Qry_tjppSJGetText
OnSetText = Qry_tjppSJSetText
end
object Qry_tjppSL: TFloatField
FieldName = 'SL'
Origin = 'YZPP.TM_QTTJPPMX.SL'
DisplayFormat = '#,##'
end
object Qry_tjppBZ: TStringField
FieldName = 'BZ'
Origin = 'YZPP.TM_QTTJPPMX.BZ'
Size = 100
end
object Qry_tjppLBMC: TStringField
FieldKind = fkLookup
FieldName = 'LBMC'
LookupDataSet = Qry_pplb
LookupKeyFields = 'LB'
LookupResultField = 'PPLB'
KeyFields = 'LB'
Lookup = True
end
end
object Query1: TQuery
DatabaseName = 'YZPP'
SQL.Strings = (
'select ygdm,ygmc from tgs_ryb')
Left = 109
Top = 199
end
object Qry_kfdm: TQuery
DatabaseName = 'yzpp'
Left = 518
Top = 97
end
object UpdateSQL2: TUpdateSQL
ModifySQL.Strings = (
'update TM_QTTJPPMX'
'set'
' FPDH = :FPDH,'
' KFDM = :KFDM,'
' PPDM = :PPDM,'
' JJ = :JJ,'
' LB = :LB,'
' ZH = :ZH,'
' PPMC = :PPMC,'
' SJ = :SJ,'
' SL = :SL,'
' BZ = :BZ'
'where'
' FPDH = :OLD_FPDH and'
' KFDM = :OLD_KFDM and'
' PPDM = :OLD_PPDM and'
' JJ = :OLD_JJ and'
' LB = :OLD_LB')
InsertSQL.Strings = (
'insert into TM_QTTJPPMX'
' (FPDH, KFDM, PPDM, JJ, LB, ZH, PPMC, SJ, SL, BZ)'
'values'
' (:FPDH, :KFDM, :PPDM, :JJ, :LB, :ZH, :PPMC, :SJ, :SL, :BZ)')
DeleteSQL.Strings = (
'delete from TM_QTTJPPMX'
'where'
' FPDH = :OLD_FPDH and'
' KFDM = :OLD_KFDM and'
' PPDM = :OLD_PPDM and'
' JJ = :OLD_JJ and'
' LB = :OLD_LB')
Left = 402
Top = 157
end
object Qry_pplb: TQuery
DatabaseName = 'YZPP'
SQL.Strings = (
'select distinct lb,decode(lb,'#39'0'#39','#39'集郵票'#39','#39'1'#39','#39'集郵品'#39','#39'2'#39','#39'購入' +
'票'#39') pplb from tm_QTTJPPMX')
Left = 374
Top = 189
end
end
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -