access2007进销存教程解读.ppt

12.7.7 “进货资料查询”窗体代码 “返回”按钮的代码如下所示。 Private Sub btn_return_Click() Me.Visible = False DoCmd.OpenForm 产品进库 End Sub 添加代码完成以后，【代码】窗体如下图所示。 12.7.8 “密码管理”窗体代码 已知我们设计的“密码管理”窗体如下图所示。 12.7.8 “密码管理”窗体代码 “密码管理”窗体代码如下所示。 声明变量 Option Compare Database Dim rs As New ADODB.Recordset Dim flag As Boolean 公用的判断为空的函数 Sub common() If IsNull(txt_name) Then MsgBox 请输入用户名!, vbCritical, 提示 txt_name.SetFocus flag = False End If If IsNull(txt_pwd1) Then MsgBox 请输入密码!, vbCritical, 提示 txt_pwd1.SetFocus flag = False End If If IsNull(txt_pwd2) Then MsgBox 请输入确认密码!, vbCritical, 提示 txt_pwd2.SetFocus flag = False End If If txt_pwd1 txt_pwd2 Then MsgBox 密码确认不正确!,vbCritical, 提示 txt_pwd1.SetFocus txt_pwd1 = txt_pwd2 = flag = False End If End Sub “增加”按钮的代码如下所示。 Private Sub btn_add_Click() flag = True common 调用公用函数common If flag = True Then rs.Open 管理员, CurrentProject.Connection, adOpenDynamic, adLockOptimistic rs.AddNew rs(用户名) = txt_name rs(密码) = txt_pwd1 rs.Update rs.Close Set rs = Nothing MsgBox 您成功地添加了新用户! End If End Sub 12.7.8 “密码管理”窗体代码 “删除”按钮的代码如下所示。 Private Sub btn_del_Click() flag = True common If flag = True Then Dim str As String Dim rs As New ADODB.Recordset str = delete from 管理员 where 用户名= txt_name and 密码= txt_pwd1 DoCmd.RunSQL str MsgBox 您成功地删除了该用户! End If End Sub “返回”按钮的代码如下所示。 Private Sub btn_return_Click() Me.Visible = False DoCmd.OpenForm 切换面板 End Sub “修改”按钮的代码如下所示。 Private Sub btn_xiugai_Click() flag = True common If flag = True Then Dim str As String str = select * from 管理员 where 用户名= txt_name and 密码= txt_pwd1 Set rs = ExeSQL(str) If Not rs.EOF Then user = txt_name DoCmd.OpenForm 新密码 Else MsgBox 找不到该用户! End If End If End Sub 12.7.8 “密码管理”窗体代码 “新密码”窗体的部分代码如下所示。 Private Sub Command1_Click() If IsNull(new_pwd1) Then MsgBox 请输入新密码, vbCritical, 提示 End If If IsNull(new_pwd2) Then MsgBox 请再次输入新密码, vbCritical, 提示 End If If new_pwd1 new_pwd2 Then MsgBox 两次输入不一致 , vbCritical, 错