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

数据库软件管理的开发,数据库 服务器,应用 界面,VB应用程序,SQL Server,数据库访问接口 VB数据库访问控件,数据库应用系统结构,案例教务管理系统的开发,实例目标 首先创建一个名为“教务”的数据库，然后使用Vb程序浏览和访问数据库。 技术要点 静态查询和SQL语言的使用； 使用ToolBar和ImageList控件制作工具栏。,实现步骤,创建数据库 创建主窗体 添加工具栏按钮控件：ToolBar和ImageList控件 添加数据库连接控件 添加数据显示控件 编写代码,建立教务数据库,创建登陆模块,Private Sub Command1_Click() Ad1.RecordSource = “team“: Ad1.Refresh Ad1.Recordset.MoveFirst Ad1.Recordset.find “姓名=“ + Text1.Text + “ If Ad1.Recordset.EOF Then x = MsgBox(“没有该用户，重新输入吗？“, vbYesNo, “错误！“) If x = vbYes Then Exit Sub Else End End If If Ad1.Recordset.Fields(1) = Text2.Text Then Unload Form1: Form2.Show: Exit Sub x = MsgBox(“密码错误，重新输入吗？“, vbYesNo, “错误！“) If x = vbYes Then Exit Sub Else End End Sub,创建主窗体,首先添加ToolBar和ImageList控件到工具箱； 步骤： 1.工程/部件选“Microsoft Windows Common Control 6.0” 2. ToolBar控件包含用来创建工具栏的按钮对象集合； ToolBar可以拥有文本和相关联的ImageList提供的图像；,创建工具栏,3.ImageList控件的属性创中选择图像标签； 4.设置按钮属性：索引(1)，标题(第一个)，关键字(First)，样式(0-tbrDefault)，工具提示文本(单击此按钮查看第一个记录)，图像(1)。 5.根据题意添加8个按钮,创建工具栏,在ImageList控件中添加图象 ImageList控件不单独使用，专门为其它控件提供图像库。,索引（Index）、 关键字（Key） 在ToolBar中引用 图象文件的扩展名为： .ico、.bmp、.gif、.jpg等,在ToolBar控件中添加按钮 1.为工具栏连接图象,ToolBar与 ImageList的连接,工具栏样式,2.为工具栏增加按钮,索引（Index）、关键字（Key）每个按钮的编号、标识,ButtonClick事件中引用；,图象(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 FileNewProc Case 2 FileOpenProc End Select End Sub 注意：第1个按钮的Index值为1。用Index还是用Key比较，Key 可读性好，可维护性好。,Select Case Button.Key Case “TNew“ FileNewProc Case “TOpen“ FileOpenProc .,加入数据连接控件,1、数据连接控件（ADODC） ADODC控件（可以连接所有数据库） 设置参数：Connection选择数据库驱动程序和数据库名 RecordSource连接的数据源类型,加入数据显示控件,1、添加标签控件Label，说明显示内容； 2、添加文本控件Text,先是数据库中的内容； 3、根据数据库中表的属性内容，分别添加10个Label和9个Text。其中性别使用Checkbox控件。 4、分别设置Text的Datasource(数据源属性)为Data或ADODC，DataField（数据域）为相应的表属性名。 5、数据表格显示控件DataGrid,DataGrid控件的属性,DataSource（数据源）属性 此控件不能直接存取数据库中的数据，因此需将此属性设置成某一个ADODC控件，才能够具备存取数据库的能力。 AllowAddNew（允许新增）属性 AllowDelete（允许删除）属性 AllowUpdate（允许更新）属性,程序代码,Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) Dim news, old Select Case Button.Key Case “First“ Adodc1.Recordset.MoveFirst Case “previous“ Data1.Recordset.MovePrevious If Adodc1.Recordset.BOF Then Adodc1.Recordset.MoveLast End If Case “next“ Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveFirst End If,程序代码,Case “last“ Adodc1.Recordset.MoveLast Case “add“ Adodc1.Recordset.AddNew Toolbar1.Buttons(“delete“).Enabled = False Text1.SetFocus,程序代码,Case “delete“ 设置一个错误陷阱 On Error Resume Next news = MsgBox(“一定要删除该记录吗？“, vbYesNo) If news = vbYes Then Adodc1.Recordset.Delete Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast End If End If,程序代码,Case “find“ Unload Me frmex27_frm2.Show Case “exit“ MsgBox “欢迎使用VB数据库应用程序，感谢各位用户的支持和厚爱！“ old = MsgBox(“要退出该用于程序吗？“, vbYesNo) If old = vbYes Then End End If End Select End Sub,进一步完善系统主界面,建立菜单的步骤: 建立窗体,添加控件; 启动菜单编辑器(“工具”/“菜单编辑器”); 设置各菜单项; 为相应的菜单项添加编写事件过程.,菜单显示区,简单的编辑按钮,属性设置,菜单上的说明文字,控件名称,Caption,将子菜单向上或下移一级,菜单编辑器,菜单列表框,启动菜单编辑器： 1、工具菜单编辑器(CTRL+E) 2、窗体上快显菜单菜单编辑器,菜单项属性,常用属性： 1. 标题(Caption) 热键：前面加& 2. 名称(Name)文本框 分隔符也应有名称。 3. 快捷键(Shortcut) 菜单名没有快捷键 4. 复选(Checked)检查框 TRUE 有 5. 有效(Enabled)检查框 6. 可见(Visible)检查框,操作按钮,弹出菜单(快捷菜单) 显示在窗体的浮动菜单，操作时使用右键，菜单与鼠标位置有关。,PopupMenu方法建立弹出菜单。 形式： 对象.PopupMenu 菜单名, 标志, 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, 200 End If End Sub,表示弹出的位置和触发的键,进一步完善登陆窗口,Private Sub cmdOK_Click() 测试