《《数据库管理软件的开发》教学课件.ppt》由会员分享，可在线阅读，更多相关《《数据库管理软件的开发》教学课件.ppt（25页珍藏版）》请在三一办公上搜索。
1、数据库软件管理的开发,数据库服务器,应用界面,VB应用程序,SQL Server,数据库访问接口VB数据库访问控件,数据库应用系统结构,案例教务管理系统的开发,实例目标 首先创建一个名为“教务”的数据库，然后使用Vb程序浏览和访问数据库。技术要点 静态查询和SQL语言的使用；使用ToolBar和ImageList控件制作工具栏。,实现步骤,创建数据库创建主窗体添加工具栏按钮控件：ToolBar和ImageList控件添加数据库连接控件添加数据显示控件编写代码,建立教务数据库,创建登陆模块,Private Sub Command1_Click()Ad1.RecordSource=team:Ad1
2、.RefreshAd1.Recordset.find 姓名=+Text1.Text+If Ad1.Recordset.EOF Thenx=MsgBox(没有该用户，重新输入吗？,vbYesNo,错误！)If x=vbYes Then Exit Sub Else EndEnd IfIf Ad1.Recordset.Fields(1)=Text2.Text Then Unload Form1:Form2.Show:Exit Subx=MsgBox(密码错误，重新输入吗？,vbYesNo,错误！)If x=vbYes Then Exit Sub Else EndEnd Sub,创建主窗体,首先添加T
3、oolBar和ImageList控件到工具箱；步骤：1.工程/部件选“Microsoft Windows Common Control 6.0”2.ToolBar控件包含用来创建工具栏的按钮对象集合；ToolBar可以拥有文本和相关联的ImageList提供的图像；,创建工具栏,3.ImageList控件的属性创中选择图像标签；4.设置按钮属性：索引(1)，标题(第一个)，关键字(First)，样式(0-tbrDefault)，工具提示文本(单击此按钮查看第一个记录)，图像(1)。5.根据题意添加8个按钮,创建工具栏,在ImageList控件中添加图象ImageList控件不单独使用，专门为其
4、它控件提供图像库。,索引（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和Butto
5、nMenuClick。前者对按钮样式为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 SelectEnd Sub注意：第1个按钮的Index值为1。用Index还是用Key比较，Key 可读性好，可维护性好。,Select Case Button.Key Case TNew FileN
6、ewProc 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、数据表格显
7、示控件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 Case previous If Adodc1.Re
8、cordset.BOF Then End If Case next If Adodc1.Recordset.EOF Then End If,程序代码,Case last Case add Toolbar1.Buttons(delete).Enabled=False Text1.SetFocus,程序代码,Case delete 设置一个错误陷阱 On Error Resume Next news=MsgBox(一定要删除该记录吗？,vbYesNo)If news=vbYes Then If Adodc1.Recordset.EOF Then End If End If,程序代码,Case fi
9、ndUnload Mefrmex27_frm2.Show Case exitMsgBox 欢迎使用VB数据库应用程序，感谢各位用户的支持和厚爱！old=MsgBox(要退出该用于程序吗？,vbYesNo)If old=vbYes ThenEndEnd IfEnd SelectEnd Sub,进一步完善系统主界面,建立菜单的步骤:建立窗体,添加控件;启动菜单编辑器(“工具”/“菜单编辑器”);设置各菜单项;为相应的菜单项添加编写事件过程.,菜单显示区,简单的编辑按钮,属性设置,菜单上的说明文字,控件名称,Caption,将子菜单向上或下移一级,菜单编辑器,菜单列表框,启动菜单编辑器：1、工具菜单
10、编辑器(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为中
11、心 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,
