Global ChbDiameter As Double′在项目标准模块中定义全局变量
:
Private Sub PourSys—Click()′浇注系统设计菜单驱动事件
:
Datal.Recordset.FindFirst“规则”′按规则访问数据库记录
Datal.Recordset.Fields(“压室直径”).Value′提取当前记录中压室直径字段的数据
Parameters=Function(ChbDiameter)′浇注工艺参数设计函数
End Sub
Private Sub ChbVolumeChk—Click()′压室容量校核菜单驱动事件
Check(ChbDiameter)′调用校核过程
End Sub
参考文献:
[1] 罗蓬.压力铸造充填过程的流体动力学模型及应用[J].铸造技术1997,(1):9-10.
[2] 李瑞昌.压铸模设计[M].武汉:华中理工大学出版社,1993.
[3] 吴炜煜.工程数据库管理系统[M].北京:清华大学出版社,1996.
[4] George R D Jr.Computer Aided Design for Zinc Die Casting Dies[J].Die Casting Engineering,1981(6):24-30.
[5] 李志刚等.模具计算机辅助设计[M].武汉:华中理工大学出版社,1990.
Object-Orientated Database System for Die Casting
LUO Peng
(Department of Mechanical Engineering,GUT,Guiyang 550003,China)
Abstract:This paper discusses the object-orientated modeling principle of die casting database and gives a realization and visualization method for the database system.