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

1、小型自选商场综合管理系统设计及实施1.系统设计 系统功能模块设计： 电子购物超市商品信息模块购物功能模块用户信息管理模块系统管理模块浏览商品搜索商品购物车生成订单结账用户注册与登录修改密码与个人资料用户余额查询与账户充值用户信息浏览充值金额确认销售信息查询商品信息管理（1）商品信息模块 最新商品浏览：将最新的增加的前3条商品显示出来。 商品分类浏览：按商品类别信息浏览商品。 商品名称快速搜索：按商品名称快速搜索所需商品，并可进行模糊查询。 （2）购物功能模块 添加商品到购物车：用户选中商品并添加到购物车。 用户填写订单：用户填写商品数量等购买信息。 商品购买、结账、购物信息查看：购买数量小于商

2、品库存数量购买成功，账户余额大于 所购商品金额，结账成功。用户查看购物车。（3）用户信息管理模块 注册新用户：新用户进行注册，并进行账户充值。登录：购物时需要登录系统。输入用户名、密码进行验证。修改密码：取消旧密码，保存新密码。 个人详细资料修改：对用户个人信息进行修改。 账户充值：用户查询余额并对账户进行充值。 查看购物车：用户对在本网站所购商品情况进行查看。 （4）系统管理模块用户信息浏览：管理员浏览用户注册的个人信息并确认其账户的充值金额。 商品信息管理：对库存的商品进行增加、删除、修改。 商品销售信息查询：可按月、日进行销售记录查询、 2.系统实施： 开发环境： （1）操作系统：ind

3、ows 7。 （2）eb开发工具：JSP、Html等。 （3）脚本语言：Vb、Javascript。 （4）数据库：access 数据库代码设计1：Option ExplicitPublic LoginSucceeded As BooleanPrivate Sub cmdCancel_Click() 设置全局变量为 false 不提示失败的登录 LoginSucceeded = False Me.HideEnd SubPrivate Sub cmdOK_Click() 检查正确的密码 If Not IsNull(Me.DCboUserName.SelectedItem) Then If txt

4、Password = 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 IfEnd Sub代码设计2：Option Expli

5、citPrivate rsSys As ADODB.RecordsetPrivate cmSys As ADODB.CommandPrivate 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_d

6、j.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 Else Me.mnuAct_dj.Enabled = True Me.mnuSql.Enabled = True Me.mnuReport.Enabled = True Me.mnuSys_trans.Enabled = True Me.mnuSys_start

7、.Enabled = False Me.mnuSys_begqty.Enabled = False End If rsSys.Close Set cmSys = New ADODB.Command cmSys.ActiveConnection = DEjxc.Conjxc cmSys.CommandType = adCmdTextEnd SubPrivate Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer) Call mnuExit_Click If intNumWindows 0 Then Cancel = T

8、rue End If Set rsSys = Nothing Set cmSys = NothingEnd SubPrivate 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 Then Unload Me Else MsgBox

9、请关闭所有子程序后再关闭该主程序！, vbCritical, 提示 End IfEnd SubPrivate 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_Cl

10、ick() FrmRptMat.ShowEnd SubPrivate Sub mnuReport_TotalUse_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

11、_Click() FrmSetPro.ShowEnd SubPrivate Sub mnuSet_protype_Click() 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.

12、ShowEnd SubPrivate Sub mnuSys_begqty_Click() FrmSetMattmp.ShowEnd SubPrivate Sub mnuSys_delete_Click() Dim intDel As Integer Dim strSQL As String intDel = MsgBox(确认要删除所有资料码?, vbInformation + vbYesNo, 删除确认) If intDel = vbYes Then strSQL = delete from department cmSys.CommandText = strSQL cmSys.Execut

