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

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

《小型自选商场综合管理系统系统设计及实施.docx》由会员分享，可在线阅读，更多相关《小型自选商场综合管理系统系统设计及实施.docx（21页珍藏版）》请在冰豆网上搜索。

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

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

1.系统设计

系统功能模块设计：

（1）商品信息模块

最新商品浏览：

将最新的增加的前3条商品显示出来。

商品分类浏览：

按商品类别信息浏览商品。

商品名称快速搜索：

按商品名称快速搜索所需商品，并可进行模糊查询。

（2）购物功能模块

添加商品到购物车：

用户选中商品并添加到购物车。

用户填写订单：

用户填写商品数量等购买信息。

商品购买、结账、购物信息查看：

购买数量小于商品库存数量购买成功，账户余额大于所购商品金额，结账成功。

用户查看购物车。

（3）用户信息管理模块

注册新用户：

新用户进行注册，并进行账户充值。

登录：

购物时需要登录系统。

输入用户名、密码进行验证。

修改密码：

取消旧密码，保存新密码。

个人详细资料修改：

对用户个人信息进行修改。

账户充值：

用户查询余额并对账户进行充值。

查看购物车：

用户对在本所购商品情况进行查看。

（4）系统管理模块

用户信息浏览：

管理员浏览用户注册的个人信息并确认其账户的充值金额。

商品信息管理：

对库存的商品进行增加、删除、修改。

商品销售信息查询：

可按月、日进行销售记录查询、

2.系统实施：

开发环境：

（1）操作系统：

Ｗindows7。

（2）ｗeb开发工具：

JSP、Html等。

（3）脚本语言：

Vb、Javascript。

（4）数据库：

access数据库

代码设计1：

OptionExplicit

PublicLoginSucceededAsBoolean

PrivateSubcmdCancel_Click（）

'设置全局变量为false

'不提示失败的登录

LoginSucceeded=False

Me.Hide

EndSub

PrivateSubcmdOK_Click（）

'检查正确的密码

IfNotIsNull（Me.DCboUserName.SelectedItem）Then

IftxtPassword=Me.DCboUserName.BoundTextThen

'将代码放在这里传递

'成功到calling函数

'设置全局变量时最容易的

LoginSucceeded=True

strCurUser=Me.DCboUserName.Text

Me.Hide

Else

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

",,"登录"

txtPassword.SetFocus

SendKeys"{Home}+{End}"

EndIf

Else

MsgBox"请选择用户名!

",,"登录"

Me.DCboUserName.SetFocus

EndIf

EndSub

代码设计2：

OptionExplicit

PrivatersSysAsADODB.Recordset

PrivatecmSysAsADODB.mand

PrivateSubMDIForm_Load（）

DimstrSQLAsString

strSQL="selectofflinefromr_parameter"

SetrsSys=NewADODB.Recordset

rsSys.OpenstrSQL,DEjxc.Conjxc,adOpenDynamic,adLockOptimistic

rsSys.MoveFirst

IfrsSys!

offlineThen

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

Else

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

EndIf

rsSys.Close

SetcmSys=NewADODB.mand

cmSys.ActiveConnection=DEjxc.Conjxc

cmSys.mandType=adCmdText

EndSub

PrivateSubMDIForm_QueryUnload（CancelAsInteger,UnloadModeAsInteger）

CallmnuExit_Click

IfintNumWindows>0Then

Cancel=True

EndIf

SetrsSys=Nothing

SetcmSys=Nothing

EndSub

PrivateSubmnuEdit_other_Click（）

FrmOtherEdit.Show

EndSub

PrivateSubmnuEdit_ps_Click（）

FrmPsEdit.Show

EndSub

PrivateSubmnuEdit_sales_Click（）

FrmSaleEdit.Show

EndSub

PrivateSubmnuExit_Click（）

IfintNumWindows=0Then

UnloadMe

Else

MsgBox"请关闭所有子程序后再关闭该主程序！

",vbCritical,"提示"

EndIf

EndSub

PrivateSubmnuRec_other_Click（）

FrmOtherChk.Show

EndSub

PrivateSubmnuRec_ps_Click（）

FrmPsChk.Show

EndSub

PrivateSubmnuRec_sales_Click（）

FrmSaleChk.Show

EndSub

PrivateSubmnuReport_DetailUse_Click（）

FrmRptDetUse.Show

EndSub

PrivateSubmnuReport_Mat_Click（）

FrmRptMat.Show

EndSub

PrivateSubmnuReport_TotalUse_Click（）

FrmRptTotUse.Show

