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

1、物品采购管理系统源代码物品采购管理系统源代码数据库原理与应用 课程设计 设计题目: 物品采购管理 院 系: 信息工程学院 班 级: 组 别: 组 长: 组 员: 起止日期: 指导教师: 源代码: 物品添加模块程序代码 修改用户密码程序 Private Sub Command1_Click() Adodc1.RecordSource = frmLogin.Adodc1.RecordSource Adodc1.Refresh Set 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 Sub Else Text4.Text = Text2.Text Adodc1.Recordset.MoveFirst MsgBox 密码修改成功, , 修改密码 Unload Me End

3、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 设备入库表.datPrima

4、ryRS.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 Else STR = 现有库存表中无此设备 & vbCrLf & 请在设备代码表和现有库存表中手动添加记录 MsgBox STR Load frm现有库存表 frm现有库存表.Show Call frm现有库存表.Command1_Click FrmAddNewEqu.Text1.Text = frmInput.Text1.Text FrmAddNewE

7、qu.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 Els

8、e 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 MsgBo

10、x 请输入完整信息 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 If Else 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 Th

12、en 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.

13、Description 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

14、Command2_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

15、 frmAlarm.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 & 请查看库存

16、报警记录 Timer2.Enabled = False frmAlarm.Show Exit Sub End If End Sub 5.2.9 操作日志模块实现 主要程序 Private Sub Command2_Click( ) 填写日志记录 If Text1.Text = Or Combo1.Text = Or Combo2.Text = Then MsgBox 请输入完整信息 Exit Sub Else frmLog.Adodc1.Recordset.Fields(操作员) = Text1.Text frmLog.Adodc1.Recordset.Fields(操作内容) = Combo1.Text frmLog.Adodc1.Recordset.Fields(操作时间) = Combo2.Text frmLog.Adodc1.Recordset.MoveLast End If End Sub Private Sub Form_Load() 设置填写时间 Dim STRtime As String STRtime = Now() Combo2.Text = STRtime Combo2.AddItem (STRtime) End Sub