?? ss_jypfhzcsh.dfm
字號:
inherited frm_JYPZFHZYEB: Tfrm_JYPZFHZYEB
Tag = 12300
Left = 86
Top = 76
Caption = '集郵票分戶帳余額初始化'
OldCreateOrder = True
PixelsPerInch = 96
TextHeight = 12
object ModiPanel1: TModiPanel
Left = 0
Top = 442
Width = 692
Height = 31
Align = alBottom
BevelOuter = bvLowered
TabOrder = 0
DisButton = [bnEdit, bnSave, bnCancel, bnPrint, bnClose]
BtnWidth = 65
OnBtnClick = ModiPanel1BtnClick
end
object DBGrid1: TDBGrid
Left = 0
Top = 78
Width = 692
Height = 364
Align = alClient
DataSource = DataSource1
PopupMenu = data.pm_Export
TabOrder = 1
TitleFont.Charset = GB2312_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -12
TitleFont.Name = '宋體'
TitleFont.Style = []
Columns = <
item
Color = cl3DLight
Expanded = False
FieldName = 'DWMC'
ReadOnly = True
Title.Alignment = taCenter
Title.Caption = '單位名稱'
Width = 202
Visible = True
end
item
Color = clInfoBk
Expanded = False
FieldName = 'YJZJJE'
Title.Alignment = taCenter
Title.Caption = '增加金額(元)'
Width = 110
Visible = True
end
item
Color = clInfoBk
Expanded = False
FieldName = 'YJTJJE'
Title.Alignment = taCenter
Title.Caption = '退繳金額(元)'
Width = 112
Visible = True
end
item
Color = clInfoBk
Expanded = False
FieldName = 'YJHKJE'
Title.Alignment = taCenter
Title.Caption = '回款金額(元)'
Width = 110
Visible = True
end
item
Color = clInfoBk
Expanded = False
FieldName = 'YJZXJE'
Title.Alignment = taCenter
Title.Caption = '注銷金額(元)'
Visible = False
end
item
Color = cl3DLight
Expanded = False
FieldName = 'YJYE'
ReadOnly = True
Title.Alignment = taCenter
Title.Caption = '余額(元)'
Width = 95
Visible = True
end>
end
object Panel1: TPanel
Left = 0
Top = 45
Width = 692
Height = 33
Align = alTop
BevelOuter = bvLowered
TabOrder = 2
object Label1: TLabel
Left = 17
Top = 12
Width = 186
Height = 12
Caption = '系統啟用時間 年 月'
end
object Edit1: TEdit
Left = 103
Top = 8
Width = 41
Height = 20
Color = clMenu
ReadOnly = True
TabOrder = 0
end
object Edit2: TEdit
Left = 164
Top = 8
Width = 23
Height = 20
Color = clMenu
ReadOnly = True
TabOrder = 1
end
end
object Panel11: TPanel
Left = 0
Top = 0
Width = 692
Height = 45
Align = alTop
BevelOuter = bvLowered
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = '宋體'
Font.Style = []
ParentFont = False
TabOrder = 3
object RxLabel1: TRxLabel
Left = 1
Top = 1
Width = 690
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 = 28
Width = 60
Height = 12
Caption = '使用單位：'
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -12
Font.Name = '宋體'
Font.Style = []
ParentFont = False
end
end
object qryJYPZFHZYEB: TQuery
CachedUpdates = True
AfterOpen = qryJYPZFHZYEBAfterOpen
OnUpdateError = qryJYPZFHZYEBUpdateError
DatabaseName = 'YZPP'
RequestLive = True
SQL.Strings = (
'SELECT G.DWMC, G.DWDM, ND, YF, ZJJE, TJJE, HKJE, ZXJE, YE'
' FROM TYS_TXPZFHZYEB J, TGS_GXDWSJB G'
' WHERE G.DWDM = J.DWDM(+) AND FHDX = '#39'1'#39)
UpdateObject = UpdateSQL2
Left = 58
Top = 126
end
object UpdateSQL1: TUpdateSQL
ModifySQL.Strings = (
'update TYS_JYPZFHZYEB'
'set'
' DWDM = :DWDM,'
' ND = :ND,'
' YF = :YF,'
' YJZJJE = :YJZJJE,'
' YJTJJE = :YJTJJE,'
' YJHKJE = :YJHKJE,'
' YJZXJE = :YJZXJE,'
' YJYE = :YJYE'
'where'
' DWDM = :OLD_DWDM and'
' ND = :OLD_ND and'
' YF = :OLD_YF')
InsertSQL.Strings = (
'insert into TYS_JYPZFHZYEB'
' (DWDM, ND, YF, YJZJJE, YJTJJE, YJHKJE, YJZXJE, YJYE)'
'values'
' (:DWDM, :ND, :YF, :YJZJJE, :YJTJJE, :YJHKJE, :YJZXJE, :YJYE)')
DeleteSQL.Strings = (
'delete from TYS_JYPZFHZYEB'
'where'
' DWDM = :OLD_DWDM and'
' ND = :OLD_ND and'
' YF = :OLD_YF')
Left = 89
Top = 126
end
object DataSource1: TDataSource
DataSet = qryJYPZFHZYEB
Left = 121
Top = 127
end
object SqlStrings: TSqlStrings
jyp_Sql.Strings = (
'SELECT G.DWJC DWMC, G.DWDM, ND, YF, YJZJJE, YJTJJE, YJHKJE, YJZX' +
'JE, YJYE'
'FROM TYS_JYPZFHZYEB J,'
'(Select * from TGS_GXDWSJB Where FHDX = '#39'1'#39' and JYYW = '#39'1'#39')G'
'Where G.DWDM = J.DWDM(+)'
'order by G.PXM')
txp_Sql.Strings = (
'SELECT G.DWJC DWMC, G.DWDM, ND, YF, ZJJE, TJJE, HKJE, ZXJE, YE'
'FROM TYS_TXPZFHZYEB J,'
' (Select * From TGS_GXDWSJB Where FHDX = '#39'1'#39' and TXYW='#39'1'#39')G'
'Where G.DWDM= J.DWDM(+)'
'order by G.PXM')
yp_Sql.Strings = (
'SELECT G.DWJC DWMC, G.DWDM, ND, YF, YJZJJE, YJTJJE, YJHKJE, YJZ' +
'XJE, YJYE'
'FROM TYS_YPZFHZYEB J,'
' (Select * From TGS_GXDWSJB Where FHDX = '#39'1'#39' and JYYW='#39'1'#39') G'
'Where G.DWDM = J.DWDM(+)'
'order by G.PXM')
grp_Sql.Strings = (
'SELECT G.DWJC DWMC, G.DWDM, ND, YF, YJZJJE, YJTJJE, YJHKJE, YJZX' +
'JE, YJYE'
'From TYS_GRPZFHZYEB J,'
'(Select * from TGS_GXDWSJB where FHDX = '#39'1'#39' and JYYW = '#39'1'#39')G'
'where G.DWDM = J.DWDM(+)'
'order by G.PXM')
Left = 16
Top = 126
end
object UpdateSQL2: TUpdateSQL
ModifySQL.Strings = (
'update TYS_TXPZFHZYEB'
'set'
' DWDM = :DWDM,'
' ND = :ND,'
' YF = :YF,'
' ZJJE = :ZJJE,'
' TJJE = :TJJE,'
' HKJE = :HKJE,'
' ZXJE = :ZXJE,'
' YE = :YE'
'where'
' DWDM = :OLD_DWDM and'
' ND = :OLD_ND and'
' YF = :OLD_YF')
InsertSQL.Strings = (
'insert into TYS_TXPZFHZYEB'
' (DWDM, ND, YF, ZJJE, TJJE, HKJE, ZXJE, YE)'
'values'
' (:DWDM, :ND, :YF, :ZJJE, :TJJE, :HKJE, :ZXJE, :YE)'
' ')
DeleteSQL.Strings = (
'delete from TYS_TXPZFHZYEB'
'where'
' DWDM = :OLD_DWDM and'
' ND = :OLD_ND and'
' YF = :OLD_YF')
Left = 90
Top = 166
end
object UpdateSQL3: TUpdateSQL
ModifySQL.Strings = (
'update TYS_YPZFHZYEB'
'set'
' DWDM = :DWDM,'
' ND = :ND,'
' YF = :YF,'
' YJZJJE = :YJZJJE,'
' YJTJJE = :YJTJJE,'
' YJHKJE = :YJHKJE,'
' YJZXJE = :YJZXJE,'
' YJYE = :YJYE'
'where'
' DWDM = :OLD_DWDM and'
' ND = :OLD_ND and'
' YF = :OLD_YF')
InsertSQL.Strings = (
'insert into TYS_YPZFHZYEB'
' (DWDM, ND, YF, YJZJJE, YJTJJE, YJHKJE, YJZXJE, YJYE)'
'values'
' (:DWDM, :ND, :YF, :YJZJJE, :YJTJJE, :YJHKJE, :YJZXJE, :YJYE)')
DeleteSQL.Strings = (
'delete from TYS_YPZFHZYEB'
'where'
' DWDM = :OLD_DWDM and'
' ND = :OLD_ND and'
' YF = :OLD_YF')
Left = 90
Top = 196
end
object UpdateSQL4: TUpdateSQL
ModifySQL.Strings = (
'update TYS_GRPZFHZYEB'
'set'
' DWDM = :DWDM,'
' ND = :ND,'
' YF = :YF,'
' YJZJJE = :YJZJJE,'
' YJTJJE = :YJTJJE,'
' YJHKJE = :YJHKJE,'
' YJZXJE = :YJZXJE,'
' YJYE = :YJYE'
'where'
' DWDM = :OLD_DWDM and'
' ND = :OLD_ND and'
' YF = :OLD_YF'
' ')
InsertSQL.Strings = (
'insert into TYS_GRPZFHZYEB'
' (DWDM, ND, YF, YJZJJE, YJTJJE, YJHKJE, YJZXJE, YJYE)'
'values'
' (:DWDM, :ND, :YF, :YJZJJE, :YJTJJE, :YJHKJE, :YJZXJE, :YJYE)')
DeleteSQL.Strings = (
'delete from TYS_GRPZFHZYEB'
'where'
' DWDM = :OLD_DWDM and'
' ND = :OLD_ND and'
' YF = :OLD_YF')
Left = 90
Top = 227
end
object qry_Tmp: TQuery
DatabaseName = 'yzpp'
Left = 76
Top = 351
end
end
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -