您现在的位置：毕业论文 >> 课程设计 >> 正文

vb企业信息管理系统论文第6页

更新时间：2010-6-28: 来源：毕业论文

vb企业信息管理系统论文第6页
设计的关键技术及应用
⑴ 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对象。

⑶ 应用毕业论文http://www.youerw.com
使用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 系统主界面
登录系统的设计如下：
打开visual basic6.0点击新建工程，便弹出工程设计对话框，将from1的caption更改为“诚创公司企业管理系统”,在菜单栏里点击“菜单编辑器”弹出菜单编辑对话框，在标题栏输入“系统”，名称栏输入“xt”单位击“下一个”按钮，再次在标题栏输入“项目”，名称栏输入“mc”,再单击下一步依次建立“入库、出库、报表”。
在菜单编辑器里内点击“项目”，再单击“插入”按钮，单击“→”在标题栏输入“系统登录”，再次点击“项目”单击“插入”，单击“→”在标题栏输入“退出系统”。
用同样的方法设置项目的下拉菜单：员工管理、供应管理、客户管理、材料管理、材料分类。入库操作的下拉菜单：入库产品信息、入库产品信息打印。产品出库操作管理的下拉菜单：出库产品信息、产品出库信息打印。报表输出管理的一拉菜单：日入库产品信息检索、日入库产品信息打印、日出库产品信息检索、日出库产品信息打印。
②项目设置窗体如下：图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
毕业论文http://www.youerw.com
Toolbar5.Buttons(2).Visible = False
Toolbar5.Buttons(4).Visible = False
Toolbar5.Buttons(5).Visible = True
Toolbar5.Buttons(6).Visible = True
Toolbar5.Buttons(7).Visible = False
Case 5 ''确定
On Error GoTo update_error
If Text3.Text = "" Then
MsgBox "必须填写售电员！", 0, "提示"
Exit Sub
End If
Data5.Recordset("分类") = DBCombo1.Text
Data5.UpdateRecord
Data5.Recordset.Bookmark = Data1.Recordset.LastModified
update_error:
   If Err.Number = 3020 Then
    MsgBox "请先添加记录！   错误：" & Err & "，" & Err.Description, 0, "提示"
    Unload Me
    End If
Text21.Visible = True
Toolbar5.Buttons(1).Visible = True
Toolbar5.Buttons(2).Visible = True
Toolbar5.Buttons(4).Visible = True
Toolbar5.Buttons(5).Visible = False
Toolbar5.Buttons(6).Visible = False
Toolbar5.Buttons(7).Visible = True