fccjxxw.com
非常超级学习网 学习超级帮手
当前位置:首页 >> 其它课程 >>

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


数据库软件管理的开发

数据库应用系统结构

数据库 服务器 SQL Server

应用 界面 VB应用程序

数据库访问接口 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事件中引用;

样式(Style),共6种

图象(Image) ImageList对象中的 图象值可以是Key或Index

除菜单按钮(5)外的5种样式

Style=0

Style=3

Style=4

Style=1

Style=2

三、 响应ToolBar控件事件 ToolBar控件常用的事件有两个:ButtonClick和ButtonMenuClick。 前者对按钮样式为0-2,后者对样式为5的菜单按钮。 (1)用索引Index确定按钮 (2)用关键字Key确定按钮

Private Sub Toolbar1_ButtonClick(Byval Button As ComctlLib.Button) Select Case Button.Key Select Case Button.Index Case "TNew" Case 1 FileNewProc FileNewProc Case 2 Case "TOpen" FileOpenProc FileOpenProc …… ..... End Select End Sub
注意:第1个按钮的Index值为1。用Index还是用Key比较,Key 可读 性好,可维护性好。

加入数据连接控件
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 位置确定弹出菜单的左边界 4:弹出菜单以X为中心 8:X 位置确定弹出菜单的右边界

0:只能用鼠标左键触发弹出菜单; 2:能用鼠标左、右键键触发弹出菜单;

位置与性能是加的关系。
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() '测试密码是否正确 If txtPassword.Text = "" Then OK = True Me.Hide Else MsgBox "密码错误,再试一次!", , "登录" txtPassword.SetFocus txtPassword.SelStart = 0

txtPassword.SelLength = Len(txtPassword.Text)
End If End Sub


更多相关文章:

非常超级学习网 fccjxxw.com

copyright ©right 2010-2021。
非常超级学习网内容来自网络,如有侵犯请联系客服。zhit325@126.com|网站地图