📄 ydedproductformula.dfm
字号:
inherited YDProductFormulaEditForm: TYDProductFormulaEditForm
Left = 51
Top = 94
Width = 741
Height = 465
Caption = #29289#26009#28165#21333#32534#36753
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 12
object Splitter1: TSplitter [0]
Left = 0
Top = 249
Width = 733
Height = 3
Cursor = crVSplit
Align = alTop
end
inherited DBGrid: TQLDBGrid
Top = 113
Width = 733
Height = 136
Align = alTop
FooterRowCount = 1
Columns = <
item
Expanded = False
FieldName = 'GoodsName'
Title.Alignment = taCenter
Width = 160
Visible = True
Footer.Value = #21512#35745#65306
Footer.ValueType = fvtStaticText
end
item
Expanded = False
FieldName = 'UnitName'
Title.Alignment = taCenter
Width = 73
Visible = True
end
item
Expanded = False
FieldName = 'Quantity'
Title.Alignment = taCenter
Visible = True
end
item
Expanded = False
FieldName = 'GoalQuantity'
Title.Alignment = taCenter
Width = 75
Visible = True
Footer.ValueType = fvtSum
end
item
Expanded = False
FieldName = 'GoalUnitCost'
Title.Alignment = taCenter
Width = 100
Visible = True
Footer.ValueType = fvtSum
end
item
Expanded = False
FieldName = 'Cost'
ReadOnly = True
Title.Alignment = taCenter
Width = 100
Visible = True
Footer.ValueType = fvtSum
end>
end
inherited ToolBar: TToolBar
Width = 733
end
inherited TopPanel: TPanel
Width = 733
Height = 84
inherited RemarkLabel: TLabel
Left = 235
Visible = False
end
inherited VoucherNoLabel: TLabel
Left = 8
Caption = #32534#21495':'
end
inherited VoucherDateLabel: TLabel
Left = 166
end
object Label1: TLabel [3]
Left = 328
Top = 11
Width = 54
Height = 12
Caption = #24403#37327#31867#21035':'
end
object Label2: TLabel [4]
Left = 8
Top = 70
Width = 72
Height = 12
Caption = #25237#20837#21407#26448#26009#65306
end
object Label5: TLabel [5]
Left = 8
Top = 43
Width = 30
Height = 12
Caption = #21517#31216':'
end
inherited RemarkDBEdit: TDBEdit
Left = 267
Width = 265
DataField = 'Memo'
Visible = False
end
inherited VocherNoDBEdit: TDBEdit
Left = 40
DataField = 'Code'
end
inherited DateDBEdit: TDBEdit
Left = 198
DataField = 'Date'
end
object dbcbFormulaClass: TDBComboBox
Left = 384
Top = 8
Width = 145
Height = 20
DataField = 'FormulaClass'
DataSource = MasterDataSource
ItemHeight = 12
TabOrder = 3
end
object DBEdit1: TDBEdit
Left = 40
Top = 40
Width = 193
Height = 20
DataField = 'Brief'
DataSource = MasterDataSource
TabOrder = 4
end
end
inherited StatusBar1: TStatusBar
Top = 397
Width = 733
end
object Panel2: TPanel [5]
Left = 0
Top = 252
Width = 733
Height = 145
Align = alClient
BevelOuter = bvNone
Caption = 'Panel2'
TabOrder = 5
object Label6: TLabel
Left = 192
Top = 88
Width = 48
Height = 12
Caption = #20135#20986#21830#21697
end
object Panel1: TPanel
Left = 0
Top = 0
Width = 733
Height = 23
Align = alTop
TabOrder = 0
object Label3: TLabel
Left = 8
Top = 5
Width = 102
Height = 12
Caption = #20135#20986#20135#21697'/'#21322#25104#21697#65306
end
object Label4: TLabel
Left = 110
Top = 7
Width = 396
Height = 12
Caption = #25968#25454#36755#20837#23436#27605#21518#65292#35831#25353' F3 '#33719#21462#31995#32479#40664#35748#20998#37197#31995#25968#65292#25353' F4 '#35745#31639#20135#20986#25104#26412#65281
Font.Charset = GB2312_CHARSET
Font.Color = 16061
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
end
object QLDBGrid1: TQLDBGrid
Left = 0
Top = 23
Width = 733
Height = 122
Align = alClient
DataSource = dsYDProductFormulaOut
Options = [dgEditing, dgAlwaysShowEditor, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
TabOrder = 1
TitleFont.Charset = GB2312_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -12
TitleFont.Name = #23435#20307
TitleFont.Style = []
AlternateColor = 15399421
CurrencyView.CurrencyTitle = False
CurrencyView.DigitAlignment = taCenter
CurrencyView.DigitWidth = 9
CurrencyView.IntegerSeparateColor = clRed
CurrencyView.SeparateColor = clSilver
CurrencyView.ThousandSeparateColor = clGray
CurrencyView.TitleLines = False
FooterColor = clWindow
FooterFont.Charset = DEFAULT_CHARSET
FooterFont.Color = clWindowText
FooterFont.Height = -11
FooterFont.Name = 'MS Sans Serif'
FooterFont.Style = []
FooterRowCount = 1
OptionsEx = [dgAllowDelete, dgAllowInsert, dgCurrencyView]
Columns = <
item
Expanded = False
FieldName = 'GoodsName'
Width = 160
Visible = True
ControlType = ctCustomControl
CustomControl = QLDBLookupComboBox1
Footer.Value = #21512#35745#65306
Footer.ValueType = fvtStaticText
end
item
Expanded = False
FieldName = 'UnitName'
Width = 53
Visible = True
end
item
Expanded = False
FieldName = 'GoalQuantity'
Width = 75
Visible = True
Footer.ValueType = fvtSum
end
item
Expanded = False
FieldName = 'CostRate'
Width = 69
Visible = True
Footer.ValueType = fvtSum
end
item
Expanded = False
FieldName = 'Cost'
Width = 100
Visible = True
Footer.ValueType = fvtSum
end
item
Expanded = False
FieldName = 'GoalUnitCost'
Width = 75
Visible = True
Footer.ValueType = fvtSum
end>
end
end
inherited GoodsLookup: TQLDBLookupComboBox
Left = 24
Top = 152
end
object QLDBLookupComboBox1: TQLDBLookupComboBox [7]
Left = 48
Top = 352
Width = 145
Height = 18
BevelEdges = []
BevelInner = bvNone
BevelOuter = bvNone
Ctl3D = False
DataField = 'GoodsName'
DataSource = dsYDProductFormulaOut
DropDownRows = 10
ListField = 'Name'
ParentCtl3D = False
TabOrder = 6
Visible = False
ButtonHeight = 22
OnButtonClick = GoodsLookupButtonClick
VisibleButtons = [lbSetNull]
end
inherited MasterDataSource: TDataSource
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -