📄 goods.dfm
字号:
Width = 118
Height = 13
Caption = '序号/工序名/建档人'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Edit1: TEdit
Left = 149
Top = 6
Width = 148
Height = 21
ImeName = '万能五笔2000a+'
TabOrder = 0
end
end
object DBGrid1: TDBGrid
Left = 0
Top = 33
Width = 792
Height = 222
Align = alClient
DataSource = DataMod.Dsgoods
ImeName = '万能五笔2000a+'
PopupMenu = PopupMenu1
TabOrder = 1
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = 'goodsid'
Width = 68
Visible = True
end
item
Expanded = False
FieldName = 'goodsname'
Width = 108
Visible = True
end
item
Expanded = False
FieldName = 'prices'
Width = 55
Visible = True
end
item
Expanded = False
FieldName = 'indetailno'
Width = 69
Visible = True
end
item
Expanded = False
FieldName = 'indetailname'
Width = 98
Visible = True
end
item
Expanded = False
FieldName = 'deptno'
Width = 63
Visible = True
end
item
Expanded = False
FieldName = 'dept'
Width = 135
Visible = True
end
item
Expanded = False
FieldName = 'cdate'
Width = 100
Visible = True
end
item
Expanded = False
FieldName = 'operator'
Visible = True
end>
end
object Panel1: TPanel
Left = 0
Top = 258
Width = 792
Height = 62
Align = alBottom
BevelInner = bvLowered
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = '宋体'
Font.Style = []
ParentFont = False
TabOrder = 2
object Label1: TLabel
Left = 8
Top = 11
Width = 26
Height = 13
Caption = '序号'
FocusControl = DBEdit1
end
object Label2: TLabel
Left = 112
Top = 11
Width = 52
Height = 13
Caption = '工序名称'
FocusControl = DBEdit2
end
object Label14: TLabel
Left = 262
Top = 11
Width = 52
Height = 13
Caption = '所属部门'
end
object Label17: TLabel
Left = 525
Top = 11
Width = 52
Height = 13
Caption = '工序系数'
end
object DBText2: TDBText
Left = 407
Top = 10
Width = 33
Height = 13
AutoSize = True
DataField = 'dept'
DataSource = DataMod.Dsgoods
end
object DBText3: TDBText
Left = 669
Top = 10
Width = 26
Height = 13
AutoSize = True
DataField = 'indetailname'
DataSource = DataMod.Dsgoods
end
object Label3: TLabel
Left = 8
Top = 38
Width = 26
Height = 13
Caption = '单价'
FocusControl = DBEdit3
end
object Label6: TLabel
Left = 125
Top = 39
Width = 39
Height = 13
Caption = '建档人'
FocusControl = DBEdit2
end
object Label7: TLabel
Left = 262
Top = 39
Width = 52
Height = 13
Caption = '建档日期'
end
object DBText1: TDBText
Left = 170
Top = 38
Width = 39
Height = 13
AutoSize = True
DataField = 'operator'
DataSource = DataMod.Dsgoods
end
object DBText4: TDBText
Left = 320
Top = 38
Width = 70
Height = 13
AutoSize = True
DataField = 'cdate'
DataSource = DataMod.Dsgoods
end
object DBEdit1: TDBEdit
Left = 40
Top = 7
Width = 64
Height = 21
DataField = 'goodsid'
DataSource = DataMod.Dsgoods
ImeName = '万能五笔2000a+'
TabOrder = 0
end
object DBEdit2: TDBEdit
Left = 170
Top = 7
Width = 84
Height = 21
DataField = 'goodsname'
DataSource = DataMod.Dsgoods
ImeName = '万能五笔2000a+'
TabOrder = 1
end
object dept: TwwDBLookupCombo
Left = 318
Top = 7
Width = 81
Height = 21
DropDownAlignment = taLeftJustify
Selected.Strings = (
'dno'#9'8'#9'dno'#9'F'
'dept'#9'80'#9'部门名称'#9'F')
DataField = 'deptno'
DataSource = DataMod.Dsgoods
LookupTable = ADOdept
LookupField = 'dno'
TabOrder = 2
AutoDropDown = False
ShowButton = True
AllowClearKey = False
end
object idetail: TwwDBLookupCombo
Left = 580
Top = 7
Width = 81
Height = 21
DropDownAlignment = taLeftJustify
Selected.Strings = (
'indetailno'#9'20'#9'indetailno'#9'F'
'indetailname'#9'30'#9'系数名称'#9'F')
DataField = 'indetailno'
DataSource = DataMod.Dsgoods
LookupTable = ADOindetail
LookupField = 'indetailno'
TabOrder = 3
AutoDropDown = False
ShowButton = True
AllowClearKey = False
OnChange = idetailChange
end
object DBEdit3: TDBEdit
Left = 40
Top = 34
Width = 64
Height = 21
DataField = 'prices'
DataSource = DataMod.Dsgoods
ImeName = '万能五笔2000a+'
TabOrder = 4
end
end
object DBGrid4: TDBGrid
Left = 0
Top = 323
Width = 792
Height = 162
Align = alBottom
DataSource = DataMod.Dsdingdanman
ImeName = '万能五笔2000a+'
ReadOnly = True
TabOrder = 3
TitleFont.Charset = DEFAULT_CHARSET
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -