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

《《数据库管理软件的开发》教学课件.ppt》由会员分享，可在线阅读，更多相关《《数据库管理软件的开发》教学课件.ppt（25页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、数据库软件管理的开发数据库软件管理的开发数据库数据库服务器服务器应用应用界面界面VB应用程序应用程序SQL Server数据库访问接口数据库访问接口VB数据库访问控件数据库访问控件数据库应用系统结构数据库应用系统结构案例案例教务管理系统的开发教务管理系统的开发n实例目标实例目标 首先创建一个名为首先创建一个名为“教务教务”的数据库，然后使用的数据库，然后使用VbVb程程序浏览和访问数据库。序浏览和访问数据库。n技术要点技术要点 静态查询和静态查询和SQLSQL语言的使用；语言的使用；使用使用ToolBarToolBar和和ImageListImageList控件制作工具栏。控件制作工具栏。实现

2、步骤实现步骤n创建数据库创建数据库n创建主窗体创建主窗体n添加工具栏按钮控件：添加工具栏按钮控件：ToolBar和和ImageList控件控件n添加数据库连接控件添加数据库连接控件n添加数据显示控件添加数据显示控件n编写代码编写代码建立教务数据库建立教务数据库创建登陆模块创建登陆模块nPrivate Sub Command1_Click()nAd1.RecordSource=team:Ad1.RefreshnAd1.Recordset.find 姓名姓名=+Text1.Text+nIf Ad1.Recordset.EOF Thennx=MsgBox(没有该用户，重新输入吗？没有该用户，重新输入

3、吗？,vbYesNo,错误！错误！)nIf x=vbYes Then Exit Sub Else EndnEnd IfnIf Ad1.Recordset.Fields(1)=Text2.Text Then Unload Form1:Form2.Show:Exit Subnx=MsgBox(密码错误，重新输入吗？密码错误，重新输入吗？,vbYesNo,错误！错误！)nIf x=vbYes Then Exit Sub Else EndnEnd Sub创建主窗体创建主窗体首先添加首先添加ToolBar和和ImageList控件到工具箱；控件到工具箱；步骤：步骤：1.工程工程/部件部件选选“Micro

4、soft Windows Common Control 6.0”2.ToolBar控件包含用来创建工具栏的按钮对象集合；控件包含用来创建工具栏的按钮对象集合；ToolBar可以拥有文本和相关联的可以拥有文本和相关联的ImageList提供的图像；提供的图像；创建工具栏创建工具栏3.ImageList控件的属性创中选择图像标签；控件的属性创中选择图像标签；4.设置按钮属性：索引设置按钮属性：索引(1)，标题，标题(第一个第一个)，关键字，关键字(First)，样式，样式(0-tbrDefault)，工具提示文本，工具提示文本(单击此按钮查看单击此按钮查看第一个记录第一个记录)，图像，图像(1)。

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

6、onClick事件中引用；图象(Image)ImageList对象中的图象值可以是Key或Index样式(Style)，共6种除菜单按钮(5)外的5种样式三、三、响应响应ToolBar控件事件控件事件 ToolBar控件常用的事件有两个：ButtonClick和ButtonMenuClick。前者对按钮样式为0-2，后者对样式为5的菜单按钮。（1）用索引Index确定按钮 (2)用关键字Key确定按钮Private Sub Toolbar1_ButtonClick(Byval Button As ComctlLib.Button)Select Case Button.Index Case 1

7、FileNewProc Case 2 FileOpenProc End SelectEnd Sub注意：第1个按钮的Index值为1。用Index还是用Key比较，Key 可读性好，可维护性好。Select Case Button.Key Case TNew FileNewProc Case TOpen FileOpenProc.加入数据连接控件加入数据连接控件1 1、数据连接控件（、数据连接控件（ADODCADODC）ADODCADODC控件控件（可以连接所有数据库）（可以连接所有数据库）设置参数：设置参数：ConnectionConnection选择选择数数据库驱动程序和数据库名据库驱动程

