进销存管理系统-课程设计报告

进销存管理系统-课程设计报告

2007级课程设计报告

课题名称：进销存管理系统（盘点管理管理子系统）

专 业： 班 级： 学 号： 姓 名： 指导教师：

年月

目录

1． 系

统

概

述…………………………………………………………1 2． 系

统

分

析………………………………………………………2-6 2.1

需

求

分

析………………………………………………

2.2

业

务

流

程

图………………………………………………

2.3

数

据

流

程

图………………………………………………

2.4

数

据

词

典………………………………………………

3． 系

统

设

计………………………………………………6----32 3.1

模

块

结

构

设

计……………………………………………… 3.2

数

据

库

概

念

设

计………………………………………………

3.3 数据库逻辑设

计………………………………………………

3.4 输出设计……………………………………………… 3.5 输入设计……………………………………………… 3.6 代码设计……………………………………………… 4．结语………………………………………………33

1.系统概述

现代科技技术突飞猛进，在不同的领域要求各异，以前对库存盘点的统计都是手写登记，纸制查看，这样很容易发生错误，导致企事业失去他们所需要的信息，而且会产生错误信息误导决策，现在为了方便决策者了解到更加确切的信息和资料，所以开发这样的系统方便决策者查询信息及网上浏览，使各方面的信息都能够正确及时。

系统的功能是将该企业的所有库存盘点信息进行电子统计,根据不同的需求建立各种的报表,便于企事业在网上查询库存的各方面的信息情况,方便决策者了解市场,也能够方便管理者对库存盘点的信息进行不同的统计。

库存盘点管理管理子系统主要实现的是库存盘点信息的录入，修改，查询以及盘点信息的打印等功能，为此，若要实现各方面的需求，系统的数据必须具有高度的完整性和准确性，这就要求系统的高度安全性，可维护性，可靠性及灵活性。

比如库存管理系统的管理，管理员在录入商品的库存情况的时候或是数据库出现异常而产生差错，可能会影响决策者从网上查询这些商品的库存情况，这就要求系统具有高度的安全性，可维护性和可靠性；灵活性指的是系统要具有强大的功能以适应不同层次的客户不同的需求。另外，系统的操作界面要求

简便，通俗，以便于操作。

用户对系统的信用，如果因为一次的错误就会导致一连串的信息错误，所以保证信息的可靠性十分必须的，这样才能使系统得到用户的信赖和支持。这样的系统需要保证可靠性,避免给决策者提供虚假的信息,更确保各部门通过浏览该系统,进行相应的需求操作。

因此，随着技术发展，企业采用库存盘点信息化已成为趋势及必然。

2.系统分析

2.1需求分析

2.1.1需求分析

本系统通过简单的数据库的操作，实现企事业单位的库存信息的管理。库存盘点管理管理子系统是一个小型的信息管理系统，数据库采用SQL Server 2005。使用户和项目人员明确系统的功能、应用范围。 本系统具有以下功能：

1：实现库存盘点管理的信息化管理。

2：实现库存盘点管理的基础要求，如信息添加，查看及删除。操作方便简单，且数据稳定性强。

3：方便的库存信息查询功能，支持多条件查询。 4：数据计算自动完成，尽量减少人工干预。

5：强大的报表打印功能。

2.1.2开发及运行环境

1． 硬件环境：CPU：CⅡ1.7G以上，内存在256M以上。

2． 软件环境：Windows XP操作系统，Microsoft SQL Servers数据库系统。软件编程使用Microsoft Visual Basic 6.0 中文版。

1

2.1.3程序流程

本库存盘点管理管理子系统使用如下的流程进行登陆以及其他的操作：

开始界面是始于登陆界面“登录（登录.frm）”，当用户键入用户名和密码的时候，系统自动到所对应的数据库“用户信息表”中进行用户验证。如果输入正确则进入系统主界面，就可以进入到主操作菜单窗体“系统(系统.frm)”中进行操作。在主操作菜单窗体“系统(系统.frm)”中，用户可以对数据库中的商品信息、供应商信息及客户信息等基本信息进行包括：添加，查询，修改等操作，并能够进行入库管理，出库管理及库存盘点。此外，可在“清单报表管理窗口”中进行相应的报表打印。

主界面入下图所示：

