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

1、本 科 生 毕 业 设 计 (论 文)题目：进销存管理系统Inventory management system教学单位 _计算机科学与技术学院_姓 名 _ _蓝晓军_学 号 _200631104063_ _年 级 _ _2006_ _专 业 _软件工程_指导教师 _ 殷 锋 职 称 _ 教 授 2010年 5 月 1 日目录 中英摘要21 开发背景12 系统分析12.1可行性分析12.1.1技术可行性12.1.2法律可行性12.2需求分析12.2.1功能分析12.2.2性能分析23.3数据库设计23.3.1实体联系图23.3.2系统数据33 项目设计43.1进度计划43.2系统设计53.2.

2、1系统流图63.2.2相关UML建模图63.4主要模块界面及代码73.4.1 数据备份（SJBF）73.4.2 数据恢复（SJHF）103.4.3 信息编辑（SPXXBJ）123.4.4 商品查询（SPCX）153.4.5商品销售（SPXS）194测试结果及相关表格225运行环境及相关配置236系统缺陷说明237小结248参考资料24【摘要】中小企业在我国经济发展中具有重要地位，目前我国的中小企业数量多，地区分布广泛，行业跨度大。据相关数据显示，相比发达国家的国外企业，我国中小企业的信息化水平还很低，只处于起步上升阶段。随着技术的发展，电脑的普及，电子信息化的高速发展。为了加强自身竞争力，企业

3、信息化成为必然选择。进销存管理系统作为典型的信息管理系统，非常适用于小企业、小商店及小型批发部等。它可以降低管理成本，提供准确的历史数据，为管理员的决策提供依据，进而提高管理效率。 本系统以VB为开发语言，以SQL Server 2000为数据库进行对进销存管理系统的开发。由于技术上的不足，该系统并没有加入数据挖掘等的智能分析统计技术。本系统旨在培养对该类系统的了解，为今后开发类似系统提供参考。- 25 -关键词：中小企业 决策 进销存 管理系统 数据库【英文摘要】 It has an important position for SMEs in the development of chin

4、as economic, the current number of SMEs in China more than broad regional distribution, industry span. According to relevant data, compared to developed countries, foreign enterprises, the informatization of SMEs in China is still very low, rising only at the initial stage. With the technology and p

5、opularization of computers, the rapid development of electronic information. To enhance its competitiveness, company information has become the inevitable choice. Inventory management system as a typical information management system, is a good choice for small businesses, small shops and small whol

6、esale department. It can reduce administrative costs and provide accurate historical data, Provide the basis for the administrators decision, and thus improve management efficiency.The system is developed by VB language and SQL Server 2000 as the database of the inventory management system developme

7、nt. Due to technical deficiencies, the system did not include data mining, intelligent analysis of statistical techniques. The system is designed for others to realize this class system and provide the reference for others to develop of similar system.Key words: Small-and-medium-sized enterprises (S

8、MEs) Decision Inventory Management system Database 1开发背景自改革开放以来，我国经济一直保持高速发展态势，大企业不断崛起的同时，中小型商品流通企业越来越多，其经营的商品种类繁多，人工管理起来工作量大、效率低。随着人类社会由工业社会时代进入电子信息时代，各企业团体为了加强自身竞争力，降低管理成本，提高运营效率，使用电子管理软件已成为他们的首选。为了满足这个庞大的市场，诸多软件公司都进入了该类软件开发运营的行列。作为一名软件工程专业的学生，如对这类软件有深刻的了解，将可以协助开发这类软件的公司更好的进行技术、运营等工作。为此将该软件作为自己的毕业