EndSub

PrivateSubmnuReport_TotalYearUse_Click（）

FrmRptYearUse.Show

EndSub

PrivateSubmnuSet_department_Click（）

FrmSetDep.Show

EndSub

PrivateSubmnuSet_employee_Click（）

FrmSetEmp.Show

EndSub

PrivateSubmnuSet_product_Click（）

FrmSetPro.Show

EndSub

PrivateSubmnuSet_protype_Click（）

FrmSetPrTy.Show

EndSub

PrivateSubmnuSet_supplier_Click（）

FrmSetSup.Show

EndSub

PrivateSubmnuSql_djother_Click（）

FrmOtherSql.Show

EndSub

PrivateSubmnuSql_djps_Click（）

FrmPsSql.Show

EndSub

PrivateSubmnuSql_djsales_Click（）

FrmSaleSql.Show

EndSub

PrivateSubmnuSys_begqty_Click（）

FrmSetMattmp.Show

EndSub

PrivateSubmnuSys_delete_Click（）

DimintDelAsInteger

DimstrSQLAsString

intDel=MsgBox（"确认要删除所有资料码?

",vbInformation+vbYesNo,"删除确认"）

IfintDel=vbYesThen

strSQL="deletefromdepartment"

cmSys.mandText=strSQL

cmSys.Execute

strSQL="deletefromemployee"

cmSys.mandText=strSQL

cmSys.Execute

strSQL="deletefrommat_detail"

cmSys.mandText=strSQL

cmSys.Execute

strSQL="deletefrommat_head"

cmSys.mandText=strSQL

cmSys.Execute

strSQL="selectp_id,qty,priceintomat_tmpfrommat_head"

cmSys.mandText=strSQL

cmSys.Execute

strSQL="droptablemat_head"

cmSys.mandText=strSQL

cmSys.Execute

strSQL="selectp_id,qty,priceintomat_headfrommat_tmp"

cmSys.mandText=strSQL

cmSys.Execute

strSQL="updatemat_headsetqty=0,price=0"

cmSys.mandText=strSQL

cmSys.Execute

strSQL="droptablemat_tmp"

cmSys.mandText=strSQL

cmSys.Execute

strSQL="deletefromproduct"

cmSys.mandText=strSQL

cmSys.Execute

strSQL="deletefromproduct_type"

cmSys.mandText=strSQL

cmSys.Execute

strSQL="deletefromsupplier"

cmSys.mandText=strSQL

cmSys.Execute

strSQL="deletefromorder_detail_a"

cmSys.mandText=strSQL

cmSys.Execute

strSQL="deletefromorder_detail_b"

cmSys.mandText=strSQL

cmSys.Execute

strSQL="deletefromps_head_a"

cmSys.mandText=strSQL

cmSys.Execute

strSQL="deletefromps_head_b"

cmSys.mandText=strSQL

cmSys.Execute

strSQL="deletefromother_head_a"

cmSys.mandText=strSQL

cmSys.Execute

strSQL="deletefromother_head_b"

cmSys.mandText=strSQL

cmSys.Execute

strSQL="deletefromsale_detail_a"

cmSys.mandText=strSQL

cmSys.Execute

strSQL="deletefromsale_detail_b"

cmSys.mandText=strSQL

cmSys.Execute

strSQL="deletefromsale_head_a"

cmSys.mandText=strSQL

cmSys.Execute

strSQL="deletefromsale_head_b"

cmSys.mandText=strSQL

cmSys.Execute

strSQL="updater_parametersetoffline=true,psnumber=0"

cmSys.mandText=strSQL

cmSys.Execute

MsgBox"资料删除完毕!

",vbInformation,"资料删除"

EndIf

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

EndSub

PrivateSubmnuSys_start_Click（）

DimstrBegAsString

DimstrYear,strMonthAsString

DimstrSQLAsString

strBeg=InputBox（"请输入系统启用时间","系统启用",CStr（Date））

IfIsDate（strBeg）Then

strYear=Right（CStr（Year（CDate（strBeg）））,2）

strMonth=Format（CStr（Month（CDate（strBeg）））,"0#"）

strSQL="altertablemat_headaddcolumnqty"&strYear&strMonth_

&"single"

cmSys.mandText=strSQL

cmSys.Execute

strSQL="altertablemat_headaddcolumnprice"&strYear&strMonth_

&"currency"

cmSys.mandText=strSQL

cmSys.Execute

strSQL="updatemat_headsetqty"&strYear&strMonth&"=qty,"&_