2．2业务流程图

库存盘点流程如下：

2.3数据流程图

2.4数据字典

4.1.数据元素条目 名称： 库存单编号 别名： kcdb 说明： 库存单编码 数据值类型： 离散 类型： 数字 长度： 10 有关数据： 库存卡 4.2数据结构条目 名称： 说明： 商品入库卡 商品入库时填写的卡片 数据元素条目 总编号： 1-100 编 号： 100 编码说明： ** ** ** 商品编号 库存编号 库存序号

数据结构条目 总编号：2-03 编 号：006

结构： 入库序号 入库编号 商品编号 商品名称 规格 计量单位 数量 单价 总金额 入库日期 经手人 备注信息 有关的数据流，数据存储 新商品入库表 商品库存表 数量： 每年约2000份

4.3.数据流条目

名称： 简要说明： 数据流来源： 数据流去向： 库存信息表 库存信息的汇总 账面库存 P2.1,P2,2 数据流条目 总编号： 3-02 编 号： 005 1000份每流通量： 年 包含的数据结构： 销售的商品 商品库存记录 4.4数据存储条目

名称： 说明： 结构： 库存盘点明细表 库存信息汇总 盘点编号 商品名称 账面库存 实盘库存 差异数 数据存储条目 总编号： 编 号： 有关的数据流 P2.1->A1 信息量： 有无复查： 4-05 A1 A1->P2.1.2 A1->P2.1.5 150份每年 有

3.5处理过程条目

名称： 说明： 输入： 输出： 处理： 打印库存盘点清单 处理过程条目 总编号： 5-009 公布库存盘点信息，并说明库存情况 编 号： P2.1.5 A1->P2.1.5 P2.1.5->盘点明细表 查A1（库存明显表），打印库存信息表及盘点信息表，表现好的可以保持，表现不令人满意的可加以调整，并注明表现不好的地方，要求改进。 4.6外部实体条目

外部实体条目 名称： 员工 说明： 输出数据流： 输入数据流： P2.1,5→员工（工资表） 总编号： 编 号： 个数： 06-001 001 约2000个 2.5程序运行流程图

登陆窗体：用户登陆 数据库数据：验证登验证失登陆成功，进入操基本库存管系统管清单商品信息管供客应户商信信息息管退出窗口入库管理窗出库管理窗盘点库存管用户信息添用户密码修用户信息查数据备份与库存清单报库存清单报3.系统设计

3.1模块结构设计

该系统的总体结构设计如下图所示：

人员信息档案管理系统包括基本信息管理，销售信息管理，库存信息管理，数据报表管理和系统管理等部分。

进销存管理系统

其中，基本信息管理中可以对商品，供应商，客户基本信息进行添加，修改，查询和删除等操作，如图：

基本信息管理基本信息管理销售管理库存管理数据报表管理系统管理商品信息管理供应商信息管理客户信息管理

库存管理中可以实现库存信息，入库单信息，出库单信息，盘点清单信息的录入，修改，查询等操作，如图：

库存管理库存信息查询入库管理出库管理盘点管理入库单录入修改入库单查询出库单录入修改出库单查询盘点清单录入修改盘点清单查询

数据报表管理可以实现盘点清单的预览及打印等操作，如图：

盘点清单报表报表预览报表打印

系统管理中主要是用户查询，添加用户，修改密码，数据备份及恢复等的操作，如图：

系统管理用户信息查询添加用户修改密码数据备份数据恢复退出系统 3.2数据库概念设计

盘点清单更新编号名称调用商品盘点数量仓库单价3.3数据库逻辑设计

1商品信息表 字段名 数据类长型 号 商品名varchar 50 是 称 是否允说明 主键，惟一标识商品记录 度 许空 商品编varchar 10 否

单价 位 产地 名称 varchar 50 是 计量单varchar 10 是 varchar 50 是 供应商varchar 50 是 备注信text 息 2供应商信息表 字段名 数据类长型 编号 供应商varchar 50 是 名称 地址 码 联系电varcgar 20 是 话 企业网varchar 50 是 址 varchar 50 是 邮政编varchar 10 是 16 是 是否允说明 主键，惟一标识供应商记录 供应商单位全称 度 许空 供应商varchar 10 否

