进销存管理系统

1、2007 级课程设计报告课题名称： 进销存管理系统 （盘点管理管理子系统） 专 业：班 级：学 号：姓 名：指导教师：目录1 系 统 概述12 系统分析2-62.1需求分2.2业务流程2.3数据流程2.4数据词3 系统设析图图典计6323.1 模块结构设计3.2 数 据 库 概 念 设计3.3数据库3.4 输出设计3.5 输入设计3.6 代码设计4.结语331. 系统概述现代科技技术突飞猛进， 在不同的领域要求各异， 以前对库存盘点的统计都 是手写登记， 纸制查看，这样很容易发生错误， 导致企事业失去他们所需要的信 息，而且会产生错误信息误导决策， 现在为了方便决策者了解到更加确切的信息 和资

2、料，所以开发这样的系统方便决策者查询信息及网上浏览， 使各方面的信息 都能够正确及时。系统的功能是将该企业的所有库存盘点信息进行电子统计 , 根据不同的需求 建立各种的报表 ,便于企事业在网上查询库存的各方面的信息情况 , 方便决策者 了解市场 , 也能够方便管理者对库存盘点的信息进行不同的统计。库存盘点管理管理子系统主要实现的是库存盘点信息的录入， 修改，查询以 及盘点信息的打印等功能， 为此， 若要实现各方面的需求， 系统的数据必须具有 高度的完整性和准确性， 这就要求系统的高度安全性， 可维护性， 可靠性及灵活 性。比如库存管理系统的管理， 管理员在录入商品的库存情况的时候或是数据库 出

3、现异常而产生差错， 可能会影响决策者从网上查询这些商品的库存情况， 这就 要求系统具有高度的安全性， 可维护性和可靠性； 灵活性指的是系统要具有强大 的功能以适应不同层次的客户不同的需求。 另外，系统的操作界面要求简便， 通 俗，以便于操作。用户对系统的信用，如果因为一次的错误就会导致一连串的信息错误，所以 保证信息的可靠性十分必须的， 这样才能使系统得到用户的信赖和支持。 这样的 系统需要保证可靠性 , 避免给决策者提供虚假的信息 ,更确保各部门通过浏览该系统, 进行相应的需求操作。 因此，随着技术发展，企业采用库存盘点信息化已成为趋势及必然2. 系统分析2.1 需求分析2.1.1 需求分析

4、 本系统通过简单的数据库的操作， 实现企事业单位的库存信息的管理。 库存盘点管理管理子系统是一个小型的信息管理系统， 数据库采用 SQLServer 2005。 使用户和项目人员明确系统的功能、应用范围。本系统具有以下功能： 1：实现库存盘点管理的信息化管理。2 ：实现库存盘点管理的基础要求，如信息添加，查看及删除。操作方便 简单，且数据稳定性强。3 ：方便的库存信息查询功能，支持多条件查询。4 ：数据计算自动完成，尽量减少人工干预。 5：强大的报表打印功能。2.1.2 开发及运行环境1. 硬件环境：CPU CH 1.7G以上，内存在256M以上。2. 软件环境：Win dows XP操作系统

5、，Microsoft SQL Servers 数据库系 统。软件编程使用 Microsoft Visual Basic 6.0 中文版。2.1.3 程序流程 本库存盘点管理管理子系统使用如下的流程进行登陆以及其他的操作： 开始界面是始于登陆界面“登录（登录 .frm ）”，当用户键入用户名和密码 的时候，系统自动到所对应的数据库“用户信息表”中进行用户验证。如果输入 正确则进入系统主界面，就可以进入到主操作菜单窗体“系统（系统.frm） ”中进 行操作。在主操作菜单窗体“系统（系统.frm） ”中，用户可以对数据库中的商品 信息、供应商信息及客户信息等基本信息进行包括：添加，查询，修改等操作，

6、 并能够进行入库管理，出库管理及库存盘点。此外，可在“清单报表管理窗口” 中进行相应的报表打印。主界面入下图所示：回目口 令（P）:W曲户登确用户名称何：2. 2业务流程图库存盘点流程如下：2.3数据流程图2.4数据字典4.1.数据元素条目数据元素条目总编号.1-100编号：100名称：库存单编号编码说明：别名：kcdb*说明：库存单编码商品编号数据值类型：离散库存编号类型：数字库存序号长度：10有关数据：库存卡4.2数据结构条目数据结构条目名商品入库卡总编号：2-03称:说商品入库时编号：006明：填写的卡片结构：有关的数据流，数据存储新商品入库表商品库存表数量：每年约2000份入库序号 入

