管理物品采购管理系统源代码.docx

1、管理物品采购管理系统源代码 管理物品采购管理系统源代码数据库原理与应用 课程设计 设计题目: 物品采购管理 院 系: 信息工程学院 班 级: 组 别: 组 长: 组 员: 起止日期: 指导教师: 源代码: 物品添加模块程序代码 修改用户密码程序 Private Sub Command1_Click() Adodc1.RecordSource = frmLogin.Adodc1.RecordSource Adodc1.RefreshSet Text4.DataSource = Adodc1 Text4.DataField = 密码 If Text1 = Then MsgBox 请输入原密码, ,

2、 修改密码 Exit Sub ElseIf Text1.Text Adodc1.Recordset.Fields(密码) Then MsgBox 原密码错误, , 修改密码 Exit Sub ElseIf Text2 = Or Text3 = Then MsgBox 请输入新密码, , 修改密码 Exit Sub ElseIf Text2 Text3 Then MsgBox 密码不一致, , 修改密码 Exit SubElse Text4.Text = Text2.Text Adodc1.Recordset.MoveFirst MsgBox 密码修改成功, , 修改密码 Unload Me E

3、nd If End Sub 5.2.3入库模块的实现 Private Sub Command1_Click( ) 设备入库程序 Dim I, J As Integer Dim STR As String If Text1.Text = Or Text2 = Or Combo1.Text = Or Text4 = Or Text5 = Or Text6 = Or Text7 = Then MsgBox 请输入完整信息 Exit Sub Else 将记录存入入库记录表 设备入库表.datPrimaryRS.Recordset.Fields(设备号) = Text1.Text 设备入库表.datPr

4、imaryRS.Recordset.Fields(入库数量) = Text2.Text 设备入库表.datPrimaryRS.Recordset.Fields(入库时间) = Combo1.Text 设备入库表.datPrimaryRS.Recordset.Fields(供应商) = Text4.Text 设备入库表.datPrimaryRS.Recordset.Fields(供应商电话) = Text5.Text 设备入库表.datPrimaryRS.Recordset.Fields(价格) = Text6.Text 设备入库表.datPrimaryRS.Recordset.Fields(采

5、购员) = Text7.Text MsgBox 已经成功入库 End If 设备入库表.Adodc1.RecordSource = select * from 现有库存表 where 设备号= & Text1.Text & 设备入库表.Adodc1.Refresh 设备入库表.DataGrid1.Refresh If 设备入库表.Adodc1.Recordset.RecordCount 0 Then 将记录加入现有库存表中 设备入库表.Text9.Text = CInt(设备入库表.Text9.Text) + CInt(Text2.Text)设备入库表.Text9.Refresh J = 设备

6、入库表.Text9 设备入库表.Adodc1.Recordset.MoveFirst 设备入库表.Adodc1.Recordset.Fields.Refresh 设备入库表.DataGrid1.Refresh MsgBox 现有库存量为: & J ElseSTR = 现有库存表中无此设备 & vbCrLf & 请在设备代码表和现有库存表中手动添加记录 MsgBox STR Load frm现有库存表 frm现有库存表.Show Call frm现有库存表.Command1_Click FrmAddNewEqu.Text1.Text = frmInput.Text1.Text FrmAddNew

7、Equ.Text2.Text = frmInput.Text2.Text Load frm设备代码表 frm设备代码表.Show End If End Sub Private Sub cmdDelete_Click( ) 删除入库表中记录 On Error GoTo DeleteErr Dim YesNo As String YesNo = MsgBox(删除, vbYesNo, 删除记录) If YesNo = vbYes Then With datPrimaryRS.Recordset .Delete .MoveNext If .EOF Then .MoveLast End With El

8、se Exit Sub End If DeleteErr: MsgBox Err.Description End Sub Private Sub cmdUpdate_Click( ) 更新纪录程序 On Error GoTo UpdateErr datPrimaryRS.Recordset.UpdateBatch adAffectAll Exit Sub UpdateErr: MsgBox Err.Description End Sub 5.2.4 出库模块实现 Private Sub Command1_Click( )设备出库程序 Dim i, J, k As Integer Dim STR

9、 As String frm设备出库表.Adodc1.RecordSource = select * from 现有库存表 where 设备号= & Text1.Text & frm设备出库表.Adodc1.Refresh frm设备出库表.DataGrid1.Refresh If IsNumeric(Text2) = False Then MsgBox 数量必须是数字 Exit Sub End If If Text1.Text = Or Text2 = Or Combo1.Text = Or Text4 = Or Text5 = Or Text6 = Or Text7 = Then MsgB

10、ox 请输入完整信息 Exit Sub ElseIf frm设备出库表.Adodc1.Recordset.RecordCount 0 Then k = CInt(frm设备出库表.Text9.Text) - CInt(Text2.Text) If k = 0 Then frm设备出库表.Text9.Text = CInt(frm设备出库表.Text9.Text) - CInt(Text2.Text)frm设备出库表.Text9.Refresh J = frm设备出库表.Text9 frm设备出库表.Adodc1.Recordset.MoveFirst frm设备出库表.Adodc1.Recor

11、dset.Fields.Refresh frm设备出库表.DataGrid1.Refresh MsgBox 现有库存量为: & J Else MsgBox 现有库存量不足请输入合适数量 Exit Sub End IfElse STR = 现有库存表中无此设备请检查输入是否正确 MsgBox STR End If End Sub Private Sub cmdDelete_Click( )删除出库记录 On Error GoTo DeleteErr Dim YesNo As String YesNo = MsgBox(删除, vbYesNo, 删除记录) If YesNo = vbYes The

12、n With datPrimaryRS.Recordset .Delete .MoveNext If .EOF Then .MoveLast End With Else Exit Sub End If DeleteErr: MsgBox Err.Description End Sub 更新记录程序同入库的更新程序相同，在此略 5.2.5设备采购模块实现，程序略 主要程序 Private Sub cmdAdd_Click( ) 添加设备 On Error GoTo AddErr datPrimaryRS.Recordset.AddNew Exit Sub AddErr: MsgBox Err.D

13、escription End Sub 5.2.8 库存报警模块实现 主要程序 Private Sub Command1_Click() 显示高于最大警戒库存的设备datPrimaryRS.RecordSource = select * from 现有库存表 where 现有库存最大库存datPrimaryRS.Refresh grdDataGrid.Refresh If datPrimaryRS.Recordset.RecordCount 0 Then Beep MsgBox 表中设备已过量 Else MsgBox 没有设备库存过量 End If End Sub Private Sub Com

14、mand2_Click()显示低于于最小警戒库存的设备datPrimaryRS.RecordSource = select * from 现有库存表 where 现有库存 0 Then Beep MsgBox 表中设备库存量已过警戒线请采购 Else MsgBox 没有设备库存量过少 End If End sub Private Sub Timer1_Timer() 自动报警程序 frmAlarm.datPrimaryRS.RecordSource = select * from 现有库存表 where 现有库存最大库存 frmAlarm.datPrimaryRS.Refresh If frm

15、Alarm.datPrimaryRS.Recordset.RecordCount 0 Then Beep MsgBox 有设备库存超过警戒库存 & vbCrLf & 请查看库存报警记录Timer1.Enabled = False frmAlarm.Show Exit Sub End If End Sub Private Sub Timer2_Timer() frmAlarm.datPrimaryRS.RecordSource = select * from 现有库存表 where 现有库存 0 Then Beep MsgBox 有设备库存低于警戒库存 & vbCrLf & 请查看库存报警记录Timer2.Enabled = False frmAlarm.Show Exit Sub End If End Sub 5.2.9 操作日志模块实现