数据库原理与应用 课程 设 计 源 代 码 设计题目： 物品采购管理 院 系： 信息工程学院 班 级： 组 别： 组 长: 组 员: 起止日期: 指导教师: 源代码： 物品添加模块程序代码 修改用户密码程序 Private Sub Command1_Click() Adodc1.RecordSou rce = frmLogin.Adodc1.RecordSou rce Adodc1.Refresh Set Tex t4.DataSou rce = Adodc1 Tex t4.DataField = "密码" If Tex t1 = "" Then MsgBox "请输入原密码！", , "修改密码" Ex it Su b ElseIf Tex t1.Tex t <> Adodc1.Recordset.Fields("密码") Then MsgBox "原密码错误！", , "修改密码" Ex it Su b ElseIf Tex t2 = "" Or Tex t3 = "" Then MsgBox "请输入新密码！！", , "修改密码" Ex it Su b ElseIf Tex t2 <> Tex t3 Then MsgBox "密码不一致！！", , "修改密码" Ex it Su b Else Tex t4.Tex t = Tex t2.Tex t Adodc1.Recordset.Mov eFirst MsgBox "密码修改成功！！", , "修改密码" Unload Me End If End Sub 5..2.3入库模块的实现 Private Sub Command1_Click( ) 设备入库程序 Dim I, J As Integer Dim STR As String If Tex t1.Tex t = "" Or Tex t2 = "" Or Combo1.Tex t = "" Or Tex t4 = "" Or Tex t5 = "" Or Tex t6 = "" Or Tex t7 = "" Then MsgBox "请输入完整信息！" Ex it Su b Else 将记录存入入库记录表 设备入库表.datPrimary RS.Recordset.Fields("设备号") = Tex t1.Tex t 设备入库表.datPrimary RS.Recordset.Fields("入库数量") = Tex t2.Tex t 设备入库表.datPrimary RS.Recordset.Fields("入库时间") = Combo1.Tex t 设备入库表.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.Records...
