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

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

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

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

MsgBox "无效的密码，请重试!", , "登录"

txtPassword.SetFocus

SendKeys "{Home}+{End}"

End If

Else

MsgBox "请选择用户名!", , "登录"

Me.DCboUserName.SetFocus

End If

End Sub

代码设计2：

Option Explicit

Private rsSys As ADODB.Recordset

Private cmSys As mand

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

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

End If

rsSys.Close

Set cmSys = New mand

cmSys.ActiveConnection = DEjxc.Conjxc

mandType = adCmdText

End Sub

Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer) Call mnuExit_Click

If intNumWindows > 0 Then

Cancel = True

End If

Set rsSys = Nothing

Set cmSys = Nothing

End Sub

Private Sub mnuEdit_other_Click()

FrmOtherEdit.Show

End Sub

Private Sub mnuEdit_ps_Click()

FrmPsEdit.Show

End Sub

Private Sub mnuEdit_sales_Click()

FrmSaleEdit.Show

End Sub

Private Sub mnuExit_Click()

If intNumWindows = 0 Then

Unload Me

Else

MsgBox "请关闭所有子程序后再关闭该主程序！", vbCritical, "提示"

End If

End Sub

Private Sub mnuRec_other_Click()