库存管理系统（课程设计）.doc

Oracle课程设计报告 设计题目：库存管理系统 姓 名：XXXXX 班 级：XXXX 学 号：XXXXX 指导老师： XXXX 2011年11月 库存管理系统登录\注册界面及代码 Private Sub Command1_Click() Dim UserName As String Dim PassWord As String Dim conn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim StrSQL As String conn.Open Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\尤远明\Desktop\库存管理\库存.mdb UserName = Trim(Text1.Text) PassWord = Trim(Text2.Text) If UserName = Or PassWord = Then MsgBox 对不起，用户或密码不能为空！请重新输入！！, vbCritical, 错误 ElseIf UserName Empty And PassWord Empty Then StrSQL = select * from 用户 where 用户名= UserName and 密码= PassWord rs.Open StrSQL, conn, adOpenKeyset, adLockPessimistic If rs.EOF = True Then MsgBox 对不起，无此用户或者密码不正确！请重新输入！！, vbCritical, 错误 Text1.Text = Text2.Text = Text1.SetFocus rs.Close Else 登陆成功,以下为权限验证 Form4.Show Unload Me End If End If End Sub Private Sub Command2_Click() End End Sub Private Sub Command3_Click() Form8.Show End Sub 库存\供应商信息添加修改删除界面及代码 Private Sub Command1_Click() Adodc1.Recordset.AddNew Adodc1.Recordset.Fields(用户名) = Text1.Text Adodc1.Recordset.Fields(密码) = Text2.Text Adodc1.Recordset.Update End Sub Private Sub Command2_Click() Me.Hide Form1.Show End Sub Private Sub Command1_Click() If Command1.Caption = 添加 Then Command1.Caption = 更新 Data1.Recordset.AddNew Text1 = Text2 = Text3 = Text4 = Text5 = Text6.Text = CStr(Now()) Text1.SetFocus Else Text6.Text = CStr(Now()) Command1.Caption = 添加 Data1.Recordset(货品号) = Text1 Data1.Recordset(货品名) = Text2 Data1.Recordset(供应商) = Text3 Data1.Recordset(单价) = Text4 Data1.Recordset(数量) = Text5 Data1.Recordset(时间) = Text6 Data1.Recordset.Update End If End Sub Private Sub Command2_Click() Data1.Recordset.Edit Data1.Recordset(货品号) = Text1 Data1.Recordset(货品名) = Text2 Data1.Recordset(供应商) = Text3 Data1.Recordset(单价) = Text4 Data1.Recordset(数量) = Text5 Data1.Recordset(时间) = Text6 Dat