J第13章数据库应用1讲述.ppt

* If Adodc1.Recordset.BOF Then MsgBox 用户名错误，重新输入 , vbExclamation, 警告 Text1.Text = : Text1.SetFocus Else 判断密码是否正确 If Adodc1.Recordset.Fields(密码) = Text2 Then MDIForm1.mDataMng.Enabled = True ’使数据管理菜单有效 Unload Me Else MsgBox 密码错误，重新输入 , vbExclamation, 警告 Text2.Text = : Text2.SetFocus End If End If * miCount = miCount + 1 If miCount = 3 Then Unload Me ’若已输入3次，则关闭窗体 End Sub Private Sub CmdCancel_Click() Unload Me End Sub 运行程序，首先显示MDI主窗体，且[数据管理]菜单无效； 在[文件]菜单中单击[登录]，显示登录窗体，输入用户名和密码，若正确，则[数据管理]菜单变为有效； 在[数据管理]菜单中，单击[浏览教师信息]，即可打开窗体，如图13-33所示。 图13-33 在MDI窗体中打开教师信息子窗体 * 例13-12 设计注册新用户窗体。 设计界面如图13-34。 图13-34 注册新用户窗体 * 设置对象的属性如表13-12。 对象名 属性名 属性值 对象名 属性名 属性值 Form1 Caption 注册新用户 Adodc1 ConnectionString DSN=cjgl Label1 Caption 注册新用户 CommandType 1-adCmdText Font 华文彩云、四号 RecordSource select * from 密码表 Visible False Label2 Caption 输入用户名 Text1 Text 空白 Label3 Caption 输入密码 Text2 PassWordChar * Label4 Caption 确认密码 Text3 PassWordChar * * 编写代码如下： Private Sub CmdOK_Click() ‘单击[确认]按钮 Dim sqlstr As String If Text1 = Then MsgBox 请输入用户名！, vbExclamation, 确认用户名 Text1.SetFocus Exit Sub Else sqlstr = Select * from 密码表 where 用户名= Text1 Adodc1.RecordSource = sqlstr Adodc1.Refresh * ‘判断输入的用户名是否已存在： If Adodc1.Recordset.EOF = False Then MsgBox “用户名已存在，请重新输入！, vbExclamation, 检验用户名 Text1 = Text1.SetFocus Exit Sub End If End If * 判断二次输入密码是否一致： If Text2 Text3 Then MsgBox 二次输入的密码不一致，请重新输入, vbExclamation, 检验密码 Text2 = : Text3 = Text2.SetFocus Exit Sub ElseIf Text2 = Then MsgBox 密码不能为空！, vbExclamation, 检验密码 Text2.SetFocus * Else Adodc1.Recordset.AddNew Adodc1.Recordset.Fields(用户名) = Trim(Text1) Adodc1.Recordset.Fields(密码) = Trim(Text2) Adodc1.Recordset.Update Me.Hide MsgBox 成功注册新用户！, vbInformation, 添加用户 End If End Sub Private Sub CmdCancel_Click() ’单击取消按钮 Unload Me End Sub * 本章小结 介绍了SQL Server 数据库的DSN的配置方法； 详细介绍了用ADO Data控件建立数据库应用程序，数据绑定控件的应用，DataGrid控件的应用。 举例说明了数据浏览窗体、数据编辑窗体和数据查询窗体的设计方法。 * 第13章 结束 * （2）设置控件的属性