物资管理信息系统(毕业论文

物资管理信息系统(毕业论文内容摘要：

定条件的数据，包括来自多个表中的数据，就要创建查询。 查询的同时也可以更新或删除多条记录，并对数据执行内嵌或自定义的计算。 如果要简单地直接在某个表中查看、输入 及更改数据，请创建一个窗体。 在打开一个窗体时， Microsoft Access 将从一个或多个表中检索数据，并使用用户在 “ 窗体向导 ” 选择的版面布局或所创建的版面布局，将窗体显示在屏幕上。 如果要分析数据或将数据以特定的方式打印出来，请创建一个报表。 例如，可以打印一份将数据分组并计算数据总和的报表，也可以打印另一份带有各种数据格式的打印邮件标签的报表。 第二章 系统的设计 3． 1 系统的功能结构设计 3． 2 系统的数据库设计 1. 商品表 : 表 : 主界面 系统 物资管理 仓库管理 物资信息查询 数据统计 表 : 表 : 5:Outlib 表 : 6:outlibdetail 表 : 3． 3 界面设计与代码设计 : 代码分析 : Option Explicit Dim Myws As Workspace Dim Mydb As Database Dim Myrs1 As Recordset Dim Myrs2 As Recordset 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 = Then MsgBox 进库单号码不能为空，请填写。 , vbOKOnly + vbExclamation, 警告 Exit Sub End If While = False If (进库单号码 ) = Then MsgBox 此进库单号码已经存在，请认真核查。 , vbOKOnly + vbExclamation, 警告 = = = = = Exit Sub Else End If Wend If = Then MsgBox 发票号码不能为空，请填写。 , vbOKOnly + vbExclamation, 警告 Exit Sub End If If = Then MsgBox 进库日期不能为空，请填写。 , vbOKOnly + vbExclamation, 警告 Exit Sub Else If IsDate() Then Text3 = Format(Text3, yyyymmdd) Else MsgBox 进 库 时 间 格 式 应 为 ： yyyymmdd, vbOKOnly + vbExclamation, 警告 = Exit Sub End If End If If 1 Then (进库单号码 ) = (发票号码 ) = (进库日期 ) = If = Then (经办人 ) = Null Else (经办人 ) = End If If = Then (保管人 ) = Null Else (保管人 ) = End If count = For i = 1 To (count 1) (进库单号码 ) = (材料编码 ) = (i, 0) (数量 ) = Val((i, 4)) If (i, 5) = Then (单价 ) = Null Else (单价 ) = Val((i, 5)) End If (金额 ) = Val((i, 6)) If (i, 7) = Then (备注 ) = Null Else (备注 ) = (i, 7) End If SQLstring = select * from msurplus where 材 料编 码 =39。 amp。 (i, 0) amp。 39。 Set mrc = (SQLstring) 39。 如果材料余额表中没有当前材料编码的记录，就添加 If = True Then SQLstring = select * from msurplus Set mrcc = (SQLstring) (材料编码 ) = (i, 0) (数量 ) = 0 If (i, 5) = Then (单价 ) = Null Else (单价 ) = (i, 5) End If (金额 ) = 0 (备注 ) = Null Else End If Num = Val((i, 4)) price = Val((i, 6)) SQLstring = update msurplus set 数量 =数量 + + CStr(Num) + ,金额 =金额 + + CStr(price) + where 材料编码 =39。 amp。 (i, 0) amp。 39。 (SQLstring) Next i Unload Me (2).Text = 就绪 Exit Sub Else MsgBox 进库单中必须至少包含一项材料明细。 amp。 vbCrLf amp。 此进库单中未填写材料信息，请填写。 , vbOKOnly + vbExclamation, 警告 Exit Sub End If End Sub Private Sub cmdAddRecord_Click() (2).Text = 添加进 库信息 1 End Sub Private Sub cmdCancel_Click() = = = = = End Sub Private Sub cmdClose_Click() Unload Me (2).Text = 就绪 End Sub Private Sub cmdDelRecord_Click() Dim i As Integer, j As Integer = False If 1 Then If MsgBox(确认要删除这条记录 吗。 , vbOKCancel + vbExclamation, 警告 ) = vbOK Then i = = (i, 0) = (i, 0) = = (i, 1) = (i, 1) = = (i, 2) = (i, 2) = = (i, 3) = (i, 3) = = (i, 4) = (i, 4) = = (i, 5) = (i, 5) = = (i, 6) = (i, 6) = = (i, 7) = (i, 7) = For j = i To ( 2) (j, 0) = (j + 1, 0) (j, 1) = (j + 1, 1) (j, 2) = (j + 1, 2) (j, 3) = (j + 1, 3) (j, 4) = (j + 1, 4) (j, 5) = (j + 1, 5) (j, 6) = (j + 1, 6) (j, 7) = (j + 1, 7) Next j = 1 If = 1 Then = False End If End If End If End Sub Private Sub cmdEditRecord_Click() Dim c As Integer Dim r As Integer c = 1 r = 1 = + (c) = + (r) If = 1 Then = + 2 * = + 2 * End If = (c) = (r) = True = End Sub Private Sub Form_Activate() (2).Text = 添加进库单 End Sub Private Sub Form_Load() = 8 = 1 = 0 = 0 = 材。