?? sy_lxqldbl.dfm
字號:
end
object Label_Year: TLabel
Left = 301
Top = 17
Width = 24
Height = 12
Caption = '年度'
end
object Label_Month: TLabel
Left = 388
Top = 17
Width = 24
Height = 12
Caption = '月份'
end
object cbbDwmc: TComboBox
Left = 78
Top = 13
Width = 198
Height = 20
ItemHeight = 12
TabOrder = 0
OnChange = cbbDwmcChange
end
object Memo1: TMemo
Left = 77
Top = 45
Width = 544
Height = 72
Lines.Strings = (
'')
ReadOnly = True
TabOrder = 1
end
object cbbQldh: TComboBox
Left = 548
Top = 13
Width = 125
Height = 20
ItemHeight = 12
TabOrder = 2
OnChange = cbbQldhChange
end
object speYear: TSpinEdit
Left = 330
Top = 13
Width = 50
Height = 21
EditorEnabled = False
MaxLength = 4
MaxValue = 2100
MinValue = 1900
TabOrder = 3
Value = 2000
OnChange = cbbDwmcChange
end
object speMonth: TSpinEdit
Left = 417
Top = 13
Width = 35
Height = 21
EditorEnabled = False
MaxLength = 4
MaxValue = 12
MinValue = 1
TabOrder = 4
Value = 12
OnChange = cbbDwmcChange
end
end
object Panel3: TPanel
Left = 0
Top = 352
Width = 692
Height = 36
Align = alBottom
BevelOuter = bvNone
TabOrder = 1
object Panel4: TPanel
Left = 0
Top = 0
Width = 692
Height = 36
Align = alClient
BevelOuter = bvLowered
TabOrder = 0
object Label8: TLabel
Left = 18
Top = 11
Width = 36
Height = 12
Caption = '制表人'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋體'
Font.Style = []
ParentFont = False
end
object Label12: TLabel
Left = 245
Top = 11
Width = 48
Height = 12
Caption = '制單日期'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋體'
Font.Style = []
ParentFont = False
end
object Label4: TLabel
Left = 493
Top = 11
Width = 34
Height = 12
Caption = '合 計'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋體'
Font.Style = [fsBold]
ParentFont = False
end
object Label6: TLabel
Left = 629
Top = 11
Width = 14
Height = 12
Caption = '元'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋體'
Font.Style = [fsBold]
ParentFont = False
end
object DBE_ZBR: TDBEdit
Left = 59
Top = 7
Width = 102
Height = 20
Color = clMenu
DataField = 'ZBR'
DataSource = DataSource1
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -12
Font.Name = '宋體'
Font.Style = []
ParentFont = False
ReadOnly = True
TabOrder = 0
end
object DBE_ZBRQ: TDBDateEdit
Left = 298
Top = 7
Width = 121
Height = 21
DataField = 'ZBRQ'
DataSource = DataSource1
ReadOnly = True
Color = clMenu
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -12
Font.Name = '宋體'
Font.Style = []
NumGlyphs = 2
ParentFont = False
TabOrder = 1
YearDigits = dyFour
end
object edHj: TCurrencyEdit
Left = 533
Top = 7
Width = 93
Height = 20
AutoSize = False
Color = clMenu
DecimalPlaces = 4
DisplayFormat = '#,##0.00##'
ReadOnly = True
TabOrder = 2
end
end
end
object dgQld: TDBGrid
Left = 0
Top = 161
Width = 692
Height = 191
Align = alClient
Color = clMenu
DataSource = DataSource1
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgCancelOnExit]
PopupMenu = data.pm_Export
TabOrder = 2
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -12
TitleFont.Name = '宋體'
TitleFont.Style = []
OnKeyDown = dgQldKeyDown
OnKeyUp = dgQldKeyUp
Columns = <
item
Expanded = False
FieldName = 'PPMC'
ReadOnly = True
Title.Alignment = taCenter
Title.Caption = '票品名稱'
Width = 234
Visible = True
end
item
Expanded = False
FieldName = 'MZ'
ReadOnly = True
Title.Alignment = taCenter
Title.Caption = '面值(元)'
Width = 144
Visible = True
end
item
Expanded = False
FieldName = 'JE'
ReadOnly = True
Title.Alignment = taCenter
Title.Caption = '金額(元)'
Width = 161
Visible = True
end
item
Color = clInfoBk
Expanded = False
FieldName = 'BQTPSR'
Title.Alignment = taCenter
Title.Caption = '本期貼票收入(元)'
Visible = False
end
item
Color = clInfoBk
Expanded = False
FieldName = 'JKJE'
Title.Alignment = taCenter
Title.Caption = '繳款金額(元)'
Visible = False
end
item
Color = clInfoBk
Expanded = False
FieldName = 'SL'
Title.Alignment = taCenter
Title.Caption = '數量(枚)'
Width = 115
Visible = True
end>
end
end
object qryTemp: TQuery
DatabaseName = 'yzpp'
Left = 240
Top = 272
end
object qryQld: TQuery
CachedUpdates = True
BeforeInsert = qryQldBeforeInsert
BeforePost = qryQldBeforePost
AfterPost = qryQldAfterPost
AutoRefresh = True
DatabaseName = 'yzpp'
RequestLive = True
SQL.Strings = (
'select * from tys_txpqld'
'where qldh = :qldh')
UpdateObject = UpdateSQL1
Left = 104
Top = 274
ParamData = <
item
DataType = ftUnknown
Name = 'qldh'
ParamType = ptUnknown
end>
object qryQldQLDH: TStringField
FieldName = 'QLDH'
Origin = 'YZPP.TYS_TXPQLD.QLDH'
Size = 16
end
object qryQldDWDM: TStringField
FieldName = 'DWDM'
Origin = 'YZPP.TYS_TXPQLD.DWDM'
Size = 8
end
object qryQldND: TStringField
FieldName = 'ND'
Origin = 'YZPP.TYS_TXPQLD.ND'
Size = 4
end
object qryQldYF: TStringField
FieldName = 'YF'
Origin = 'YZPP.TYS_TXPQLD.YF'
Size = 2
end
object qryQldPPDM: TStringField
FieldName = 'PPDM'
Origin = 'YZPP.TYS_TXPQLD.PPDM'
Size = 13
end
object qryQldDWMC: TStringField
FieldName = 'DWMC'
Origin = 'YZPP.TYS_TXPQLD.DWMC'
Size = 40
end
object qryQldPPMC: TStringField
FieldName = 'PPMC'
Origin = 'YZPP.TYS_TXPQLD.PPMC'
Size = 60
end
object qryQldMZ: TFloatField
FieldName = 'MZ'
Origin = 'YZPP.TYS_TXPQLD.MZ'
OnGetText = qryQldMZGetText
end
object qryQldSL: TFloatField
FieldName = 'SL'
Origin = 'YZPP.TYS_TXPQLD.SL'
OnSetText = qryQldSLSetText
DisplayFormat = '#,##'
end
object qryQldJE: TFloatField
FieldName = 'JE'
Origin = 'YZPP.TYS_TXPQLD.JE'
OnGetText = qryQldMZGetText
end
object qryQldBQTPSR: TFloatField
FieldName = 'BQTPSR'
Origin = 'YZPP.TYS_TXPQLD.BQTPSR'
OnSetText = qryQldSLSetText
end
object qryQldJKJE: TFloatField
FieldName = 'JKJE'
Origin = 'YZPP.TYS_TXPQLD.JKJE'
OnSetText = qryQldSLSetText
end
object qryQldZBR: TStringField
FieldName = 'ZBR'
Origin = 'YZPP.TYS_TXPQLD.ZBR'
Size = 12
end
object qryQldSPR: TStringField
FieldName = 'SPR'
Origin = 'YZPP.TYS_TXPQLD.SPR'
Size = 12
end
object qryQldZBRQ: TDateTimeField
FieldName = 'ZBRQ'
Origin = 'YZPP.TYS_TXPQLD.ZBRQ'
end
object qryQldBZ: TStringField
FieldName = 'BZ'
Origin = 'YZPP.TYS_TXPQLD.BZ'
Size = 200
end
object qryQldZT: TStringField
FieldName = 'ZT'
Origin = 'YZPP.TYS_TXPQLD.ZT'
Size = 1
end
object qryQldSDATE: TDateTimeField
FieldName = 'SDATE'
Origin = 'YZPP.TYS_TXPQLD.SDATE'
end
end
object DataSource1: TDataSource
DataSet = qryQld
Left = 136
Top = 274
end
object UpdateSQL1: TUpdateSQL
ModifySQL.Strings = (
'update tys_txpqld'
'set'
' QLDH = :QLDH,'
' DWDM = :DWDM,'
' ND = :ND,'
' YF = :YF,'
' PPDM = :PPDM,'
' DWMC = :DWMC,'
' PPMC = :PPMC,'
' MZ = :MZ,'
' SL = :SL,'
' JE = :JE,'
' BQTPSR = :BQTPSR,'
' JKJE = :JKJE,'
' ZBR = :ZBR,'
' SPR = :SPR,'
' ZBRQ = :ZBRQ,'
' BZ = :BZ,'
' ZT = :ZT,'
' SDATE = :SDATE'
'where'
' QLDH = :OLD_QLDH and'
' PPDM = :OLD_PPDM')
InsertSQL.Strings = (
'insert into tys_txpqld'
' (QLDH, DWDM, ND, YF, PPDM, DWMC, PPMC, MZ, SL, JE, BQTPSR, JKJ' +
'E, ZBR, '
' SPR, ZBRQ, BZ, ZT, SDATE)'
'values'
' (:QLDH, :DWDM, :ND, :YF, :PPDM, :DWMC, :PPMC, :MZ, :SL, :JE, :' +
'BQTPSR, '
' :JKJE, :ZBR, :SPR, :ZBRQ, :BZ, :ZT, :SDATE)')
DeleteSQL.Strings = (
'delete from tys_txpqld'
'where'
' QLDH = :OLD_QLDH and'
' PPDM = :OLD_PPDM')
Left = 168
Top = 274
end
end
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -