autoCAD二次开发第五讲 界面数据交互编程2

Private Sub CMBdd_Change() dd1 = CMBdd.Text dd2 = ratio * dd1 * (1 - hdlTxt) ddTxt .Caption= dd2 End Sub
五、数据库技术的应用
五、数据库技术的应用
带型号 Y Z A B C 200 D 335 E 500 最小基准直径 20 50 75 125 普通V带带轮的最小基准直径
Else
MsgBox "readRecordset error: ADO backend connection failed" End If
五、数据库技术的应用
4、读取数据表
Dim FormRecordset As ADODB.Recordset If ConnDB() = True Then
Set FormRecordset = New ADODB.Recordset With FormRecordset Set .ActiveConnection = adoConn .Source = strSQl .LockType = LockType .CursorType = CursorType .Open End With
第四讲 交互界面设计与编程 （二）
四、计算结果的显示
四、计算结果的显示
1）修改标签Caption属性值 PdLabel.Caption = PdLabel.Caption & Pd '显示计算功率 或： PdLabel.Caption = “设计功率：” & Pd
四、计算结果的显示
“+”和“&”。
五、数据库技术的应用
1、数据管理 工程数据包括大量种类繁多、结构复杂的信息。 如设计数据、绘图数据、材料数据、设备数据、 工艺数据、测试数据、设计手册、标准规范、技 术文档等等。
人工管理
文件系统管理
数据库管理
五、数据库技术的应用
1、数据管理
人工管理是将工程数据资料编入程序，数据的操作由程序 员自己编程管理，数据与程序互相依赖，修改、扩充非常 不便。 特点：用于数据量小、数据固定不变的场合。 文件系统管理是将数据以文件的形式保存在外存储器中， 数据和程序之间有一定的独立性，应用程序各自组织和使 用各自的数据，数据修改较为方便 但数据文件内部缺乏结构性，数据冗余度较高，共享性较 差； 特点：数据管理和应用程序并未完全独立。
End Function
五、数据库技术的应用
Public Function ConnDB() As Boolean'2003 数据库连接 On Error GoTo ERRORHANDLER ' 必须首先获得当前的工程路径 strPath = ThisDrawing.Application.VBE.ActiveVBProject.FileName '连接数据库 If adoConn Is Nothing Then Set adoConn = New ADODB.Connection adoConn.Provider = "Microsoft.Jet.OLEDB.4.0;" strPath = Left(strPath, Len(strPath) - 11) & "mydb.mdb" adoConn.Open strPath End If ConnDB = True Exit Function End Function
2）控制单独显示
标签：
结果值标签
结果值标签.Caption =计算结果
四、计算结果的显示
实例 Private Sub UserForm_Initialize()
PdLabel.Caption = PdLabel.Caption & Pd '显示计算功率 ' n1Label.Caption = n1Label.Caption & n1 '显示小带轮转速 n1txt.Caption = n1'显示小带轮转速 End Sub
'连接数据库 If adoConn Is Nothing Then Set adoConn = New ADODB.Connection
adoConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Left(strPath, Len(strPath) - 8) & "mydb.mdb;“ End If ConnDB = True Exit Function End Function
五、数据库技术的应用
Public Function ConnDB() As Boolean'2007 数据库连接 On Error GoTo ERRORHANDLER strPath = ThisDrawing.Application.VBE.ActiveVBProject.FileName '' If adoConn Is Nothing Then ' strPath = ThisDrawing.Application.VBE.ActiveVBProject.FileName ' ' Set adoConn = New ADODB.Connection '' ' adoConn.Provider = "Microsoft.ACE.OLEDB.12.0;" ' strPath = Left(strPath, Len(strPath) - 11) & "mydb.accdb" ' adoConn.Open strPath ' ' End If End Function
MovePrevious：移动指针到上一条记录
属性 EOF：记录结束标志 Fields(Index)：报表字段值
DO While (Not record.EOF) If record.Fields(1) >= 50 Then CMBdd.AddItem (record.Fields(1)) End If record.MoveNext LOOP
Else MsgBox "readRecordset error: ADO backend connection failed" End If
五、数据库技术的应用
5、ADODB.Recordset方法及属性 方法： MoveFirst：移动指针到当前表格的第一行 MoveNext：移动指针到下一条记录结构化的数据模型来建立一系列结构关系
清晰、逻辑性强的数据文件，并将它们组成一个通用的、 综合性的、数据独立性高、冗余度小的集合，称为数据库； 数据操作和控制由数据库管理系统来完成，数据库管理和 应用程序相互独立，因此具有很好的灵活性。 数据库系统的主要特点是：结构性强，冗余度低，独立性 高，共享性好，灵活性高，管理、控制、维护方便、可靠、
五、数据库技术的应用
Public Function ConnDB() As Boolean On Error GoTo ERRORHANDLER
ERRORHANDLER: Set adoConn = Nothing MsgBox "Error occured in procedure 'EnsureBackendIsConnected'" & vbCrLf & vbCrLf & _ "Error Number: " & Err.Number & vbCrLf & _ "Description: " & Err.Description
“&”连接字符时，系统会自动将连接的操作数转换为字符型，然后连接。
“&”连接字符时，需要在“&”符号两边各加一个空格，否则系统会报错。 “+”连接字符时，如果一边的操作数为数值型，另外一边的操作数为非
数值型，系统会报错。
“+”连接字符时，如果一边的操作数为数值型，另外一边的操作数为数 值字符型，系统会自动将数值字符型转换为数值型，然后执行加法运算。
五、数据库技术的应用
4、读取数据表
Dim FormRecordset As ADODB.Recordset Dim strSQL as String strSQL = "select * from V带轮基准直径" If ConnDB() = True Then Set FormRecordset = New ADODB.Recordset Set FormRecordset.ActiveConnection = adoConn FormRecordset.Source = strSQL FormRecordset.LockType = LockType FormRecordset.CursorType = CursorType FormRecordset.Open
五、数据库技术的应用 5、SQL 检索语句
SELECT语句和FROM子句
SELECT：表明只是读取信息
FROM子句：指定要从中获取数据的一个或多个表的表名 例： select * from score
select * from V带轮基准直径
安全。
五、数据库技术的应用
1、数据管理
数据管理方法的选择:
如果数据量小、固定不变，则可采用人工管理的 方法； 如果数据只需在系统内、程序间共享，则可采用 文件管理方法； 如果数据量大、在系统间共享和交换，则需采用 数据库管理方法。
五、数据库技术的应用
2、数据库的建立
五、数据库技术的应用
五、数据库技术的应用
五、数据库技术的应用
数据基本类型
文本：允许最大255个字符或数字，可以设置“字段大小”属性控制
可输入的最大字符长度。
备注： 这种类型用来保存长度较长的文本及数字，它允许字段能够存储长达
64000个字符的内容。但Access不能对备注字段进行排序或索引。
数字： “字节”、“整数”、“长整数”、“单精度数”、“双精度数”、
“小数”五种类型。
五、数据库技术的应用
3、建立数据库连接
五、数据库技术的应用
3、建立数据库连接 Option Explicit Dim adoConn As ADODB.Connection '连接对象 'Dim adoRs As Recordset '记录集对象 Dim strPath As String
五、数据库技术的应用
Public Function ConnDB() As Boolean'2003 数据库连接 On Error GoTo ERRORHANDLER ' 必须首先获得当前的工程路径 strPath = ThisDrawing.Application.VBE.ActiveVBProject.FileName