《进销存管理系统-课程设计报告.docx》由会员分享，可在线阅读，更多相关《进销存管理系统-课程设计报告.docx（26页珍藏版）》请在三一办公上搜索。
1、2007级课程设计报告课题名称：进销存管理系统（盘点管理管理子系统）专 业：班 级： 学 号： 姓 名： 指导教师： 年 月目录1 系统概述12 系统分析2-62.1需求分析2.2业务流程图2.3数据流程图2.4数据词典3 系统设计6-323.1模块结构设计3.2 数据库概念设计3.3 数据库逻辑设计3.4 输出设计3.5 输入设计3.6 代码设计4结语331.系统概述 现代科技技术突飞猛进，在不同的领域要求各异，以前对库存盘点的统计都是手写登记，纸制查看，这样很容易发生错误，导致企事业失去他们所需要的信息，而且会产生错误信息误导决策，现在为了方便决策者了解到更加确切的信息和资料，所以开发这样
2、的系统方便决策者查询信息及网上浏览，使各方面的信息都能够正确及时。系统的功能是将该企业的所有库存盘点信息进行电子统计,根据不同的需求建立各种的报表,便于企事业在网上查询库存的各方面的信息情况,方便决策者了解市场,也能够方便管理者对库存盘点的信息进行不同的统计。库存盘点管理管理子系统主要实现的是库存盘点信息的录入，修改，查询以及盘点信息的打印等功能，为此，若要实现各方面的需求，系统的数据必须具有高度的完整性和准确性，这就要求系统的高度安全性，可维护性，可靠性及灵活性。比如库存管理系统的管理，管理员在录入商品的库存情况的时候或是数据库出现异常而产生差错，可能会影响决策者从网上查询这些商品的库存情况
3、，这就要求系统具有高度的安全性，可维护性和可靠性；灵活性指的是系统要具有强大的功能以适应不同层次的客户不同的需求。另外，系统的操作界面要求简便，通俗，以便于操作。用户对系统的信用，如果因为一次的错误就会导致一连串的信息错误，所以保证信息的可靠性十分必须的，这样才能使系统得到用户的信赖和支持。这样的系统需要保证可靠性,避免给决策者提供虚假的信息,更确保各部门通过浏览该系统,进行相应的需求操作。因此，随着技术发展，企业采用库存盘点信息化已成为趋势及必然。2.系统分析2.1需求分析2.1.1需求分析本系统通过简单的数据库的操作，实现企事业单位的库存信息的管理。库存盘点管理管理子系统是一个小型的信息管
4、理系统，数据库采用SQL Server 2005。使用户和项目人员明确系统的功能、应用范围。本系统具有以下功能：1：实现库存盘点管理的信息化管理。 2：实现库存盘点管理的基础要求，如信息添加，查看及删除。操作方便简单，且数据稳定性强。 3：方便的库存信息查询功能，支持多条件查询。 4：数据计算自动完成，尽量减少人工干预。5：强大的报表打印功能。2.1.2开发及运行环境 1 硬件环境：CPU：C1.7G以上，内存在256M以上。2 软件环境：Windows XP操作系统，Microsoft SQL Servers数据库系统。软件编程使用Microsoft Visual Basic 6.0 中文版
5、。12.1.3程序流程 本库存盘点管理管理子系统使用如下的流程进行登陆以及其他的操作：开始界面是始于登陆界面“登录（登录.frm）”，当用户键入用户名和密码的时候，系统自动到所对应的数据库“用户信息表”中进行用户验证。如果输入正确则进入系统主界面，就可以进入到主操作菜单窗体“系统(系统.frm)”中进行操作。在主操作菜单窗体“系统(系统.frm)”中，用户可以对数据库中的商品信息、供应商信息及客户信息等基本信息进行包括：添加，查询，修改等操作，并能够进行入库管理，出库管理及库存盘点。此外，可在“清单报表管理窗口”中进行相应的报表打印。主界面入下图所示：22业务流程图库存盘点流程如下：2.3数据
6、流程图2.4数据字典4.1.数据元素条目数据元素条目总编号：1-100编 号：100名称：库存单编号编码说明：别名：kcdb * * 说明：库存单编码商品编号数据值类型：离散库存编号类型：数字库存序号长度：10有关数据：库存卡4.2数据结构条目数据结构条目名称：商品入库卡总编号：2-03说明：商品入库时填写的卡片编 号：006结构：有关的数据流，数据存储入库序号新商品入库表入库编号商品库存表商品编号商品名称规格数量：计量单位每年约2000份数量单价总金额入库日期经手人备注信息4.3.数据流条目数据流条目名称：库存信息表总编号：3-02简要说明：库存信息的汇总编 号：005数据流来源：账面库存数
7、据流去向：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说明：公布库存盘点信息，并说明库存情况编 号：P2.1.5输入：A1-P2.1.5输出：P2.1.5-盘点明细表处理：查A1（库存明显表），打印库存信息表及盘点信息表，表现好的可以保持，表现不令人满意的可加以
8、调整，并注明表现不好的地方，要求改进。4.6外部实体条目外部实体条目名称：员工总编号：06-001说明：编 号：001输出数据流：个数：约2000个输入数据流：P2.1,5员工（工资表）2.5程序运行流程图清单报表管理商品信息管理窗口验证失败，返回重新登陆登陆成功，进入操作主界面！用户登陆基本信息管理窗体供应商信息管理窗口客户信息管理窗口登陆窗体：（系统(系统.frm)）判断是否登陆成功。数据库数据：用户信息表验证登录库存管理窗口系统管理窗口退出窗口入库管理窗口出库管理窗口盘点库存管理窗口用户信息添加窗口用户密码修改窗口用户信息查询窗口数据备份与修改窗口库存清单报表预览窗口库存清单报表打印窗口
9、3.系统设计3.1模块结构设计该系统的总体结构设计如下图所示：人员信息档案管理系统包括基本信息管理，销售信息管理，库存信息管理，数据报表管理和系统管理等部分。其中，基本信息管理中可以对商品，供应商，客户基本信息进行添加，修改，查询和删除等操作，如图：库存管理中可以实现库存信息，入库单信息，出库单信息，盘点清单信息的录入，修改，查询等操作，如图：数据报表管理可以实现盘点清单的预览及打印等操作，如图：系统管理中主要是用户查询，添加用户，修改密码，数据备份及恢复等的操作，如图： 3.2数据库概念设计3.3数据库逻辑设计1商品信息表字段名数据类型长度是否允许空说明商品编号varchar10否主键，惟一
10、标识商品记录商品名称varchar50是单价varchar50是计量单位varchar10是产地varchar50是供应商名称varchar50是备注信息text16是2供应商信息表字段名数据类型长度是否允许空说明供应商编号varchar10否主键，惟一标识供应商记录供应商名称varchar50是供应商单位全称地址varchar50是邮政编码varchar10是联系电话varcgar20是企业网址varchar50是联系人varchar50是联系人电话varcgar20是开户银行varchar50是银行账号varchar13是备注信息text16是3客户信息表字段名数据类型长度是否允许空说明客
11、户编号varchar10否主键，惟一标识客户记录客户名称varchar50是客户单位全称地址varchar50是邮政编码varchar6是联系电话varchar20是企业网址varcgar30是联系人varchar50是联系人电话varcgar20是开户银行varchar50是银行账号varchar20是备注信息text16是4商品入库信息表字段名数据类型长度是否允许空说明入库序号decimal9否主键，惟一标识商品入库记录商品编号varchar10否外键，对应商品信息表中商品编号商品名称varchar50是供应商编号varchar10否外键，对应供应商信息表中供应商编号供应商名称varcha
12、r50是规格varchar30是计量单位varchar10是数量varchar10是单价varchar50是总金额varchar50是日期datetime8是经手人varchar20是备注信息text16是修改人varchar20是修改日期datetime8是5商品库存信息表字段名数据类型长度是否允许空说明库存序号decimal9否主键，惟一标识商品库存记录库存编号varchar30是库存名称varchar50是商品编号varchar10否外键，对应商品信息表中商品编号规格varchar30是计量单位varchar10是数量varchar10是单价varchar50是总金额varchar50是
13、日期datetime8是备注信息text16是6商品出库信息表字段名数据类型长度是否允许空说明出库序号decimal9否主键，惟一标识商品入库记录出库编号varchar10是商品编号varchar10否外键，对应商品信息表中商品编号商品名称varchar50是规格varchar30是计量单位varchar10是数量varchar10是单价varchar50是总金额varchar50是出库日期datetime8是提货单位varchar50是提货人varchar50是经手人varchar20是备注信息text16是修改人varchar20是修改日期datetime8是7库存明细表字段名数据类型长度
14、是否允许空说明盘点编号varchar10否主键，惟一标识商品盘点记录商品编号varchar10否外键，对应商品信息表中商品编号商品名称varchar50是规格varchar30是计量单位varchar10是单价varchar50是账面库存varchar50是实盘库存varchar50是差异数varchar50是盘点人员varchar50是盘点日期datetime8是备注信息text16是8用户信息表字段名数据类型长度是否允许空说明用户编号varchar10否主键用户密码varchar10否用户名称varchar50是备注信息text16是3.4输出设计和输入设计3.4.1登录界面：3.4.2主
15、界面：3.4.3商品信息管理的输出界面如图所示： 3.4.4入库单录入修改的输出界面如图所示：3.4.5入库单信息查询的输出界面如图所示：3.4.6盘点清单录入修改的输出界面如图所示：3.4.7数据库备份与恢复：3.4.8盘点清单打印界面：3.5代码设计3.5.1登录Option ExplicitDim SQL As StringDim msg As StringDim LoginSucceeded As BooleanDim 用户名称 As StringPrivate Sub Command1_Click() Dim rst As ADODB.Recordset Dim password A
16、s String 判断用户是否存在 用户名称 = Trim(Text1.Text) 取出用户的ID SQL = select * from 用户信息表 where 用户名称= & 用户名称 & Set rst = SelectSQL(SQL, msg) If rst.RecordCount 0 Then password = Trim(rst.Fields(1) 取出该用户的密码 rst.Close Else MsgBox (数据库操作错误！) Exit Sub End If 判断密码是否正确 If password = Trim(Text2.Text) Then LoginSucceeded
17、 = True 系统.Show Unload Me Else MsgBox (密码错误！) LoginSucceeded = False End If End SubPrivate Sub Command2_Click() 设置全局变量为 false 不提示失败的登录 LoginSucceeded = False Unload MeEnd SubPrivate Sub Form_Load()登录.Enabled = TrueEnd SubPrivate Sub Form_Unload(Cancel As Integer) LoginSucceeded = False Unload MeEnd
18、Sub3.5.2.1进入系统主界面后，对系统进行操作，各代码如下： 3.5.1在基本信息管理界面中，各按钮的代码如下（以“商品信息管理”为例）:Option ExplicitDim 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 = Then MsgBox 商品编号不允许为空！ End If SQL =
19、SELECT * FROM 商品信息表 Set rs1 = SelectSQL(SQL, msg) 新增商品 rs1.AddNew rs1.Fields(商品编号) = Text1.Text rs1.Fields(商品名称) = Text2.Text rs1.Fields(单价) = Text3.Text rs1.Fields(单位) = Combo1.Text rs1.Fields(产地) = Text4.Text rs1.Fields(供应商名称) = Combo2.Text rs1.Fields(备注信息) = Text5.Text rs1.Update MsgBox 添加数据成功！ 关
20、闭数据集对象 rs1.Close Unload Me 商品信息管理.ShowEnd SubPrivate Sub Command2_Click()商品信息管理.Hide系统.ShowEnd SubPrivate Sub Command3_Click()查询操作 Call LoadData 装载数据 Call ShowData 显示数据End SubPrivate Sub ShowData()在控件中显示数据 如果存在记录 为控件赋值 SQL = SELECT * FROM 商品信息表 Set rs = SelectSQL(SQL, msg) Set Me.DataGrid1.DataSourc
21、e = rs If rs.RecordCount 0 Then DataGrid1.Refresh End IfEnd SubPrivate Sub LoadData() 查询商品信息 SQL = SELECT * FROM 商品信息表 Set rs = SelectSQL(SQL, msg) Set Me.DataGrid1.DataSource = rs DataGrid1.Refresh rs.UpdateEnd SubPrivate Sub ControlClear()重置控件 Me.Text1.Text = Me.Text2.Text = Me.Text3.Text = Me.Tex
22、t4.Text = Me.Text5.Text = Me.Combo1.Text = Me.Combo2.Text = End SubPrivate Sub Command4_Click()删除操作 On Error GoTo ErrMsg 错误处理If rs.RecordCount 0 Then msg = MsgBox(删除该条记录吗?, vbYesNo) If msg = vbYes Then rs.Delete 删除数据 Call LoadData 重新装载数据 清空控件 Call ControlClear 设置控件Enable值为不可用 MsgBox (成功删除的数据!) End I
23、f Else MsgBox (没有可删除的数据!) End If Exit SubErrMsg: 报告出错信息 MsgBox Err.Description, vbExclamation, 出错End SubPrivate Sub Form_Load()Combo1.AddItem (瓶)Combo1.AddItem (公斤)Combo1.AddItem (袋)Combo2.AddItem (吉良集团)Combo2.AddItem (吉林米业)Combo2.AddItem (宏基有限公司)Combo2.AddItem (光华企业)End Sub3.5.3.1在库存信息查询界面中，各按钮的代码如
24、下:Private Sub Command1_Click()查询操作 Dim colName As String 保存所选择的查询条件 Dim colValue As String 保存所要查询具体的值 Dim strWhere As String colName = Combo1.Text 取出条件的值 colValue = Text1.Text 取出所要查询的值 strWhere = where & colName & like % & colValue & % SQL = select * from 商品库存信息表 & strWhere Set rs = SelectSQL(SQL, m
25、sg) If rs.RecordCount 0 Then Set DataGrid1.DataSource = rs Else Set rs = Nothing End IfEnd SubPrivate Sub Command2_Click()退出操作库存信息查询.Hide系统.ShowEnd SubPrivate Sub Form_Load()Combo1.AddItem (库存序号)Combo1.AddItem (库存编号)Combo1.AddItem (商品编号)Combo1.AddItem (商品名称)Combo1.AddItem (日期)Combo1.ListIndex = 0End
26、 Sub3.5.3.2.1在入库单录入修改界面中，各按钮的代码如下:Option ExplicitDim 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 = Then MsgBox 入库序号不允许为空！ End If SQL = SELECT * FROM 商品入库信息表 Set rs1 = Select
27、SQL(SQL, msg) 新增商品 rs1.AddNew rs1.Fields(入库序号) = Text1.Text rs1.Fields(入库编号) = Text2.Text rs1.Fields(商品编号) = Text5.Text rs1.Fields(商品名称) = Text6.Text rs1.Fields(供应商编号) = Text4.Text rs1.Fields(供应商名称) = Combo1.Text rs1.Fields(规格) = Text7.Text rs1.Fields(计量单位) = Combo2.Text rs1.Fields(数量) = Text8.Text
28、rs1.Fields(单价) = Text9.Text rs1.Fields(总金额) = Text10.Text rs1.Fields(日期) = Me.DTPicker1.Value rs1.Fields(经手人) = Text3.Text rs1.Fields(备注信息) = Text11.Text rs1.Fields(修改人) = Text12.Text rs1.Fields(修改日期) = Me.DTPicker2.Value rs1.Update MsgBox 添加数据成功！ 关闭数据集对象 rs1.Close Unload Me 入库单录入修改.ShowEnd SubPriva
29、te Sub Command4_Click()入库单录入修改.Hide系统.ShowEnd SubPrivate Sub Command2_Click()查询操作 Call LoadData 装载数据 Call ShowData 显示数据End SubPrivate Sub ShowData()在控件中显示数据 如果存在记录 为控件赋值 SQL = SELECT * FROM 商品入库信息表 Set rs = SelectSQL(SQL, msg) Set Me.DataGrid1.DataSource = rs If rs.RecordCount 0 Then DataGrid1.Refre
30、sh End IfEnd SubPrivate Sub LoadData() 查询商品入库信息 SQL = SELECT * FROM 商品入库信息表 Set rs = SelectSQL(SQL, msg) Set Me.DataGrid1.DataSource = rs DataGrid1.Refresh rs.UpdateEnd SubPrivate Sub ControlClear()重置控件 Me.Text1.Text = Me.Text2.Text = Me.Text3.Text = Me.Text4.Text = Me.Text5.Text = Me.Text6.Text = M
31、e.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 Command3_Click()删除操作 On Error GoTo ErrMsg 错误处理 If rs.RecordCount 0 Then msg = MsgBox(删除该条记录吗?, vbYesNo) If msg = vbYes Then rs.Delete 删除数据 Call LoadD
32、ata 重新装载数据 清空控件 Call ControlClear 设置控件Enable值为不可用 MsgBox (成功删除的数据!) End If Else MsgBox (没有可删除的数据!) End If Exit SubErrMsg: 报告出错信息 MsgBox Err.Description, vbExclamation, 出错End SubPrivate Sub Form_Load()Combo1.AddItem (吉良集团)Combo1.AddItem (吉林米业)Combo1.AddItem (宏基有限公司)Combo1.AddItem (光华企业)Combo2.AddItem
33、 (瓶)Combo2.AddItem (公斤)Combo2.AddItem (袋)End Sub3.5.5.3在修改密码界面中，“确定”按钮的代码如下：Option ExplicitDim SQL As StringDim msg As StringPrivate Sub Command2_Click()退出操作 系统.Enabled = True Unload MeEnd SubPrivate Sub Commandok_Click()确定操作 Dim rst As ADODB.Recordset Dim p1 As String 保存用户的密码 Dim p2 As String 保存用户的
34、新密码 Dim p3 As String 保存用户的确认密码 赋值p1 = Trim(Text1.Text) p2 = Trim(Text2.Text) p3 = Trim(Text3.Text) SQL = select * from 用户信息表 用户名称= & 用户名称 & SQL = SQL & and 用户密码= & p1 & On Error GoTo ErrMsg 出错处理 Set rst = SelectSQL(SQL, msg) If rst.RecordCount 0 Then 如果输入密码正确 检查新密码和确认密码 If (p3 p2) Then MsgBox (两次输入的密码不一致！) Exit Sub End If 接受新的密码
