第8章数据控件.pptVIP

* 例8-10 设计能够选择多种条件的查询窗体。 要求：在例8-9的基础上做进一步的改进，可以选择按教师姓名、教师编号、课程名称、课程编号、学时等条件，查询课程信息。查询结果中包含：课程信息表的所有字段、教师信息表的“姓名”字段。 （1）设计界面如图8-29所示。 其中组合列表框Combo1中添加查询条件的字段名，供用户选择。 图8-29 查询界面的设计 图8-30 查询程序的运行结果 * （2）设计代码 Private Sub Form_Load() Combo1.AddItem 姓名 为组合列表框添加各选项 Combo1.AddItem 教师编号 Combo1.AddItem 课程名称 Combo1.AddItem 课程编号 Combo1.AddItem 学时 Combo1.Text = 姓名 让组合框初始选中姓名项 Text1.Text = 清空文本框 End Sub * Private Sub Cmd1_Click() Dim str As String str = Select 教师信息表.姓名, 课程信息表.* From 课程信息表 Join 教师信息表 str = str On 教师信息表.教师编号 = 课程信息表.教师编号 str = str Where 课程信息表. Combo1.Text Like Text1 % Adodc1.RecordSource = str Adodc1.Refresh End Sub 本例实现模糊查询，运行程序时，选择按“课程名称”查询，输入查询信息：机械，结果有哪些信誉好的足球投注网站到课程名称以“机械”开头的课程信息，如图8-30。 * 例8-11 设计登录窗体。 要求：将该登录界面设为启动窗体，当密码输入正确时，才显示查询窗体。在Text1中输入用户名，在Text2中输入密码，若正确，则打开Form1，否则提示密码错误。允许输入3次。 （1）设计界面 在例8-8的基础上，添加一个窗体Form2，设计登录界面如图8-31所示。 图8-31 登录窗体 * 添加窗体的方法：执行菜单：[工程]\[添加窗体]命令，在[新建]选项卡中，选中“窗体”并单击[打开]按钮，即可在本工程中添加Form2。 设启动窗体的方法：执行菜单[工程]\[工程 属性],在打开的对话框中，将启动对象设为Form2。 （2）设计密码表 在“成绩管理”数据库中添加一个密码表，表结构如表8-9，在表中存放一组用户名和密码如表8-10。 字段名 数据类型 长度 用户名 char 10 密码 char 6 用户名 密码 lzw 111111 表8-9 密码表的表结构 表8-10 密码表 * （3）设置各控件的属性 Adodc1连接到密码表，方法同前；注意在[记录源]选项卡中，选则命令类型：1-adCmdText ，在[命令文本(SQL)]中输入SQL语句：select * from 密码表 Vsible：False（运行时不可见）。 文本框Text1的属性：Text：清空。 文本框Text2的属性：Text：清空， PasswordChar：* 注意：Text1和Text2不要绑定到Adodc1上，以免刚启动登录窗体时，就显示密码表的内容。 [登录]按钮的属性：名称：CmdLand，Caption：登录 [取消]按钮的属性：名称：CmdCancel，Caption：取消 * （4）编写程序 [登录]按钮单击事件的代码如下： Dim miCount As Integer ‘用于记录输入密码次数 Private Sub CmdLand_Click() Dim sqlstr As String sqlstr = Select * From 密码表 Where 用户名= Text1 Adodc1.RecordSource = sqlstr Adodc1.Refresh If Adodc1.Recordset.BOF Then ‘若没找到符合Where条件的记录 MsgBox 用户名错误，重新输入 , vbExclamation, 警告 Text1.Text = Text1.SetFocus Text1获得焦点 * Else 判断密码是否正确 If Adodc1.Recordset.Fields(密码) = Text2 Then Form1.Show Unload Me Else MsgBox 密码错误，重新输入 , vbExclamation, 警告 Text2.Text = Text2.SetFocus End If End If * miCount