📄 paymentbase.dfm
字号:
inherited frmPaymentBase: TfrmPaymentBase
Left = 170
Top = 101
Caption = #24448#26469#27454#21333#25454#30340#22522#31867
OldCreateOrder = True
OnCloseQuery = FormCloseQuery
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object ToolBar: TToolBar
Left = 0
Top = 0
Width = 536
Height = 38
AutoSize = True
ButtonHeight = 36
ButtonWidth = 33
Caption = 'ToolBar'
Flat = True
Images = frmMain.ToolButtonImages
ShowCaptions = True
TabOrder = 0
Wrapable = False
object tbtNew: TToolButton
Left = 0
Top = 0
Action = acNew
AutoSize = True
end
object tbtModify: TToolButton
Left = 37
Top = 0
Action = acModify
AutoSize = True
end
object tbtDelete: TToolButton
Left = 74
Top = 0
Action = acDelete
AutoSize = True
end
object tbtDivider1: TToolButton
Left = 111
Top = 0
Width = 9
Caption = 'tbtDivider1'
ImageIndex = 3
Style = tbsDivider
end
object tbtFirst: TToolButton
Left = 120
Top = 0
Action = acFirst
AutoSize = True
end
object tbtPrior: TToolButton
Left = 157
Top = 0
Action = acPrior
AutoSize = True
end
object tbtNext: TToolButton
Left = 194
Top = 0
Action = acNext
AutoSize = True
end
object tbtLast: TToolButton
Left = 231
Top = 0
Action = acLast
AutoSize = True
end
object tbtDivider: TToolButton
Left = 268
Top = 0
Width = 8
Caption = 'tbtDivider'
ImageIndex = 8
Style = tbsDivider
end
object ToolButton1: TToolButton
Left = 276
Top = 0
Action = acConfirm
end
object ToolButton3: TToolButton
Left = 309
Top = 0
Width = 9
Caption = 'ToolButton3'
ImageIndex = 0
Style = tbsDivider
end
object tbtSave: TToolButton
Left = 318
Top = 0
Action = acSave
AutoSize = True
end
object tbtCancel: TToolButton
Left = 355
Top = 0
Action = acCancel
AutoSize = True
end
object ToolButton5: TToolButton
Left = 392
Top = 0
Action = acPrint
end
object tbtFind: TToolButton
Left = 425
Top = 0
Action = acFind
AutoSize = True
end
object tbtDivider3: TToolButton
Left = 462
Top = 0
Width = 8
Caption = 'tbtDivider3'
ImageIndex = 12
Style = tbsDivider
end
object tbtExit: TToolButton
Left = 470
Top = 0
Action = acExit
AutoSize = True
end
end
object pnlTop: TPanel
Left = 0
Top = 38
Width = 536
Height = 310
Align = alClient
BevelOuter = bvNone
TabOrder = 1
object lblSubmit: TLabel
Left = 40
Top = 8
Width = 58
Height = 13
Caption = '*'#24050#23457#26680'*'
Font.Charset = ANSI_CHARSET
Font.Color = clBlue
Font.Height = -13
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object lblBillCaption: TLabel
Left = 208
Top = 8
Width = 82
Height = 19
Caption = #21333' '#25454' '#21517
Font.Charset = ANSI_CHARSET
Font.Color = clMaroon
Font.Height = -19
Font.Name = #23435#20307
Font.Style = [fsBold, fsUnderline]
ParentFont = False
end
object lblNO: TLabel
Left = 366
Top = 21
Width = 45
Height = 15
Alignment = taRightJustify
Caption = #21333#21495#65306
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object dbtxtNo: TDBText
Left = 409
Top = 19
Width = 104
Height = 14
DataField = 'fNO'
Font.Charset = ANSI_CHARSET
Font.Color = clNavy
Font.Height = -14
Font.Name = #23435#20307
Font.Style = [fsBold, fsUnderline]
ParentFont = False
end
object lblMaker: TLabel
Left = 77
Top = 261
Width = 60
Height = 12
Alignment = taRightJustify
Caption = #21046' '#21333' '#20154#65306
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object lblSubmitUser: TLabel
Left = 317
Top = 261
Width = 60
Height = 12
Alignment = taRightJustify
Caption = #23457' '#26680' '#20154#65306
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object lblDate: TLabel
Left = 77
Top = 240
Width = 60
Height = 12
Alignment = taRightJustify
Caption = #21046#21333#26085#26399#65306
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object lblSubmitDate: TLabel
Left = 317
Top = 240
Width = 60
Height = 12
Alignment = taRightJustify
Caption = #23457#26680#26085#26399#65306
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object wwDBEdtMaker: TwwDBEdit
Left = 136
Top = 255
Width = 89
Height = 18
BorderStyle = bsNone
DataField = 'fMaker'
DataSource = dsMaster
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
Frame.Enabled = True
Frame.NonFocusBorders = [efLeftBorder, efTopBorder, efRightBorder, efBottomBorder]
Frame.NonFocusStyle = efsFrameSingle
ParentFont = False
ReadOnly = True
TabOrder = 0
UnboundDataType = wwDefault
WantReturns = False
WordWrap = False
end
object wwDBEdtSubmitUser: TwwDBEdit
Left = 376
Top = 255
Width = 89
Height = 18
BorderStyle = bsNone
DataField = 'fSubmitUser'
DataSource = dsMaster
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
Frame.Enabled = True
Frame.NonFocusBorders = [efLeftBorder, efTopBorder, efRightBorder, efBottomBorder]
Frame.NonFocusStyle = efsFrameSingle
ParentFont = False
ReadOnly = True
TabOrder = 1
UnboundDataType = wwDefault
WantReturns = False
WordWrap = False
end
object wwPKDate: TwwDBDateTimePicker
Left = 136
Top = 234
Width = 89
Height = 20
BorderStyle = bsNone
CalendarAttributes.Font.Charset = DEFAULT_CHARSET
CalendarAttributes.Font.Color = clWindowText
CalendarAttributes.Font.Height = -11
CalendarAttributes.Font.Name = 'MS Sans Serif'
CalendarAttributes.Font.Style = []
DataField = 'fDate'
DataSource = dsMaster
Epoch = 1950
ButtonEffects.Transparent = True
ButtonEffects.Flat = True
Frame.Enabled = True
Frame.NonFocusBorders = [efLeftBorder, efTopBorder, efRightBorder, efBottomBorder]
Frame.FocusStyle = efsFrameSingle
Frame.NonFocusStyle = efsFrameSingle
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
ReadOnly = True
ShowButton = True
TabOrder = 2
end
object wwPKSubmitDate: TwwDBDateTimePicker
Left = 376
Top = 234
Width = 89
Height = 20
BorderStyle = bsNone
CalendarAttributes.Font.Charset = DEFAULT_CHARSET
CalendarAttributes.Font.Color = clWindowText
CalendarAttributes.Font.Height = -11
CalendarAttributes.Font.Name = 'MS Sans Serif'
CalendarAttributes.Font.Style = []
DataField = 'fSubmitDate'
DataSource = dsMaster
Epoch = 1950
ButtonEffects.Transparent = True
ButtonEffects.Flat = True
Frame.Enabled = True
Frame.NonFocusBorders = [efLeftBorder, efTopBorder, efRightBorder, efBottomBorder]
Frame.FocusStyle = efsFrameSingle
Frame.NonFocusStyle = efsFrameSingle
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
ReadOnly = True
ShowButton = True
TabOrder = 3
end
end
object ALToolbar: TActionList
Images = frmMain.ToolButtonImages
Left = 472
Top = 40
object acNew: TAction
Caption = #26032#24314
Hint = #26032#24314#21333#25454
ImageIndex = 0
ShortCut = 16429
OnExecute = acNewExecute
end
object acModify: TAction
Caption = #32534#36753
Hint = #32534#36753
ImageIndex = 15
ShortCut = 16453
OnExecute = acModifyExecute
end
object acDelete: TAction
Caption = #21024#38500
Hint = #21024#38500#21333#25454
ImageIndex = 16
ShortCut = 16430
OnExecute = acDeleteExecute
end
object acSave: TAction
Caption = #20445#23384
Hint = #20445#23384
ImageIndex = 4
ShortCut = 16467
OnExecute = acSaveExecute
end
object acCancel: TAction
Caption = #21462#28040
Hint = #21462#28040
ImageIndex = 5
ShortCut = 16392
OnExecute = acCancelExecute
end
object acFirst: TAction
Caption = #39318#24352
Hint = #39318#24352
ImageIndex = 8
ShortCut = 113
OnExecute = acFirstExecute
end
object acPrior: TAction
Caption = #19978#24352
Hint = #19978#24352
ImageIndex = 9
ShortCut = 114
OnExecute = acPriorExecute
end
object acNext: TAction
Caption = #19979#24352
Hint = #19979#24352
ImageIndex = 10
ShortCut = 115
OnExecute = acNextExecute
end
object acLast: TAction
Caption = #26411#24352
Hint = #26411#24352
ImageIndex = 11
ShortCut = 116
OnExecute = acLastExecute
end
object acFind: TAction
Caption = #26597#25214
Hint = #26597#25214
ImageIndex = 14
ShortCut = 16454
end
object acPrint: TAction
Caption = #25171#21360
Hint = #25171#21360
ImageIndex = 3
ShortCut = 16464
end
object acExit: TAction
Caption = #20851#38381
Hint = #20851#38381
ImageIndex = 20
ShortCut = 16465
OnExecute = acExitExecute
end
object acConfirm: TAction
Caption = #23457#26680
Hint = #23457#26680
ImageIndex = 7
OnExecute = acConfirmExecute
end
end
object spGetInNumber: TADOStoredProc
Connection = dmClient.adocnClothing
ProcedureName = 'pGetInNumber;1'
Parameters = <
item
Name = '@RETURN_VALUE'
DataType = ftInteger
Direction = pdReturnValue
Precision = 10
Value = Null
end
item
Name = '@BillType'
Attributes = [paNullable]
DataType = ftInteger
Precision = 10
Value = Null
end
item
Name = '@InNumber'
Attributes = [paNullable]
DataType = ftInteger
Direction = pdOutput
Precision = 10
Value = Null
end>
Left = 472
Top = 72
end
object spGetOutNumber: TADOStoredProc
Connection = dmClient.adocnClothing
ProcedureName = 'pGetOutNumber;1'
Parameters = <
item
Name = '@RETURN_VALUE'
DataType = ftInteger
Direction = pdReturnValue
Precision = 10
Value = Null
end
item
Name = '@BillType'
Attributes = [paNullable]
DataType = ftInteger
Precision = 10
Value = Null
end
item
Name = '@OutNumber'
Attributes = [paNullable]
DataType = ftFixedChar
Direction = pdOutput
Size = 50
Value = Null
end>
Left = 504
Top = 72
end
object QMaster: TADOQuery
Connection = dmClient.adocnClothing
AfterInsert = QMasterAfterInsert
BeforePost = QMasterBeforePost
AfterPost = QMasterAfterPost
BeforeDelete = QMasterBeforeDelete
AfterDelete = QMasterAfterPost
OnDeleteError = QMasterDeleteError
OnPostError = QMasterPostError
Parameters = <>
Left = 416
Top = 80
end
object dsMaster: TDataSource
AutoEdit = False
DataSet = QMaster
OnStateChange = dsMasterStateChange
OnDataChange = dsMasterDataChange
Left = 432
Top = 88
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -