物品采购管理系统源代码
- 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。
物品采购管理系统源代码
数据库原理与应用课程设计
设计题目: 物品采购管理院系: 信息工程学院班级:
组别: 组长: 组员:
起止日期:
指导教师:
源代码:
物品添加模块程序代码
修改用户密码程序
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