第7章数据库应用程序设计方法 - 微计算机技术.ppt

数据库应用程序设计方法 第7章 7.1 成绩查询程序设计 7.1.1 任务概述 要编写一个实用的数据库程序，必须系统地学习过数据库原理的知识，并首先设计出符合用户业务需求的数据库体系，然后才能利用某种语言，开发出针对这个数据库的交互程序：数据库应用程序。 下面以一个简化的数据库设计为例： 1.进行数据库设计 建立一个名为“成绩”的数据库，其中包含三张数据表，即学习成绩表、学生情况表、课程情况表。 创建表结构 2. 程序的主要功能 利用SQL语句完成对学生成绩表的插入、修改、删除和查询操作。比如： (1)插入记录： Insert Into 学生成绩表(学号,课程号,成绩) Values(‘001’,’001’,85) (2)删除记录 Delete From 学生成绩表 Where 学号=‘001’ And 课程号=‘001’ (3)修改记录 Update 学生成绩表 set 成绩 =90 Where 学号=‘001’ And 课程号=‘001’ (4)按学号查询 Select * From 学生成绩表 Where 学号=‘001’ 在完成用户界面设计的基础上,只要将上述SQL语句“嵌入”到VB程序中,即可完成成绩查询程序的开发,这种范式通常称为嵌入式开发. 7.1.2 界面设计 1.创建工程 新建一“标准EXE”工程.工程名为“成绩查询”. 2.创建主窗体(frmMain) 设计菜单： 增加 删除 修改 查询 退出 增加学生记录 删除学生记录 增加课程记录 删除课程记录 增加成绩 删除成绩记录 增加用户 删除用户 3.创建新增学生记录窗体(frmAddStudent) 4.创建新增课程记录窗体(frmAddCourse) 5.创建新增成绩记录窗体(frmAdd) 6.创建新增用户记录窗体(frmAdd) 8.创建删除学生记录窗体(frmDelete) 9.创建删除课程记录窗体(frmDelete) 10.创建删除成绩记录窗体(frmDelete) 11.创建删除用户窗体(frmDelete) 12.创建查询记录窗体（frmQuery) 13.创建身份验证窗体 7.1.3 代码设计 1. 连接数据库代码 步骤： （1）通过“工程—引用”菜单添加对象库： Microsoft Activex Data Objects 2.7 Library （Ado数据对象）。 （2）通过工程菜单添加一个模块（Module)， 并设计以下代码。 （3）通过“工程—工程1属性”菜单，将窗体frmText过程设计设置为启动对象。 添加模块代码： 声明全局对象变量ABOcn,用于创建于数据库的连接 Public ADDcn As Connection Public Sub main() 定义数据库连接字符串 Dim strSQLServer As String 用于连接SQL Server数据库,其中: Server为服务器名称 User ID为登录账号 Password为登录口令 Database为具体的数据库名 strSQLServer = strSQLServer = Provider = SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=成绩;Data Source=lg 如果还没有建立于数据库的连接,则用以下代码创建. If ADDcn Is Nothing Then Set ADDcn = New Connection AdDDcn.Open strSQLServer End If End Sub 完成本项工作后，就创建了一个全局变量ADDcn，但它是一个特殊的变量，其数据类型是数据连接对象（Connection对象）。可以把ADDcn理解成是一个虚拟的数据库。或者称为VB程序中的逻辑数据库，通过它可以非常方便地访问其中的数据。换句话说，ADDcn是VB程序的后台数据库交互的通道。 2.设置窗体间的调用关系 2.设置窗体间的调用关系 ’调用增加课程窗体 Private Sub AddCourse_Click(Index As Integer) frmAddCourse.Show End Sub ’调用增加成绩窗体 Private Sub AddGrade_Click(Index As Integer) FrmAdd.Show End Sub ’调用增加学生窗体 Private