评价网 > 科教论文 > 工学毕业论文 > 计算机论文 > 正文

VB+库存管理系统+开题报告(一)毕业论文(6)

2013-05-07 18:16 p;                     入库信息表
中文字段名 数据类型 宽度 是否为空 说明 
名称 text 50 no  
供应商 text 50 no  
数量 int  no  
单价 货币  no  
经手 text 50 no  
日期 date  no  
时间 date  no  
⑺出库信息表 表名出库表，用于记载材料出库有关的信息 如表5.7所示。
名称：出库材料的名称
数量：出库材料的数量
经手人：经手人姓名
用途：出库材料用途
日期：出库日期
时间：出库时间
表5.7                     出库信息表
中文字段名 数据类型 宽度 是否为空 说明 
名称 text 50 no  
数量 int  no  
经手人 date 8 no  
用途 text 50 no  
日期 date  no  
时间 date  no  

 

 

 

 

 

 

 

 

 

 

 

第六章 程序设计
6.1设计的关键技术及应用
⑴ ADO技术
 ADO (ACTIVE DATA OBJECTS) 即ActiveX数据对象,它实际是一种提供访问各种数据类型的连接机制。ADO的设计为一种极简单的格式，通过ODBC的方法同数据库接口相连。用户可以使用任何一种ODBC数据源，即不仅适合于SQL Server、Oracle、Access等数据库应用程序，也适合于Excel表格、文本文件、图形文件和无格式的数据文件。ADO是基于OLE-DB之上的技术，因此ADO通过其内部的属性和方法提供统一的数据访问接口方法。 （科教作文网 zw.nseac.com整理）
⑵ 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) （科教作文网http://zw.ΝsΕac.cOM编辑）
 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, "提示"