小型自选商场综合管理系统系统设计及实施

小型自选商场综合管理系统设计及实施

1.系统设计

系统功能模块设计：

（1）商品信息模块

最新商品浏览：将最新的增加的前3条商品显示出来。

商品分类浏览：按商品类别信息浏览商品。

商品名称快速搜索：按商品名称快速搜索所需商品，并可进行模糊查询。

（2）购物功能模块

添加商品到购物车：用户选中商品并添加到购物车。

用户填写订单：用户填写商品数量等购买信息。

商品购买、结账、购物信息查看：购买数量小于商品库存数量购买成功，账户余额大于所购商品金额，结账成功。用户查看购物车。

（3）用户信息管理模块

注册新用户：新用户进行注册，并进行账户充值。

登录：购物时需要登录系统。输入用户名、密码进行验证。

修改密码：取消旧密码，保存新密码。

个人详细资料修改：对用户个人信息进行修改。

账户充值：用户查询余额并对账户进行充值。

查看购物车：用户对在本所购商品情况进行查看。

（4）系统管理模块

用户信息浏览：管理员浏览用户注册的个人信息并确认其账户的充值金额。

商品信息管理：对库存的商品进行增加、删除、修改。

商品销售信息查询：可按月、日进行销售记录查询、

2.系统实施：

开发环境：

（1）操作系统：Ｗindows 7。

（2）ｗeb开发工具：JSP、Html等。

（3）脚本语言：Vb、Javascript。

（4）数据库：access 数据库

代码设计1：

Option Explicit

Public LoginSucceeded As Boolean

Private Sub cmdCancel_Click()

'设置全局变量为false

'不提示失败的登录

LoginSucceeded = False

Me.Hide

End Sub

Private Sub cmdOK_Click()

'检查正确的密码

If Not IsNull(Me.DCboUserName.SelectedItem) Then

If txtPassword = Me.DCboUserName.BoundT ext Then

'将代码放在这里传递

'成功到calling 函数

'设置全局变量时最容易的

LoginSucceeded = True

strCurUser = Me.DCboUserName.T ext

Me.Hide

Else

MsgBox "无效的密码，请重试!", , "登录"

txtPassword.SetFocus

SendKeys "{Home}+{End}"

End If

Else

MsgBox "请选择用户名!", , "登录"

Me.DCboUserName.SetFocus

End If

End Sub

代码设计2：

Option Explicit

Private rsSys As ADODB.Recordset

Private cmSys As ADODB.mand

Private Sub MDIForm_Load()

Dim strSQL As String

strSQL = "select offline from r_parameter"

Set rsSys = New ADODB.Recordset

rsSys.Open strSQL, DEjxc.Conjxc, adOpenDynamic, adLockOptimistic rsSys.MoveFirst

If rsSys!offline Then

Me.mnuAct_dj.Enabled = False

Me.mnuSql.Enabled = False

Me.mnuReport.Enabled = False

Me.mnuSys_trans.Enabled = False

Me.mnuSys_start.Enabled = True

Me.mnuSys_begqty.Enabled = True

Else

Me.mnuAct_dj.Enabled = True

Me.mnuSql.Enabled = True

Me.mnuReport.Enabled = True

Me.mnuSys_trans.Enabled = True

Me.mnuSys_start.Enabled = False

Me.mnuSys_begqty.Enabled = False

End If

rsSys.Close

Set cmSys = New ADODB.mand

cmSys.ActiveConnection = DEjxc.Conjxc

cmSys.mandType = adCmdT ext

End Sub

Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer) Call mnuExit_Click

If intNumWindows > 0 Then

Cancel = True

End If

Set rsSys = Nothing

Set cmSys = Nothing

End Sub

Private Sub mnuEdit_other_Click()

FrmOtherEdit.Show

End Sub

Private Sub mnuEdit_ps_Click()

FrmPsEdit.Show

End Sub

Private Sub mnuEdit_sales_Click()

FrmSaleEdit.Show

End Sub

Private Sub mnuExit_Click()

If intNumWindows = 0 Then

Unload Me

Else

MsgBox "请关闭所有子程序后再关闭该主程序！", vbCritical, "提示"

End If

End Sub

Private Sub mnuRec_other_Click()

FrmOtherChk.Show

End Sub

Private Sub mnuRec_ps_Click()

FrmPsChk.Show

End Sub

Private Sub mnuRec_sales_Click()

FrmSaleChk.Show

End Sub

Private Sub mnuReport_DetailUse_Click() FrmRptDetUse.Show

End Sub

Private Sub mnuReport_Mat_Click()

FrmRptMat.Show

End Sub

Private Sub mnuReport_T otalUse_Click() FrmRptT otUse.Show

End Sub

Private Sub mnuReport_T otalYearUse_Click() FrmRptYearUse.Show

End Sub

Private Sub mnuSet_department_Click() FrmSetDep.Show

End Sub

Private Sub mnuSet_employee_Click() FrmSetEmp.Show

End Sub

Private Sub mnuSet_product_Click()

FrmSetPro.Show

