第7篇数据库应用程序设计方法.ppt

  1. 1、本文档共122页,可阅读全部内容。
  2. 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
第7章 数据库应用程序设计方法 一、教学内容: 1.“成绩查询”程序任务 2.VB数据对象及数据库访问机制概述 3.数据库控件和可视化数据管理器 4.报表设计 二、教学要求 1.掌握VB数据库应用程序的基本框架 2.掌握SQL操纵数据的方法 3.理解使用VB数据库引擎操纵数据库的方法 4.理解VB数据对象及数据库访问机制 5.理解数据绑定控件的基本用法 6.了解使用Excel输出报表的方法 7.了解第三方报表控件的引用方法 8.了解DataReport、Crystal Report的使用方法 9.了解可视化数据管理器的使用方法 10.了解“成绩查询”程序的设计过程 7.1成绩查询程序任务 7.1.1任务概述 数据库应用程序的开发,必须在学习了数据库知识基础上,设计出数据库,然后才能用语言进行用户界面的开发。 数据库越复杂,程序的开发工作量也越大,但基本的开发方法是相同。 本例子是一个小型的数据库应用程序,但以小见大,可了解VB中数据库应用的基本内容与过程。 1、数据库设计 成绩数据库,中有三张表:学生成绩表、学生情况表、课程情况表。 表结构 2、程序主要功能 根据已有数据库,用SQL语句完成对学生成绩表的插入、修改、删除、和查询操作。 (1)手稿记录: Insert into 学生成绩表(学号,课程号,成绩) Values(’001’,’001’,’85’) (2)删除记录: Delete from 学生成绩表 Where 学号=‘001’And 课程号=‘001’ (3)修改记录 (4)按学号查询 (5)打印成绩单 说明 在完成用户界面设计的基础上,只要将SQL语句嵌入到VB程序中,即可完成成绩查询程序的开发,这种方式称为嵌入式开发。 SQL的基本内容的回顾 7.1.2界面设计 1、创建工程 2、创建主窗体 3、创建新增记录窗体 4、创建修改记录窗体 5、创建删除记录窗体 6、创建查询记录窗体 操作演示 2、创建主窗体 3、创建新增记录窗体 4、创建修改记录窗体 5、创建删除记录窗体 6、创建查询记录窗体 7.1.3代码设计 1、连接数据库代码: 通过“工程--引用”菜单,添加对象库“Microsoft Data Object 2.7 Library” 通过工程菜单,添加一个模块输入相关代码 通过工程—工程属性菜单,设置MAIN过程为启动对象。 有一个全局变量ADOcn 模块代码 '声明全局对象变量ADOcn,用于创建与数据库的连接 Public ADOcn As Connection Public Sub Main() '定义数据库连接字符串 Dim strAccess As String Dim strSQLServer As String '用于连接Access数据库,其中Data Source为具体的数据库文件路径,其他设置不变 strAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=成绩.mdb" '用于连接SQL Server数据库,其中: 'Server为服务器名称 'User ID为登录账号 'Password为登录口令 'Database为具体的数据库名 strSQLServer = "Provider=SQLOLEDB;Server=bigdog;User ID=sa;Password=sa;Database=成绩" '如果还没有建立与数据库的连接,则用以下代码创建。 If ADOcn Is Nothing Then Set ADOcn = New Connection 'ADOcn.Open strSQLServer '连接SQL Server数据库 ADOcn.Open strAccess '连接Access数据库 '如果希望连接Access数据库,则使用strAccess '无论你使用的是何种数据库,只需改变此处设置,其他程序代码基本不用改变 End If frmMain.Show '显示主窗体 End Sub 2、设置窗体间的调用关系 Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) Select Case Button Case "增加" frmAdd.Show 1 Case "修改" frmUpdate.Show

文档评论(0)

189****6140 + 关注
实名认证
内容提供者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档