7、库编号 商品编号 商品名称 规格计量单位数量 单价 总金额 入库日期 经手人备注信息43数据流条目数据流条目名称：库存信息表总编号.3-02简要说明：库存信息的汇 总编号：005数据流来源：账面库存数据流去向：P2.1,P2,2包含的数据结构：流通量:1000份每年销售的商品商品库存记录4.4数据存储条目数据存储条目名称：库存盘点明细表总编号.4-05说明：库存信息汇总编号：A1结构：有关的数据流盘点编号P2.1->A1A1->P2.1.2商品名称A1->P2.1.5账面库存信息量：150份每年实盘库存有无复查：有差异数3.5处理过程条目处理过程条目总编号：5-009编号：P

8、2.1.5名称打印库存盘点清单说明 公布库存盘点信息，并说明库存情况输入 A1->P2.1.5输出 P2.1.5-盘点明细表处理:查A1 （库存明显表），打印库存信息表及盘点信息表，表现好的可以保持,:表现不令人满意的可加以调整，并注明表现不好的地方，要求改进。4.6外部实体条目外部实体条目名称：员工总编号.06-001说明：编号：001输出数据流：输入数据流：P2.1,5 一员工（工资表）个数：约2000个2.5程序运行流程图库存清单报表打印窗口登陆窗体：（系统（系 统.frm）判断是否登陆体 窗 H7 二 理库存清单报表预览窗口数据备份与修改窗口用户信息查询窗口用户密码修改窗口用户信

9、息添加窗口盘点库存管理窗口出库管理窗口入库管理窗口商品信息管理窗口供应商信息管理窗口客户信息管理窗口退出窗口3. 系统设计3.1模块结构设计该系统的总体结构设计如下图所示：人员信息档案管理系统包括基本信息管理， 销售信息管理，库存信息管理，数据 报表管理和系统管理等部分。进销存管理系J 统丿基本沖F售管理卜库存管理系统管理其中，基本信息管理中可以对商品，供应商，客户基本信息进行添加，修改，查询和删除等 操作，如图：本信息管理商品信息管理供应商信息管理管理库存管理中可以实现库存信息，入库单信息，出库单信息，盘点清单信息的录入，修改，查 询等操作，如图：.库存信息查询入库管理出库管理入库单录入库单

10、查入修改询岀库单录入修改盘点清单 录入修改出库单查询（盘点管理盘点清单查询数据报表管理可以实现盘点清单的预览及打印等操作，如图:盘点清单报表报表预览系统管理中主要是用户查询，添加用户，修改密码, 如图：数据备份及恢复等的操作,系统管理用户信息查询添加用户修改密码数据备份数据恢复退出系统3.2数据库概念设计盘点清单3.3数据库逻辑设计1商品信息表字段名数据类型长度是否允许空说明商品编号varchar10否主键，惟一标识商品记录商品名称varchar50是单价varchar50是计量单位varchar10是产地varchar50是供应商名称varchar50是备注信息text16是2供应商信息表字

11、段名数据类型长度是否允许空说明供应商编号varchar10否主键，惟一标识供应商记录供应商名称varchar50是供应商单位全称地址varchar50是邮政编码varchar10是联系电话varcgar20是企业网址varchar50是联系人varchar50是联系人电话varcgar20是开户银行varchar50是银行账号varchar13是备注信息text16是3客户信息表字段名数据类型长度是否允许空说明客户编号varchar10否主键，惟一标识客户记录客户名称varchar50是客户单位全称地址varchar50是邮政编码varchar6是联系电话varchar20是企业网址varcg

12、ar30是联系人varchar50是联系人电话varcgar20是开户银行varchar50是银行账号varchar20是备注信息text16是4商品入库信息表字段名数据类型长度是否允许空说明入库序号decimal9否主键，惟一标识商品入库记录商品编号varchar10否外键，对应商品信息表中商品编号商品名称varchar50是供应商编号varchar10否外键，对应供应商信息表中供应商编号供应商名称varchar50是规格varchar30是计量单位varchar10是数量varchar10是单价varchar50是总金额varchar50是日期datetime8是经手人varchar20是

