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

小型自选商场综合管理系统设计及实施 1.系统设计 系统功能模块设计： 浏览商搜索商商品信息模购物生成订购物功能模结用户注册与登用户信息管理模修改密码与个人资系统管理模用户余额查询与账户充用户信息浏览 充值金额确认 销售信息查询 商品信息管理 ）商品信息模块（1 条商品显示出来。最新商品浏览：将最新的增加的前3 商品分类浏览：按商品类别信息浏览商品。． 商品名称快速搜索：按商品名称快速搜索所需商品，并可进行模糊查询。 （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 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 ??????獍?硯尠无效的密码，请重试尡??登录 txtPassword.SetFocus SendKeys {Home}+{End} End If Else ????獍?硯尠请选择用户名尡??登录 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 M