小型自选商场综合管理系统系统设计及实施样本.docx
《小型自选商场综合管理系统系统设计及实施样本.docx》由会员分享，可在线阅读，更多相关《小型自选商场综合管理系统系统设计及实施样本.docx（18页珍藏版）》请在冰豆网上搜索。
小型自选商场综合管理系统系统设计及实施样本
小型自选商场综合管理系统设计及实行
1.系统设计
系统功能模块设计：
（1）商品信息模块
最新商品浏览：
将最新增长前3条商品显示出来。
商品分类浏览：
按商品类别信息浏览商品。
商品名称迅速搜索：
按商品名称迅速搜索所需商品，并可进行模糊查询。
（2）购物功能模块
添加商品到购物车：
顾客选中商品并添加到购物车。
顾客填写订单：
顾客填写商品数量等购买信息。
商品购买、结账、购物信息查看：
购买数量不大于商品库存数量购买成功，账户余额不不大于所购商品金额，结账成功。
顾客查看购物车。
（3）顾客信息管理模块
注册新顾客：
新顾客进行注册，并进行账户充值。
登录：
购物时需要登录系统。
输入顾客名、密码进行验证。
修改密码：
取消旧密码，保存新密码。
个人详细资料修改：
对顾客个人信息进行修改。
账户充值：
顾客查询余额并对账户进行充值。
查看购物车：
顾客对在本网站所购商品状况进行查看。
（4）系统管理模块
顾客信息浏览：
管理员浏览顾客注册个人信息并确认其账户充值金额。
商品信息管理：
对库存商品进行增长、删除、修改。
商品销售信息查询：
可按月、日进行销售记录查询、
2.系统实行：
开发环境：
（1）操作系统：
Ｗindows7。
（2）ｗeb开发工具：
JSP、Html等。
（3）脚本语言：
Vb、Javascript。
（4）数据库：
access数据库
代码设计1：
OptionExplicit
PublicLoginSucceededAsBoolean
PrivateSubcmdCancel_Click（）
'设立全局变量为false
'不提示失败登录
LoginSucceeded=False
Me.Hide
EndSub
PrivateSubcmdOK_Click（）
'检核对的密码
IfNotIsNull（Me.DCboUserName.SelectedItem）Then
IftxtPassword=Me.DCboUserName.BoundTextThen
'将代码放在这里传递
'成功到calling函数
'设立全局变量时最容易
LoginSucceeded=True
strCurUser=Me.DCboUserName.Text
Me.Hide
Else
MsgBox"无效密码，请重试!
"，，"登录"
txtPassword.SetFocus
SendKeys"{Home}+{End}"
EndIf
Else
MsgBox"请选取顾客名!
"，，"登录"
Me.DCboUserName.SetFocus
EndIf
EndSub
代码设计2：
OptionExplicit
PrivatersSysAsADODB.Recordset
PrivatecmSysAsADODB.Command
PrivateSubMDIForm_Load（）
DimstrSQLAsString
strSQL="selectofflinefromr_parameter"
SetrsSys=NewADODB.Recordset
rsSys.OpenstrSQL，DEjxc.Conjxc，adOpenDynamic，adLockOptimistic
rsSys.MoveFirst
IfrsSys!
offlineThen
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
EndIf
rsSys.Close
SetcmSys=NewADODB.Command
cmSys.ActiveConnection=DEjxc.Conjxc
cmSys.CommandType=adCmdText
EndSub
PrivateSubMDIForm_QueryUnload（CancelAsInteger，UnloadModeAsInteger）
CallmnuExit_Click
IfintNumWindows>0Then
Cancel=True
EndIf
SetrsSys=Nothing
SetcmSys=Nothing
EndSub
PrivateSubmnuEdit_other_Click（）
FrmOtherEdit.Show
EndSub
PrivateSubmnuEdit_ps_Click（）
FrmPsEdit.Show
EndSub
PrivateSubmnuEdit_sales_Click（）
FrmSaleEdit.Show
EndSub
PrivateSubmnuExit_Click（）
IfintNumWindows=0Then
UnloadMe
Else
MsgBox"请关闭所有子程序后再关闭该主程序！
"，vbCritical，"提示"
EndIf
EndSub
PrivateSubmnuRec_other_Click（）
FrmOtherChk.Show
EndSub
PrivateSubmnuRec_ps_Click（）
FrmPsChk.Show
EndSub
PrivateSubmnuRec_sales_Click（）
FrmSaleChk.Show
EndSub
PrivateSubmnuReport_DetailUse_Click（）
FrmRptDetUse.Show
EndSub
PrivateSubmnuReport_Mat_Click（）
FrmRptMat.Show
EndSub
PrivateSubmnuReport_TotalUse_Click（）
FrmRptTotUse.Show
EndSub
PrivateSubmnuReport_TotalYearUse_Click（）
FrmRptYearUse.Show
EndSub
PrivateSubmnuSet_department_Click（）
FrmSetDep.Show
EndSub
PrivateSubmnuSet_employee_Click（）
FrmSetEmp.Show
EndSub
PrivateSubmnuSet_product_Click（）
FrmSetPro.Show
EndSub
PrivateSubmnuSet_protype_Click（）
FrmSetPrTy.Show
EndSub
PrivateSubmnuSet_supplier_Click（）
FrmSetSup.Show
EndSub
PrivateSubmnuSql_djother_Click（）
FrmOtherSql.Show
EndSub
PrivateSubmnuSql_djps_Click（）
FrmPsSql.Show
EndSub
PrivateSubmnuSql_djsales_Click（）
FrmSaleSql.Show
EndSub
PrivateSubmnuSys_begqty_Click（）
FrmSetMattmp.Show
EndSub
PrivateSubmnuSys_delete_Click（）
DimintDelAsInteger
DimstrSQLAsString
intDel=MsgBox（"确认要删除所有资料码?
"，vbInformation+vbYesNo，"删除确认"）
IfintDel=vbYesThen
strSQL="deletefromdepartment"
cmSys.CommandText=strSQL
cmSys.Execute
strSQL="deletefromemployee"
cmSys.CommandText=strSQL
cmSys.Execute
strSQL="deletefrommat_detail"
cmSys.CommandText=strSQL
cmSys.Execute
strSQL="deletefrommat_head"
cmSys.CommandText=strSQL
cmSys.Execute
strSQL="selectp_id,qty,priceintomat_tmpfrommat_head"
cmSys.CommandText=strSQL
cmSys.Execute
strSQL="droptablemat_head"
cmSys.CommandText=strSQL
cmSys.Execute
strSQL="selectp_id,qty,priceintomat_headfrommat_tmp"
cmSys.CommandText=strSQL
cmSys.Execute
strSQL="updatemat_headsetqty=0,price=0"
cmSys.CommandText=strSQL
cmSys.Execute
strSQL="droptablemat_tmp"
cmSys.CommandText=strSQL
cmSys.Execute
strSQL="deletefromproduct"
cmSys.CommandText=strSQL
cmSys.Execute
strSQL="deletefromproduct_type"
cmSys.CommandText=strSQL
cmSys.Execute
strSQL="deletefromsupplier"
cmSys.CommandText=strSQL
cmSys.Execute
strSQL="deletefromorder_detail_a"
cmSys.CommandText=strSQL
cmSys.Execute
strSQL="deletefromorder_detail_b"
cmSys.CommandText=strSQL
cmSys.Execute
升级会员 