End Sub

Private Sub mnuSet_protype_Click()

FrmSetPrTy.Show

End Sub

Private Sub mnuSet_supplier_Click()

FrmSetSup.Show

End Sub

Private Sub mnuSql_djother_Click()

FrmOtherSql.Show

End Sub

Private Sub mnuSql_djps_Click()

FrmPsSql.Show

End Sub

Private Sub mnuSql_djsales_Click()

FrmSaleSql.Show

End Sub

Private Sub mnuSys_begqty_Click()

FrmSetMattmp.Show

End Sub

Private Sub mnuSys_delete_Click()

Dim intDel As Integer

Dim strSQL As String

intDel = MsgBox("确认要删除所有资料码?", vbInformation + vbYesNo, "删除确认") If intDel = vbYes Then

strSQL = "delete from department"

cmSys.mandT ext = strSQL

cmSys.Execute

strSQL = "delete from employee"

cmSys.mandT ext = strSQL

cmSys.Execute

strSQL = "delete from mat_detail"

cmSys.mandT ext = strSQL

cmSys.Execute

strSQL = "delete from mat_head"

cmSys.mandT ext = strSQL

cmSys.Execute

strSQL = "select p_id,qty,price into mat_tmp from mat_head"

cmSys.mandT ext = strSQL

cmSys.Execute

strSQL = "drop table mat_head"

cmSys.mandT ext = strSQL

cmSys.Execute

strSQL = "select p_id,qty,price into mat_head from mat_tmp"

cmSys.mandT ext = strSQL

cmSys.Execute

strSQL = "update mat_head set qty=0,price=0"

cmSys.mandT ext = strSQL

cmSys.Execute

strSQL = "drop table mat_tmp"

cmSys.mandT ext = strSQL

cmSys.Execute

strSQL = "delete from product"

cmSys.mandT ext = strSQL

cmSys.Execute

strSQL = "delete from product_type"

cmSys.mandT ext = strSQL

cmSys.Execute

strSQL = "delete from supplier"

cmSys.mandT ext = strSQL

cmSys.Execute

strSQL = "delete from order_detail_a"

cmSys.mandT ext = strSQL

cmSys.Execute

strSQL = "delete from order_detail_b"

cmSys.mandT ext = strSQL

cmSys.Execute

strSQL = "delete from ps_head_a"

cmSys.mandT ext = strSQL

cmSys.Execute

strSQL = "delete from ps_head_b"

cmSys.mandT ext = strSQL

cmSys.Execute

strSQL = "delete from other_head_a"

cmSys.mandT ext = strSQL

cmSys.Execute

strSQL = "delete from other_head_b"

cmSys.mandT ext = strSQL

cmSys.Execute

strSQL = "delete from sale_detail_a"

cmSys.mandT ext = strSQL

cmSys.Execute

strSQL = "delete from sale_detail_b"

cmSys.mandT ext = strSQL

cmSys.Execute

strSQL = "delete from sale_head_a"

cmSys.mandT ext = strSQL

cmSys.Execute

strSQL = "delete from sale_head_b"

cmSys.mandT ext = strSQL

cmSys.Execute

strSQL = "update r_parameter set offline=true,psnumber=0"

cmSys.mandT ext = strSQL

cmSys.Execute

MsgBox "资料删除完毕!", vbInformation, "资料删除"

End If

Me.mnuAct_dj.Enabled = False

Me.mnuSql.Enabled = False

Me.mnuReport.Enabled = False

Me.mnuSys_trans.Enabled = False

Me.mnuSys_start.Enabled = True

Me.mnuSys_begqty.Enabled = True

End Sub

Private Sub mnuSys_start_Click()

Dim strBeg As String

Dim strYear, strMonth As String

Dim strSQL As String

strBeg = InputBox("请输入系统启用时间", "系统启用", CStr(Date))

If IsDate(strBeg) Then

strYear = Right(CStr(Year(CDate(strBeg))), 2)

strMonth = Format(CStr(Month(CDate(strBeg))), "0#")

strSQL = "alter table mat_head add column qty" & strYear & strMonth _ & " single"

cmSys.mandT ext = strSQL

cmSys.Execute

strSQL = "alter table mat_head add column price" & strYear & strMonth _

& " currency"

cmSys.mandT ext = strSQL

cmSys.Execute

strSQL = "update mat_head set qty" & strYear & strMonth & "=qty," & _

" price" & strYear & strMonth & "=price"

cmSys.mandT ext = strSQL

cmSys.Execute

strSQL = "update r_parameter set pass_date=cdate('" & strBeg & _

"'),offline=false,monthdate=cdate('" & strBeg & "')"

cmSys.mandT ext = strSQL

cmSys.Execute

Me.mnuAct_dj.Enabled = True

Me.mnuSql.Enabled = True

Me.mnuReport.Enabled = True

Me.mnuSys_trans.Enabled = True

Me.mnuSys_start.Enabled = False

MsgBox "系统已正式启用!", vbInformation, "系统启用"

Else

