搜索
小型自选商场综合管理系统设计及实施1.系统设计系统功能模块设计：（1）商品信息模块最新商品浏览：将最新的增加的前3条商品显示出来。商品分类浏览：按商品类别信息浏览商品。电子购物超市商品信息模块购物功能模块用户信息管理模块系统管理模块浏览商品搜索商品购物车生成订单结账用户注册与登录修改密码与个人资料用户余额查询与账户充值用户信息浏览充值金额确认销售信息查询商品信息管理商品名称快速搜索：按商品名称快速搜索所需商品，并可进行模糊查询。（2）购物功能模块添加商品到购物车：用户选中商品并添加到购物车。用户填写订单：用户填写商品数量等购买信息。商品购买、结账、购物信息查看：购买数量小于商品库存数量购买成功，账户余额大于所购商品金额，结账成功。用户查看购物车。（3）用户信息管理模块注册新用户：新用户进行注册，并进行账户充值。登录：购物时需要登录系统。输入用户名、密码进行验证。修改密码：取消旧密码，保存新密码。个人详细资料修改：对用户个人信息进行修改。账户充值：用户查询余额并对账户进行充值。查看购物车：用户对在本网站所购商品情况进行查看。（4）系统管理模块用户信息浏览：管理员浏览用户注册的个人信息并确认其账户的充值金额。商品信息管理：对库存的商品进行增加、删除、修改。商品销售信息查询：可按月、日进行销售记录查询、2.系统实施：开发环境：（1）操作系统：Ｗindows7。（2）ｗeb开发工具：JSP、Html等。（3）脚本语言：Vb、Javascript。（4）数据库：access数据库代码设计1：OptionExplicitPublicLoginSucceededAsBooleanPrivateSubcmdCancel_Click()'设置全局变量为false'不提示失败的登录LoginSucceeded=FalseMe.HideEndSubPrivateSubcmdOK_Click()'检查正确的密码IfNotIsNull(Me.DCboUserName.SelectedItem)ThenIftxtPassword=Me.DCboUserName.BoundTextThen'将代码放在这里传递'成功到calling函数'设置全局变量时最容易的LoginSucceeded=TruestrCurUser=Me.DCboUserName.TextMe.HideElseMsgBox无效的密码，请重试!,,登录txtPassword.SetFocusSendKeys{Home}+{End}EndIfElseMsgBox请选择用户名!,,登录Me.DCboUserName.SetFocusEndIfEndSub代码设计2：OptionExplicitPrivatersSysAsADODB.RecordsetPrivatecmSysAsADODB.CommandPrivateSubMDIForm_Load()DimstrSQLAsStringstrSQL=selectofflinefromr_parameterSetrsSys=NewADODB.RecordsetrsSys.OpenstrSQL,DEjxc.Conjxc,adOpenDynamic,adLockOptimisticrsSys.MoveFirstIfrsSys!offlineThenMe.mnuAct_dj.Enabled=FalseMe.mnuSql.Enabled=FalseMe.mnuReport.Enabled=FalseMe.mnuSys_trans.Enabled=FalseMe.mnuSys_start.Enabled=TrueMe.mnuSys_begqty.Enabled=TrueElseMe.mnuAct_dj.Enabled=TrueMe.mnuSql.Enabled=TrueMe.mnuReport.Enabled=TrueMe.mnuSys_trans.Enabled=TrueMe.mnuSys_start.Enabled=FalseMe.mnuSys_begqty.Enabled=FalseEndIfrsSys.CloseSetcmSys=NewADODB.CommandcmSys.ActiveConnection=DEjxc.ConjxccmSys.CommandType=adCmdTextEndSubPrivateSubMDIForm_QueryUnload(CancelAsInteger,UnloadModeAsInteger)CallmnuExit_ClickIfintNumWindows0ThenCancel=TrueEndIfSetrsSys=NothingSetcmSys=NothingEndSubPrivateSubmnuEdit_other_Click()FrmOtherEdit.ShowEndSubPrivateSubmnuEdit_ps_Click()FrmPsEdit.ShowEndSubPrivateSubmnuEdit_sales_Click()FrmSaleEdit.ShowEndSubPrivateSubmnuExit_Click()IfintNumWindows=0ThenUnloadMeElseMsgBox请关闭所有子程序后再关闭该主程序！,vbCritical,提示EndIfEndSubPrivateSubmnuRec_other_Click()FrmOtherChk.ShowEndSubPrivateSubmnuRec_ps_Click()FrmPsChk.ShowEndSubPrivateSubmnuRec_sales_Click()FrmSaleChk.ShowEndSubPrivateSubmnuReport_DetailUse_Click()FrmRptDetUse.ShowEndSubPrivateSubmnuReport_Mat_Click()FrmRptMat.ShowEndSubPrivateSubmnuReport_TotalUse_Click()FrmRptTotUse.ShowEndSubPrivateSubmnuReport_TotalYearUse_Click()FrmRptYearUse.ShowEndSubPrivateSubmnuSet_department_Click()FrmSetDep.ShowEndSubPrivateSubmnuSet_employee_Click()FrmSetEmp.ShowEndSubPrivateSubmnuSet_product_Click()FrmSetPro.ShowEndSubPrivateSubmnuSet_protype_Click()FrmSetPrTy.ShowEndSubPrivateSubmnuSet_supplier_Click()FrmSetSup.ShowEndSubPrivateSubmnuSql_djother_Click()FrmOtherSql.ShowEndSubPrivateSubmnuSql_djps_Click()FrmPsSql.ShowEndSubPrivateSubmnuSql_djsales_Click()FrmSaleSql.ShowEndSubPrivateSubmnuSys_begqty_Click()FrmSetMattmp.ShowEndSubPrivateSubmnuSys_delete_Click()DimintDelAsIntegerDimstrSQLAsStringintDel=MsgBox(确认要删除所有资料码?,vbInformation+vbYesNo,删除确认)IfintDel=vbYesThenstrSQL=deletefromdepartmentcmSys.CommandText=strSQLcmSys.ExecutestrSQL=deletefromemployeecmSys.CommandText=strSQLcmSys.ExecutestrSQL=deletefrommat_detailcmSys.CommandText=strSQLcmSys.ExecutestrSQL=deletefrommat_headcmSys.CommandText=strSQLcmSys.ExecutestrSQL=selectp_id,qty,priceintomat_tmpfrommat_headcmSys.CommandText=strSQLcmSys.ExecutestrSQL=droptablemat_headcmSys.CommandText=strSQLcmSys.ExecutestrSQL=selectp_id,qty,priceintomat_headfrommat_tmpcmSys.CommandText=strSQLcmSys.ExecutestrSQL=updatemat_headsetqty=0,price=0cmSys.CommandText=strSQLcmSys.ExecutestrSQL=droptablemat_tmpcmSys.CommandText=strSQLcmSys.ExecutestrSQL=deletefromproductcmSys.CommandText=strSQLcmSys.ExecutestrSQL=deletefromproduct_typecmSys.CommandText=strSQLcmSys.ExecutestrSQL=deletefromsuppliercmSys.CommandText=strSQLcmSys.ExecutestrSQL=deletefromorder_detail_acmSys.CommandText=strSQLcmSys.ExecutestrSQL=deletefromorder_detail_bcmSys.CommandText=strSQLcmSys.ExecutestrSQL=deletefromps_head_acmSys.CommandText=strSQLcmSys.ExecutestrSQL=deletefromps_head_bcmSys.CommandText=strSQLcmSys.ExecutestrSQL=deletefromother_head_acmSys.CommandText=strSQLcmSys.ExecutestrSQL=deletefromother_head_bcmSys.CommandText=strSQLcmSys.ExecutestrSQL=deletefromsale_detail_acmSys.CommandText=strSQLcmSys.ExecutestrSQL=deletefromsale_detail_bcmSys.CommandText=strSQLcmSys.ExecutestrSQL=deletefromsale_head_acmSys.CommandText=strSQLcmSys.ExecutestrSQL=deletefromsale_head_bcmSys.CommandText=strSQLcmSys.ExecutestrSQL=updater_parametersetoffline=true,psnumber=0cmSys.CommandText=strSQLcmSys.ExecuteMsgBox资料删除完毕!,vbInformation,资料删除EndIfMe.mnuAct_dj.Enabled=FalseMe.mnuSql.Enabled=FalseMe.mnuReport.Enabled=FalseMe.mnuSys_trans.Enabled=FalseMe.mnuSys_start.Enabled=TrueMe.mnuSys_begqty.Enabled=TrueEndSubPrivateSu