进销存管理系统优秀毕业论文.docx

进销存管理系统优秀毕业论文.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