13、备注信息text16是修改人varchar20是修改日期datetime8是5商品库存信息表字段名数据类型长度是否允许空说明库存序号decimal9否主键，惟一标识商品库存记录库存编号varchar30是库存名称varchar50是商品编号varchar10否外键，对应商品信息表中商品编号规格varchar30是计量单位varchar10是数量varchar10是单价varchar50是总金额varchar50是日期datetime8是备注信息text16是6商品出库信息表字段名数据类型长度是否允许空说明出库序号decimal9否主键，惟一标识商品入库记录出库编号varchar10是商品编号v

14、archar10否外键，对应商品信息表中商品编号商品名称varchar50是规格varchar30是计量单位varchar10是数量varchar10是单价varchar50是总金额varchar50是出库日期datetime8是提货单位varchar50是提货人varchar50是经手人varchar20是备注信息text16是修改人varchar20是修改日期datetime8是7库存明细表字段名数据类型长度是否允许空说明盘点编号varchar10否主键，惟一标识商品盘点记录商品编号varchar10否外键，对应商品信息表中商品编号商品名称varchar50是规格varchar30是计量单

15、位varchar10是单价varchar50是账面库存varchar50是实盘库存varchar50是差异数varchar50是盘点人员varchar50是盘点日期datetime8是备注信息text16是8用户信息表字段名数据类型长度是否允许空说明用户编号varchar10否主键用户密码varchar10否用户名称varchar50是备注信息text16是3.4输出设计和输入设计3.4.1登录界面：3.4.2主界面:3.4.3商品信息管理的输出界面如图所示:344入库单录入修改的输出界面如图所示:345入库单信息查询的输出界面如图所示:3.4.6盘点清单录入修改的输出界面如图所示：347数据

16、库备份与恢复:348盘点清单打印界面:-1 -ft |<"««r piif IT vyri | IjHP FFLfid jEBB|!豺I* 5'Wit 4 c4?i，iW BP Qi Tt 'll* 脅声鼻 V?4：*|h砂tsf M廉 H I1 1站吋电1 W暮N3 ti a 沪iMAE . 4i«Q ii txf辭繃一一二 _r 虽匕3.5代码设计3.5.1登录Opti on ExplicitDim SQL As Stri ngDim msg As Stri ngDim Log in Succeeded As Boolea nD

17、im用户名称As StringPrivate Sub Comma nd1 Click()Dim rst As ADODB.RecordsetDim password As String' 判断用户是否存在用户名称 = Trim(Text1.Text) ' 取出用户的 IDSQL = " select * from 用户信息表 where 用户名称 ='" & 用户名称 & "'" Set rst = SelectSQL(SQL, msg)If rst.RecordCount > 0 Thenpassw

