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

1、小型自选商场综合管理系统设计及实施1. 系统设计系统功能模块设计：（1）商品信息模块最新商品浏览：将最新的增加的前3条商品显示出来。商品分类浏览：按商品类别信息浏览商品。 商品名称快速搜索：按商品名称快速搜索所需商品，并可进行模糊查询。（2）购物功能模块添加商品到购物车：用户选中商品并添加到购物车。用户填写订单：用户填写商品数量等购买信息。商品购买、结账、购物信息查看：购买数量小于商品库存数量购买成功，账户余额大于 所购商品金额，结账成功。用户查看购物车。（3）用户信息管理模块注册新用户：新用户进行注册，并进行账户充值。登录：购物时需要登录系统。输入用户名、密码进行验证。修改密码：取消旧密码，

2、保存新密码。个人详细资料修改：对用户个人信息进行修改。账户充值：用户查询余额并对账户进行充值。查看购物车：用户对在本网站所购商品情况进行查看。（4）系统管理模块用户信息浏览：管理员浏览用户注册的个人信息并确认其账户的充值金额。商品信息管理：对库存的商品进行增加、删除、修改。商品销售信息查询：可按月、日进行销售记录查询、2. 系统实施：开发环境：（1）操作系统：indows 7。（2）eb 开发工具：JSP 、Html 等。（3）脚本语言：Vb 、Javascript 。（4）数据库：access 数据库代码设计1：Option ExplicitPublic LoginSucceeded As