9、设计。2系统分析 2.1可行性分析 2.1.1技术可行性该系统为小型管理系统，主要运行在单机上，技术难度不大。根据已学知识及相关资料的辅助，基本上能提供技术上的支持。如开发过程中遇到未想到之难题，可以向同行有该类系统开发经验的同学、朋友请教，或在网上查阅相关资料。 2.1.2法律可行性该项目为独立开发，用于单机上，在技术上没有使用任何现有专利与方法。所以在法律方面不存在侵犯专利权、版权等问题。 2.2需求分析通过对系统的分析，要求系统具有以下特性： 系统操作简单，界面友好 规范、完善的基础信息设置 为方便用户，要求系统支持多条件查询 支持对客户所提意见的录入功能 具有查询统计功能 2.2.1功

10、能分析该系统主要完成的功能有：商品管理、销售管理、意见管理其中，对商品管理：引言：对商品信息数据进行管理输入：商品的各类属性处理：将商品信息存储至数据库输入：显示添加成功，在数据库中可以查询到该商品目的：完善商品数据，让管理者更加方便的了解本店商品情况销售管理：引言：对销售情况进行查询、统计输入：商品编号 或 商品名称处理：在数据库中提取相关信息输入：该商品的清单列表目的：进行营业状况的查询和统计，为管理者提供决策依据，如：采购预算、采购商品类型、应采取的营销方式等意见管理引言：对客户所反映的意见进行记录、总结输入：意见编号处理：找出解决办法或改进措施输入：显示意见信息、解决状态及办法内容目的

11、：用于收集顾客意见，改善当前不足，为提高满意度提供参考 2.2.2性能分析精度要求：本软件主要用于管理，不是科学计算，要求计算的精度不是很苛刻。所以输入、输出数据精度要求不是很高，用于计算的数用浮点数就可以了。时间特性要求：本软件运行的响应时间要求不超过12秒，基本能实现。输入要求：输入的数据基本为：商品编号、商品名称、数量等。输出要求：输出一般为表格或表单形式，输出数据主要有消费的金额及客户的消费历史记录。2.3数据库 2.3.1实体联系图根据需求分析中系统的要求，系统主要分为三个实体：商品、用户及意见，三者间的关系是管理与被管理的关系，其中用户担任管理角色，而商品和意见扮演被管理角色。根据

12、各自关系及属性可以得出三者间的实体联系图如下： 2.3.2系统数据此处取数据库名：JXC由系统的实体联系图及系统的逻辑关系，需要建立如下表格3项目设计 3.1进度计划进销存管理系统是典型的信息管理系统，由于本系统逻辑结构简单，没有加入高技术的算法，故在系统需求分析、设计等方面将费时较短，然而由于之前并没有VB开发经验，故在代码编写方面会遇到较大困难，所以初步预计代码编写方面需要较长的时间。预测各个阶段的时间安排大致如下图： 3.2系统设计进销存管理系统是典型的数据库应用程序，系统由前台功能模块和后台数据库管理组成。其中前台主要包括系统管理、商品管理及销售管理。后台主要管理数据表及进行数据连接更

13、新等操作。 3.2.1系统流图根据需求分析及对数据库的设计，计划系统流程图如下 3.2.2部分UML建模图 3.4模块界面展示及代码 3.4.1 数据备份（frmSJBF）代码：Dim StrCnn As New ADODB.ConnectionDim key, list, sql As String 定义字符串变量Private Sub Command1_Click()Command1.Enabled = FalseIf Text1.Text = ThenMsgBox 请您选择数据库备份的路径!, 64, 进销存管理系统ElseDim connter As IntegerDim sql, w

14、orkarea(15) As StringProgressBar1.Visible = TrueProgressBar1.Max = UBound(workarea)ProgressBar1.Value = ProgressBar1.Min For connter = LBound(workarea) To UBound(workarea) workarea(connter) = initial value & connter ProgressBar1.Value = connter StrCnn.Open Provider=SQLOLEDB.1;Integrated Security=SSP

15、I;Persist Security Info=False;Initial Catalog=JXC;Data Source=(Local)GSQL strcnn.Open Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=JXC;Data Source=(Local)GSQL sql = BACKUP DATABASE JXC TO disk= & Text1.Text & StrCnn.Execute (sql) 执行SQL语句 StrCnn.Close Next

