《小型自选商场综合管理系统系统设计及实施》由会员分享，可在线阅读，更多相关《小型自选商场综合管理系统系统设计及实施（16页珍藏版）》请在金锄头文库上搜索。
1、小型自选商场综合管理系统设计及实施1.系统设计 系统功能模块设计： 电子购物超市商品信息模块购物功能模块用户信息管理模块系统管理模块浏览商品搜索商品购物车生成订单结账用户注册与登录修改密码与个人资料用户余额查询与账户充值用户信息浏览充值金额确认销售信息查询商品信息管理（1）商品信息模块 最新商品浏览：将最新的增加的前3条商品显示出来。 商品分类浏览：按商品类别信息浏览商品。 商品名称快速搜索：按商品名称快速搜索所需商品，并可进行模糊查询。 （2）购物功能模块 添加商品到购物车：用户选中商品并添加到购物车。 用户填写订单：用户填写商品数量等购买信息。 商品购买、结账、购物信息查看：购买数量小于商
2、品库存数量购买成功，账户余额大于 所购商品金额，结账成功。用户查看购物车。（3）用户信息管理模块 注册新用户：新用户进行注册，并进行账户充值。登录：购物时需要登录系统。输入用户名、密码进行验证。修改密码：取消旧密码，保存新密码。 个人详细资料修改：对用户个人信息进行修改。 账户充值：用户查询余额并对账户进行充值。 查看购物车：用户对在本网站所购商品情况进行查看。 （4）系统管理模块用户信息浏览：管理员浏览用户注册的个人信息并确认其账户的充值金额。 商品信息管理：对库存的商品进行增加、删除、修改。 商品销售信息查询：可按月、日进行销售记录查询、 2.系统实施： 开发环境： （1）操作系统：ind
3、ows 7。 （2）eb开发工具：JSP、Html等。 （3）脚本语言：Vb、Javascript。 （4）数据库：access 数据库代码设计1：Option ExplicitPublic LoginSucceeded As BooleanPrivate Sub cmdCancel_Click() 设置全局变量为 false 不提示失败的登录 LoginSucceeded = False Me.HideEnd SubPrivate Sub cmdOK_Click() 检查正确的密码 If Not IsNull(Me.DCboUserName.SelectedItem) Then If txt
4、Password = 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 IfEnd Sub代码设计2：Option Expli
5、citPrivate rsSys As ADODB.RecordsetPrivate cmSys As ADODB.CommandPrivate 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_d
6、j.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
7、.Enabled = False Me.mnuSys_begqty.Enabled = False End If rsSys.Close Set cmSys = New ADODB.Command cmSys.ActiveConnection = DEjxc.Conjxc cmSys.CommandType = adCmdTextEnd SubPrivate Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer) Call mnuExit_Click If intNumWindows 0 Then Cancel = T
8、rue End If Set rsSys = Nothing Set cmSys = NothingEnd SubPrivate Sub mnuEdit_other_Click() FrmOtherEdit.ShowEnd SubPrivate Sub mnuEdit_ps_Click() FrmPsEdit.ShowEnd SubPrivate Sub mnuEdit_sales_Click() FrmSaleEdit.ShowEnd SubPrivate Sub mnuExit_Click() If intNumWindows = 0 Then Unload Me Else MsgBox
9、请关闭所有子程序后再关闭该主程序！, vbCritical, 提示 End IfEnd SubPrivate Sub mnuRec_other_Click() FrmOtherChk.ShowEnd SubPrivate Sub mnuRec_ps_Click() FrmPsChk.ShowEnd SubPrivate Sub mnuRec_sales_Click() FrmSaleChk.ShowEnd SubPrivate Sub mnuReport_DetailUse_Click() FrmRptDetUse.ShowEnd SubPrivate Sub mnuReport_Mat_Cl
10、ick() FrmRptMat.ShowEnd SubPrivate Sub mnuReport_TotalUse_Click() FrmRptTotUse.ShowEnd SubPrivate Sub mnuReport_TotalYearUse_Click() FrmRptYearUse.ShowEnd SubPrivate Sub mnuSet_department_Click() FrmSetDep.ShowEnd SubPrivate Sub mnuSet_employee_Click() FrmSetEmp.ShowEnd SubPrivate Sub mnuSet_product
11、_Click() FrmSetPro.ShowEnd SubPrivate Sub mnuSet_protype_Click() FrmSetPrTy.ShowEnd SubPrivate Sub mnuSet_supplier_Click() FrmSetSup.ShowEnd SubPrivate Sub mnuSql_djother_Click() FrmOtherSql.ShowEnd SubPrivate Sub mnuSql_djps_Click() FrmPsSql.ShowEnd SubPrivate Sub mnuSql_djsales_Click() FrmSaleSql.
12、ShowEnd SubPrivate Sub mnuSys_begqty_Click() FrmSetMattmp.ShowEnd SubPrivate 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.Execut
13、e 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 c
