- 1、本文档共200页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
数据库应用程序设计方法; 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);7. 创建修改记录窗体( frmUpdate);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
’调
您可能关注的文档
- 福建省高等教育自学考试面向社会开考专业2015年4-福建省教育考试院.doc
- 离岸融资-深圳市对外经济贸易服务中心.ppt
- 离心管的使用.ppt
- 禾丰开发科技有限公司TEL02-8228-6089HONOVARESOURCES.doc
- 种植我们的植物(上).ppt
- 科学、艺术考察活动的策划.ppt
- 科技英语的词汇及翻译.ppt
- 租用馆管理员培训.ppt
- 秦九韶算法设是一个n次的多项式对该多项式按下面的方式进行改写.ppt
- 移动学习应用开发初探——Android篇.doc
- 党员领导干部在理论学习中心组主题会议上的发言材料汇编(6篇).docx
- 2023年行政执法工作计划汇编(4篇).docx
- 国企领导干部学习董事长在新提任干部讲话精神心得汇编7篇.docx
- 学习《著作选读》第一卷、第二卷心得体会汇编(9篇).docx
- 关于切实做好国庆期间安全生产工作的通知汇编(5篇).docx
- 在2023年招商引资推介会上的推介词汇编(5篇).docx
- 医院年终工作总结汇编(共10篇)官方抖音号:笔尖耕耘.docx
- 2022年度镇和开发区书记抓基层党建工作述职报告汇编(7篇),提纲值得参考!1.docx
- 教育主题经验交流材料汇编(5篇).docx
- 在党内主题教育专题推进会议上的讲话汇编(3篇).docx
文档评论(0)