进销存管理系统优秀毕业论文.docx
- 文档编号:7789825
- 上传时间:2023-01-26
- 格式:DOCX
- 页数:30
- 大小:284.04KB
进销存管理系统优秀毕业论文.docx
《进销存管理系统优秀毕业论文.docx》由会员分享,可在线阅读,更多相关《进销存管理系统优秀毕业论文.docx(30页珍藏版)》请在冰豆网上搜索。
进销存管理系统优秀毕业论文
本科生毕业设计(论文)
题目:
进销存管理系统
Inventorymanagementsystem
教学单位__计算机科学与技术学院__
姓名_______蓝晓军_________
学号______200631104063_____
年级________2006_________
专业________软件工程________
指导教师___殷锋
职称___教授
2010年5月1日
中英摘要2
1开发背景1
2系统分析1
2.1可行性分析1
2.1.1技术可行性1
2。
1。
2法律可行性1
2.2需求分析1
2.2。
1功能分析1
2.2。
2性能分析2
3。
3数据库设计2
3.3。
1实体联系图2
3.3.2系统数据3
3项目设计4
3.1进度计划4
3。
2系统设计5
3。
2.1系统流图6
3.2。
2相关UML建模图6
3。
4主要模块界面及代码7
3.4。
1数据备份(SJBF)7
3.4.2数据恢复(SJHF)10
3.4。
3信息编辑(SPXXBJ)12
3.4。
4商品查询(SPCX)15
3。
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>引言:
对销售情况进行查询、统计
<2〉输入:
商品编号或商品名称
〈3〉处理:
在数据库中提取相关信息
〈4>输入:
该商品的清单列表
〈5>目的:
进行营业状况的查询和统计,为管理者提供决策依据,如:
采购预算、采购商品类型、应采取的营销方式等
意见管理
〈1〉引言:
对客户所反映的意见进行记录、总结
<2>输入:
意见编号
〈3>处理:
找出解决办法或改进措施
〈4>输入:
显示意见信息、解决状态及办法内容
〈5>目的:
用于收集顾客意见,改善当前不足,为提高满意度提供参考
2。
2。
2.性能分析
〈1〉精度要求:
本软件主要用于管理,不是科学计算,要求计算的精度不是很苛刻。
所以输入、输出数据精度要求不是很高,用于计算的数用浮点数就可以了。
<2〉时间特性要求:
本软件运行的响应时间要求不超过1~2秒,基本能实现.
<3〉输入要求:
输入的数据基本为:
商品编号、商品名称、数量等。
<4〉输出要求:
输出一般为表格或表单形式,输出数据主要有消费的金额及客户的消费历史记录。
2。
3.数据库
2。
3.1.实体联系图
根据需求分析中系统的要求,系统主要分为三个实体:
商品、用户及意见,三者间的关系是管理与被管理的关系,其中用户担任管理角色,而商品和意见扮演被管理角色。
根据各自关系及属性可以得出三者间的实体联系图如下:
2。
3。
2.系统数据
此处取数据库名:
JXC
由系统的实体联系图及系统的逻辑关系,需要建立如下表格
3.项目设计
3。
1.进度计划
进销存管理系统是典型的信息管理系统,由于本系统逻辑结构简单,没有加入高技术的算法,故在系统需求分析、设计等方面将费时较短,然而由于之前并没有VB开发经验,故在代码编写方面会遇到较大困难,所以初步预计代码编写方面需要较长的时间。
预测各个阶段的时间安排大致如下图:
3。
2.系统设计
进销存管理系统是典型的数据库应用程序,系统由前台功能模块和后台数据库管理组成。
其中前台主要包括系统管理、商品管理及销售管理.后台主要管理数据表及进行数据连接更新等操作。
3。
2.1.系统流图
根据需求分析及对数据库的设计,计划系统流程图如下
3。
2.2.部分UML建模图
3。
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
ProgressBar1。
Max=UBound(workarea)
ProgressBar1。
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;IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=JXC;DataSource=(Local)\GSQL”
sql="BACKUPDATABASEJXCTOdisk='"&Text1。
Text&”’”
StrCnn。
Execute(sql)'执行SQL语句
StrCnn。
Close
Nextconnter
ProgressBar1.Value=ProgressBar1.Min
MsgBox”数据库备份成功!
!
”,64,”进销存管理系统”
Command1.Enabled=True
EndIf
EndSub
PrivateSubCommand2_Click()
CallCmdEnd(Me)
EndSub
PrivateSubCommand3_Click()
CommonDialog1.Filter=”备份文件(*。
bak)|*。
bak|文本文件(*.txt)|*.txt|ALLFile(*.*)|*。
*”
CommonDialog1。
ShowSave
Text1.Text=CommonDialog1.FileName
EndSub
PrivateSubCommand4_Click()
Command4。
Enabled=False
IfText2.Text="”Then
MsgBox"请您选择数据库恢复的路径!
”,64,"进销存管理系统”
Else
DimconnterAsInteger
Dimsql,workarea(15)AsString
ProgressBar2.Visible=True
ProgressBar2。
Max=UBound(workarea)
ProgressBar2.Value=ProgressBar2。
Min
Forconnter=LBound(workarea)ToUBound(workarea)
workarea(connter)=”initialvalue"&connter
ProgressBar2。
Value=connter
StrCnn.Open"Provider=SQLOLEDB。
1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=JXC;DataSource=(Local)\GSQL"
sql=”RESTOREDATABASEJXCfromdisk=’”&Text2。
Text&"’”
StrCnn.Execute(sql)'执行SQL语句
StrCnn。
Close
Nextconnter
ProgressBar2.Value=ProgressBar2。
Min
MsgBox"数据库恢复成功!
!
”,64,"进销存管理系统"
Command4。
Enabled=True
EndIf
EndSub
PrivateSubCommand5_Click()
CommonDialog2。
Filter=”备份文件(*.bak)|*.bak|文本文件(*.txt)|*.txt|ALLFile(*.*)|*.*”
CommonDialog2.ShowOpen
Text2.Text=CommonDialog2。
FileName
EndSub
PrivateSubForm_Load()
Me.Left=(Screen.Width—Me.Width)/2
Me.Top=(Screen.Height—Me.Height)/2
UnloadfrmZJM
EndSub
PrivateSubForm_Unload(CancelAsInteger)
CallCmdEnd(Me)
EndSub
3。
4.2.数据恢复(frmSJHF)
代码:
OptionExplicit
DimStrCnnAsNewConnection’定义连接
Dimkey,list,sql,Temp,IntextAsString’定义字符串变量
PrivateSubCommand1_Click()
IfTxt_restore.Text=”"Then
MsgBox”请您选择数据库恢复的路径!
",64,”提示信息"
Else
Me。
MousePointer=11
Command1。
Enabled=False
DimconnterAsInteger
Dimsql,workarea(12)AsString
ProgressBar1.Visible=True
ProgressBar1。
Max=UBound(workarea)
ProgressBar1.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”
sql="usemasterRESTOREDATABASEJXCfromdisk=’”&Txt_restore。
Text&"’”
StrCnn.Execute(sql)’执行SQL语句
StrCnn。
Close
Nextconnter
ProgressBar1。
Value=ProgressBar1.Min
MsgBox"数据库恢复成功!
!
",64,"提示信息”
Command1.Enabled=True
Me。
MousePointer=0
EndIf
EndSub
PrivateSubCommand3_Click()
CommonDialog1.Filter=”备份文件(*。
bak)|*.bak|文本文件(*。
txt)|*.txt|ALLFile(*。
*)|*.*"
CommonDialog1.ShowOpen
Txt_restore.Text=CommonDialog1。
FileName
EndSub
PrivateSubCommand2_Click()
UnloadMe
EndSub
PrivateSubForm_Load()
Me。
Left=(Screen.Width-Me.Width)/2
Me。
Top=(Screen。
Height—Me。
Height)/2
EndSub
3.4。
3.信息编辑(frmSPXXBJ)
代码:
PrivateSubCommand1_Click()
CallMain
IfText2.Text=””OrText3.Text=””OrText4。
Text=”"OrText5.Text=”"OrText6.Text=""OrText7。
Text=”"OrText8。
Text=””Then
MsgBox”请输入完整的商品信息”,48,”进销存管理系统"
Else
Adodc2.RecordSource="selectspbhfromGOODSwherespbh='"+Text2。
Text+"'"
Adodc2.Refresh
IfAdodc2。
Recordset。
RecordCount〉0Then
MsgBox”对不起,商品已存在",48,"进销存管理系统”
Else
SetadoRs=adoCon.Execute("insertintoGOODSvalues(’"&Text2。
Text&”',’”&Text3。
Text&"','"&Text4.Text&"’,'"&Text5。
Text&”',’”&Text6。
Text&”','”&Text7.Text&"',’"&Text8.Text&”')”)
MsgBox”添加商品成功",48,"进销存管理系统"
Adodc1.Refresh
CallcleanAll
EndIf
Refresh
EndIf
EndSub
PrivateSubCommand2_Click()'出错
IfCommand2。
Caption="修改"Then
IfText2。
Text=”"Then
MsgBox”请输入商品编号",48,"进销存管理系统”
Else
Adodc2。
RecordSource="select*fromGOODSwherespbh='”+Text2.Text+"’"
Adodc2.Refresh
IfAdodc2。
Recordset。
RecordCount=0Then
MsgBox"对不起,该商品不存在,请重新输入",48,"进销存管理系统"
Else
Text2.Enabled=False
Text3.Text=Adodc2.Recordset.Fields("spmc”)
Text4。
Text=Adodc2。
Recordset。
Fields(”splb”)
Text5.Text=Adodc2。
Recordset。
Fields(”kc”)
Text6.Text=Adodc2。
Recordset。
Fields(”dj")
Text7。
Text=Adodc2。
Recordset。
Fields(”gys")
Text8。
Text=Adodc2。
Recordset。
Fields(”bz”)
Command2.Caption=”保存"
EndIf
EndIf
Else
IfCommand2。
Caption=”保存”Then
CallMain
SetadoRs=adoCon.Execute(”updategoodssetspmc=’”+Text3。
Text+"’,splb=’"+Text4。
Text+”’,kc=’"+Text5。
Text+"’,dj='”+Text6.Text+"',gys=’”+Text7。
Text+"’,bz=’”+Text8.Text+”'wherespbh=’”+Text2。
Text+”’”)
MsgBox”信息修改成功”,48,”进销存管理系统"
Adodc1.Refresh
Text2.Enabled=True
Command2。
Caption="修改"
CallcleanAll
EndIf
EndIf
EndSub
PrivateSubCommand3_Click()'已实现
IfText2.Text=””Then
MsgBox"请输入所要删除的商品信息编号”,48,"进销存管理系统"
Else
Adod
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 进销存 管理 系统 优秀 毕业论文