物品采购管理系源代码.doc

数据库原理与应用 课程设计 源代码 设计题目： 物品采购管理 院 系： 信息工程学院 班 级： 组 别： 组 长: 组 员: 起止日期: 指导教师: 源代码： 物品添加模块程序代码 修改用户密码程序 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.Move