物资管理信息系统设计数据库课程设计

课程设计报告书题目： 物资管理信息系统 院 系： 专业班级： 组长学号、姓名： 其它组员学号、姓名： 指导教师： 2009年 4月 7 日目 录一、概述- 3 -1.1、项目背景：- 3 -1.2、编写目的：- 3 -1.3、项目名称：- 3 -1.4、开发环境：- 3 -二、需求分析- 3 -2.1、问题的提出：- 4 -2.2、需完成的功能：- 4 -三、数据库设计的过程- 4 -3.1、概念模型设计- 4 -3.2、逻辑数据库设计- 7 -3.3、规范化理论的应用- 7 -3.4、物理数据库设计- 7 -四、软件功能设计- 9 -4.1、系统功能分析- 9 -4.2 系统功能模块设计- 10 -五、程序代码及其它- 10 -5.1主窗口的设计- 10 -5.2 用户管理模块的设计- 13 -5.3 仓库管理模块的实现- 16 -5.4 物资管理- 24 -5.5 物质查询模块设计- 28 -5.6 数据统计模块设计- 34 -六、设计心得- 37 -七、查考文献- 38 -八、本项目组员分工及评分情况：- 38 -一、 概述1.1、项目背景： 物资管理信息系统是企业管理的一个重要内容，随着时代的进步，企业也逐渐变的庞大起来。如何管理好企业内部物质的信息，成为企业管理中的一个大问题。在这种情况下，一个可以规范化，自动化的物资管理信息系统就显得非常必要。最初的物资管理，都是靠人力来完成的。当企业规模比较小的时候，人力可以完成，随着企业的规模越来越大，企业的进出物资数量也越来越多，依然维持着人力进行物资管理，必然会造成工作效率低，工作错误增高的问题。物资管理信息系统就是把分散的企事业单位的职工信息实行统一，集中，规范的收集管理，建立分类编号管理，电脑存储查询以及防火，防潮，防蛀，防盗等现代化，专业化的管理系统，为企事业单位和职工解除后顾之忧。1.2、编写目的：物资管理信息系统是为了配合相关部门对自身本部门物资的管理，充分运用现代化信息技术手段高效、快捷的工作而开发的软件系统。物资管理信息系统为企事业单位提供信息咨询，信息检索，信息存取等服务。1.3、项目名称： 物资管理信息系统.1.4、开发环境： 本系统使用VB6.0作为前台设计和Access管理数据库二、需求分析2.1、问题的提出： 物资管理是一般工业、商业企业生产管理环节中主要的一环，需要对物资基本信息管理，对物质调配信息等进行完整的监控，这样才能跟有效地利用物资。物资入库的时候首先需要登记物质的基本信息，包括物资的种类、名称、型号、单位、单价等；然后登记入、出库信息，包括物资的基本信息，入、出库人，经办人，物质数量，材料说明的等；对于仓库中的物资，即对剩余物资进行查询和统计。2.2、需完成的功能：l 有关物资基本信息的输入、包括物资编号、物资名称、规格型号、种类和计量单位等；l 物资基本信息的查询、修改；l 入库信息的输入、查询、修改；l 出库信息的输入、查询、修改；l 物质剩余物资的查询、预览，统计；三、数据库设计的过程3.1、概念模型设计 用户的需求具体体现在各种的信息的提供、保存、更新和查询等方面。这就要求数据库能够充分满足各种输入信息和输出信息。开发者要收集基本数据、数据结构以及数据处理的流程，组成一份详尽的数据字典。为下一步的数据库具体设计做好充分的准备。再仔细分析物资管理信息系统需求的基础上，将得到以下如图A1所示的本系统所处理的数据流程。 经过上面的分析可以提炼出以下几个实体：入库信息、出库信息、库存管理；他们的实体图如下：数 量进库单号码材料编号发票号码入库日期入库信息 经办人保管人入库信息实体图出库类型出库单号码材料编号工程号码出库日期出库信息 经办人保管人出库信息实体图工程号码材料编号材料修复余额统计材料维修库存信息 库存信息实体图在找出所有实体的基础上，需要进一步的分析各个实体之间的关系，经过分析可以的得到所有实体的ER图；以下再通过ER图来说明这些实体之间的关系：库存信息出库信息销 售入库信息登 记物质管理信息的ER图3.2、逻辑数据库设计 针对物资管理信息系统的需求。通过对物资调配工作过程的内容和数据过程的分析，将设计如下面的数据项和数据结构：用户信息表，包括的数据项有：用户名、密码；入库物资信息表，包括的数据项有：进库单号码、材料编号、数量、单价。入库登记表，包括的数据项有：进库单号码、发票号码、进库日期、经办人、保管人。物资信息表，包括的数据项有：材料编号、材料名称、单位、型号、数量、单价。出库物资信息表，包括的数据项有：出库单号码、材料编号、数量、单价出库登记表，包括的数据项有：出库单号码、发票号码、出库日期、经办人、保管人、出库类型、工程号码。3.3、规范化理论的应用 在以上的逻辑分析中，我们不难得出这些关系转化都在第三范式中。3.4、物理数据库设计在完成了数据库的逻辑设计之后，即可开始数据库的物理设计。基于以上数据库逻辑设计，考虑到程序设计的简易性及通用性，本物资管理信息系统采用的Access 2003数据库，并在其下创建了6个数据表。 物资信息表Goods字段名 数据类型 字段长度与格式 关键字 材料编号 文本 15 是 材料名称 文本20否 单位 文本20否 型号 文本15否 数量 数字长整型否 备注 文本 50 否 入库物资信息表Inlibdetail字段名 数据类型 字段长度与格式 关键字 进库单号码 文本 15 是 材料编号 文本 15是 数量 数字长整型否 单价 货币 Yyy.0000否 备注 文本 50 否 入库登记表Inlib字段名 数据类型 字段长度与格式 关键字 进库单号码 文本 15 是 发票号码 文本 15是 进库日期 日期型 Yyyy-mm-dd否 经办人 文本 20否 保管人 文本 20否出库物资信息表Outlibdetail字段名 数据类型 字段长度与格式 关键字 出库单号码 文本 15 是 材料编号 文本 15是 数量 数字长整型否 单价 货币 Yyy.0000否 备注 文本 50 否 用户信息表Used字段名 数据类型 字段长度与格式 关键字 用户名 文本 20 是 密码 文本 15否出库登记表Outlib字段名 数据类型 字段长度与格式 关键字 出库单号码 文本 15 是 发票号码 文本 15是 进库日期 日期型长整型否 经办人 文本 20否 保管人 文本 20否 出库类型文本 15否工程号 文本 15否 四、软件功能设计4.1、系统功能分析系统开发的总体设计任务就是实现物质信息的系统化，规范化和自动化。系统功能分析是在系统开发总体任务的基础上进行的，本系统中需要的的主要功能有：u 添加用户；u 删除用户；u 修改用户密码；u 添加入库信息；u 编辑入库信息；u 添加出库信息；u 编辑出库信息；u 材料信息；u 材料入库信息查询；u 材料出库信息查询；u 仓库剩余材料信息查询；u 仓库中所有剩余材料价格信息查询；u 材料销售信息统计；u 设备修理成本统计；u 设备改造成本统计；u 工程成本的统计；4.2 系统功能模块设计五、程序代码及其它 5.1主窗口的设计Option ExplicitPrivate Sub MDIForm_Activate() Me.StatusBar1.Panels(3).Text = 物资管理信息系统 Me.Caption = StatusBar1.Panels(3).TextEnd SubPrivate Sub MDIForm_Load() 放置背景文字 Picture1.Picture = LoadPicture(App.Path & back.jpg)End SubPrivate Sub MDIForm_Resize() On Error GoTo err1 Picture1.ScaleTop = Me.Top Picture1.ScaleLeft = Me.Left Picture1.ScaleWidth = Me.ScaleWidth Picture1.ScaleHeight = Me.ScaleHeight - StatusBar1.Height Exit Suberr1: Exit SubEnd SubPrivate Sub mnuExit_Click() Unload MeEnd SubPrivate Sub mnuInadd_Click() StatusBar1.Panels(3).Text = 添加进库单 InAdd.Show 1End SubPrivate Sub mnuInedit_Click() StatusBar1.Panels(3).Text = 编辑进库单 InUpdate.Show 1End SubPrivate Sub mnuMaterailInfo_Click() StatusBar1.Panels(3).Text = 材料基本信息管理 MaterialManage.Show 1End SubPrivate Sub mnuOutadd_Click() StatusBar1.Panels(3).Text = 添加出库单 OutAdd.Show 1End SubPrivate Sub mnuOutedit_Click() StatusBar1.Panels(3).Text = 编辑出库单 OutUpdate.Show 1End SubPrivate Sub mnuPrice_Click() StatusBar1.Panels(3).Text = 查询材料的最高价和最低价 PriceQuery.Show 1End SubPrivate Sub mnuPriceRepair_Click() StatusBar1.Panels(3).Text = 统计修理成本 TotalRepair.Show 1End SubPrivate Sub mnuPriceUpdate_Click() StatusBar1.Panels(3).Text = 统计改造成本 TotalRevise.Show 1End SubPrivate Sub mnuPriceWork_Click() StatusBar1.Panels(3).Text = 统计特定工程的成本 TotalProject.Show 1End SubPrivate Sub mnuQin_Click() StatusBar1.Panels(3).Text = 查询材料入库信息 InQuery.Show 1End SubPrivate Sub mnuQout_Click() StatusBar1.Panels(3).Text = 查询材料出库信息 OutQuery.Show 1End SubPrivate Sub mnuQsub_Click() StatusBar1.Panels(3).Text = 查询仓库余额信息 Surplus.Show 1End SubPrivate Sub mnuRetail_Click() StatusBar1.Panels(3).Text = 统计销售额 TotalSale.Show 1End SubPrivate Sub mnuUserAdd_Click() StatusBar1.Panels(3).Text = 添加用户 UserAdd.Show 1End SubPrivate Sub mnuUserDelete_Click() StatusBar1.Panels(3).Text = 删除用户 UserDel.Show 1End SubPrivate Sub mnuUserUpdata_Click() StatusBar1.Panels(3).Text = 修改密码 UserUpdate.Show 1End SubPrivate Sub munchuku_Click()StatusBar1.Panels(3).Text = 打印物质出库报表DataReport2.ShowDataReport2.PrintReport TrueEnd SubPrivate Sub munruku_Click()StatusBar1.Panels(3).Text = 打印物质入库报表DataReport1.Show 1DataReport1.PrintReportEnd Sub 5.2 用户管理模块的设计用户管理模块主要是实现l 修改密码；l 添加用户；l 删除用户；以下便是部分代码的实现/添加用户的代码Private Sub Command1_Click() If Trim(Text1.Text = ) Then MsgBox 用户名不能为空，请输入用户名！, vbOKOnly + vbExclamation, 警告 Text1.SetFocus Exit Sub ElseSet Myrs = Mydb.OpenRecordset(select * from 登录 where 用户名= & Trim(Text1) & ) While (Myrs.EOF = False)If Trim(Myrs.Fields(0) = Trim(Text1) Then MsgBox 用户已经存在，请重新输入用户名！, vbOKOnly + vbExclamation, 警告 Text1.SetFocus Text1.Text = Text2.Text = Text3.Text = Exit Sub Else Myrs.MoveNext End If Wend End If If Trim(Text2.Text) Trim(Text3.Text) Then MsgBox 两次输入的密码不一样，请确认！, vbOKOnly + vbExclamation, 警告 Text2.SetFocus Text2.Text = Text3.Text = Exit Sub Else If Text2.Text = Then MsgBox 密码不能为空！, vbOKOnly + vbExclamation, 警告 Text2.SetFocus Text2.Text = Text3.Text = Else Myrs.AddNew Myrs.Fields(0) = Trim(Text1.Text) Myrs.Fields(1) = Trim(Text2.Text) Myrs.Update Myrs.Close Mydb.Close MsgBox 添加用户成功！, vbOKOnly + vbExclamation, 信息提示 Unload Me End If End IfEnd SubPrivate Sub Command2_Click() Mydb.Close Myws.Close Unload Me Project.StatusBar1.Panels(2).Text = 就绪End SubPrivate Sub Form_Load() Set Myws = DBEngine.Workspaces(0) Set Mydb = Myws.OpenDatabase(App.Path + logo.mdb)End SubPrivate Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then Text2.SetFocus End IfEnd SubPrivate Sub Text2_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then Text3.SetFocus End IfEnd SubPrivate Sub Text3_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then Command1.SetFocus End IfEnd Sub/修改用户密码Private Sub Command1_Click() Set Myrs = Mydb.OpenRecordset(select * from 登录 where 用户名= + Trim(List1) + and 密码= + Trim(Text1) + ) If Myrs.EOF = True Then MsgBox 旧密码不正确，请重新输入！, vbOKOnly + vbExclamation, 警告 Text1.SetFocus Text1.Text = Text2.Text = Text3.Text = Exit Sub End If If Trim(Text2.Text) Trim(Text3.Text) Then MsgBox 两次输入的密码不一样，请确认！, vbOKOnly + vbExclamation, 警告 Text2.SetFocus Text2.Text = Text3.Text = Exit Sub Else If Text2.Text = Then MsgBox 密码不能为空！, vbOKOnly + vbExclamation, 警告 Text2.SetFocus Text2.Text = Text3.Text = Else Myrs.Edit Myrs.Fields(1) = Trim(Text2.Text) Myrs.Update Myrs.Close Mydb.Close MsgBox 密码修改成功！, vbOKOnly + vbExclamation, 信息提示 Unload Me End If End IfEnd SubPrivate Sub Command2_Click() Mydb.Close Myws.Close Unload Me Project.StatusBar1.Panels(2).Text = 就绪End SubPrivate Sub Form_Load() Dim mrc As Recordset Set Myws = DBEngine.Workspaces(0) Set Mydb = Myws.OpenDatabase(App.Path + logo.mdb) Set mrc = Mydb.OpenRecordset(select * from 登录) List1.Clear mrc.MoveFirst Do While Not mrc.EOF List1.AddItem Trim(mrc.Fields(0) mrc.MoveNext Loop List1.ListIndex = 0 mrc.CloseEnd Sub5.3 仓库管理模块的实现l 入库信息；l 出库信息； 以下便是部分代码的实现/入库信息 Private Sub cmdAdd_Click() Dim count As Integer, i As Integer Dim SQLstring As String Dim mrc As Recordset, mrcc As Recordset Dim Num As Integer, price As Single If Text1.Text = Then MsgBox 进库单号码不能为空，请填写！, vbOKOnly + vbExclamation, 警告 Text1.SetFocus Exit Sub End If While Myrs1.EOF = False If Myrs1.Fields(进库单号码) = Text1.Text Then MsgBox 此进库单号码已经存在，请认真核查！, vbOKOnly + vbExclamation, 警告 Text1.Text = Text2.Text = Text3.Text = Text4.Text = Text5.Text = Text1.SetFocus Exit Sub Else Myrs1.MoveNext End If Wend If Text2.Text = Then MsgBox 发票号码不能为空，请填写！, vbOKOnly + vbExclamation, 警告 Text2.SetFocus Exit Sub End If If Text3.Text = Then MsgBox 进库日期不能为空，请填写！, vbOKOnly + vbExclamation, 警告 Text3.SetFocus Exit Sub Else If IsDate(Text3.Text) Then Text3 = Format(Text3, yyyy-mm-dd) Else MsgBox 进库时间格式应为：yyyy-mm-dd, vbOKOnly + vbExclamation, 警告 Text3.Text = Text3.SetFocus Exit Sub End If End If If MSFlexGrid1.Rows 1 Then Myrs1.AddNew Myrs1.Fields(进库单号码) = Text1.Text Myrs1.Fields(发票号码) = Text2.Text Myrs1.Fields(进库日期) = Text3.Text If Text4.Text = Then Myrs1.Fields(经办人) = Null Else Myrs1.Fields(经办人) = Text4.Text End If If Text5.Text = Then Myrs1.Fields(保管人) = Null Else Myrs1.Fields(保管人) = Text5.Text End If Myrs1.Update count = MSFlexGrid1.Rows For i = 1 To (count - 1) Myrs2.AddNew Myrs2.Fields(进库单号码) = Text1.Text Myrs2.Fields(材料编码) = MSFlexGrid1.TextMatrix(i, 0) Myrs2.Fields(数量) = Val(MSFlexGrid1.TextMatrix(i, 4) If MSFlexGrid1.TextMatrix(i, 5) = Then Myrs2.Fields(单价) = Null Else Myrs2.Fields(单价) = Val(MSFlexGrid1.TextMatrix(i, 5) End If Myrs2.Fields(金额) = Val(MSFlexGrid1.TextMatrix(i, 6) If MSFlexGrid1.TextMatrix(i, 7) = Then Myrs2.Fields(备注) = Null Else Myrs2.Fields(备注) = MSFlexGrid1.TextMatrix(i, 7) End If Myrs2.Update SQLstring = select * from msurplus where 材料编码= & MSFlexGrid1.TextMatrix(i, 0) & Set mrc = Mydb.OpenRecordset(SQLstring) 如果材料余额表中没有当前材料编码的记录，就添加 If mrc.EOF = True Then mrc.Close SQLstring = select * from msurplus Set mrcc = Mydb.OpenRecordset(SQLstring) mrcc.AddNew mrcc.Fields(材料编码) = MSFlexGrid1.TextMatrix(i, 0) mrcc.Fields(数量) = 0 If MSFlexGrid1.TextMatrix(i, 5) = Then mrcc.Fields(单价) = Null Else mrcc.Fields(单价) = MSFlexGrid1.TextMatrix(i, 5) End If mrcc.Fields(金额) = 0 mrcc.Fields(备注) = Null mrcc.Update mrcc.Close Else mrc.Close End If Num = Val(MSFlexGrid1.TextMatrix(i, 4) price = Val(MSFlexGrid1.TextMatrix(i, 6) SQLstring = update msurplus set 数量=数量+ + CStr(Num) + ,金额=金额+ + CStr(price) + where 材料编码= & MSFlexGrid1.TextMatrix(i, 0) & Mydb.Execute (SQLstring) Next i Unload Me Project.StatusBar1.Panels(2).Text = 就绪 Exit SubElseMsgBox 进库单中必须至少包含一项材料明细。 & vbCrLf & 此进库单中未填写材料信息，请填写。, vbOKOnly + vbExclamation, 警告 Exit Sub End IfEnd SubPrivate Sub cmdAddRecord_Click() Project.StatusBar1.Panels(2).Text = 添加进库信息 Info.Show 1End SubPrivate Sub cmdEditRecord_Click() Dim c As Integer Dim r As Integer c = 1 r = 1 Text6.Left = MSFlexGrid1.Left + MSFlexGrid1.ColPos(c) Text6.Top = MSFlexGrid1.Top + MSFlexGrid1.RowPos(r) If MSFlexGrid1.Appearance = 1 Then Text6.Left = Text6.Left + 2 * Screen.TwipsPerPixelX Text6.Top = Text6.Top + 2 * Screen.TwipsPerPixelY End If Text6.Width = MSFlexGrid1.ColWidth(c) Text6.Height = MSFlexGrid1.RowHeight(r) Text6.Visible = True Text6.SetFocus Text6.Text = MSFlexGrid1.TextEnd SubPrivate Sub Form_Activate() Project.StatusBar1.Panels(2).Text = 添加进库单End SubPrivate Sub Form_Load() MSFlexGrid1.Cols = 8 MSFlexGrid1.Rows = 1 MSFlexGrid1.Row = 0 MSFlexGrid1.Col = 0 MSFlexGrid1.Text = 材料编码 MSFlexGrid1.Col = 1 MSFlexGrid1.Text = 材料名称 MSFlexGrid1.Col = 2 MSFlexGrid1.Text = 规格型号 MSFlexGrid1.Col = 3 MSFlexGrid1.Text = 计量单位 MSFlexGrid1.Col = 4 MSFlexGrid1.Text = 数量 MSFlexGrid1.Col = 5 MSFlexGrid1.Text = 单价 MSFlexGrid1.Col = 6 MSFlexGrid1.Text = 金额 MSFlexGrid1.Col = 7 MSFlexGrid1.Text = 备注 Text6.Visible = False cmdDelRecord.Enabled = False cmdCancel.Enabled = False Text3.Text = Date Set Myws = DBEngine.Workspaces(0) Set Mydb = Myws.OpenDatabase(App.Path + store.mdb) Set Myrs1 = Mydb.OpenRecordset(select * from inlib) Set Myrs2 = Mydb.OpenRecordset(select * from inlibdetail)End Sub/出库信息Private Sub cmdAdd_Click() Dim count As Integer, i As Integer Dim mrc As Recordset Dim SQLstring As String, str As String Dim Num As Integer Dim price As Single If Text1.Text = Then MsgBox 出库单号码不能为空，请填写！, vbOKOnly + vbExclamation, 警告 Text1.SetFocus Exit Sub End If While Myrs1.EOF = False If Myrs1.Fields(0) = Text1.Text Then MsgBox 此出库单号码已经存在，请认真核查！, vbOKOnly + vbExclamation, 警告 Text1.Text = Text2.Text = Text3.Text = Text4.Text = Text5.Text = Text6.Text = Combo1.ListIndex = 0 Text1.SetFocus Exit Sub Else Myrs1.MoveNext End If Wend If Text2.Text = Then MsgBox 发票号码不能为空，请填写！, vbOKOnly + vbExclamation, 警告 Text2.SetFocus Exit Sub End If If Text4.Text = Then MsgBox 出库日期不能为空，请填写！, vbOKOnly + vbExclamation, 警告 Text4.SetFocus Exit Sub Else If IsDate(Text4.Text) Then Text4 = Format(Text4, yyyy-mm-dd) Else MsgBox 出库时间格式应为：yyyy-mm-dd, vbOKOnly + vbExclamation, 警告 Text4.Text = Text4.SetFocus Exit Sub End If End If If MSFlexGrid1.Rows 1 Then Myrs1.AddNew Myrs1.Fields(出库单号码) = Text1.Text Myrs1.Fields(发票号码) = Text2.Text Myrs1.Fields(出库类型) = Combo1.Text If Text3.Text = Then Myrs1.Fields(工程号) = Null Else Myrs1.Fields(工程号) = Text3.Text End If Myrs1.Fields(出库日期) = Text4.Text If Text5.Text = Then Myrs1.Fields(经办人) = Null Else Myrs1.Fields(经办人) = Text5.Text End If If Text6.Text = Then Myrs1.Fields(保管人) = Null Else Myrs1.Fields(保管人) = Text6.Text End If Myrs1.Update count = MSFlexGrid1.Rows For i = 1 To (count - 1) Myrs2.AddNew Myrs2.Fields(出库单号码) = Text1.Text Myrs2.Fields(材料编码) = MSFlexGrid1.TextMatrix(i, 0) Myrs2.Fields(数量) = Val(MSFlexGrid1.TextMatrix(i, 4) If MSFlexGrid1.TextMatrix(i, 5) = Then Myrs2.Fields(单价) = Null Else Myrs2.Fields(单价) = Val(MSFlexGrid1.TextMatrix(i, 5) End If Myrs2.Fields(金额) = Val(MSFlexGrid1.TextMatrix(i, 6) If MSFlexGrid1.TextMatrix(i, 7) = Then Myrs2.Fields(备注) = Null Else Myrs2.Fields(备注) = MSFlexGrid1.TextMatrix(i, 7) End If Myrs2.Update 更新余额库 str = MSFlexGrid1.TextMatrix(i, 0) Num = MSFlexGrid1.TextMatrix(i, 4) price = MSFlexGrid1.TextMatrix(i, 6) SQLstring = update msurplus set 数量=数量- + CStr(Num) + ,金额=金额- + CStr(price) + where 材料编码= & str & Mydb.Execute (SQLstring)Set mrc = mydb.OpenRecordset(select * from msurplus where 材料编码= & str & ) If mrc.Fields(数量) = 0 Then mrc.Delete End If mrc.Close Next i Unload Me Project.StatusBar1.Panels(2)