📄 unitorderbill_edit.dfm
字号:
Left = 24
Top = 21
Width = 65
Height = 13
AutoSize = False
Caption = #23458#25143#21517#31216#65306
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Label154: TLabel
Left = 25
Top = 47
Width = 65
Height = 13
Caption = #24320#21333#26085#26399#65306
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
Transparent = True
end
object Label1: TLabel
Left = 430
Top = 52
Width = 57
Height = 13
AutoSize = False
Caption = #24320#21333#20154#65306
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object wwDBEdit4: TwwDBEdit
Left = 480
Top = 15
Width = 113
Height = 19
BorderStyle = bsNone
Color = clInfoBk
DataField = 'id'
DataSource = DM.DataSourceOrderBill
Enabled = False
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
Frame.Enabled = True
Frame.NonFocusBorders = [efLeftBorder, efTopBorder, efRightBorder, efBottomBorder]
Frame.FocusStyle = efsFrameSingle
Frame.NonFocusStyle = efsFrameSingle
Frame.NonFocusColor = clWindow
ParentFont = False
TabOrder = 2
UnboundDataType = wwDefault
WantReturns = False
WordWrap = False
end
object wwDBLookupCombo2: TwwDBLookupCombo
Left = 88
Top = 15
Width = 153
Height = 19
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
BorderStyle = bsNone
DropDownAlignment = taLeftJustify
Selected.Strings = (
'ClientName'#9'16'#9#23458#25143#21517#31216#9'F'
'ClientCode'#9'5'#9#23458#25143#20195#30721#9'F')
DataField = 'OrderClient'
DataSource = DM.DataSourceOrderBill
LookupTable = DM.ADOTableClientName
LookupField = 'ClientName'
Options = [loColLines, loRowLines, loTitles]
AutoSelect = False
Color = clInfoBk
Frame.Enabled = True
Frame.NonFocusBorders = [efLeftBorder, efTopBorder, efRightBorder, efBottomBorder]
Frame.FocusStyle = efsFrameSingle
Frame.NonFocusStyle = efsFrameSingle
Frame.NonFocusColor = clWindow
ParentFont = False
TabOrder = 0
AutoDropDown = True
ShowButton = True
UseTFields = False
PreciseEditRegion = False
AllowClearKey = False
OnChange = wwDBLookupCombo2Change
OnCloseUp = wwDBLookupCombo2CloseUp
OnKeyPress = wwDBLookupCombo2KeyPress
end
object wwDBDateTimePicker1: TwwDBDateTimePicker
Left = 88
Top = 40
Width = 153
Height = 19
BorderStyle = bsNone
CalendarAttributes.Font.Charset = DEFAULT_CHARSET
CalendarAttributes.Font.Color = clWindowText
CalendarAttributes.Font.Height = -11
CalendarAttributes.Font.Name = 'MS Sans Serif'
CalendarAttributes.Font.Style = []
Color = clInfoBk
DataField = 'InputDate'
DataSource = DM.DataSourceOrderBill
Date = 39473.000000000000000000
Epoch = 1950
Frame.Enabled = True
Frame.NonFocusBorders = [efLeftBorder, efTopBorder, efRightBorder, efBottomBorder]
Frame.FocusStyle = efsFrameSingle
Frame.NonFocusStyle = efsFrameSingle
Frame.NonFocusColor = clWindow
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
ShowButton = True
TabOrder = 1
OnKeyPress = wwDBDateTimePicker1KeyPress
end
object wwDBLookupCombo1: TwwDBLookupCombo
Left = 480
Top = 47
Width = 113
Height = 19
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
BorderStyle = bsNone
DropDownAlignment = taLeftJustify
DataField = 'Inputor'
DataSource = DM.DataSourceOrderBill
LookupTable = DM.ADOTableUser
LookupField = 'UserName'
Color = clInfoBk
Frame.Enabled = True
Frame.NonFocusBorders = [efLeftBorder, efTopBorder, efRightBorder, efBottomBorder]
Frame.FocusStyle = efsFrameSingle
Frame.NonFocusStyle = efsFrameSingle
Frame.NonFocusColor = clWindow
ParentFont = False
TabOrder = 3
AutoDropDown = False
ShowButton = True
UseTFields = False
PreciseEditRegion = False
AllowClearKey = False
OnKeyPress = wwDBLookupCombo1KeyPress
end
end
object GroupBox2: TGroupBox
Left = 0
Top = 129
Width = 674
Height = 232
Align = alTop
TabOrder = 2
object cxGrid2: TcxGrid
Left = 2
Top = 15
Width = 670
Height = 215
Align = alClient
TabOrder = 2
object cxGridDBTableView1: TcxGridDBTableView
OnDblClick = RzBitBtn121Click
NavigatorButtons.ConfirmDelete = False
NavigatorButtons.PriorPage.Visible = False
NavigatorButtons.NextPage.Visible = False
NavigatorButtons.Insert.Visible = True
NavigatorButtons.Delete.Visible = True
NavigatorButtons.Edit.Visible = True
NavigatorButtons.Post.Visible = False
NavigatorButtons.Cancel.Visible = True
NavigatorButtons.SaveBookmark.Visible = False
NavigatorButtons.GotoBookmark.Visible = False
DataController.DataSource = DM.DataSourceBillDetail
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <
item
Kind = skCount
end>
DataController.Summary.SummaryGroups = <>
OptionsData.Appending = True
OptionsView.ColumnAutoWidth = True
OptionsView.GroupByBox = False
OptionsView.Indicator = True
object cxGridDBTableView1ProductName: TcxGridDBColumn
DataBinding.FieldName = 'ProductName'
PropertiesClassName = 'TcxLookupComboBoxProperties'
Properties.KeyFieldNames = 'ProductName'
Properties.ListColumns = <
item
FieldName = 'ProductName'
end>
Properties.ListOptions.CaseInsensitive = True
Properties.ListOptions.GridLines = glNone
Properties.ListOptions.ShowHeader = False
Properties.ListSource = DM.DataSourceClientPrice
Properties.Revertable = True
Properties.OnCloseUp = cxGridDBTableView1ProductNamePropertiesCloseUp
Width = 192
end
object cxGridDBTableView1Amount: TcxGridDBColumn
DataBinding.FieldName = 'Amount'
Width = 77
end
object cxGridDBTableView1Spec: TcxGridDBColumn
DataBinding.FieldName = 'Spec'
Width = 102
end
object cxGridDBTableView1TotalWeight: TcxGridDBColumn
DataBinding.FieldName = 'TotalWeight'
Width = 114
end
object cxGridDBTableView1Column1: TcxGridDBColumn
DataBinding.FieldName = 'Price'
PropertiesClassName = 'TcxCurrencyEditProperties'
Width = 85
end
object cxGridDBTableView1TotalPrice: TcxGridDBColumn
DataBinding.FieldName = 'TotalPrice'
Width = 93
end
end
object cxGridLevel1: TcxGridLevel
GridView = cxGridDBTableView1
end
end
object DBGrid1: TDBGrid
Left = 2
Top = 15
Width = 670
Height = 215
Align = alClient
Ctl3D = False
DataSource = DM.DataSourceBillDetail
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Options = [dgEditing, dgAlwaysShowEditor, dgTitles, dgIndicator, dgColLines, dgRowLines, dgTabs, dgConfirmDelete]
ParentCtl3D = False
ParentFont = False
TabOrder = 1
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
Visible = False
OnKeyPress = DBGrid1KeyPress
Columns = <
item
Expanded = False
FieldName = 'ProductName'
Title.Caption = #20135#21697#21517#31216
Width = 131
Visible = True
end
item
Expanded = False
FieldName = 'Amount'
Title.Caption = #25968#37327
Width = 91
Visible = True
end
item
Expanded = False
FieldName = 'Spec'
Title.Caption = #35268#26684
Width = 113
Visible = True
end
item
Expanded = False
FieldName = 'TotalWeight'
Title.Caption = #37325#37327
Width = 103
Visible = True
end
item
Expanded = False
FieldName = 'Price'
Title.Caption = #21333#20215
Width = 94
Visible = True
end
item
Expanded = False
FieldName = 'TotalPrice'
Title.Caption = #37329#39069
Width = 114
Visible = True
end>
end
object RzDBGrid1: TRzDBGrid
Left = 2
Top = 15
Width = 670
Height = 215
Align = alClient
DataSource = DM.DataSourceBillDetail
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
OnKeyPress = RzDBGrid1KeyPress
Columns = <
item
Expanded = False
FieldName = 'ProductName'
Title.Caption = #20135#21697#21517#31216
Width = 151
Visible = True
end
item
Expanded = False
FieldName = 'Amount'
Title.Caption = #25968#37327
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -