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

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

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 https://www.360docs.net/doc/0c15131861.html,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 https://www.360docs.net/doc/0c15131861.html,mand

cmSys.ActiveConnection = DEjxc.Conjxc

https://www.360docs.net/doc/0c15131861.html,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()

End Sub

Private Sub mnuRec_ps_Click()

FrmPsChk.Show

End Sub

Private Sub mnuRec_sales_Click()

FrmSaleChk.Show

End Sub

Private Sub mnuReport_DetailUse_Click()

FrmRptDetUse.Show

End Sub

Private Sub mnuReport_Mat_Click()

FrmRptMat.Show

End Sub

Private Sub mnuReport_TotalUse_Click()

FrmRptTotUse.Show

End Sub

Private Sub mnuReport_TotalYearUse_Click() FrmRptYearUse.Show

End Sub

Private Sub mnuSet_department_Click()

FrmSetDep.Show

End Sub

Private Sub mnuSet_employee_Click()

FrmSetEmp.Show

End Sub

Private Sub mnuSet_product_Click()

FrmSetPro.Show

End Sub

Private Sub mnuSet_protype_Click()

FrmSetPrTy.Show

End Sub

Private Sub mnuSet_supplier_Click()

End Sub

Private Sub mnuSql_djother_Click()

FrmOtherSql.Show

End Sub

Private Sub mnuSql_djps_Click()

FrmPsSql.Show

End Sub

Private Sub mnuSql_djsales_Click()

FrmSaleSql.Show

End Sub

Private Sub mnuSys_begqty_Click()

FrmSetMattmp.Show

End Sub

Private Sub mnuSys_delete_Click()

Dim intDel As Integer

Dim strSQL As String

intDel = MsgBox("确认要删除所有资料码?", vbInformation + vbYesNo, "删除确认")

If intDel = vbYes Then

strSQL = "delete from department"