第9篇 利用Data控件开发数据库应用程序.ppt

【例9-3】编写一个利用按钮对CollegeMIS数据库中的Teacher表进行浏览和修改的数据库应用程序，在运行时不显示Data控件，通过五个按钮来实现记录指针的移动，程序的设计界面如图9-16 所示，程序的运行界面如图9-17所示。 图9-16 例9-3的程序设计界面 图9-17 例9-3的程序运行界面 注意：代码参见实例。 9.2.5 Data控件的Recordset对象的常用方法 2．Find类方法 使用Data控件进行数据库查找，有两种方法，一种是索引查找，见Seek方法；另一种是顺序查找。要进行顺序查找，需要使用Data控件的RecordSet对象的Find类方法 。 （1）FindFirst方法 其作用是查找满足条件的第一条记录，语法格式如下： Data控件名.RecordSet.FindFirst 条件 （2）FindLast方法 其作用是查找满足条件的最后一条记录，语法格式如下： Data控件名.RecordSet.FindLast 条件 （3）FindNext方法 其作用是查找满足条件的下一条记录，语法格式如下： Data控件名.RecordSet.FindNext 条件 （4）FindPrevious方法 其作用是查找满足条件的上一条记录，语法格式如下： Data控件名.RecordSet.FindPrevious 条件 查找方法中的条件都是一个字符串，字符串中存放的是指定字段与常量或变量构成的表达式。表达式中除可用普通的关系运算符外，还可以使用Like运算符。如要在Data1控件的记录集中查找第一个职称（字段名为Title）为“副教授”的记录，可使用下列语句： Data1.RecordSet.FindFirst Title=副教授 如果要接着查找下一条职称为“副教授”的记录，可使用下列语句： Data1.RecordSet.FindNext 姓名=副教授 如果条件部分与字段比较的数据来源于变量，如要查找的人的职称存放在变量ZC中，则查找满足条件的第一条记录的命令可按以下格式书写： Data1.RecordSet.FindFirst Title= ZC 条件的设置方法： 如果想要进行不精确查找，可使用Like运算符。如职称的一部分信息包含在变量ZC中，现在要查找相应的记录，可使用下述命令： 　　　　　Data1.RecordSet.FindFirst Title Like * ZC * 其中的“*”为匹配符，表示可以是任意长度的任意字符。 注意：如果查找的数据是日期型，需要用两个“#”作用日期型数据的定界符。 Find方法进行的查找在默认的情况下是不区分大小写的，若要使查找区分大小写，可在窗体的声明部分使用Option Compare语句，该语句的格式如下： 　　　　Option Compare Text|Binary 如果使用可选项Text表示不区分大小写，如果使用可选项Binary则区分大小写。 条件的设置方法： 是否区分大小写的设置方法： 查找结果的判断： 各种查找命令执行后，可根据Data控件的RecordSet对象的NoMatch属性值来测试是否找到了相应的记录，如果找到则NoMatch属性值为False，否则NoMatch属性值为True。 【例9-4】为CollegeMIS数据库中的Teacher表编写一个教师查找程序。程序的设计界面如图9-18所示。程序执行时，在“出生日期”后面的文本框中输入合法的日期值，单击“按出生日期精确查找”框架控件中的相应按钮，将按出生日期进行精确查找，如果找到，则显示找到的记录并给出提示信息，如果找不到则显示消息框通知没有查找到，并把记录指针置于查找前的位置。在“按姓名模糊查找”框架中的姓名后面的文本框中输入教师姓名中包含的字符后，单击该框架控件中的相应按钮，将查找姓名中包含该字符的记录，如果找到，则显示找到的记录并给出提示信息，如果找不到则显示提示框，并把记录指针置于查找前的位置。图9-19是某次按姓名进行模糊查找的运行结果。 图9-18 例9-4程序设计界面 图9-1９ 例9-4程序运行界面 实现思路： 本例可使用Find方法进行查找，精确查找使用“=”运算符，不精确查找可使用“Like”运算符。为使查找不到记录时，记录指针定位到查找之前的记录，可先用一个变量记下当前记录指针的位置（RecordSet的BookMark属性），在查找不到指定的记录时，再把该变量值赋值给RecordSet的BookMark属性。形成查找字符串时，需注意字符值用“”作为定界