小型自选商场综合管理系统系统设计及实施呕心沥血整理版Word文档下载推荐.docx
《小型自选商场综合管理系统系统设计及实施呕心沥血整理版Word文档下载推荐.docx》由会员分享,可在线阅读,更多相关《小型自选商场综合管理系统系统设计及实施呕心沥血整理版Word文档下载推荐.docx(18页珍藏版)》请在冰豆网上搜索。
(4)系统管理模块
用户信息浏览:
管理员浏览用户注册的个人信息并确认其账户的充值金额。
商品信息管理:
对库存的商品进行增加、删除、修改.
商品销售信息查询:
可按月、日进行销售记录查询、
2.系统实施:
开发环境:
(1)操作系统:
Windows7。
(2)web开发工具:
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
Else
MsgBox”无效的密码,请重试!
"
,”登录”
txtPassword.SetFocus
SendKeys”{Home}+{End}”
EndIf
MsgBox”请选择用户名!
SetFocus
代码设计2:
PrivatersSysAsADODB。
Recordset
PrivatecmSysAsADODB.Command
PrivateSubMDIForm_Load()
DimstrSQLAsString
strSQL=”selectofflinefromr_parameter”
SetrsSys=NewADODB.Recordset
rsSys。
OpenstrSQL,DEjxc。
Conjxc,adOpenDynamic,adLockOptimistic
rsSys.MoveFirst
IfrsSys!
offlineThen
mnuAct_dj.Enabled=False
mnuSql。
Enabled=False
mnuReport。
Me.mnuSys_trans.Enabled=False
mnuSys_start。
Enabled=True
Me.mnuSys_begqty.Enabled=True
mnuAct_dj。
Me.mnuSys_trans.Enabled=True
Me.mnuSys_start。
mnuSys_begqty.Enabled=False
rsSys.Close
SetcmSys=NewADODB.Command
cmSys.ActiveConnection=DEjxc。
Conjxc
cmSys。
CommandType=adCmdText
PrivateSubMDIForm_QueryUnload(CancelAsInteger,UnloadModeAsInteger)
CallmnuExit_Click
IfintNumWindows>
0Then
Cancel=True
SetrsSys=Nothing
SetcmSys=Nothing
PrivateSubmnuEdit_other_Click()
FrmOtherEdit。
Show
PrivateSubmnuEdit_ps_Click()
FrmPsEdit.Show
PrivateSubmnuEdit_sales_Click()
FrmSaleEdit.Show
PrivateSubmnuExit_Click()
IfintNumWindows=0Then
UnloadMe
MsgBox"
请关闭所有子程序后再关闭该主程序!
”,vbCritical,”提示"
PrivateSubmnuRec_other_Click()
FrmOtherChk.Show
PrivateSubmnuRec_ps_Click()
FrmPsChk。
PrivateSubmnuRec_sales_Click()
FrmSaleChk.Show
PrivateSubmnuReport_DetailUse_Click()
FrmRptDetUse.Show
PrivateSubmnuReport_Mat_Click()
FrmRptMat。
PrivateSubmnuReport_TotalUse_Click()
FrmRptTotUse.Show
PrivateSubmnuReport_TotalYearUse_Click()
FrmRptYearUse。
PrivateSubmnuSet_department_Click()
FrmSetDep.Show
PrivateSubmnuSet_employee_Click()
FrmSetEmp。
PrivateSubmnuSet_product_Click()
FrmSetPro.Show
PrivateSubmnuSet_protype_Click()
FrmSetPrTy.Show
PrivateSubmnuSet_supplier_Click()
FrmSetSup.Show
PrivateSubmnuSql_djother_Click()
FrmOtherSql。
PrivateSubmnuSql_djps_Click()
FrmPsSql.Show
PrivateSubmnuSql_djsales_Click()
FrmSaleSql。
PrivateSubmnuSys_begqty_Click()
FrmSetMattmp。
PrivateSubmnuSys_delete_Click()
DimintDelAsInteger
intDel=MsgBox("
确认要删除所有资料码?
”,vbInformation+vbYesNo,”删除确认"
)
IfintDel=vbYesThen
strSQL=”deletefromdepartment"
cmSys.CommandText=strSQL
Execute
strSQL=”deletefromemployee”
CommandText=strSQL
cmSys.Execute
strSQL=”deletefrommat_detail"
strSQL=”deletefrommat_head"
strSQL="
selectp_id,qty,priceintomat_tmpfrommat_head"
strSQL=”droptablemat_head”
selectp_id,qty,priceintomat_headfrommat_tmp”
updatemat_headsetqty=0,price=0”
strSQL=”droptablemat_tmp”
strSQL=”deletefromproduct"
deletefromproduct_type”
deletefromsupplier"
strSQL=”deletefromorder_detail_a"
strSQL=”deletefromorder_detail_b”
deletefromps_head_a"
deletefromps_head_b”
deletefromother_head_a"
deletefromother_head_b”
deletefromsale_detail_a”
strSQL=”deletefromsale_detail_b”
strSQL=”deletefromsale_head_a"
deletefromsale_head_b"
updater_parametersetoffline=true,psnumber=0”
资料删除完毕!
”,vbInformation,"
资料删除"
mnuSql.Enabled=False
mnuSys_begqty.Enabled=True
PrivateSubmnuSys_start_Click()
DimstrBegAsString
DimstrYear,strMonthAsString
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”
altertablemat_headaddcolumnprice"
&strYear&strMonth_
&”currency”
strSQL=”updatemat_headsetqty”&
strYear&strMonth&”=qty,”&_
"
price"
&strYear&strMonth&”=price”
updater_parametersetpass_date=cdate('
”&
strBeg&
_
”'
),offline=false,monthdate=cdate('
strBeg&”’)”
mnuSql.Enabled=True
mnuReport.Enabled=True
mnuSys_trans.Enabled=True
系统已正式启用!
vbInformation,"
系统启用”
MsgBox”日期格式错误!
”,vbCritical,”启用错误”
ExitSub
PrivateSubmnuSys_trans_Click()
DimstrYear,strMonthAsString
strBeg=InputBox(”请输入月终结转时间”,”月终结转"
selectmonthdatefromr_parameter"
SetrsSys=NewADODB。
OpenstrSQL,DEjxc.Conjxc,adOpenDynamic,adLockOptimistic
MoveFirst
IfFormat(CDate(strBeg),"
yyyy-mm”)〉Format(rsSys!
monthdate,"
yyyy—mm”)Then
strMonth=Format(CStr(Month(CDate(strBeg))),”0#”)
altertablemat_headaddcolumnqty”&
strYear&strMonth_
&
”single”
&strYear&
updatemat_headsetqty"
strYear&strMonth&”=qty,”&_
price”&strYear&
strMonth&
=price"
strSQL=”updater_parametersetmonthdate=cdate(’”&strBeg&_
”’)"
月份结转完毕!
月终结转"
MsgBox”该月份已经月终结转!
”,vbCritical,"
月终结转错误”
”,vbCritical,”启用错误”
PrivateSubmnuSys_user_Click()
FrmSetUser。
PrivateSubMDIForm_Click()
frmlogo.Show
库存管理系统流程图
进货系统流程图
小型超市管理系统的E-R图
3.数据存储设计
完成该管理信息系统的数据存储总体设计方案,明确数据存储中表的结构,各表中关键字的设置。
员工表(StaffTable)
中文字段名
英文字段名
字段类型
长度
主键
字段值约束
员工编号
staffID
char
6
NOTNULL
姓名
name
性别
sex
nchar
2
年龄
age
nvarchar
学历
diploma
4
工种
kind
10
联系电话
phone
varchar
12
银行账号
accountID
15
身份账号
idcard
18
备注
other
ntext
50
NULL
进货表(ImportTable)
进货单号
importID
进货日期
Importdate
Datertime
8
货品名称
goodsname
货品价格
importprice
money
进货数量
quantity
int
进货总价
totalmoney
供货商号(profferTable)
供货商号
ProfferID
联系人
contactperson
Phone
库存表(StoreTable)
条形码
merchID
库存数量
storeNum
月销售表(MonthSaleTable)
编号
ID
日期
date
datetime
金额
amount
float
4.数据库物理设计
数据库物理结构设计的主要任务是:
对数据库中的数据,在物理设备上的存放结构和存取方法进行设计,索引的设计等.数据库的物理结构依赖于确定的计算机系统,并于选用的DBMS密