小型自选商场综合管理系统系统设计及实施样本Word文档格式.docx
- 文档编号:13708606
- 上传时间:2022-10-13
- 格式:DOCX
- 页数:18
- 大小:104.82KB
小型自选商场综合管理系统系统设计及实施样本Word文档格式.docx
《小型自选商场综合管理系统系统设计及实施样本Word文档格式.docx》由会员分享,可在线阅读,更多相关《小型自选商场综合管理系统系统设计及实施样本Word文档格式.docx(18页珍藏版)》请在冰豆网上搜索。
商品购买、结账、购物信息查看:
购买数量不大于商品库存数量购买成功,账户余额不不大于所购商品金额,结账成功。
顾客查看购物车。
(3)顾客信息管理模块
注册新顾客:
新顾客进行注册,并进行账户充值。
登录:
购物时需要登录系统。
输入顾客名、密码进行验证。
修改密码:
取消旧密码,保存新密码。
个人详细资料修改:
对顾客个人信息进行修改。
账户充值:
顾客查询余额并对账户进行充值。
查看购物车:
顾客对在本网站所购商品状况进行查看。
(4)系统管理模块
顾客信息浏览:
管理员浏览顾客注册个人信息并确认其账户充值金额。
商品信息管理:
对库存商品进行增长、删除、修改。
商品销售信息查询:
可按月、日进行销售记录查询、
2.系统实行:
开发环境:
(1)操作系统:
Windows7。
(2)web开发工具:
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
Else
MsgBox"
无效密码,请重试!
"
,,"
登录"
txtPassword.SetFocus
SendKeys"
{Home}+{End}"
EndIf
请选取顾客名!
Me.DCboUserName.SetFocus
代码设计2:
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
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
rsSys.Close
SetcmSys=NewADODB.Command
cmSys.ActiveConnection=DEjxc.Conjxc
cmSys.CommandType=adCmdText
PrivateSubMDIForm_QueryUnload(CancelAsInteger,UnloadModeAsInteger)
CallmnuExit_Click
IfintNumWindows>
0Then
Cancel=True
SetrsSys=Nothing
SetcmSys=Nothing
PrivateSubmnuEdit_other_Click()
FrmOtherEdit.Show
PrivateSubmnuEdit_ps_Click()
FrmPsEdit.Show
PrivateSubmnuEdit_sales_Click()
FrmSaleEdit.Show
PrivateSubmnuExit_Click()
IfintNumWindows=0Then
UnloadMe
请关闭所有子程序后再关闭该主程序!
,vbCritical,"
提示"
PrivateSubmnuRec_other_Click()
FrmOtherChk.Show
PrivateSubmnuRec_ps_Click()
FrmPsChk.Show
PrivateSubmnuRec_sales_Click()
FrmSaleChk.Show
PrivateSubmnuReport_DetailUse_Click()
FrmRptDetUse.Show
PrivateSubmnuReport_Mat_Click()
FrmRptMat.Show
PrivateSubmnuReport_TotalUse_Click()
FrmRptTotUse.Show
PrivateSubmnuReport_TotalYearUse_Click()
FrmRptYearUse.Show
PrivateSubmnuSet_department_Click()
FrmSetDep.Show
PrivateSubmnuSet_employee_Click()
FrmSetEmp.Show
PrivateSubmnuSet_product_Click()
FrmSetPro.Show
PrivateSubmnuSet_protype_Click()
FrmSetPrTy.Show
PrivateSubmnuSet_supplier_Click()
FrmSetSup.Show
PrivateSubmnuSql_djother_Click()
FrmOtherSql.Show
PrivateSubmnuSql_djps_Click()
FrmPsSql.Show
PrivateSubmnuSql_djsales_Click()
FrmSaleSql.Show
PrivateSubmnuSys_begqty_Click()
FrmSetMattmp.Show
PrivateSubmnuSys_delete_Click()
DimintDelAsInteger
intDel=MsgBox("
确认要删除所有资料码?
,vbInformation+vbYesNo,"
删除确认"
)
IfintDel=vbYesThen
deletefromdepartment"
cmSys.CommandText=strSQL
cmSys.Execute
deletefromemployee"
deletefrommat_detail"
deletefrommat_head"
selectp_id,qty,priceintomat_tmpfrommat_head"
droptablemat_head"
selectp_id,qty,priceintomat_headfrommat_tmp"
updatemat_headsetqty=0,price=0"
droptablemat_tmp"
deletefromproduct"
deletefromproduct_type"
deletefromsupplier"
deletefromorder_detail_a"
deletefromorder_detail_b"
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 小型 自选商场 综合 管理 系统 设计 实施 样本