联系人 varchar 50 是 联系人varcgar 20 是 电话 开户银varchar 50 是 行 银行账varchar 13 是 号 备注信text 息 3客户信息表 字段名 数据类长型 号 客户名varchar 50 是 称 地址 码 联系电varchar 20 是 话 企业网varcgar 30 是 varchar 50 是 是 16 是 是否允说明 主键，惟一标识客户记录 客户单位全称 度 许空 客户编varchar 10 否 邮政编varchar 6

址 联系人 varchar 50 是 联系人varcgar 20 是 电话 开户银varchar 50 是 行 银行账varchar 20 是 号 备注信text 息 4商品入库信息表

字段数据类长是否说明 名 型 度 允许空 入库decimal 9 序号 商品varchar 10 否 编号 商品varchar 50 是 名称 供应varchar 10 否 商编外键，对应供应商信息表中供应商编否 主键，惟一标识商品入库记录 外键，对应商品信息表中商品编号 16 是

号 供应varchar 50 是 商名称 规格 varchar 30 是 计量varchar 10 是 单位 数量 varchar 10 是 单价 varchar 50 是 总金varchar 50 是 额 日期 datetime 8 人 备注text 信息 修改varchar 20 是 人 修改datetime 8 日期 5商品库存信息表 字段数据类长是 16 是 是 号 经手varchar 20 是 是否说明

名 型 度 允许空 否 主键，惟一标识商品库存记录 外键，对应商品信息表中商品编号 库存decimal 9 序号 库存varchar 30 是 编号 库存varchar 50 是 名称 商品varchar 10 否 编号 规格 varchar 30 是 计量varchar 10 是 单位 数量 varchar 10 是 单价 varchar 50 是 总金varchar 50 是 额 日期 datetime 8 备注text 信息 6商品出库信息表 字段数据类长是 16 是 是否说明

名 型 度 允许空 否 主键，惟一标识商品入库记录 外键，对应商品信息表中商品编号 出库decimal 9 序号 出库varchar 10 是 编号 商品varchar 10 否 编号 商品varchar 50 是 名称 规格 varchar 30 是 计量varchar 10 是 单位 数量 varchar 10 是 单价 varchar 50 是 总金varchar 50 是 额 出库datetime 8 日期 提货varchar 50 是 单位 提货varchar 50 是 是

人 经手varchar 20 是 人 备注text 信息 修改varchar 20 是 人 修改datetime 8 日期

7库存明细表 字段数据类长名 型 是否说明 空 盘点varchar 10 否 编号 商品varchar 10 否 编号 商品varchar 50 是 名称 规格 varchar 30 是 计量varchar 10 是 主键，惟一标识商品盘点记录 外键，对应商品信息表中商品编号 度 允许是 16 是

单位 单价 varchar 50 是 账面varchar 50 是 库存 实盘varchar 50 是 库存 差异varchar 50 是 数 盘点varchar 50 是 人员 盘点datetime 8 日期 备注text 信息 8用户信息表 字段名 数据类型 长度 是否允许空 说明 否 否 是 是 主键 用户编号 varchar 10 用户密码 varchar 10 用户名称 varchar 50 备注信息 text 3.4输出设计和输入设计

3.4.1登录界面：

是 16 是 16

3.4.2主界面：

3.4.3商品信息管理的输出界面如图所示：

3.4.4入库单录入修改的输出界面如图所示：

3.4.5入库单信息查询的输出界面如图所示：

3.4.6盘点清单录入修改的输出界面如图所示：：

3.4.7数据库备份与恢复：

3.4.8盘点清单打印界面：

3.5代码设计

3.5.1登录

Option Explicit Dim SQL As String Dim msg As String

Dim LoginSucceeded As Boolean Dim 用户名称 As String

Private Sub Command1_Click()

Dim rst As ADODB.Recordset Dim password As String '判断用户是否存在

用户名称 = Trim(Text1.Text) '取出用户的ID

SQL = \" select * from 用户信息表 where 用户名称='\" & 用户名称 & \"'\" Set rst = SelectSQL(SQL, msg) If rst.RecordCount > 0 Then

password = Trim(rst.Fields(1)) '取出该用户的密码 rst.Close Else

