精品毕业论文、毕业设计，优质的论文服务：www.51jplw.com 精品论文网
提供毕业设计（论文）和图文教程、视频教程等一揽子解决方案
组织：按商品编号递增排列
5 系统功能的详细设计
5.1组件的公共模块
在工程中添加一个模块，命名为 “Module1” ,此模块有两个功能： (1)用来连接数据库及相关的初始化操作。
(2)存放在对数据库的操作过程中可能用到的一些公共函数。 添加全局变量:
Sub Main()过程——组件启动入口
手动加入Sub Main()过程，这个就是在“工程属性”中指定的启动对象。这个过程完成ActiveX DLL的初始化工作。在这个过程中假如对opendb()的默认设置，并打开数据库连接。
在Sub Main 中的opendb()函数，功能是用来连接到数据库。 opendb()函数--与数据库建立连接。
功能： 返回值：Boolean类型，True表示成功，False表示失败。 search()函数--'执行查询语句。
功能：通过查询语句，从数据库中得到一个结果集。 详细代码如下所示: Option Explicit
Public con As New ADODB.Connection Dim rs As ADODB.Recordset
Public HYSZ As String '会员功能设置 Public RoundSZ As String '四舍五入功能设置 Public Sub opendb() '数据库连接
con.ConnectionString = \Source=\& App.Path & \
con.CursorLocation = adUseClient con.Open End Sub
Public Sub main() Frmdl.Show End Sub
Public Function search(sql As String) '执行查询语句 On Error Resume Next
Set rs = New ADODB.Recordset rs.ActiveConnection = con rs.CursorType = adOpenKeyset rs.Source = sql
rs.LockType = adLockOptimistic rs.Open
11
精品毕业论文、毕业设计，优质的论文服务：www.51jplw.com 精品论文网
提供毕业设计（论文）和图文教程、视频教程等一揽子解决方案
Set search = rs End Function
5.2登陆窗口 Frmdl
进入登陆界面后，首先输入账号和密码，系统打开管理员表”admin”表进行查询，若找到与输入的账号和密码相同的记录，则会弹出程序主窗口，表示登陆成功。否则系统会提示账号程序主窗口，表示登陆成功。否则系统会提示账号和密码错误信息。要求重新登陆。登陆流程如下图5-1所示：
开始 进入登陆界面 是 输入账号密码 关闭管理员表 打开管理员表 是 账号密码是否正确 否 关闭管理员表 登陆成功 图 5-1 登录窗口流程图
If rs.RecordCount > 0 Then '判断是否有数据
If rs.Fields(\ '判断密码是否正确 If rs.Fields(\ '判断用户的权限 MDIFrmMain.munsystem.Enabled = True
12
精品毕业论文、毕业设计，优质的论文服务：www.51jplw.com 精品论文网
提供毕业设计（论文）和图文教程、视频教程等一揽子解决方案
Else
MDIFrmMain.munsystem.Enabled = False End If
MDIFrmMain.Show Unload Me Else
MsgBox \密码错误！\ txtpasw.Text = \ txtpasw.SetFocus Exit Sub End If
说明：进入登陆界面后，首先输入账号和密码，系统打开数据库表“admin”表进行判定。如果找到与输入的账号和密码相同的记录，则弹出程序主窗口，即登陆成功。判定用户权限时，如果该用户的权限值等于“all”就会把菜单的值设为“true” 。否则就会设为“false”，这样菜单其他功能就不能选择。然后就会过MDIFrmMain.Show 弹出程序主窗口，Unload Me关闭当前窗口。如果密码不正确，会弹出“密码错误”提示。
5.3 销售管理功能的实现
销售管理功能包括商品销售和销售统计功能。销售商品时，首先输入商品编号，系统打开商品表，查找该编号的商品是否存在。若存在，则显示商品名称和价格。判定购买数量是否小于或等于库存数量，若库存中数量不足，则系统会提示库存中的剩余数量，否则，还将会对实收现金是否为空进行判定，若不为空，则进入下一判定，若实收现金大于或等于应收现金，则系统提示找零数额。若小于应收现金，系统则会提示钱没收够。销售统计将直接列出销售清单。流程图如下图5-2所示：
输入商品编号就可以自动得到商品名称和商品价格的实现代码如下：
sqlstr = \ Set rs = search(sqlstr) If rs.RecordCount <> 0 Then
TxtMCHName.Text = rs.Fields(\ TxtMCHSP.Text = rs.Fields(\
13
精品毕业论文、毕业设计，优质的论文服务：www.51jplw.com 精品论文网
提供毕业设计（论文）和图文教程、视频教程等一揽子解决方案
输入商品编号 否 商品编号存在否 是 显示对应商品名称及价格 提示没有此商品 是 购买数量是否大于库存数量 否 是 实收现金是否为空 否 是 实收现金是否小于应收现金 否 提示钱没收够 提示输入实收现金 提示商品库存数量 销售成功 结束 图 5-2 销售功能流程图
5.4供应商添加 FrmProvider
添加供应商信息时，首先判定供应商编号是否为空和重复，再判定供应商姓名是否为空，供应商的电话是否为空和数字，最后判定供应商地址是否为空。若为空或重复，则给出提示信息，并要求重新输入，否则打开供应商表，将表指针移到最后一条记录，可添加一条新纪录，然后关闭供应商标，即实现了供应商信息的添加。改流程图如下图
14
精品毕业论文、毕业设计，优质的论文服务：www.51jplw.com 精品论文网
提供毕业设计（论文）和图文教程、视频教程等一揽子解决方案
5-3所示：
输入供应商编号 否 编号是否合法 是 输入供应商姓名 否 姓名是否合法 是 输入供应商电话 否 姓名是否合法 是 输入供应商电话 否 电话是否合法 是 输入供应商地址 否 地址是否合法 是 打开供应商表 添加一条新纪录 关闭供应商表 结束 图 5-3 供应商添加流程图
从数据库检查供应商编号是否存在实现的代码如下：
sqlstr = \
15