16、connter ProgressBar1.Value = ProgressBar1.Min MsgBox 数据库备份成功!, 64, 进销存管理系统 Command1.Enabled = True End IfEnd SubPrivate Sub Command2_Click() Call CmdEnd(Me)End SubPrivate Sub Command3_Click()CommonDialog1.Filter = 备份文件(*.bak)|*.bak|文本文件(*.txt)|*.txt|ALL File(*.*)|*.*CommonDialog1.ShowSaveText1.Text

17、= CommonDialog1.FileNameEnd SubPrivate Sub Command4_Click()Command4.Enabled = FalseIf Text2.Text = ThenMsgBox 请您选择数据库恢复的路径!, 64, 进销存管理系统ElseDim connter As IntegerDim sql, workarea(15) As StringProgressBar2.Visible = TrueProgressBar2.Max = UBound(workarea)ProgressBar2.Value = ProgressBar2.Min For con

18、nter = LBound(workarea) To UBound(workarea) workarea(connter) = initial value & connter ProgressBar2.Value = connter StrCnn.Open Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=JXC;Data Source=(Local)GSQL sql = RESTORE DATABASE JXC from disk= & Text2.Text & S

19、trCnn.Execute (sql) 执行SQL语句 StrCnn.Close Next connter ProgressBar2.Value = ProgressBar2.Min MsgBox 数据库恢复成功!, 64, 进销存管理系统 Command4.Enabled = TrueEnd IfEnd SubPrivate Sub Command5_Click()CommonDialog2.Filter = 备份文件(*.bak)|*.bak|文本文件(*.txt)|*.txt|ALL File(*.*)|*.*CommonDialog2.ShowOpenText2.Text = Comm

20、onDialog2.FileNameEnd SubPrivate Sub Form_Load()Me.Left = (Screen.Width - Me.Width) / 2Me.Top = (Screen.Height - Me.Height) / 2Unload frmZJMEnd SubPrivate Sub Form_Unload(Cancel As Integer) Call CmdEnd(Me)End Sub 3.4.2 数据恢复（frmSJHF）代码：Option ExplicitDim StrCnn As New Connection 定义连接Dim key, list, sq

21、l, Temp, Intext As String 定义字符串变量Private Sub Command1_Click()If Txt_restore.Text = Then MsgBox 请您选择数据库恢复的路径!, 64, 提示信息ElseMe.MousePointer = 11Command1.Enabled = FalseDim connter As IntegerDim sql, workarea(12) As StringProgressBar1.Visible = TrueProgressBar1.Max = UBound(workarea)ProgressBar1.Value

22、= ProgressBar1.Min For connter = LBound(workarea) To UBound(workarea) workarea(connter) = initial value & connter ProgressBar1.Value = connter StrCnn.Open Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=JXC;Data Source=(Local)GSQL sql = use master RESTORE DAT

23、ABASE JXC from disk= & Txt_restore.Text & StrCnn.Execute (sql) 执行SQL语句 StrCnn.Close Next connter ProgressBar1.Value = ProgressBar1.Min MsgBox 数据库恢复成功!, 64, 提示信息 Command1.Enabled = True Me.MousePointer = 0End IfEnd SubPrivate Sub Command3_Click()CommonDialog1.Filter = 备份文件(*.bak)|*.bak|文本文件(*.txt)|*.

24、txt|ALL File(*.*)|*.*CommonDialog1.ShowOpenTxt_restore.Text = CommonDialog1.FileNameEnd SubPrivate Sub Command2_Click() Unload MeEnd SubPrivate Sub Form_Load() Me.Left = (Screen.Width - Me.Width) / 2 Me.Top = (Screen.Height - Me.Height) / 2End Sub 3.4.3 信息编辑（frmSPXXBJ）代码：Private Sub Command1_Click()

