《数据库管理软件的开发》教学课件1

《《数据库管理软件的开发》教学课件1》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、数据库软件管理的开发数据库服务器应用界面VB应用程序SQLServer数据库访问接口VB数据库访问控件数据库应用系统结构案例—教务管理系统的开发实例目标首先创建一个名为“教务”的数据库，然后使用Vb程序浏览和访问数据库。技术要点静态查询和SQL语言的使用；使用ToolBar和ImageList控件制作工具栏。实现步骤创建数据库创建主窗体添加工具栏按钮控件：ToolBar和ImageList控件添加数据库连接控件添加数据显示控件编写代码建立教务数据库创建登陆模块PrivateSubCommand1_Click()Ad1.RecordSource="

2、team":Ad1.RefreshAd1.Recordset.MoveFirstAd1.Recordset.find"姓名='"+Text1.Text+"'"IfAd1.Recordset.EOFThenx=MsgBox("没有该用户，重新输入吗？",vbYesNo,"错误！")Ifx=vbYesThenExitSubElseEndEndIfIfAd1.Recordset.Fields(1)=Text2.TextThenUnloadForm1:Form2.Show:ExitSubx=MsgBox("密码错误，重新输入吗？",vbYesNo,"错误

3、！")Ifx=vbYesThenExitSubElseEndEndSub创建主窗体首先添加ToolBar和ImageList控件到工具箱；步骤：1.工程/部件选“MicrosoftWindowsCommonControl6.0”2.ToolBar控件包含用来创建工具栏的按钮对象集合；ToolBar可以拥有文本和相关联的ImageList提供的图像；创建工具栏3.ImageList控件的属性创中选择图像标签；4.设置按钮属性：索引(1)，标题(第一个)，关键字(First)，样式(0-tbrDefault)，工具提示文本(单击此按钮查看第一个记录

4、)，图像(1)。5.根据题意添加8个按钮创建工具栏在ImageList控件中添加图象ImageList控件不单独使用，专门为其它控件提供图像库。索引（Index）、关键字（Key）在ToolBar中引用图象文件的扩展名为：.ico、.bmp、.gif、.jpg等在ToolBar控件中添加按钮1.为工具栏连接图象ToolBar与ImageList的连接工具栏样式2.为工具栏增加按钮索引（Index）、关键字（Key）每个按钮的编号、标识,ButtonClick事件中引用；图象(Image)ImageList对象中的图象值可以是Key或Index样式

5、(Style)，共6种除菜单按钮(5)外的5种样式三、响应ToolBar控件事件ToolBar控件常用的事件有两个：ButtonClick和ButtonMenuClick。前者对按钮样式为0-2，后者对样式为5的菜单按钮。（1）用索引Index确定按钮(2)用关键字Key确定按钮PrivateSubToolbar1_ButtonClick(ByvalButtonAsComctlLib.Button)SelectCaseButton.IndexCase1FileNewProcCase2FileOpenProc……EndSelectEndSub注意：

6、第1个按钮的Index值为1。用Index还是用Key比较，Key可读性好，可维护性好。SelectCaseButton.KeyCase"TNew"FileNewProcCase"TOpen"FileOpenProc.....加入数据连接控件1、数据连接控件（ADODC）ADODC控件（可以连接所有数据库）设置参数：Connection—选择数据库驱动程序和数据库名RecordSource—连接的数据源类型加入数据显示控件1、添加标签控件Label，说明显示内容；2、添加文本控件Text,先是数据库中的内容；3、根据数据库中表的属性内容，分别添加

7、10个Label和9个Text。其中性别使用Checkbox控件。4、分别设置Text的Datasource(数据源属性)为Data或ADODC，DataField（数据域）为相应的表属性名。5、数据表格显示控件DataGridDataGrid控件的属性DataSource（数据源）属性此控件不能直接存取数据库中的数据，因此需将此属性设置成某一个ADODC控件，才能够具备存取数据库的能力。AllowAddNew（允许新增）属性AllowDelete（允许删除）属性AllowUpdate（允许更新）属性程序代码PrivateSubToolbar1_

8、ButtonClick(ByValButtonAsMSComctlLib.Button)Dimnews,oldSelectCaseBut