"price"&strYear&strMonth&"=price"

cmSys.mandText=strSQL

cmSys.Execute

strSQL="updater_parametersetpass_date=cdate（'"&strBeg&_

"'）,offline=false,monthdate=cdate（'"&strBeg&"'）"

cmSys.mandText=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,"启用错误"

ExitSub

EndIf

EndSub

PrivateSubmnuSys_trans_Click（）

DimstrBegAsString

DimstrYear,strMonthAsString

DimstrSQLAsString

strBeg=InputBox（"请输入月终结转时间","月终结转",CStr（Date））

IfIsDate（strBeg）Then

strSQL="selectmonthdatefromr_parameter"

SetrsSys=NewADODB.Recordset

rsSys.OpenstrSQL,DEjxc.Conjxc,adOpenDynamic,adLockOptimistic

rsSys.MoveFirst

IfFormat（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="altertablemat_headaddcolumnqty"&strYear&strMonth_

&"single"

cmSys.mandText=strSQL

cmSys.Execute

strSQL="altertablemat_headaddcolumnprice"&strYear&strMonth_

&"currency"

cmSys.mandText=strSQL

cmSys.Execute

strSQL="updatemat_headsetqty"&strYear&strMonth&"=qty,"&_

"price"&strYear&strMonth&"=price"

cmSys.mandText=strSQL

cmSys.Execute

strSQL="updater_parametersetmonthdate=cdate（'"&strBeg&_

"'）"

cmSys.mandText=strSQL

cmSys.Execute

MsgBox"月份结转完毕!

",vbInformation,"月终结转"

Else

MsgBox"该月份已经月终结转!

",vbCritical,"月终结转错误"

EndIf

Else

MsgBox"日期格式错误！

",vbCritical,"启用错误"

ExitSub

EndIf

EndSub

PrivateSubmnuSys_user_Click（）

FrmSetUser.Show

EndSub

PrivateSubMDIForm_Click（）

frmlogo.Show

EndSub

库存管理系统流程图

进货系统流程图

小型超市管理系统的E-R图

3.数据存储设计

完成该管理信息系统的数据存储总体设计方案，明确数据存储中表的结构，各表中关键字的设置。

员工表（StaffTable）

中文字段名

英文字段名

字段类型

长度

主键

字段值约束

员工编号

staffID

char

6

NOTNULL

XX

name

char

6

NOTNULL

性别

sex

nchar

2

NOTNULL

年龄

age

nvarchar

6

NOTNULL

学历

diploma

nvarchar

4

NOTNULL

工种

kind

nvarchar

10

NOTNULL

联系

phone

varchar

12

NOTNULL

银行账号

accountID

nvarchar

15

NOTNULL

身份账号

idcard

nvarchar

18

NOTNULL

备注

other

ntext

50

NULL

进货表（ImportTable）

中文字段名

英文字段名

字段类型

长度

主键

字段值约束

进货单号

importID

char

6

NOTNULL

进货日期

Importdate

Datertime

8

NOTNULL

货品名称

goodsname

nvarchar

50

NOTNULL

货品价格

importprice

money

4

NOTNULL

进货数量

quantity

int

4

NOTNULL

进货总价

totalmoney

money

4

NULL

供货商号（profferTable）

中文字段名

英文字段名

字段类型

长度

主键

字段值约束

供货商号

ProfferID

nvarchar

6

NOTNULL

联系人

contactperson

nvarchar

8

NOTNULL

联系

Phone

int

12

NOTNULL

银行账号

accountID

nvarchar

15

NULL

库存表（StoreTable）

中文字段名

英文字段名

字段类型

长度

主键

字段值约束

条形码

merchID

char

6

NOTNULL

库存数量

storeNum

int

4

NOTNULL

月销售表（MonthSaleTable）

中文字段名

英文字段名

字段类型

长度

主键

字段值约束

编号

ID

char

6

NOTNULL

日期

date

datetime

8

NOTNULL

金额

amount

float

8

NOTNULL

4.数据库物理设计

数据库物理结构设计的主要任务是：

对数据库中的数据，在物理设备上的存放结构和存取方法进行设计，索引的设计等。

数据库的物理结构依赖于确定的计算机系统，并于选用的DBMS密切相关。

物理设计的任务是为了有效的实现逻辑模式，确定所采取的存储策略。

此阶段以逻辑设计的结果作为输入，结合具体DBMS的特点与存储设备特性进行设计，选定数据库在物理设备上的存储结构和存取方法。

5.输入输出设计

管理信息系统只有通过输出才能为用户服