MsgBox (\"数据库操作错误！\") Exit Sub End If

'判断密码是否正确

If password = Trim(Text2.Text) Then LoginSucceeded = True 系统.Show Unload Me Else

MsgBox (\"密码错误！\") LoginSucceeded = False End If End Sub

Private Sub Command2_Click() '设置全局变量为 false '不提示失败的登录

LoginSucceeded = False Unload Me End Sub

Private Sub Form_Load() 登录.Enabled = True End Sub

Private Sub Form_Unload(Cancel As Integer) LoginSucceeded = False Unload Me End Sub

3.5.2.1进入系统主界面后，对系统进行操作，各代码如下：

3.5.1在基本信息管理界面中，各按钮的代码如下（以“商品信息管理”为例）: Option Explicit

Dim i As Integer '定义整型变量

Dim rs1 As New ADODB.Recordset '定义数据集对象 Dim rs As New ADODB.Recordset '定义数据集对象 Dim SQL As String Dim msg As String

Private Sub Command1_Click() If Text1.Text = \"\" Then

MsgBox \"商品编号不允许为空！\" End If

SQL = \"SELECT * FROM 商品信息表 \" Set rs1 = SelectSQL(SQL, msg) '新增商品 rs1.AddNew

rs1.Fields(\"商品编号\") = Text1.Text

rs1.Fields(\"商品名称\") = Text2.Text rs1.Fields(\"单价\") = Text3.Text rs1.Fields(\"单位\") = Combo1.Text rs1.Fields(\"产地\") = Text4.Text

rs1.Fields(\"供应商名称\") = Combo2.Text rs1.Fields(\"备注信息\") = Text5.Text rs1.Update

MsgBox \"添加数据成功！\" '关闭数据集对象 rs1.Close Unload Me

商品信息管理.Show End Sub

Private Sub Command2_Click() 商品信息管理.Hide 系统.Show End Sub

Private Sub Command3_Click() '查询操作

Call LoadData ' Call ShowData 'End Sub

Private Sub ShowData() '在控件中显示数据

'如果存在记录 '为控件赋值

SQL = \"SELECT * FROM 商品信息表 \" Set rs = SelectSQL(SQL, msg)

Set Me.DataGrid1.DataSource = rs If rs.RecordCount <> 0 Then DataGrid1.Refresh End If End Sub

Private Sub LoadData() '查询商品信息

装载数据 显示数据

SQL = \"SELECT * FROM 商品信息表 \" Set rs = SelectSQL(SQL, msg)

Set Me.DataGrid1.DataSource = rs DataGrid1.Refresh rs.Update End Sub

Private Sub ControlClear() '重置控件

Me.Text1.Text = \"\" Me.Text2.Text = \"\" Me.Text3.Text = \"\" Me.Text4.Text = \"\" Me.Text5.Text = \"\" Me.Combo1.Text = \"\" Me.Combo2.Text = \"\" End Sub

Private Sub Command4_Click() '删除操作

On Error GoTo ErrMsg '错误处理 If rs.RecordCount > 0 Then

msg = MsgBox(\"删除该条记录吗?\ If msg = vbYes Then

rs.Delete '删除数据

Call LoadData '重新装载数据 '清空控件

Call ControlClear

'设置控件Enable值为不可用 MsgBox (\"成功删除的数据!\") End If Else

MsgBox (\"没有可删除的数据!\") End If Exit Sub

ErrMsg: '报告出错信息 MsgBox Err.Description, vbExclamation, \"出错\" End Sub

Private Sub Form_Load() Combo1.AddItem (\"瓶\") Combo1.AddItem (\"公斤\") Combo1.AddItem (\"袋\")

Combo2.AddItem (\"吉良集团\") Combo2.AddItem (\"吉林米业\")

Combo2.AddItem (\"宏基有限公司\")

Combo2.AddItem (\"光华企业\") End Sub

3.5.3.1在库存信息查询界面中，各按钮的代码如下: Private Sub Command1_Click() '查询操作

Dim colName As String '保存所选择的查询条件 Dim colValue As String '保存所要查询具体的值 Dim strWhere As String

colName = Combo1.Text '取出条件的值 colValue = Text1.Text '取出所要查询的值 strWhere = \" where \" & colName & \" like '%\" & colValue & \"%'\" SQL = \" select * from 商品库存信息表 \" & strWhere Set rs = SelectSQL(SQL, msg) If rs.RecordCount <> 0 Then

Set DataGrid1.DataSource = rs Else

Set rs = Nothing End If End Sub

Private Sub Command2_Click() '退出操作

库存信息查询.Hide 系统.Show End Sub

Private Sub Form_Load() Combo1.AddItem (\"库存序号\") Combo1.AddItem (\"库存编号\") Combo1.AddItem (\"商品编号\") Combo1.AddItem (\"商品名称\") Combo1.AddItem (\"日期\") Combo1.ListIndex = 0 End Sub

3.5.3.2.1在入库单录入修改界面中，各按钮的代码如下: Option Explicit

Dim i As Integer '定义整型变量

Dim rs1 As New ADODB.Recordset '定义数据集对象 Dim rs As New ADODB.Recordset '定义数据集对象 Dim SQL As String Dim msg As String

Private Sub Command1_Click() If Text1.Text = \"\" Then

MsgBox \"入库序号不允许为空！\" End If

SQL = \"SELECT * FROM 商品入库信息表 \"

Set rs1 = SelectSQL(SQL, msg) '新增商品 rs1.AddNew

rs1.Fields(\"入库序号\") = Text1.Text rs1.Fields(\"入库编号\") = Text2.Text rs1.Fields(\"商品编号\") = Text5.Text rs1.Fields(\"商品名称\") = Text6.Text rs1.Fields(\"供应商编号\") = Text4.Text rs1.Fields(\"供应商名称\") = Combo1.Text rs1.Fields(\"规格\") = Text7.Text

rs1.Fields(\"计量单位\") = Combo2.Text rs1.Fields(\"数量\") = Text8.Text rs1.Fields(\"单价\") = Text9.Text rs1.Fields(\"总金额\") = Text10.Text

rs1.Fields(\"日期\") = Me.DTPicker1.Value rs1.Fields(\"经手人\") = Text3.Text rs1.Fields(\"备注信息\") = Text11.Text rs1.Fields(\"修改人\") = Text12.Text

rs1.Fields(\"修改日期\") = Me.DTPicker2.Value rs1.Update

MsgBox \"添加数据成功！\" '关闭数据集对象 rs1.Close Unload Me

入库单录入修改.Show End Sub

Private Sub Command4_Click() 入库单录入修改.Hide 系统.Show End Sub

Private Sub Command2_Click() '查询操作

Call LoadData '装载数据 Call ShowData '显示数据 End Sub

Private Sub ShowData() '在控件中显示数据

'如果存在记录 '为控件赋值

SQL = \"SELECT * FROM 商品入库信息表 \" Set rs = SelectSQL(SQL, msg)

Set Me.DataGrid1.DataSource = rs If rs.RecordCount <> 0 Then DataGrid1.Refresh

End If End Sub

Private Sub LoadData() '查询商品入库信息

SQL = \"SELECT * FROM 商品入库信息表 \" Set rs = SelectSQL(SQL, msg)

Set Me.DataGrid1.DataSource = rs DataGrid1.Refresh rs.Update End Sub

Private Sub ControlClear() '重置控件

Me.Text1.Text = \"\" Me.Text2.Text = \"\" Me.Text3.Text = \"\"

Me.Text4.Text = \"\" Me.Text5.Text = \"\" Me.Text6.Text = \"\" Me.Text7.Text = \"\" Me.Text8.Text = \"\" Me.Text9.Text = \"\" Me.Text10.Text = \"\" Me.Text11.Text = \"\" Me.Text12.Text = \"\" Me.Combo1.Text = \"\" Me.Combo2.Text = \"\" End Sub

Private Sub Command3_Click() '删除操作

On Error GoTo ErrMsg '错误处理 If rs.RecordCount > 0 Then

msg = MsgBox(\"删除该条记录吗?\ If msg = vbYes Then

rs.Delete '删除数据

Call LoadData '重新装载数据 '清空控件

Call ControlClear

'设置控件Enable值为不可用 MsgBox (\"成功删除的数据!\") End If Else

MsgBox (\"没有可删除的数据!\") End If Exit Sub

ErrMsg: '报告出错信息 MsgBox Err.Description, vbExclamation, \"出错\" End Sub

Private Sub Form_Load() Combo1.AddItem (\"吉良集团\") Combo1.AddItem (\"吉林米业\")

Combo1.AddItem (\"宏基有限公司\") Combo1.AddItem (\"光华企业\") Combo2.AddItem (\"瓶\") Combo2.AddItem (\"公斤\") Combo2.AddItem (\"袋\") End Sub

3.5.5.3在修改密码界面中，“确定”按钮的代码如下： Option Explicit Dim SQL As String Dim msg As String

Private Sub Command2_Click() '退出操作

系统.Enabled = True Unload Me End Sub

Private Sub Commandok_Click() '确定操作

Dim rst As ADODB.Recordset

Dim p1 As String '保存用户的密码 Dim p2 As String '保存用户的新密码 Dim p3 As String '保存用户的确认密码 '赋值

p1 = Trim(Text1.Text)

p2 = Trim(Text2.Text) p3 = Trim(Text3.Text)

SQL = \"select * from 用户信息表 用户名称='\" & 用户名称 & \"'\" SQL = SQL & \" and 用户密码='\" & p1 & \"'\"

On Error GoTo ErrMsg '出错处理 Set rst = SelectSQL(SQL, msg)

If rst.RecordCount > 0 Then '如果输入密码正确 '检查新密码和确认密码 If (p3 <> p2) Then

MsgBox (\"两次输入的密码不一致！\") Exit Sub End If

'接受新的密码

rst.Fields(\"密码\") = p2 rst.Update

MsgBox (\"更新成功！\") Else

MsgBox (\"用户名称或密码输入错误！\") Exit Sub End If Exit Sub

ErrMsg: '出错信息 MsgBox Err.Description, vbExclamation, \"出错\" End Sub

Private Sub cmdCancel_Click() '退出操作

系统.Enabled = True Unload Me End Sub

3.5.5.4数据库备份界面中的“开始备份”按钮的代码如下： Private Sub Cmd_BackUp_Click() Cmd_backup.Enabled = False Me.MousePointer = 11 If Text1.Text = \"\" Then

MsgBox \"请您选择数据库备份的路径!\提示信息\" Else

Dim connter As Integer

Dim SQL, workarea(6) As String ProgressBar1.Visible = True

ProgressBar1.Max = UBound(workarea) ProgressBar1.Value = ProgressBar1.Min

For connter = LBound(workarea) To UBound(workarea) workarea(connter) = \"initial value\" & connter ProgressBar1.Value = connter '连接数据库 Call joins

StrCnn.Open Str1

SQL = \"backup DATABASE db_kcgl TO disk='\" & Text1.Text & \"'\" StrCnn.Execute (SQL) '执行SQL语句 StrCnn.Close Next connter

ProgressBar1.Value = ProgressBar1.Min MsgBox \"数据库备份成功!!\提示信息\" Cmd_backup.Enabled = True Me.MousePointer = 0 End If End Sub

3.5.6公用模块设计代码：

Public Function GetConnStr() As String

'得到数据库连接字符串，用户可以在此处设置连接字符串 'User ID 是数据库用户ID，Password是登陆密码

'Initial Catalog是数据库名，Data Source是服务器名称 ConnectionString = \"Provider =SQLOLEDB;Data

Source=WWW-4A31291611D;Initial Catalog= wyx13;User ID=sa;Password=;\" GetConnStr = ConnectionString End Function

Public Function OpenConn(ByRef Conn As ADODB.Connection) As Boolean '打开数据库连接，连接成功返回true，出错时返回false Set Conn = New ADODB.Connection '出错处理

On Error GoTo ErrorHandle Conn.Open GetConnStr OpenConn = True Exit Function ErrorHandle:

MsgBox \"连接数据库失败！请重新连接！\" OpenConn = False Exit Function End Function

Public Sub ExecuteSQL(ByVal SQL As String, ByRef msg As String) '执行SQL语句

Dim Conn As ADODB.Connection Dim sTokens() As String '出错处理

On Error GoTo ErrorHandle '判断SQL语句

sTokens = Split(SQL)

If InStr(\"INSERT,DELETE,UPDATE\ '打开数据库连接

If OpenConn(Conn) Then Conn.Execute SQL

msg = sTokens(0) & \"操作执行成功！\" End If Else

msg = \"SQL语句有误：\" & SQL End If Finally_Exit:

Set rst = Nothing Set Conn = Nothing Exit Sub ErrorHandle:

msg = \"执行错误: \" & Err.Description Resume Finally_Exit

End Sub

Public Function SelectSQL(ByVal SQL _

As String, ByRef msg As String) As ADODB.Recordset '执行SQL语句，返回ADODB.Recordset Dim Conn As ADODB.Connection Dim rst As ADODB.Recordset Dim sTokens() As String '出错处理

On Error GoTo ErrorHandle '判断SQL语句

sTokens = Split(SQL)

If InStr(\"SELECT\ '打开数据库连接

If OpenConn(Conn) Then

Set rst = New ADODB.Recordset rst.CursorLocation = adUseClient

rst.Open Trim$(SQL), Conn, adOpenDynamic, adLockOptimistic Set SelectSQL = rst

msg = \"查询到\" & rst.RecordCount & \" 条记录! \" End If Else

msg = \"SQL语句有误：\" & SQL End If Finally_Exit:

Set rst = Nothing Set Conn = Nothing Exit Function ErrorHandle:

MsgString = \"查询错误: \" & _ Err.Description

Resume Finally_Exit End Function

Public Function BatchSelectSQL(ByVal SQL _

As String, ByRef msg As String) As ADODB.Recordset '执行SQL语句，返回批处理的ADODB.Recordset Dim Conn As ADODB.Connection Dim rst As ADODB.Recordset Dim sTokens() As String '出错处理

On Error GoTo ErrorHandle '判断SQL语句

sTokens = Split(SQL)

If InStr(\"SELECT\ '打开数据库连接

If OpenConn(Conn) Then

Set rst = New ADODB.Recordset rst.CursorLocation = adUseClient

rst.Open Trim$(SQL), Conn, adOpenDynamic, adLockBatchOptimistic

Set BatchSelectSQL = rst

msg = \"查询到\" & rst.RecordCount & \" 条记录! \" End If Else

msg = \"SQL语句有误：\" & SQL End If Finally_Exit:

Set rst = Nothing Set Conn = Nothing Exit Function ErrorHandle:

MsgString = \"批查询错误: \" & _ Err.Description

Resume Finally_Exit End Function

4.结语

这次的课程设计后有以下几点感受：

1）通过这次课程设计，加强了大家思考和解决问题的能力。在设计前要理清思路，对开发的系统整合模块，并且对每个模块的功能有充分的了解，设计思路。

2）在设计过程中，经常会遇到这样那样的情况，就是心里想老是这样的设计可以行得通，但总是实现不了，因此耗费在这上面的时间用去很多。

3）我沉得做课程设计同时也是对知识的渴求和对所学知识的加强，由于课本上的知识太多，平时课间的学习并不能很好的理解和运用，而且考试内容有限，所以在这次课程设计过程中，对数据库有了更深的了解，并且对于其在软件设计的使用有了更多的认识。

4）这次所用的语言是VB，可是没学过，看书老是弄不懂，做完课程设计，有些问题就迎刃而解了。而且还可以记住很多东西。比如一些控件的功能，以前没接触过，可这次课程设计后，对它们有了进一步的了解，所以，从实践中可以学到很多东西。知识源于实践，实践是认识的动力和最终目的，实践是检验真理的唯一标准。所以这的课程设计对我的作用是非常大的。

5）在课程设计时，我发现细心耐心，恒心很重要，具备这些才能做好事情。有时一个小小的错误就会导致整个调试过程的结束。这时，细心，耐心很重要，不然就会功亏一篑。

经过两个星期的学习，过程曲折可谓一语难尽。在此期间我也失落过，也曾一度热情高涨。有时一个小小的成功会让我兴奋许久，整个过程的点点滴滴无不令我回味无长。生活就是这样，辛勤预示着结果也见证着收获。

此次课程设计，学到了很多课内学不到的东西，比如思考解决问题，出现差错的随机应变，和与人合作共同提高，都受益非浅，今后的制作应该更轻松，自己也都能扛的起并高质量的完成项目。

最后的大功告成， 对我们而言，知识上的收获重要，精神上的丰收更加可喜。挫折是一份财富，经历是一份拥有。这次课程设计必将成为我人生旅途上一个非常美好的回忆！