MsgBox "日期格式错误！", vbCritical, "启用错误"

Exit Sub

End If

End Sub

Private Sub mnuSys_trans_Click()

Dim strBeg As String

Dim strYear, strMonth As String

Dim strSQL As String

strBeg = InputBox("请输入月终结转时间", "月终结转", CStr(Date))

If IsDate(strBeg) Then

strSQL = "select monthdate from r_parameter"

Set rsSys = New ADODB.Recordset

rsSys.Open strSQL, DEjxc.Conjxc, adOpenDynamic, adLockOptimistic

rsSys.MoveFirst

If Format(CDate(strBeg), "yyyy-mm") > Format(rsSys!monthdate, "yyyy-mm") Then

strYear = Right(CStr(Year(CDate(strBeg))), 2)

strMonth = Format(CStr(Month(CDate(strBeg))), "0#")

strSQL = "alter table mat_head add column qty" & strYear & strMonth _

& " single"

cmSys.mandT ext = strSQL

cmSys.Execute

strSQL = "alter table mat_head add column price" & strYear & strMonth _

& " currency"

cmSys.mandT ext = strSQL

cmSys.Execute

strSQL = "update mat_head set qty" & strYear & strMonth & "=qty," & _

" price" & strYear & strMonth & "=price"

cmSys.mandT ext = strSQL

cmSys.Execute

strSQL = "update r_parameter set monthdate=cdate('" & strBeg & _

"')"

cmSys.mandT ext = strSQL

cmSys.Execute

MsgBox "月份结转完毕!", vbInformation, "月终结转"

Else

MsgBox "该月份已经月终结转!", vbCritical, "月终结转错误"

End If

Else

MsgBox "日期格式错误！", vbCritical, "启用错误"

Exit Sub

End If

End Sub

Private Sub mnuSys_user_Click() FrmSetUser.Show

End Sub

Private Sub MDIForm_Click() frmlogo.Show

End Sub

库存管理系统流程图

进货系统流程图

小型超市管理系统的E-R图

3.数据存储设计

完成该管理信息系统的数据存储总体设计方案，明确数据存储中表的结构，各表中关键字的设置。

员工表（StaffTable）

进货表（ImportTable）

供货商号（profferTable）

库存表（StoreTable）

月销售表(MonthSaleTable)

4.数据库物理设计

数据库物理结构设计的主要任务是：对数据库中的数据，在物理设备上的存放结构和存取方法进行设计，索引的设计等。数据库的物理结构依赖于确定的计算机系统，并于选用的DBMS密切相关。物理设计的任务是为了有效的实现逻辑模式，确定所采取的存储策略。此阶段以逻辑设计的结果作为输入，结合具体DBMS的特点与存储设备特性进行设计，选定数据库在物理设备上的存储结构和存取方法。

5.输入输出设计

管理信息系统只有通过输出才能为用户服务。信息系统能否为用户提供准确、及时、实用的信息是评价信息系统好坏的标准之一，也就是说，输出信息的内容与格式等是用户最关心的部分。因此，在系统设计中，是先根据管理和用户的需求进行输出设计，然而反过来根据输出所要求获得的信息进行输入设计。

（1）输入设计

输入设计的目标是保证向系统输入正确的数据。

输入设计的原则

输入设计应遵循以下原则:

最小量原则：这是指在保证满足处理要求的前提下使输人量最小。由于数据输入与计算机处理比较起来相对慢，在数据录入时，系统大多数时间都处于等待状态，系统效率将显著降低；同时，数据录入工作一般需要人的参与，大量的数据录入往往浪费很多的人力资源，增加系统的运行成本。因此，输入量越少，出错机会越少，花费时间越少，数据一致性越好。

简单性原则：输入的准备、输入过程应尽量容易，以减少错误的发生。这主要是因为输入设计在为用户提供纠错和输入校检的同时，就保证了输入过程简单易用，就保证了不会因为差错，纠错而使输入复杂化，增加用户负担。

早检验原则：对输人数据的检验尽量接近原数据发生点，使错误能及时得到改正。因此输入设计中应采用多种输入校检方法和有效性验证技术，以减少输入错误。

少转换原则：输入数据尽量用其处理所需形式记录，减少不必要的输入步骤，当步骤不能省时，应仔细验证现有步骤是否完备，以免数据转换介质时发生错误。本系统的主要输出为文本形式。

输入格式设计

输入格式的设计一般是指数据录入人员在终端屏幕上看到的凭证格式。其设计格式的原则是使录入人员能方便的输入数据，尽量避免操作失误。

（2）输出设计

输出设计的内容包括：有关输出信息使用方面的内容；输出方式；输出设备；输出介质。

输出设计的方法

在系统设计阶段，设计人员应给出系统输入的说明，这个说明既是将来编程人员在软件开发中进行实际输出设计的依据，也是用户评价系统实用性的依据。因此，设计人员要选择合适的输出方式，并以清楚的方式表达出来。输出形式主要有报表信息和图形化信息。

本系统的输出为表格形式，主要包括用户信息，书籍信息和订单信息。