系数、同定参数和许用应力等则通过查询相核所需过程参数也比较多。
为了与数据库实现交 关数据库,选择满足要求的数据。
互、保存设计结果,每个设计校核过程中的所有主参 程序设计过程中,在各个子窗体按照程序实现数和过程参数以及运行结果都需要记录在数据库 的功能来选择添加各种控件。
在程序运行中,各个中。
所以,数据库的建立就显得尤为重要。
为了能 设计参数用TextBox控件实现手动输入,同时用La.与VB程序进行有效地连接,采用Access数据库,同 beI控件做好其标签;对于多项选择输入的参数,则时在数据库建立时采用了规范化的理论,严格遵循 把它们添加到Combo.text中,从中选取需要的参数范氏规则,消除了关系模型中可能存在的各种异常 值。
而需要查询的参数,首先用Adodc控件连接数和数据冗长等毛病。
据库,在Command控件
代码窗口中用查询模块中的 (2)数据库的访问方式及其实现
代码 查询函数来实现参数的查询调入。
其中,Adodc控 数据库建立好后,运用ADO组件技术在VB环 件是微软提出的长期数据库访问战略,而且ADO对境下实现和数据库的连接、访问。
首先,使用Mi— 象模块比DAO和RDO都简单,通过关联Textbox控crosoft提供的Microsoft.Jet.OLEDB.4.0数据引擎 件,显示查询到数据库中的数值。
例如,利用上述的以已建立好的数据库为数据源连接数据库。
然后, 查询函数ExecuteSQL()查询数据库中表名为“总应用SQL语言来建立查询语句,从已建立好的大量 表”中字段“数值”的查询实现
代码。
数据中查询所需要的参数来实现数据库的访问。
这 Dim rsl As ADODB.Recordset里的各个查询工作是利用一个查询模块来进行的。
Dim txtSQLl As String模块示例
代码如下: DimMs盯extl As St而ng Public Function ExecuteSQL( ByVal SQL As 恢tSQLl=”Select数值From总表”St—ng, Set rsl=ExecuteSQL(txtSQLl,MsgTextl) MsgString As Stdng)As ADODB.Recordset Textl(1).Text=rsl(”数值”) Dim conn As ADODB.Connection定义ADO连 rs】.C10se接conn Dim rst As ADODB.Recordset定义ADO连接记 (4)数据和公式查询方式及实现录集rst 该应用程序涉及到各种数控刀具的开发,而由 Dim STokens()As String 于各个用户(企业)所采用的标准不一样,因此设计 Dim ConIlectString A8 string 计算中所采用的理论和计算公式可能完全不同。
为 STokens=Split(SQL) 了方便用户在开发设计过程中及时地了解到设计校 Set conn=New ADODB.Connection 核中用到的各个计算公式和主要参数值,在程序的 conn.Open ConnectString 主界面上设有查询功能,可分别实现公式和数据的 ⅡInStr(”insert,delete,update”, 查询。
在查询过程中主要用到的控件有Data控件、 UCase¥(S7rokens(0)))Then TreeView控件、OLE控件和MSFlexGrid控件。
公式 c仰n.Execute SQL 查询中,首先用Data控件把已存储公式的数据库连 MsgS研ng=STokens(0)&”query successM” 接起来实现VB的访问,用TreeView控件显示公式 一175—万方数据 V01.30 No.4 基于VB的数控刀具应用程序设计——黄伟忠,等 第30卷第4期名称并配合有打开和关闭2个图片,直观地显示当 库可由独占方式打开,通过ADO编写的程序能使数时状态,用OLE控件来显示公式表达式,而公式中 据库和窗口很好地交互,但报表在创建时即使输入的代号和说明分别显示在TextBox控件里。
MSnex. 正确的密码也不允许再访问数据库。
因此,报表数G嗣控件是用来处理和显示层次式数据的工具控 据库没设密码,但是系统退出时提示用户是否保存件,用它来显示数据库中主要的参数值。
公式查询 并清空数据库,而本程序重点设计了密码数据库的
代码示例如下: 结构。
Dim selectedVaLlBodyKey As String返回树状目 3程序的调试和运行录中所选中节点的键值 VB的集成开发环境提供了界面设计、
代码编 SelectedValBodyKey 2 7I’reeViewl.SelectedItem. 写、程序调试等功能,具有极大的方便性和高效性。
Key 利用这个平台,可以把应用程序编译成可执行程序 Select Case TI℃eviewl.selectedItem.Key 而脱离VB的设计环境直接在Window8系统下运 case”IDl”选择公式在表中存储的代号 行。
OLEl.DataField=”公式或索引” VB的集成开发环境下,对数控刀具设计应用程 Textl.DataField=”符号” 序各模块进行调试,运行无误后就可进行打包成脱离 Tex也.DataField=”名称” VB设计环境的基于Windows应用程序。
设计、校核工作完成后,可以查看刀具设计参数 (5)数据报表的生成和打印及实现 的报表,同时可以详细地了解各个参数的状态。
在 刀具设计完成后,如果一些作为设计主要依据 程序运行中,如需要了解数据库中各主要参数值,可的参数值和中间变量值需要打印出来时,可以使用 以在系统主界面上直接进行查询、访问,适时地了解数据报表来完成,同时可以用数据报表实现查询、统 数据库中参数的情况。
计和汇总等功能。
在输出报表时,先应用Data Envi- 4结语ronment控件对报表数据库进行连接。
把Data En、ri- 要实现产品设计过程的高效性和准确性,就必mnment中的connection属性连接到需要打印的数 须采用新的开发工具,使产品设计程序化。
VB语据库上,在其comm粕d属性中把各个需要在报表中 言易学,可用作开发平台,能满足程序化的需求。
基显示的字段设为其数据源,实现Da诅Envimnment 于VB语言,使用Microsoft Access数据库和SQL语控件和需要打印的报表数据库的连接。
然后,用 言,开发了数控刀具设计校核计算的计算机应用程DataReport控件来设计报表布局。
报表布局设计完 序。
该程序使刀具设计校核快速、准确、可视、便于成后,可以用show方法把报表显示在屏幕上,或用 存取。
从而可以缩短刀具开发周期,提高刀具设计蹦ntReport方法将报表发送到打印机上直接打印报 校核的可靠性和稳定性,同时,可以有效地减轻开发表。
下面程序
代码可以实现报表的屏幕输出: 人员的工作量,提高工作效率,可以广泛地应用于数 控刀具设计中。
r=MsgBox(”设计强度校核完成,是否需要查 参考文献: 〔1〕吴能章.数控刀具技术的最新进展〔J〕.西华大学学报·自然科看报表?”,vbYesNo+vbQuestion+vbDefaultBut— 学版。
2007(5):14一19.toTl2,”信息提示”) 〔2〕蔚彩蓉.基于VimalB聃ic工艺管理系统的设计分析〔J〕.煤矿机 Select Case r 械,2005.26(2):72—74. Case 6 〔3〕柴欣,李惠然.ViⅢall}a8ic程序设计基础〔M〕.北京:中国铁道出 DataReportl.Show 版社。
2004. C鹪e7 .
上一篇:
VB6.0程序设计上机实验指导
下一篇:
马克思主义基本原理概论论文大学论文