第9章 利用Data控件开发数据库应用程序.ppt
上传人:qw****27 上传时间:2024-09-12 格式:PPT 页数:59 大小:2.2MB 金币:15 举报 版权申诉
预览加载中,请您耐心等待几秒...

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

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

预览

免费试读已结束,剩余 49 页请下载文档后查看

15 金币

下载此文档

如果您无法下载资料,请参考说明:

1、部分资料下载需要金币,请确保您的账户上有足够的金币

2、已购买过的文档,再次下载不重复扣费

3、资料包下载后请先用软件解压,在使用对应软件打开

第9章9.1利用VisualBasic6.0开发数据库应用程序概述9.1.1VisualBasic数据库开发功能概述9.1.1VisualBasic数据库开发功能概述9.1.2VisualBasic6.0支持的数据库种类9.1.3VisualBasic6.0支持的数据存取模式9.1.3VisualBasic6.0支持的数据存取模式9.1.4.ODBC简介(1)数据源名:它是通过ODBC管理器注册的一个数据源的名称,应用程序根据数据源名就可访问具体的数据库,从而使中间的细节变得透明;9.1.4.ODBC简介9.1.4.ODBC简介9.2.1Data控件和数据绑定控件的概念9.2.1Data控件和数据绑定控件的概念9.2.1Data控件和数据绑定控件的概念9.2.1Data控件和数据绑定控件的概念9.2.1Data控件和数据绑定控件的概念9.2.1Data控件和数据绑定控件的概念9.2.1Data控件和数据绑定控件的概念9.2.2Data控件的常用属性9.2.2Data控件的常用属性9.2.2Data控件的常用属性9.2.2Data控件的常用属性9.2.2Data控件的常用属性9.2.3Data控件的常用方法9.2.4数据绑定控件的常用属性9.2.4数据绑定控件的常用属性【例9-2】编写一个对CollegeMIS数据库中Teacher表进行浏览和修改的程序,程序的设计界面如图9-14所示,程序的运行结果如图9-15所示。实现思路:要浏览CollegeMIS数据库中的Teacher表,可在窗体上放置一个Data控件,通过设置它的Connection属性连接到SQLServer的CollegeMIS数据库,通过设置RecordSource属性使Data控件和Teacher表联系在一起。可用若干个Text控件来显示和修改Teacher表中的除Sex、Marriage和Picture外的其它字段的值,用一个组合框来显示和修改Sex字段的值,用一个图像框来显示和修改Picture字段的值,用一个复选框显示和修改Marriage字段的值。要把这些控件与Teacher表的相应字段绑定在一起,还需设置这些控件的DataSource属性和DataField属性:把DataSource属性值设置为Data控件名称,DataField属性值设置为字段名称。9.2.5Data控件的Recordset对象的常用方法【例9-3】编写一个利用按钮对CollegeMIS数据库中的Teacher表进行浏览和修改的数据库应用程序,在运行时不显示Data控件,通过五个按钮来实现记录指针的移动,程序的设计界面如图9-16所示,程序的运行界面如图9-17所示。9.2.5Data控件的Recordset对象的常用方法(4)FindPrevious方法如果想要进行不精确查找,可使用Like运算符。如职称的一部分信息包含在变量ZC中,现在要查找相应的记录,可使用下述命令:Data1.RecordSet.FindFirst"TitleLike"&"'*"&ZC&"*'"其中的“*”为匹配符,表示可以是任意长度的任意字符。【例9-4】为CollegeMIS数据库中的Teacher表编写一个教师查找程序。程序的设计界面如图9-18所示。程序执行时,在“出生日期”后面的文本框中输入合法的日期值,单击“按出生日期精确查找”框架控件中的相应按钮,将按出生日期进行精确查找,如果找到,则显示找到的记录并给出提示信息,如果找不到则显示消息框通知没有查找到,并把记录指针置于查找前的位置。在“按姓名模糊查找”框架中的姓名后面的文本框中输入教师姓名中包含的字符后,单击该框架控件中的相应按钮,将查找姓名中包含该字符的记录,如果找到,则显示找到的记录并给出提示信息,如果找不到则显示提示框,并把记录指针置于查找前的位置。图9-19是某次按姓名进行模糊查找的运行结果。实现思路:9.2.5Data控件的Recordset对象的常用方法索引查找的程序编写一般格式如下(根据教师号索引查找):DimBMIfData1.Recordset.RecordCount>0ThenBM=Data1.Recordset.BookmarkEndIfData1.Recordset.Index="JSH"'JSH为索引名称Data1.Recordset.Seek"=",Text12.Text'在Text12输入要查找的教师号IfData1.Recordset.NoMatchThenMsgBox("没有该教师号的教师")Data1.Recordset.Bookmark=BMElseMsgBox("已找到该教师")EndIf9.2.5Data控件的Recordset对象的常用方法9.2.5Data控件的Re