25、Call Main If Text2.Text = Or Text3.Text = Or Text4.Text = Or Text5.Text = Or Text6.Text = Or Text7.Text = Or Text8.Text = Then MsgBox 请输入完整的商品信息, 48, 进销存管理系统 Else Adodc2.RecordSource = select spbh from GOODS where spbh = + Text2.Text + Adodc2.Refresh If Adodc2.Recordset.RecordCount 0 Then MsgBox 对不起

26、,商品已存在, 48, 进销存管理系统 Else Set adoRs = adoCon.Execute(insert into GOODS values( & Text2.Text & , & Text3.Text & , & Text4.Text & , & Text5.Text & , & Text6.Text & , & Text7.Text & , & Text8.Text & ) MsgBox 添加商品成功, 48, 进销存管理系统 Adodc1.Refresh Call cleanAll End If Refresh End If End SubPrivate Sub Comman

27、d2_Click() 出错 If Command2.Caption = 修改 Then If Text2.Text = Then MsgBox 请输入商品编号, 48, 进销存管理系统 Else Adodc2.RecordSource = select * from GOODS where spbh = + Text2.Text + Adodc2.Refresh If Adodc2.Recordset.RecordCount = 0 Then MsgBox 对不起,该商品不存在，请重新输入, 48, 进销存管理系统 Else Text2.Enabled = False Text3.Text =

28、 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 = 保存 End If End If Else If Command2.Caption

29、= 保存 Then Call Main Set adoRs = adoCon.Execute(update goods set spmc = + Text3.Text + ,splb = + Text4.Text + ,kc = + Text5.Text + ,dj = + Text6.Text + ,gys = + Text7.Text + ,bz = + Text8.Text + where spbh = + Text2.Text + ) MsgBox 信息修改成功, 48, 进销存管理系统 Adodc1.Refresh Text2.Enabled = True Command2.Capt

30、ion = 修改 Call cleanAll End If End If End SubPrivate Sub Command3_Click() 已实现 If Text2.Text = Then MsgBox 请输入所要删除的商品信息编号, 48, 进销存管理系统 Else Adodc2.RecordSource = select spbh from GOODS where spbh = + Text2.Text + Adodc2.Refresh If Adodc2.Recordset.RecordCount = 0 Then MsgBox 对不起,该商品不存在, 48, 进销存管理系统 El

31、se Adodc2.Recordset.Delete MsgBox 该商品删除成功, 48, 进销存管理系统 Adodc1.Refresh Call cleanAll End If End IfEnd SubPrivate Sub Command4_Click() Unload MeEnd SubPrivate Sub cleanAll() Text2.Text = Text3.Text = Text4.Text = Text5.Text = Text6.Text = Text7.Text = Text8.Text = End Sub 3.4.4 商品查询（frmSPCX）代码：Private

32、 Sub Command1_Click() 有问题 If Option1.Value = True Then If Text5.Text = Then MsgBox 商品编号不可为空, 48, 进销存管理系统 Else Adodc1.RecordSource = select * from goods where spbh = + Text5.Text + Adodc1.Refresh If Adodc1.Recordset.RecordCount = 0 Then MsgBox 无该商品, 48, 进销存管理系统 End If End If Else If Option2.Value = T

33、rue Then If Text6.Text = Then MsgBox 商品名称不可为空, 48, 进销存管理系统 Else Adodc1.RecordSource = select * from goods where spmc = + Text6.Text + Adodc1.Refresh If Adodc1.Recordset.RecordCount = 0 Then MsgBox 无该商品, 48, 进销存管理系统 End If End If Else If Option3.Value = True Then If Combo1.Text = Then MsgBox 查询的商品类别不

34、可为空, 48, 进销存管理系统 Else Adodc1.RecordSource = select * from goods where splb = + Combo1.Text + Adodc1.Refresh If Adodc1.Recordset.RecordCount = 0 Then MsgBox 错误, 48, 进销存管理系统 End If End If End If End If End IfEnd SubPrivate Sub Command2_Click() depSPXX.ShowEnd SubPrivate Sub Command3_Click() Unload MeE

35、nd SubPrivate Sub Command4_Click() Adodc1.RecordSource = select * from goods Adodc1.Refresh If Adodc1.Recordset.RecordCount = 0 Then MsgBox 商店无库存商品, 48, 进销存管理系统 End IfEnd SubPrivate Sub DataGrid1_Click() Text1.Text = DataGrid1.Columns 双击的话，在text中显示该行商品信息 If DataGrid1.Bookmark 0 Then Text1.Text = Dat

36、aGrid1.Columns(0).CellValue(DataGrid1.Bookmark) Text2.Text = DataGrid1.Columns(1).CellValue(DataGrid1.Bookmark) Text3.Text = DataGrid1.Columns(2).CellValue(DataGrid1.Bookmark) Text4.Text = DataGrid1.Columns(3).CellValue(DataGrid1.Bookmark) Text7.Text = DataGrid1.Columns(4).CellValue(DataGrid1.Bookma

37、rk) Text8.Text = DataGrid1.Columns(5).CellValue(DataGrid1.Bookmark) Text9.Text = DataGrid1.Columns(6).CellValue(DataGrid1.Bookmark) End IfEnd SubPrivate Sub Form_Activate() Adodc2.RecordSource = select distinct splb from goods Adodc2.Refresh If Adodc2.Recordset.RecordCount = 0 Then MsgBox 无任何库存商品, 4

38、8, 进销存管理系统 Else Do Until Adodc2.Recordset.EOF Combo1.AddItem Adodc2.Recordset.Fields(splb) Adodc2.Recordset.MoveNext Loop End IfEnd SubPrivate Sub Option1_Click() Option2.Value = False Option3.Value = False Text5.Text = Text5.Enabled = True Text6.Text = Text6.Enabled = False Combo1.Text = Combo1.Ena

39、bled = FalseEnd SubPrivate Sub Option2_Click() Option1.Value = False Option3.Value = False Text5.Text = Text5.Enabled = False Text6.Text = Text6.Enabled = True Combo1.Text = Combo1.Enabled = FalseEnd SubPrivate Sub Option3_Click() Option1.Value = False Option2.Value = False Text5.Text = Text5.Enable

40、d = False Text6.Text = Text6.Enabled = False Combo1.Text = Combo1.Enabled = TrueEnd Sub 3.4.5商品销售（frmSPXS）代码：Public spmcStr As String 新定义的变量Public djStr As String 新定义的变量Public kcStr As StringPublic slStr As StringPublic maxXsbh As IntegerPrivate Sub Command1_Click() If Combo1.Text = Then MsgBox 请选择你

41、所要购买商品的商品编号, 48, 进销存管理系统 Else If Text1.Text = Then MsgBox 请输入你要购买的数量, 48, 进销存管理系统 Else Adodc2.RecordSource = select * from GOODS where spbh = + Combo1.Text + Adodc2.Refresh spmcStr = Adodc2.Recordset.Fields(spmc) djStr = Adodc2.Recordset.Fields(dj) kcStr = Adodc2.Recordset.Fields(kc) If CSng(Trim(kc

42、Str) 0 Then Combo1.Text = DataGrid2.Columns(0).CellText(DataGrid2.Bookmark) End IfEnd SubPrivate Sub Form_Activate() If Adodc1.Recordset.RecordCount = 0 Then MsgBox 无任何库存商品, 48, 进销存管理系统 Else Do Until Adodc1.Recordset.EOF Combo1.AddItem Adodc1.Recordset.Fields(spbh) Adodc1.Recordset.MoveNext Loop End IfEnd Sub4测试结果及相关表格检查项内容窗口切换、移动、改变大小时正常吗？各种界面元素的文字正确吗？（如标题、提示等）各种界面元素的状态正确吗？（如有效、无效、选中等状态）数据项能正确回显吗？各种界面元素的布局合理吗？美观吗？各种界面元素的形状美观吗？此处取商品查询（frmSPCX）窗体及商品销售（frmSPXS）窗体作为测试样本