18、ord = Trim(rst.Fields(1) ' 取出该用户的密码 rst.CloseElseMsgBox (" 数据库操作错误！ ")Exit SubEnd If' 判断密码是否正确If password = Trim(Text2.Text) ThenLoginSucceeded = True系统.ShowUnload MeElseMsgBox (" 密码错误！ ") LoginSucceeded = FalseEnd IfEnd SubPrivate Sub Command2_Click()' 设置全局变量为 false&

19、#39; 不提示失败的登录LoginSucceeded = FalseUnload MeEnd SubPrivate Sub Form_Load()登录.En abled = TrueEnd SubPrivate Sub Form_Unload(Cancel As Integer)LoginSucceeded = FalseUnload MeEnd Sub 进入系统主界面后，对系统进行操作，各代码如下：3.5.1 在基本信息管理界面中， 各按钮的代码如下(以“商品信息管理” 为例) Option ExplicitDim i As Integer ' 定义整型变量Dim r

20、s1 As New ADODB.Recordset ' 定义数据集对象Dim rs As New ADODB.Recordset ' 定义数据集对象Dim SQL As StringDim msg As StringPrivate Sub Command1_Click()If Text1.Text = "" ThenMsgBox " 商品编号不允许为空！ "End IfSQL = "SELECT * FROM 商品信息表 "Set rs1 = SelectSQL(SQL, msg)' 新增商品rs1.AddNe

21、wrs1.Fields("商品编号 ") = Text1.Textrs1.Fields("商品名称 ") = Text2.Textrs1.Fields("单价") = Text3.Textrs1.Fields("单位") = Combo1.Textrs1.Fields("产地") = Text4.Textrs1.Fields("供应商名称 ") = Combo2.Textrs1.Fields("备注信息 ") = Text5.Textrs1.UpdateM

22、sgBox " 添加数据成功！ " 关闭数据集对象rs1.CloseUnload Me 商品信息管理 .ShowEnd SubPrivate Sub Command2_Click() 商品信息管理 .Hide 系统 .ShowEnd SubPrivate Sub Command3_Click()装载数据 显示数据' 查询操作Call LoadData'Call ShowData'End SubPrivate Sub ShowData()' 在控件中显示数据' 如果存在记录' 为控件赋值SQL = "SELECT *

23、FROM 商品信息表 " Set rs = SelectSQL(SQL, msg) Set Me.DataGrid1.DataSource = rsIf rs.RecordCount <> 0 Then DataGrid1.RefreshEnd IfEnd SubPrivate Sub LoadData()' 查询商品信息SQL = "SELECT * FROM 商品信息表 "Set rs = SelectSQL（SQL, msg）Set Me.DataGrid1.DataSource = rsDataGrid1.Refreshrs.Updat

24、eEnd SubPrivate Sub ControlClear（）' 重置控件Me.Text1.Text = ""Me.Text2.Text = ""Me.Text3.Text = ""Me.Text4.Text = ""Me.Text5.Text = ""Me.Combo1.Text = ""Me.Combo2.Text = ""End SubPrivate Sub Command4_Click（）' 删除操作On Error GoTo

25、 ErrMsg'If rs.RecordCount > 0 Thenmsg = MsgBox（"删除该条记录吗 ?", vbYesNo）If msg = vbYes Thenrs.Delete 'Call LoadData'' 清空控件Call ControlClear' 设置控件 Enable 值为不可用MsgBox （" 成功删除的数据 !"）End IfElseMsgBox （" 没有可删除的数据 !"）End IfExit SubErrMsg: 'MsgBox Err.De

26、scription, vbExclamation, " 出错 End SubPrivate Sub Form_Load（）Combo1.AddItem （" 瓶 "）Combo1.AddItem （" 公斤 "）Combo1.AddItem （" 袋 "）Combo2.AddItem （" 吉良集团 "）Combo2.AddItem （" 吉林米业 "）错误处理删除数据 重新装载数据报告出错信息Combo2.AddItem （" 宏基有限公司 "）Combo2.Ad

27、dItem （" 光华企业 "）End Sub 在库存信息查询界面中，各按钮的代码如下 :Private Sub Command1_Click（）' 查询操作Dim colName As String ' 保存所选择的查询条件 Dim colValue As String ' 保存所要查询具体的值 Dim strWhere As StringcolName = Combo1.Text' 取出条件的值colValue = Text1.Text ' 取出所要查询的值 strWhere = " where "

28、; & colName & " like '%" & colValue & "%'" SQL = " select * from商品库存信息表 " & strWhereSet rs = SelectSQL（SQL, msg）If rs.RecordCount <> 0 ThenSet DataGrid1.DataSource = rsElseSet rs = NothingEnd IfEnd SubPrivate Sub Command2_Click（）' 退

29、出操作库存信息查询 .Hide系统 .ShowEnd SubPrivate Sub Form_Load（）Combo1.AddItem （" 库存序号 "）Combo1.AddItem （" 库存编号 "）Combo1.AddItem （" 商品编号 "）Combo1.AddItem （" 商品名称 "）Combo1.AddItem （" 日期 "）Combo1.ListIndex = 0End Sub.1 在入库单录入修改界面中，各按钮的代码如下 :Option Explicit

30、Dim i As Integer ' 定义整型变量Dim rs1 As New ADODB.Recordset ' 定义数据集对象Dim rs As New ADODB.Recordset ' 定义数据集对象Dim SQL As StringDim msg As StringPrivate Sub Command1_Click（）If Text1.Text = "" ThenMsgBox " 入库序号不允许为空！ "End IfSQL = "SELECT * FROM 商品入库信息表 "Set rs1 = Se

31、lectSQL(SQL, msg) ' 新增商品 rs1.AddNewrs1.Fields("入库序号 ") = Text1.Textrs1.Fields("入库编号 ") = Text2.Textrs1.Fields("商品编号 ") = Text5.Textrs1.Fields("商品名称 ") = Text6.Textrs1.Fields("供应商编号 ") = Text4.Textrs1.Fields("供应商名称 ") = Combo1.Textrs1.Fi

32、elds("规格") = Text7.Textrs1.Fields("计量单位 ") = Combo2.Textrs1.Fields("数量") = Text8.Textrs1.Fields("单价") = Text9.Textrs1.Fields("总金额") = Text10.Textrs1.Fields("日期") = Me.DTPicker1.Valuers1.Fields("经手人") = Text3.Textrs1.Fields("备

33、注信息 ") = Text11.Textrs1.Fields("修改人") = Text12.Textrs1.Fields("rs1.Update修改日期 ") = Me.DTPicker2.ValueMsgBox " 添加数据成功！ " 关闭数据集对象rs1.CloseUnload Me 入库单录入修改 .ShowEnd SubPrivate Sub Command4_Click() 入库单录入修改 .Hide 系统 .ShowEnd SubPrivate Sub Command2_Click()装载数据 显示数据'

34、; 查询操作Call LoadData'Call ShowData'End SubPrivate Sub ShowData()' 在控件中显示数据' 如果存在记录' 为控件赋值SQL = "SELECT * FROM 商品入库信息表 " Set rs = SelectSQL(SQL, msg)Set Me.DataGrid1.DataSource = rsIf rs.RecordCount <> 0 Then DataGrid1.RefreshEnd IfEnd SubPrivate Sub LoadData()'

35、 查询商品入库信息SQL = "SELECT * FROM 商品入库信息表 "Set rs = SelectSQL(SQL, msg)Set Me.DataGrid1.DataSource = rsDataGrid1.Refreshrs.UpdateEnd SubPrivate Sub ControlClear()' 重置控件Me.Text1.Text = ""Me.Text2.Text = ""Me.Text3.Text = ""Me.Text4.Text = ""Me.Text5.T

36、ext = ""Me.Text6.Text = ""Me.Text7.Text = ""Me.Text8.Text = ""Me.Text9.Text = ""Me.Text10.Text = ""Me.Text11.Text = ""Me.Text12.Text = ""Me.Combo1.Text = ""Me.Combo2.Text = ""End SubPrivate Sub Comman

37、d3_Click()' 删除操作错误处理删除数据 重新装载数据On Error GoTo ErrMsg'If rs.RecordCount > 0 Thenmsg = MsgBox("删除该条记录吗 ?", vbYesNo)If msg = vbYes Thenrs.Delete 'Call LoadData'' 清空控件Call ControlClear' 设置控件 Enable 值为不可用MsgBox (" 成功删除的数据 !")End IfElseMsgBox (" 没有可删除的数据

38、!")End IfExit SubErrMsg: ' 报告出错信息MsgBox Err.Description, vbExclamation, " 出错 "End SubPrivate Sub Form_Load（）Combo1.AddItem （" 吉良集团 "）Combo1.AddItem （" 吉林米业 "）Combo1.AddItem （" 宏基有限公司 "）Combo1.AddItem （" 光华企业 "）Combo2.AddItem （" 瓶 "

39、）Combo2.AddItem （" 公斤 "）Combo2.AddItem （" 袋 "）End Sub 在修改密码界面中， “确定”按钮的代码如下：Option ExplicitDim SQL As StringDim msg As StringPrivate Sub Command2_Click（）' 退出操作系统.En abled = TrueUnload MeEnd SubPrivate Sub Commandok_Click（）' 确定操作Dim rst As ADODB.RecordsetDim p1 As S

40、tring'保存用户的密码Dim p2 As String'保存用户的新密码Dim p3 As String'保存用户的确认密码' 赋值p1 = Trim（Text1.Text）p2 = Trim（Text2.Text）p3 = Trim（Text3.Text）SQL = "select * from 用户信息表 用户名称 ='" & 用户名称 & "'"SQL = SQL & " and 用户密码='" & p1 & "'

41、;"On Error GoTo ErrMsg'出错处理Set rst = SelectSQL（SQL, msg）If rst.RecordCount > 0 Then'如果输入密码正确' 检查新密码和确认密码If （p3 <> p2） ThenMsgBox （" 两次输入的密码不一致！ "）Exit SubEnd If' 接受新的密码 rst.Fields（"密码"） = p2rst.UpdateMsgBox ("更新成功！ ")ElseMsgBox ("用户名称或

42、密码输入错误！ ")Exit SubEnd IfExit SubErrMsg: ' 出错信息MsgBox Err.Description, vbExclamation, "出错 "End SubPrivate Sub cmdCancel_Click()' 退出操作系统.En abled = TrueUnload MeEnd Sub 数据库备份界面中的“开始备份”按钮的代码如下：Private Sub Cmd_BackUp_Click()Cmd_backup.Enabled = FalseMe.MousePointer = 11If T

43、ext1.Text = "" ThenMsgBox " 请您选择数据库备份的路径 !", 64, " 提示信息 "ElseDim connter As IntegerDim SQL, workarea(6) As StringProgressBar1.Visible = TrueProgressBar1.Max = UBound(workarea)ProgressBar1.Value = ProgressBar1.MinFor connter = LBound(workarea) To UBound(workarea) workare

44、a(connter) = "initial value" & connter ProgressBar1.Value = connter' 连接数据库Call joinsStrCnn.Open Str1SQL = "backup DATABASdEb_kcgl TOdisk='" & Text1.Text & "'"StrCnn.Execute (SQL)'执行 SQL语句StrCnn.CloseNext connterProgressBar1.Value = ProgressBa

45、r1.MinMsgBox " 数据库备份成功 !", 64, " 提示信息 "Cmd_backup.Enabled = TrueMe.MousePointer = 0End IfEnd Sub3.5.6 公用模块设计代码：Public Function GetConnStr() As String' 得到数据库连接字符串，用户可以在此处设置连接字符串'User ID 是数据库用户 ID ，Password 是登陆密码'Initial Catalog 是数据库名， Data Source 是服务器名称ConnectionString

46、 = "Provider =SQLOLEDB;DataSource=WWW-4A31291611D;Initial Catalog= wyx13;User ID=sa;Password=;" GetConnStr = ConnectionStringEnd FunctionPublic Function OpenConn(ByRef Conn As ADODB.Connection) As Boolean' 打开数据库连接，连接成功返回 true ，出错时返回 falseSet Conn = New ADODB.Connection' 出错处理On Erro

47、r GoTo ErrorHandleConn.Open GetConnStrOpenConn = TrueExit FunctionErrorHandle:MsgBox " 连接数据库失败！请重新连接！ "OpenConn = FalseExit FunctionEnd FunctionPublic Sub ExecuteSQL(ByVal SQL As String, ByRef msg As String)'执行SQL语句Dim Conn As ADODB.ConnectionDim sTokens() As String' 出错处理On Error G

48、oTo ErrorHandle'判断SQL语句sTokens = Split(SQL)If InStr("INSERT,DELETE,UPDATE", UCase(sTokens(0) Then ' 打开数据库连接If OpenConn(Conn) ThenConn.Execute SQLmsg = sTokens(0) & "操作执行成功！ "End IfElsemsg = "SQL 语句有误： " & SQLEnd IfFinally_Exit:Set rst = NothingSet Conn =

49、 NothingExit SubErrorHandle:msg = " 执行错误 : " & Err.DescriptionResume Finally_ExitEnd SubPublic Function SelectSQL(ByVal SQL _As String, ByRef msg As String) As ADODB.Recordset'执行 SQL语句，返回 ADODB.RecordsetDim Conn As ADODB.ConnectionDim rst As ADODB.RecordsetDim sTokens() As String&#

50、39; 出错处理On Error GoTo ErrorHandle'判断SQL语句sTokens = Split(SQL)If InStr("SELECT", UCase(sTokens(0) Then' 打开数据库连接If OpenConn(Conn) ThenSet rst = New ADODB.Recordset rst.CursorLocation = adUseClient rst.Open Trim$(SQL), Conn, adOpenDynamic, adLockOptimistic Set SelectSQL = rst msg = "查询到" & rst.RecordCount & " 条记录! "End IfElsemsg = "SQL 语句有误： " & SQLEnd IfFinally_Exit:Set rst = NothingSet Conn = NothingExit FunctionErr