VB+库存管理系统+开题报告(六)

第六章 程序设计
6.1设计的关键技术及应用
⑴ ADO技术
 ADO (ACTIVE DATA OBJECTS) 即ActiveX数据对象,它实际是一种提供访问各种数据类型的连接机制。ADO的设计为一种极简单的格式，通过ODBC的方法同数据库接口相连。用户可以使用任何一种ODBC数据源，即不仅适合于SQL Server、Oracle、Access等数据库应用程序，也适合于Excel表格、文本文件、图形文件和无格式的数据文件。ADO是基于OLE-DB之上的技术，因此ADO通过其内部的属性和方法提供统一的数据访问接口方法。
⑵ ADO技术
 ADO虽然集成在VISUAL BASIC 6.0中，但只是可选项。因此在创建项目后，需要为项目添加ADO。单击[工程]菜单中的[引用]菜单项，打开“引用“对话框。在“引用”选项卡中向下滚动列表项，找到“Microsoft ActiveX Data Objects 2.0 Library” 列表项,单击该列表项左边的复选框。单击“确定”按钮，这样在程序中使用ADO时就不会出现编译错误了。
 Connection对象：通过Connection对象指定程序中要用到的数据库。
 Recordset对象：表示查询结果集。Recordset对象将一个查询字符串传递给由Connection对象指定的数据库，该数据库执行此查询，然后将查询结果返回给Recordset对象。
 
⑶ 应用ADO连库方法
① 使用Connection ：
声明变量Public Conn AS ADODB.Connection
使用Set Connection 对象的一个实例, 并赋给变量。
Conn ：Set Conn=New ADODB.Connection
使用Connection 对象的Open方法连接到指定的数据库。
Conn.Open "driver={Microsoft Access Driver (*.mdb)}；dbq=" & DbPath，"sa"， "Liu Yang”
② 使用Recordset 对象:
先声明变量
 Dim RS AS ADODB.Recordset
 使用Set 语句生成Recordset对象的一个实例,并赋值给变量RS：
 Set RS=New ADODB.Recordset
 使用Recordset 对象的Open 方法,将查询字符串传递给Connection 对象指定的数据库。数据库服务器接收到这个查询字符串后,将查询结果返回到RS对象。
6.2系统主要功能的具体设计
 库存信息管理系统共有1个界面，5个窗体，包括5个主菜单。现具体介绍如下；
①系统主界面如下图所示：
 
 图6-1 系统主界面
 ②项目设置窗体如下：
 
 图6-2 项目设置窗体
 
 项目设置代码设计：
 Private Sub Toolbar5_ButtonClick(ByVal Button As MSComctlLib.Button)
 Select Case Button.Index
 Case 1 ''前进
 Data5.Recordset.MovePrevious
 If Data5.Recordset.BOF = True Then
 Data5.Recordset.MoveFirst
 End If
 
 Case 2 ''后退
 Data5.Recordset.MoveNext
 If Data5.Recordset.EOF = True Then
 Data5.Recordset.MoveLast
 End If
 Case 4 ''增加
 On Error GoTo add_error
  Data5.Recordset.AddNew
  'Data1.Recordset("建户时间") = Date
 add_error:
    If Err.Number = 3426 Then
     MsgBox "已经使用过添加记录！   错误：" & Err & "，" & Err.Description, 0, "提示"
    

首页 上一页 3 4 5 6 7 8 9 下一页 尾页 6/9/9