3、BooleanPrivate Sub cmdCancel_Click('设置全局变量为 false'不提示失败的登录LoginSucceeded = FalseMe.HideEnd SubPrivate Sub cmdOK_Click('检查正确的密码If Not IsNull(Me.DCboUserName.SelectedItem ThenIf txtPassword = Me.DCboUserName.BoundText Then'将代码放在这里传递'成功到 calling 函数'设置全局变量时最容易的LoginSucceeded = Tr

4、uestrCurUser = Me.DCboUserName.TextMe.HideElseMsgBox "无效的密码，请重试!", , "登录"txtPassword.SetFocusSendKeys "Home+End"End IfElseMsgBox "请选择用户名!", , "登录"Me.DCboUserName.SetFocusEnd IfEnd Sub代码设计2：Option ExplicitPrivate rsSys As ADODB.RecordsetPrivate cmSys

5、As ADODB.CommandPrivate Sub MDIForm_Load(Dim strSQL As StringstrSQL = "select offline from r_parameter"Set rsSys = New ADODB.RecordsetrsSys.Open strSQL, DEjxc.Conjxc, adOpenDynamic, adLockOptimistic rsSys.MoveFirstIf rsSys!offline ThenMe.mnuAct_dj.Enabled = FalseMe.mnuSql.Enabled = FalseMe

6、.mnuReport.Enabled = FalseMe.mnuSys_trans.Enabled = FalseMe.mnuSys_start.Enabled = TrueMe.mnuSys_begqty.Enabled = TrueElseMe.mnuAct_dj.Enabled = TrueMe.mnuSql.Enabled = TrueMe.mnuReport.Enabled = TrueMe.mnuSys_trans.Enabled = TrueMe.mnuSys_start.Enabled = FalseMe.mnuSys_begqty.Enabled = FalseEnd Ifr

7、sSys.CloseSet cmSys = New ADODB.CommandcmSys.ActiveConnection = DEjxc.ConjxccmSys.CommandType = adCmdTextEnd SubPrivate Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer Call mnuExit_ClickIf intNumWindows > 0 ThenCancel = TrueEnd IfSet rsSys = NothingSet cmSys = NothingEnd SubPriva

8、te Sub mnuEdit_other_Click(FrmOtherEdit.ShowEnd SubPrivate Sub mnuEdit_ps_Click(FrmPsEdit.ShowEnd SubPrivate Sub mnuEdit_sales_Click(FrmSaleEdit.ShowEnd SubPrivate Sub mnuExit_Click(If intNumWindows = 0 ThenUnload MeElseMsgBox "请关闭所有子程序后再关闭该主程序！", vbCritical, "提示" End IfEnd SubPr

9、ivate Sub mnuRec_other_Click(FrmOtherChk.ShowEnd SubPrivate Sub mnuRec_ps_Click(FrmPsChk.ShowEnd SubPrivate Sub mnuRec_sales_Click(FrmSaleChk.ShowEnd SubPrivate Sub mnuReport_DetailUse_Click( FrmRptDetUse.ShowEnd SubPrivate Sub mnuReport_Mat_Click( FrmRptMat.ShowEnd SubPrivate Sub mnuReport_TotalUse

10、_Click( FrmRptTotUse.ShowEnd SubPrivate Sub mnuReport_TotalYearUse_Click( FrmRptYearUse.ShowEnd SubPrivate Sub mnuSet_department_Click( FrmSetDep.ShowEnd SubPrivate Sub mnuSet_employee_Click( FrmSetEmp.ShowEnd SubPrivate Sub mnuSet_product_Click( FrmSetPro.ShowEnd SubPrivate Sub mnuSet_protype_Click

11、( FrmSetPrTy.ShowEnd SubPrivate Sub mnuSet_supplier_Click( FrmSetSup.ShowEnd SubPrivate Sub mnuSql_djother_Click(FrmOtherSql.ShowEnd SubPrivate Sub mnuSql_djps_Click(FrmPsSql.ShowEnd SubPrivate Sub mnuSql_djsales_Click(FrmSaleSql.ShowEnd SubPrivate Sub mnuSys_begqty_Click(FrmSetMattmp.ShowEnd SubPri

12、vate Sub mnuSys_delete_Click(Dim intDel As IntegerDim strSQL As StringintDel = MsgBox("确认要删除所有资料码?", vbInformation + vbYesNo, "删除确认"If intDel = vbYes ThenstrSQL = "delete from department"cmSys.CommandText = strSQLcmSys.ExecutestrSQL = "delete from employee"cmS

13、ys.CommandText = strSQLcmSys.ExecutestrSQL = "delete from mat_detail"cmSys.CommandText = strSQLcmSys.ExecutestrSQL = "delete from mat_head"cmSys.CommandText = strSQLcmSys.ExecutestrSQL = "select p_id,qty,price into mat_tmp from mat_head"cmSys.CommandText = strSQLcmSys.E

14、xecutestrSQL = "drop table mat_head"cmSys.CommandText = strSQLcmSys.ExecutestrSQL = "select p_id,qty,price into mat_head from mat_tmp"cmSys.CommandText = strSQLcmSys.ExecutestrSQL = "update mat_head set qty=0,price=0"cmSys.CommandText = strSQLcmSys.ExecutestrSQL = "

15、;drop table mat_tmp"cmSys.CommandText = strSQLcmSys.ExecutestrSQL = "delete from product"cmSys.CommandText = strSQLcmSys.ExecutestrSQL = "delete from product_type"cmSys.CommandText = strSQLcmSys.ExecutestrSQL = "delete from supplier"cmSys.CommandText = strSQLcmSys.

16、ExecutestrSQL = "delete from order_detail_a"cmSys.CommandText = strSQLcmSys.ExecutestrSQL = "delete from order_detail_b"cmSys.CommandText = strSQLcmSys.ExecutestrSQL = "delete from ps_head_a"cmSys.CommandText = strSQLcmSys.ExecutestrSQL = "delete from ps_head_b&quo

17、t;cmSys.CommandText = strSQLcmSys.ExecutestrSQL = "delete from other_head_a"cmSys.CommandText = strSQLcmSys.ExecutestrSQL = "delete from other_head_b"cmSys.CommandText = strSQLcmSys.ExecutestrSQL = "delete from sale_detail_a"cmSys.CommandText = strSQLcmSys.ExecutestrSQL

18、 = "delete from sale_detail_b"cmSys.CommandText = strSQLcmSys.ExecutestrSQL = "delete from sale_head_a"cmSys.CommandText = strSQLcmSys.ExecutestrSQL = "delete from sale_head_b"cmSys.CommandText = strSQLcmSys.ExecutestrSQL = "update r_parameter set offline=true,psnu

19、mber=0"cmSys.CommandText = strSQLcmSys.ExecuteMsgBox "资料删除完毕!", vbInformation, "资料删除"End IfMe.mnuAct_dj.Enabled = FalseMe.mnuSql.Enabled = FalseMe.mnuReport.Enabled = FalseMe.mnuSys_trans.Enabled = FalseMe.mnuSys_start.Enabled = TrueMe.mnuSys_begqty.Enabled = TrueEnd SubPriv

20、ate Sub mnuSys_start_Click(Dim strBeg As StringDim strYear, strMonth As StringDim strSQL As StringstrBeg = InputBox("请输入系统启用时间", "系统启用", CStr(DateIf IsDate(strBeg ThenstrYear = Right(CStr(Year(CDate(strBeg, 2strMonth = Format(CStr(Month(CDate(strBeg, "0#"strSQL = "

21、alter table mat_head add column qty" & strYear & strMonth _ & " single"cmSys.CommandText = strSQLcmSys.ExecutestrSQL = "alter table mat_head add column price" & strYear & strMonth _ & " currency"cmSys.CommandText = strSQLcmSys.ExecutestrSQL

22、= "update mat_head set qty" & strYear & strMonth & "=qty," & _ " price" & strYear & strMonth & "=price"cmSys.CommandText = strSQLcmSys.ExecutestrSQL = "update r_parameter set pass_date=cdate('" & strBeg & _ &qu

23、ot;',offline=false,monthdate=cdate('" & strBeg & "'"cmSys.CommandText = strSQLcmSys.ExecuteMe.mnuAct_dj.Enabled = TrueMe.mnuSql.Enabled = TrueMe.mnuReport.Enabled = TrueMe.mnuSys_trans.Enabled = TrueMe.mnuSys_start.Enabled = FalseMsgBox "系统已正式启用!", vbInfo

24、rmation, "系统启用"MsgBox "日期格式错误！", vbCritical, "启用错误"Exit SubEnd IfEnd SubPrivate Sub mnuSys_trans_Click(Dim strBeg As StringDim strYear, strMonth As StringDim strSQL As StringstrBeg = InputBox("请输入月终结转时间", "月终结转", CStr(DateIf IsDate(strBeg ThenstrSQL

25、= "select monthdate from r_parameter"Set rsSys = New ADODB.RecordsetrsSys.Open strSQL, DEjxc.Conjxc, adOpenDynamic, adLockOptimistic rsSys.MoveFirstIf Format(CDate(strBeg, "yyyy-mm" > Format(rsSys!monthdate, "yyyy-mm" ThenstrYear = Right(CStr(Year(CDate(strBeg, 2strM

26、onth = Format(CStr(Month(CDate(strBeg, "0#"strSQL = "alter table mat_head add column qty" & strYear & strMonth _ & " single"cmSys.CommandText = strSQLcmSys.ExecutestrSQL = "alter table mat_head add column price" & strYear & strMonth _&

27、" currency"cmSys.CommandText = strSQLcmSys.ExecutestrSQL = "update mat_head set qty" & strYear & strMonth & "=qty," & _ " price" & strYear & strMonth & "=price"cmSys.CommandText = strSQLcmSys.ExecutestrSQL = "update r

28、_parameter set monthdate=cdate('" & strBeg & _ "'"cmSys.CommandText = strSQLcmSys.ExecuteMsgBox "月份结转完毕!", vbInformation, "月终结转"ElseMsgBox "该月份已经月终结转!", vbCritical, "月终结转错误"End IfElseMsgBox "日期格式错误！", vbCritical, "

29、启用错误"Exit SubEnd SubPrivate Sub mnuSys_user_Click(FrmSetUser.ShowEnd SubPrivate Sub MDIForm_Click(frmlogo.ShowEnd Sub库存管理系统流程图 进货系统流程图 小型超市管理系统的E-R 图 3. 数据存储设计完成该管理信息系统的数据存储总体设计方案，明确数据存储中表的结构，各表中关键字的设置。员工表（StaffTable ） 进货表（ImportTable ） 供货商号（profferTable ） 库存表（StoreTable ） 月销售表(MonthSaleTable4. 数据库物理设计数据库物理结构设计的主要任务是：对数据库中的数据，在物理设备上的存放结构和存取方法进行设计，索引的设计等。数据库的物理结构依赖于确定的计算机系统，并于选用的DBMS 密切相关。物理设计的任