物品采购管理系统源代码
物品采购管理系统源代码
数据库原理与应用课程设计
设计题目: 物品采购管理院系: 信息工程学院班级:
组别: 组长: 组员:
起止日期:
指导教师:
源代码:
物品添加模块程序代码
修改用户密码程序
Private Sub Command1_Click()
Adodc1.RecordSource = frmLogin.Adodc1.RecordSource
Adodc1.Refresh
Set Text4.DataSource = Adodc1
Text4.DataField = "密码"
If Text1 = "" Then
MsgBox "请输入原密码~", , "修改密码"
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 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 设备入库表.datPrimaryRS.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("采购员") = 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 = 设备入库表.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 FrmAddNewEqu.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
Else
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 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
MsgBox "请输入完整信息~"
Exit Sub
ElseIf frm设备出库表.Adodc1.Recordset.RecordCount <= 0 Then
STR = "现有库存表中无此设备~请检查输入是否正确~~"
MsgBox STR
Exit Sub
Else
frm设备出库表.datPrimaryRS.Recordset.Fields("设备号") = Text1.Text frm设备出库表.datPrimaryRS.Recordset.Fields("出库数量") = Text2.Text frm设备出库表.datPrimaryRS.Recordset.Fields("出库时间") =
Combo1.Text
frm设备出库表.datPrimaryRS.Recordset.Fields("经手人") = Text4.Text frm设备出库表.datPrimaryRS.Recordset.Fields("领取人") = Text5.Text frm设备出库表.datPrimaryRS.Recordset.Fields("使用部门") = Text6.Text frm设备出库表.datPrimaryRS.Recordset.Fields("用途") = Text7.Text MsgBox "已经成功存入设备出库表库~"
End If
If 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.Recordset.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 Then
With datPrimaryRS.Recordset
.Delete