📄 billbase.dfm
字号:
Frame.NonFocusStyle = efsFrameSingle
ParentFont = False
ReadOnly = True
TabOrder = 0
UnboundDataType = wwDefault
WantReturns = False
WordWrap = False
end
object wwDBEdtSubmitUser: TwwDBEdit
Left = 312
Top = 23
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 wwDBEdtCancelUser: TwwDBEdit
Left = 520
Top = 23
Width = 89
Height = 18
BorderStyle = bsNone
DataField = 'fCancelUser'
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 = 2
UnboundDataType = wwDefault
WantReturns = False
WordWrap = False
end
object wwPKDate: TwwDBDateTimePicker
Left = 104
Top = 2
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 = 3
end
object wwPKSubmitDate: TwwDBDateTimePicker
Left = 312
Top = 2
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 = 4
end
object wwPKCancelDate: TwwDBDateTimePicker
Left = 520
Top = 2
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 = 'fCancelDate'
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 = 5
end
end
object ALToolbar: TActionList
Images = frmMain.ToolButtonImages
Left = 440
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
OnExecute = acPrintExecute
end
object acExit: TAction
Caption = #20851#38381
Hint = #20851#38381
ImageIndex = 20
ShortCut = 16465
OnExecute = acExitExecute
end
object acAddLine: TAction
Caption = #22686#21152
Hint = #22686#21152#26126#32454
ImageIndex = 12
ShortCut = 16457
OnExecute = acAddLineExecute
end
object acDelLine: TAction
Caption = #21024#38500
Hint = #21024#38500#26126#32454
ImageIndex = 13
ShortCut = 16452
OnExecute = acDelLineExecute
end
object acConfirm: TAction
Caption = #23457#26680
Hint = #23457#26680
ImageIndex = 7
OnExecute = acConfirmExecute
end
object acCounteract: TAction
Caption = #20914#38144
Hint = #20914#38144
ImageIndex = 22
OnExecute = acCounteractExecute
end
object acBegin: TAction
Caption = #21551#21160
ImageIndex = 7
Visible = False
end
object acFinish: TAction
Caption = #32467#21333
Hint = #32467#21333
ImageIndex = 21
Visible = False
OnExecute = acFinishExecute
end
object acImport: TAction
Caption = #24341#20837
Hint = #24341#20837
ImageIndex = 23
ShortCut = 49225
Visible = False
end
end
object QMaster: TADOQuery
Connection = dmClient.adocnClothing
AfterInsert = QMasterAfterInsert
BeforePost = QMasterBeforePost
AfterPost = QMasterAfterPost
BeforeCancel = QMasterBeforeCancel
AfterCancel = QMasterAfterCancel
BeforeDelete = QMasterBeforeDelete
AfterDelete = QMasterAfterDelete
OnDeleteError = QMasterDeleteError
OnPostError = QMasterPostError
Parameters = <>
Left = 384
Top = 120
end
object dsMaster: TDataSource
AutoEdit = False
DataSet = QMaster
OnStateChange = dsMasterStateChange
OnDataChange = dsMasterDataChange
Left = 416
Top = 120
end
object QDetail: TADOQuery
Connection = dmClient.adocnClothing
CursorType = ctStatic
LockType = ltBatchOptimistic
AfterInsert = QDetailAfterInsert
BeforePost = QDetailBeforePost
DataSource = dsMaster
Parameters = <>
Left = 392
Top = 208
end
object dsDetail: TDataSource
DataSet = QDetail
Left = 424
Top = 208
end
object QProducts: TADOQuery
Connection = dmClient.adocnClothing
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'select fID,fCode,fName,fSpec,fcolor,fUnitsName from vProduct')
Left = 136
Top = 224
end
object dsProducts: TDataSource
DataSet = QProducts
Left = 152
Top = 240
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 = 576
Top = 40
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 = 608
Top = 40
end
object spCounteract: TADOStoredProc
Connection = dmClient.adocnClothing
ProcedureName = 'pCounteractBill;1'
Parameters = <
item
Name = '@RETURN_VALUE'
DataType = ftInteger
Direction = pdReturnValue
Precision = 10
Value = Null
end
item
Name = '@BillTypeID'
Attributes = [paNullable]
DataType = ftInteger
Precision = 10
Value = Null
end
item
Name = '@InBillID'
Attributes = [paNullable]
DataType = ftInteger
Precision = 10
Value = Null
end
item
Name = '@CancelUser'
Attributes = [paNullable]
DataType = ftFixedChar
Size = 20
Value = Null
end
item
Name = '@OutBillID'
Attributes = [paNullable]
DataType = ftInteger
Direction = pdOutput
Precision = 10
Value = Null
end
item
Name = '@OutBillNO'
Attributes = [paNullable]
DataType = ftFixedChar
Direction = pdOutput
Size = 20
Value = Null
end>
Left = 576
Top = 72
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -