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

小型超市管理系统的管理功能图分析 页脚内容16 小型自选商场综合管理系统设计及实施

1.系统设计 系统功能模块设计：

（1）商品信息模块 最新商品浏览：将最新的增加的前3条商品显示出来。 商品分类浏览：按商品类别信息浏览商品。

电子购物超市 商品信息购物功能

用户信息管理系统管理模浏览商品 搜索商品 购物车 生成订单 结账 用户注册与登录 修改密码与个人

用户余额查询与账户用户信息浏览 充值金额确认 销售信息查询 商品信息管理 小型超市管理系统的管理功能图分析

页脚内容16 商品名称快速搜索：按商品名称快速搜索所需商品，并可进行模糊查询。 （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 小型超市管理系统的管理功能图分析 页脚内容16 End Sub Private Sub cmdOK_Click() '检查正确的密码 If Not IsNull(Me.DCboUserName.SelectedItem) Then If txtPassword = Me.DCboUserName.BoundText Then '将代码放在这里传递 '成功到 calling 函数 '设置全局变量时最容易的 LoginSucceeded = True strCurUser = Me.DCboUserName.Text 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.Command

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 小型超市管理系统的管理功能图分析 页脚内容16 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.Command cmSys.ActiveConnection = DEjxc.Conjxc cmSys.CommandType = adCmdText 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() 小型超市管理系统的管理功能图分析 页脚内容16 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_TotalUse_Click() FrmRptTotUse.Show End Sub

Private Sub mnuReport_TotalYearUse_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() 小型超市管理系统的管理功能图分析 页脚内容16 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.CommandText = strSQL cmSys.Execute strSQL = "delete from employee" cmSys.CommandText = strSQL cmSys.Execute strSQL = "delete from mat_detail" cmSys.CommandText = strSQL cmSys.Execute strSQL = "delete from mat_head" cmSys.CommandText = strSQL cmSys.Execute strSQL = "select p_id,qty,price into mat_tmp from mat_head" cmSys.CommandText = strSQL cmSys.Execute strSQL = "drop table mat_head" cmSys.CommandText = strSQL cmSys.Execute strSQL = "select p_id,qty,price into mat_head from mat_tmp"