进销存管理系统优秀毕业论文Word下载.docx
- 文档编号:20917240
- 上传时间:2023-01-26
- 格式:DOCX
- 页数:30
- 大小:284.04KB
进销存管理系统优秀毕业论文Word下载.docx
《进销存管理系统优秀毕业论文Word下载.docx》由会员分享,可在线阅读,更多相关《进销存管理系统优秀毕业论文Word下载.docx(30页珍藏版)》请在冰豆网上搜索。
3.4.2数据恢复(SJHF)10
3信息编辑(SPXXBJ)12
4商品查询(SPCX)15
4.5商品销售(SPXS)19
4测试结果及相关表格22
5运行环境及相关配置23
6系统缺陷说明23
7小结24
8参考资料24
【摘要】
中小企业在我国经济发展中具有重要地位,目前我国的中小企业数量多,地区分布广泛,行业跨度大。
据相关数据显示,相比发达国家的国外企业,我国中小企业的信息化水平还很低,只处于起步上升阶段。
随着技术的发展,电脑的普及,电子信息化的高速发展。
为了加强自身竞争力,企业信息化成为必然选择。
进销存管理系统作为典型的信息管理系统,非常适用于小企业、小商店及小型批发部等。
它可以降低管理成本,提供准确的历史数据,为管理员的决策提供依据,进而提高管理效率.
本系统以VB为开发语言,以SQLServer2000为数据库进行对进销存管理系统的开发.由于技术上的不足,该系统并没有加入数据挖掘等的智能分析统计技术。
本系统旨在培养对该类系统的了解,为今后开发类似系统提供参考。
关键词:
中小企业决策进销存管理系统数据库
【英文摘要】
IthasanimportantpositionforSMEsinthedevelopmentofchina’seconomic,thecurrentnumberofSMEsinChinamorethanbroadregionaldistribution,industryspan。
Accordingtorelevantdata,comparedtodevelopedcountries,foreignenterprises,theinformatizationofSMEsinChinaisstillverylow,risingonlyattheinitialstage。
Withthetechnologyandpopularizationofcomputers,therapiddevelopmentofelectronicinformation.Toenhanceitscompetitiveness,companyinformationhasbecometheinevitablechoice.Inventorymanagementsystemasatypicalinformationmanagementsystem,isagoodchoiceforsmallbusinesses,smallshopsandsmallwholesaledepartment。
Itcanreduceadministrativecostsandprovideaccuratehistoricaldata,Providethebasisfortheadministrator'
sdecision,andthusimprovemanagementefficiency。
ThesystemisdevelopedbyVBlanguageandSQLServer2000asthedatabaseoftheinventorymanagementsystemdevelopment.Duetotechnicaldeficiencies,thesystemdidnotincludedatamining,intelligentanalysisofstatisticaltechniques。
Thesystemisdesignedforotherstorealizethisclasssystemandprovidethereferenceforotherstodevelopofsimilarsystem.
Keywords:
Small-and-medium-sizedenterprises(SMEs)
Decision
Inventory
Managementsystem
Database
1.开发背景
自改革开放以来,我国经济一直保持高速发展态势,大企业不断崛起的同时,中小型商品流通企业越来越多,其经营的商品种类繁多,人工管理起来工作量大、效率低.随着人类社会由工业社会时代进入电子信息时代,各企业团体为了加强自身竞争力,降低管理成本,提高运营效率,使用电子管理软件已成为他们的首选.为了满足这个庞大的市场,诸多软件公司都进入了该类软件开发运营的行列.作为一名软件工程专业的学生,如对这类软件有深刻的了解,将可以协助开发这类软件的公司更好的进行技术、运营等工作。
为此将该软件作为自己的毕业设计。
2.系统分析
2.1.可行性分析
2。
1.1.技术可行性
该系统为小型管理系统,主要运行在单机上,技术难度不大.根据已学知识及相关资料的辅助,基本上能提供技术上的支持。
如开发过程中遇到未想到之难题,可以向同行有该类系统开发经验的同学、朋友请教,或在网上查阅相关资料。
2.1.2.法律可行性
该项目为独立开发,用于单机上,在技术上没有使用任何现有专利与方法。
所以在法律方面不存在侵犯专利权、版权等问题。
2.2.需求分析
通过对系统的分析,要求系统具有以下特性:
〈1>
系统操作简单,界面友好
〈2>
规范、完善的基础信息设置
〈3〉为方便用户,要求系统支持多条件查询
〈4〉支持对客户所提意见的录入功能
<
5〉具有查询统计功能
2.2。
1.功能分析
该系统主要完成的功能有:
商品管理、销售管理、意见管理
其中,对商品管理:
〈1>
引言:
对商品信息数据进行管理
<
2〉输入:
商品的各类属性
3〉处理:
将商品信息存储至数据库
4〉输入:
显示添加成功,在数据库中可以查询到该商品
5〉目的:
完善商品数据,让管理者更加方便的了解本店商品情况
销售管理:
1>
对销售情况进行查询、统计
商品编号或商品名称
〈3〉处理:
在数据库中提取相关信息
〈4>
输入:
该商品的清单列表
〈5>
目的:
进行营业状况的查询和统计,为管理者提供决策依据,如:
采购预算、采购商品类型、应采取的营销方式等
意见管理
〈1〉引言:
对客户所反映的意见进行记录、总结
2>
意见编号
〈3>
处理:
找出解决办法或改进措施
输入:
显示意见信息、解决状态及办法内容
〈5>
用于收集顾客意见,改善当前不足,为提高满意度提供参考
2.性能分析
〈1〉精度要求:
本软件主要用于管理,不是科学计算,要求计算的精度不是很苛刻。
所以输入、输出数据精度要求不是很高,用于计算的数用浮点数就可以了。
<
2〉时间特性要求:
本软件运行的响应时间要求不超过1~2秒,基本能实现.
3〉输入要求:
输入的数据基本为:
商品编号、商品名称、数量等。
<
4〉输出要求:
输出一般为表格或表单形式,输出数据主要有消费的金额及客户的消费历史记录。
3.数据库
3.1.实体联系图
根据需求分析中系统的要求,系统主要分为三个实体:
商品、用户及意见,三者间的关系是管理与被管理的关系,其中用户担任管理角色,而商品和意见扮演被管理角色。
根据各自关系及属性可以得出三者间的实体联系图如下:
2.系统数据
此处取数据库名:
JXC
由系统的实体联系图及系统的逻辑关系,需要建立如下表格
3.项目设计
3。
1.进度计划
进销存管理系统是典型的信息管理系统,由于本系统逻辑结构简单,没有加入高技术的算法,故在系统需求分析、设计等方面将费时较短,然而由于之前并没有VB开发经验,故在代码编写方面会遇到较大困难,所以初步预计代码编写方面需要较长的时间。
预测各个阶段的时间安排大致如下图:
2.系统设计
进销存管理系统是典型的数据库应用程序,系统由前台功能模块和后台数据库管理组成。
其中前台主要包括系统管理、商品管理及销售管理.后台主要管理数据表及进行数据连接更新等操作。
2.1.系统流图
根据需求分析及对数据库的设计,计划系统流程图如下
2.2.部分UML建模图
4.模块界面展示及代码
3.4。
1.数据备份(frmSJBF)
代码:
DimStrCnnAsNewADODB。
Connection
Dimkey,list,sqlAsString’定义字符串变量
PrivateSubCommand1_Click()
Command1.Enabled=False
IfText1。
Text="
”Then
MsgBox”请您选择数据库备份的路径!
"
,64,"
进销存管理系统"
Else
DimconnterAsInteger
Dimsql,workarea(15)AsString
ProgressBar1。
Visible=True
Max=UBound(workarea)
Value=ProgressBar1.Min
Forconnter=LBound(workarea)ToUBound(workarea)
workarea(connter)=”initialvalue"
&
connter
ProgressBar1.Value=connter
StrCnn.Open”Provider=SQLOLEDB.1;
IntegratedSecurity=SSPI;
PersistSecurityInfo=False;
InitialCatalog=JXC;
DataSource=(Local)\GSQL"
’strcnn。
Open"
Provider=SQLOLEDB。
1;
PersistSecurityInfo=False;
DataSource=(Local)\GSQL”
sql="
BACKUPDATABASEJXCTOdisk='
Text1。
Text&”’”
StrCnn。
Execute(sql)'
执行SQL语句
Close
Nextconnter
ProgressBar1.Value=ProgressBar1.Min
MsgBox”数据库备份成功!
!
”,64,”进销存管理系统”
Command1.Enabled=True
EndIf
EndSub
PrivateSubCommand2_Click()
CallCmdEnd(Me)
PrivateSubCommand3_Click()
CommonDialog1.Filter=”备份文件(*。
bak)|*。
bak|文本文件(*.txt)|*.txt|ALLFile(*.*)|*。
*”
CommonDialog1。
ShowSave
Text1.Text=CommonDialog1.FileName
PrivateSubCommand4_Click()
Command4。
Enabled=False
IfText2.Text="
MsgBox"
请您选择数据库恢复的路径!
”,64,"
进销存管理系统”
ProgressBar2.Visible=True
ProgressBar2。
ProgressBar2.Value=ProgressBar2。
Min
&connter
ProgressBar2。
Value=connter
StrCnn.Open"
1;
InitialCatalog=JXC;
sql=”RESTOREDATABASEJXCfromdisk=’”&Text2。
Text&
"
’”
StrCnn.Execute(sql)'
ProgressBar2.Value=ProgressBar2。
MsgBox"
数据库恢复成功!
!
Command4。
Enabled=True
EndIf
PrivateSubCommand5_Click()
CommonDialog2。
Filter=”备份文件(*.bak)|*.bak|文本文件(*.txt)|*.txt|ALLFile(*.*)|*.*”
CommonDialog2.ShowOpen
Text2.Text=CommonDialog2。
FileName
PrivateSubForm_Load()
Me.Left=(Screen.Width—Me.Width)/2
Me.Top=(Screen.Height—Me.Height)/2
UnloadfrmZJM
PrivateSubForm_Unload(CancelAsInteger)
4.2.数据恢复(frmSJHF)
OptionExplicit
DimStrCnnAsNewConnection’定义连接
Dimkey,list,sql,Temp,IntextAsString’定义字符串变量
IfTxt_restore.Text=”"
Then
MsgBox”请您选择数据库恢复的路径!
64,”提示信息"
Me。
MousePointer=11
Command1。
Dimsql,workarea(12)AsString
ProgressBar1.Visible=True
ProgressBar1.Value=ProgressBar1.Min
workarea(connter)="
initialvalue"
ProgressBar1。
StrCnn.Open”Provider=SQLOLEDB。
usemasterRESTOREDATABASEJXCfromdisk=’”&
Txt_restore。
Text&"
StrCnn.Execute(sql)’执行SQL语句
数据库恢复成功!
64,"
提示信息”
Me。
MousePointer=0
CommonDialog1.Filter=”备份文件(*。
bak)|*.bak|文本文件(*。
txt)|*.txt|ALLFile(*。
*)|*.*"
CommonDialog1.ShowOpen
Txt_restore.Text=CommonDialog1。
UnloadMe
Left=(Screen.Width-Me.Width)/2
Top=(Screen。
Height—Me。
Height)/2
3.信息编辑(frmSPXXBJ)
CallMain
IfText2.Text=””OrText3.Text=””OrText4。
Text=”"
OrText5.Text=”"
OrText6.Text="
OrText7。
OrText8。
Text=””Then
MsgBox”请输入完整的商品信息”,48,”进销存管理系统"
Else
Adodc2.RecordSource="
selectspbhfromGOODSwherespbh='
+Text2。
Text+"
'
Adodc2.Refresh
IfAdodc2。
Recordset。
RecordCount〉0Then
MsgBox”对不起,商品已存在"
48,"
SetadoRs=adoCon.Execute("
insertintoGOODSvalues(’"
Text2。
Text&”'
’”&Text3。
'
Text4.Text&
’,'
Text5。
’”&Text6。
”'
,'
”&
Text7.Text&"
,’"
&Text8.Text&”'
)”)
MsgBox”添加商品成功"
48,"
Adodc1.Refresh
CallcleanAll
Refresh
PrivateSubCommand2_Click()'
出错
IfCommand2。
Caption="
修改"
IfText2。
MsgBox”请输入商品编号"
Adodc2。
RecordSource="
select*fromGOODSwherespbh='
”+Text2.Text+"
’"
RecordCount=0Then
对不起,该商品不存在,请重新输入"
,48,"
Text2.Enabled=False
Text3.Text=Adodc2.Recordset.Fields("
spmc”)
Text4。
Text=Adodc2。
Fields(”splb”)
Text5.Text=Adodc2。
Fields(”kc”)
Text6.Text=Adodc2。
Fields(”dj"
)
Text7。
Fields(”gys"
Text8。
Fields(”bz”)
Command2.Caption=”保存"
Caption=”保存”Then
CallMain
SetadoRs=adoCon.Execute(”updategoodssetspmc=’”+Text3。
’,splb=’"
+Text4。
Text+”’,kc=’"
+Text5。
’,dj='
”+Text6.Text+"
,gys=’”+Text7。
’,bz=’”+Text8.Text+”'
wherespbh=’”+Text2。
Text+”’”)
MsgBox”信息修改成功”,48,”进销存管理系统"
Text2.Enabled=True
Command2。
PrivateSubCommand3_Click()'
已实现
IfText2.Text=””Then
请输入所要删除的商品信息编号”,48,"
Adod
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 进销存 管理 系统 优秀 毕业论文