13、e strSQL = delete from employee cmSys.CommandText = strSQL cmSys.Execute strSQL = delete from mat_detail cmSys.CommandText = strSQL cmSys.Execute strSQL = delete from mat_head cmSys.CommandText = strSQL cmSys.Execute strSQL = select p_id,qty,price into mat_tmp from mat_head cmSys.CommandText = strSQ

14、L cmSys.Execute strSQL = drop table mat_head cmSys.CommandText = strSQL cmSys.Execute strSQL = select p_id,qty,price into mat_head from mat_tmp cmSys.CommandText = strSQL cmSys.Execute strSQL = update mat_head set qty=0,price=0 cmSys.CommandText = strSQL cmSys.Execute strSQL = drop table mat_tmp cmS

15、ys.CommandText = strSQL cmSys.Execute strSQL = delete from product cmSys.CommandText = strSQL cmSys.Execute strSQL = delete from product_type cmSys.CommandText = strSQL cmSys.Execute strSQL = delete from supplier cmSys.CommandText = strSQL cmSys.Execute strSQL = delete from order_detail_a cmSys.Comm

16、andText = strSQL cmSys.Execute strSQL = delete from order_detail_b cmSys.CommandText = strSQL cmSys.Execute strSQL = delete from ps_head_a cmSys.CommandText = strSQL cmSys.Execute strSQL = delete from ps_head_b cmSys.CommandText = strSQL cmSys.Execute strSQL = delete from other_head_a cmSys.CommandT

17、ext = strSQL cmSys.Execute strSQL = delete from other_head_b cmSys.CommandText = strSQL cmSys.Execute strSQL = delete from sale_detail_a cmSys.CommandText = strSQL cmSys.Execute strSQL = delete from sale_detail_b cmSys.CommandText = strSQL cmSys.Execute strSQL = delete from sale_head_a cmSys.Command

18、Text = strSQL cmSys.Execute strSQL = delete from sale_head_b cmSys.CommandText = strSQL cmSys.Execute strSQL = update r_parameter set offline=true,psnumber=0 cmSys.CommandText = strSQL cmSys.Execute MsgBox 资料删除完毕!, vbInformation, 资料删除 End If Me.mnuAct_dj.Enabled = False Me.mnuSql.Enabled = False Me.