8、序和数据库名 RecordSourceRecordSource连接的数据源类型连接的数据源类型加入数据显示控件加入数据显示控件1、添加标签控件Label，说明显示内容；2、添加文本控件Text,先是数据库中的内容；3、根据数据库中表的属性内容，分别添加10个Label和9个Text。其中性别使用Checkbox控件。4、分别设置Text的Datasource(数据源属性)为Data或ADODC，DataField（数据域）为相应的表属性名。5、数据表格显示控件DataGridDataGrid控件的属性控件的属性nDataSource（数据源）属性 此控件不能直接存取数据库中的数据，因此需将此属

9、性设置成某一个ADODC控件，才能够具备存取数据库的能力。nAllowAddNew（允许新增）属性nAllowDelete（允许删除）属性nAllowUpdate（允许更新）属性程序代码程序代码nPrivate Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)n Dim news,oldn Select Case Button.Keyn Case Firstn n Case previousn n If Adodc1.Recordset.BOF Thenn n End Ifn Case nextn n If Adodc1.

10、Recordset.EOF Thenn End If程序代码程序代码n Case lastn n Case addn n Toolbar1.Buttons(delete).Enabled=Falsen Text1.SetFocusn 程序代码程序代码n Case deleten 设置一个错误陷阱n On Error Resume Nextn news=MsgBox(一定要删除该记录吗？,vbYesNo)n If news=vbYes Thenn n If Adodc1.Recordset.EOF Thenn End Ifn End If程序代码程序代码n Case findnUnload Me

11、nfrmex27_frm2.Show nCase exitnMsgBox 欢迎使用VB数据库应用程序，感谢各位用户的支持和厚爱！nold=MsgBox(要退出该用于程序吗？,vbYesNo)nIf old=vbYes ThennEndnEnd IfnEnd SelectnEnd Sub进一步完善系统主界面进一步完善系统主界面建立菜单的步骤建立菜单的步骤:建立窗体建立窗体,添加控件添加控件;启动菜单编辑器启动菜单编辑器(“工具工具”/“菜单编辑器菜单编辑器”);设置各菜单项设置各菜单项;为相应的菜单项添加编写事件过程为相应的菜单项添加编写事件过程.菜单显示区简单的编辑按钮属性设置菜单上的说明文字

12、控件名称Caption将子菜单向上或下移一级菜单编辑器菜单编辑器菜单列表框启动菜单编辑器：启动菜单编辑器：1、工具菜单编辑器(CTRL+E)2、窗体上快显菜单菜单编辑器菜单项属性常用属性：1.标题(Caption)热键：前面加&2.名称(Name)文本框 分隔符也应有名称。3.快捷键(Shortcut)菜单名没有快捷键4.复选(Checked)检查框 TRUE 有5.有效(Enabled)检查框6.可见(Visible)检查框 操作按钮弹出菜单弹出菜单(快捷菜单快捷菜单)显示在窗体的浮动菜单，操作时使用右键，菜单与鼠标位置有关。PopupMenu方法建立弹出菜单。形式：对象.PopupMenu

13、 菜单名,标志,x,y 位位 置置 性性 能能 0：X 位置确定弹出菜单的左边界 0：只能用鼠标左键触发弹出菜单；4：弹出菜单以X为中心 2：能用鼠标左、右键键触发弹出菜单；8：X 位置确定弹出菜单的右边界 位置与性能是加的关系。位置与性能是加的关系。Private Sub Form_Mouseup(Button As Integer,Shift As Integer,X As Single,Y As Single)If Button=2 Then PopupMenu EditPop,8,200,200End IfEnd Sub 表示弹出的位置和触发的键进一步完善登陆窗口进一步完善登陆窗口Private Sub cmdOK_Click()测试密码是否正确 If txtPassword.Text=Then OK=True Me.Hide Else MsgBox 密码错误，再试一次！,登录 txtPassword.SetFocus txtPassword.SelStart=0 txtPassword.SelLength=Len(txtPassword.Text)End IfEnd Sub