19、mnuReport.Enabled = False Me.mnuSys_trans.Enabled = False Me.mnuSys_start.Enabled = True Me.mnuSys_begqty.Enabled = TrueEnd SubPrivate Sub mnuSys_start_Click() Dim strBeg As String Dim strYear, strMonth As String Dim strSQL As String strBeg = InputBox(请输入系统启用时间, 系统启用, CStr(Date) If IsDate(strBeg) Th

20、en strYear = Right(CStr(Year(CDate(strBeg), 2) strMonth = Format(CStr(Month(CDate(strBeg), 0#) strSQL = alter table mat_head add column qty & strYear & strMonth _ & single cmSys.CommandText = strSQL cmSys.Execute strSQL = alter table mat_head add column price & strYear & strMonth _ & currency cmSys.

21、CommandText = strSQL cmSys.Execute strSQL = update mat_head set qty & strYear & strMonth & =qty, & _ price & strYear & strMonth & =price cmSys.CommandText = strSQL cmSys.Execute strSQL = update r_parameter set pass_date=cdate( & strBeg & _ ),offline=false,monthdate=cdate( & strBeg & ) cmSys.CommandT

22、ext = strSQL cmSys.Execute Me.mnuAct_dj.Enabled = True Me.mnuSql.Enabled = True Me.mnuReport.Enabled = True Me.mnuSys_trans.Enabled = True Me.mnuSys_start.Enabled = False MsgBox 系统已正式启用!, vbInformation, 系统启用 Else MsgBox 日期格式错误！, vbCritical, 启用错误 Exit Sub End IfEnd SubPrivate Sub mnuSys_trans_Click()

23、 Dim strBeg As String Dim strYear, strMonth As String Dim strSQL As String strBeg = InputBox(请输入月终结转时间, 月终结转, CStr(Date) If IsDate(strBeg) Then strSQL = select monthdate from r_parameter Set rsSys = New ADODB.Recordset rsSys.Open strSQL, DEjxc.Conjxc, adOpenDynamic, adLockOptimistic rsSys.MoveFirst

24、If Format(CDate(strBeg), yyyy-mm) Format(rsSys!monthdate, yyyy-mm) Then strYear = Right(CStr(Year(CDate(strBeg), 2) strMonth = Format(CStr(Month(CDate(strBeg), 0#) strSQL = alter table mat_head add column qty & strYear & strMonth _ & single cmSys.CommandText = strSQL cmSys.Execute strSQL = alter tab

25、le mat_head add column price & strYear & strMonth _ & currency cmSys.CommandText = strSQL cmSys.Execute strSQL = update mat_head set qty & strYear & strMonth & =qty, & _ price & strYear & strMonth & =price cmSys.CommandText = strSQL cmSys.Execute strSQL = update r_parameter set monthdate=cdate( & st

26、rBeg & _ ) cmSys.CommandText = strSQL cmSys.Execute MsgBox 月份结转完毕!, vbInformation, 月终结转 Else MsgBox 该月份已经月终结转!, vbCritical, 月终结转错误 End If Else MsgBox 日期格式错误！, vbCritical, 启用错误 Exit Sub End IfEnd SubPrivate Sub mnuSys_user_Click() FrmSetUser.ShowEnd SubPrivate Sub MDIForm_Click() frmlogo.ShowEnd Sub库

27、存管理系统流程图查询条件市场信息销售清单读数据销售文件送货清单处理查询结果文件销售子系统文件库存文件订货单进货系统流程图读数据判断处理订单文件商品库存清单销售文件小型超市管理系统的E-R图姓名性别年龄学历员工编号身份证号 银行账号联系电话备注员 工销售销售数量销售单号销售日期顾 客进货进货名称进货日期进货数量进货单号进货单价进货总价商 品条形码价格供货商号供货供货商供货商号供货日期联系人姓名联系电话银行账号3.数据存储设计完成该管理信息系统的数据存储总体设计方案，明确数据存储中表的结构，各表中关键字的设置。员工表（StaffTable）中文字段名英文字段名字段类型长度主键字段值约束员工编号st

28、affIDchar6NOT NULL姓名namechar6NOT NULL性别sexnchar2NOT NULL年龄agenvarchar6NOT NULL学历diplomanvarchar4NOT NULL工种kindnvarchar10NOT NULL联系电话phonevarchar12NOT NULL银行账号accountIDnvarchar15NOT NULL身份账号idcardnvarchar18NOT NULL备注otherntext50NULL进货表（ImportTable）中文字段名英文字段名字段类型长度主键字段值约束进货单号importIDchar6NOT NULL进货日期I

29、mport dateDater time8NOT NULL货品名称goodsnamenvarchar50NOT NULL货品价格importpricemoney4NOT NULL进货数量quantityint4NOT NULL进货总价totalmoneymoney4NULL供货商号（profferTable）中文字段名英文字段名字段类型长度主键字段值约束供货商号ProfferIDnvarchar6NOT NULL联系人contactpersonnvarchar8NOT NULL联系电话Phoneint12NOT NULL银行账号accountIDnvarchar15NULL库存表（StoreTable）中文字段名英文字段名字段类型长度主键字段值约束条形码merchIDchar6NOT NULL库存数量storeNumint4NOT NULL月销售表(MonthSaleTable)中文字段名英文字段名字段类型长度主键字段值约束编号IDchar6NOT NULL日期datedatetime8NOT NULL金额amountfloat8NOT NULL4.数据库物理设计数据库物理结构设计的主要任务是：对数据库中的数据，在物理设备上的存放结构和存取方法进行设计，索引的设计等。数据库的物理