option explicit
定义连接对象及记录集。
dim cnn as
dim rs as
dim comm as
dim txttxt as string '文本框文本。
dim comtxt as string '组合框文本。
private sub command1_click()
查询。dim strxingming as string '姓名。
dim strxuehao as string '学号。
dim strbanji as string '班级。
comtxt = 组合框内选项。
txttxt =
dim strquery as string
strquery = select * from 基本信息 where " comtxttxttxt &
set = cnn
= aduseclient
= adlockbatchoptimistic
strquery, cnn, adopenstatic, adlockbatchoptimistic
if > 0 then
elsemsgbox "库中无数据记录！"
exit sub
end if
dim i as integer
for i = 0 to - 1 '是纪录数量的总数。
if isnull( then '循环语句给text赋值。
text1(i) =0
elsetext1(i) =
end if
nextend sub
private sub command2_click()
第一条。comtxt = 组合框内选项。
txttxt =
dim strquery as string
set = cnn
= aduseclient
= adopenforwardonly
strquery = select * from 基本信息 where " comtxttxttxt &
strquery
dim i as integer
for i = 0 to - 1 '是纪录数量的总数。
if isnull( then '循环语句给text赋值。
text1(i) =0
elsetext1(i) =
end if
nextend sub
private sub command3_click()
上一条。为使记录集向前移动，需显式的定义游标类型，默认为仅向前。
comtxt = 组合框内选项。
txttxt =
dim strquery as string
set = cnn
= aduseclient
= adopendynamic
strquery = select * from 基本信息 where " comtxttxttxt &
strquery
("学号='"text1(1).text &
if = true then
dim i as integer
for i = 0 to - 1 '是纪录数量的总数。
if isnull( then '循环语句给text赋值。
text1(i) =0
elsetext1(i) =
end if
next关闭记录集。
end sub
private sub command4_click()
下一条。为使记录集向前移动，需显式的定义游标类型，默认为仅向前。
comtxt = 组合框内选项。
txttxt =
dim strquery as string
set = cnn
= aduseclient
= adopendynamic
strquery = select * from 基本信息 where " comtxttxttxt &
strquery
("学号='"text1(1).text &
if = true then
text1(0).text = 姓名")
text1(1).text = 学号")
text1(2).text = 班级")
text1(3).text = 性别")
关闭记录集。
comtxt = 组合框内选项。
txttxt =
set = cnn
= aduseclient
= adopendynamic
strquery = select * from 基本信息 where " comtxttxttxt &
strquery
("学号='"text1(1).text &
if = true then
text1(0).text = 姓名")
text1(1).text = 学号")
text1(2).text = 班级")
text1(3).text = 性别")
关闭记录集。
end sub
private sub command5_click()
最后一条。comtxt = 组合框内选项。
txttxt =
dim strquery as string
set = cnn
= aduseclient
= adopendynamic
strquery = select * from 基本信息 where " comtxttxttxt &
strquery
dim i as integer
for i = 0 to - 1 '是纪录数量的总数。
if isnull( then '循环语句给text赋值。
text1(i) =0
elsetext1(i) =
end if
next关闭记录集。
end sub
private sub command6_click()
删除内容此处应考虑将数据删除后，文本框中的内容自动转到下一行。当这条数据已经是最后一条时，文本框中的内容转到上一条。
dim jilu as string
dim i as integer
comtxt = 组合框内选项。
txttxt =
dim strquery as string
set = cnn
= adlockoptimistic
= adopenkeyset
strquery = select * from 基本信息 where " comtxttxttxt &
strquery
("学号='"text1(1).text &
if = true then '当是最后一条时。
if = true then '当数据就剩下这一条时。
msgbox "这是该数据库中符合条件的最后一条数据"
for i = 0 to - 1
text1(i) =
nextelse
for i = 0 to - 1 '是纪录数量的总数。
if isnull( then '循环语句给text赋值。
text1(i) =0
elsetext1(i) =
end if
nextend if
else '当不是最后一条时。
for i = 0 to - 1 '是纪录数量的总数。
if isnull( then '循环语句给text赋值。
text1(i) =0
elsetext1(i) =
end if
nextend if
msgbox "成功删除一条记录"
关闭记录集。
end sub
private sub command7_click()
信息录入。
dim strquery as string
set = cnn
= adlockoptimistic
= adopenkeyset
strquery = select * from 基本信息"
strquery
dim i as integer
for i = 0 to - 1 '是纪录数量的总数。
if len(text1(1).text) =0 then
text1(0).setfocus
msgbox "编号不能为空！"
exit sub
end if
next姓名") text1(0).text
学号") text1(1).text
班级") text1(2).text
性别") text1(3).text
msgbox "成功插入一条记录"
end sub
private sub command9_click()
修改内容。更改按钮的单击事件过程。
执行该过程之前应先通过查询定位修改的记录。
comtxt = 组合框内选项。
txttxt =
dim strquery as string
set = cnn
= adlockoptimistic
= adopenkeyset
strquery = select * from 基本信息 where " comtxttxttxt &
strquery
("学号='"text1(1).text &
保存修改结果。
姓名") text1(0).text
学号") text1(1).text
班级") text1(2).text
性别") text1(3).text
msgbox "成功修改一条记录"
人事管理系统 数据库
华科学院计算机科学与技术专业 数据库课程设计 报告。2010 2011学年第一学期 学生姓名路玮 学生班级信管082202h 学生学号 200822040218 指导教师李晓波。年月日。目录。第1章系统概述。1.1 本课题的 1.2 本课题研究的目的及意义。1.3 本课题的研究现状。1.4 可行性研...
数据库课程设计总结
篇一 数据库课程设计个人总结。数据库课程设计个人总结。姓名 邢王秀学号 200924101215 班级 09计本 2 班。一个月的时间非常快就过去了，这一个月我不敢说自己有多大的进步，获得了多少知识，但起码是了解了项目开发的部分过程。虽说上过数据库相关的课程，但是没有亲身经历过相关的设计工作细节。这...
数据库课程设计报告范例
课题名称 图书管理系统 专业 信息与计算科学 班级 信计071班。小组人员 廖格 20072571 陶凌弘 20072575 金胜林 20072576 吴雷 20072579 周志伟 20072580 谢弋平 20072585 章寿涛 20072596 一 背景资料。在高校中，学生的数量较多，图书的...
《数据库及其应用》实验报告
数据库及其应用 实验报告。本实验的操作步骤如下。一 1.3.定义数据库文件。启动access，单击 新建 按钮图标，在 任务窗格 中单击 空数据库 超链接，在 文件新建数据库 对话框中找到 e 教学管理 文件夹，进行创建。4 定义数据库中各表。在 数据库 窗口中选择 表 对象栏。在 表 对象窗口中双...
教务管理系统数据库设计报告
软件数据库设计。一 引言。1 编写目的。编写本数据库的目的在于有利于后期的维护，其主要读者为后期的系统维护人员。以便于他们在维护时方便地掌握原数据库环境。2 背景。a 待开发的数据库名称为 使用该数据库的系统为 教务管理。b 本项目是由计算机科学与技术学院08计11班郭琼 王娟 何婷婷 李姣 金欢欢...
样例 数据库课程设计报告
设计题目。班级。学号。姓名。指导教师。完成日期。成绩 课程设计完成以后，需要写设计报告，其中主要内容如下 1 封面。封面上要有课程设计的题目 学号 姓名 指导老师姓名 完成的日期等内容。2 选题说明和需求介绍。3 数据库设计说明。4 系统的功能模块划分。5 实现过程及完成效果介绍。6 总结 感想和收...
人事管理系统 数据库课计
一 需求分析。1.项目设计的目的。实现企业人事管理系统化，规范化和自动化，从而达到提高人事管理的工作效率和工作质量的目的。2 项目设计的基本思想。1 人事档案管理模块。1 对公司里所有员工进行统一编号 将每一位员工的信息保存在员工档案记录中。2 对新聘用的员工，将其信息加入到员工档案记录中 对于解聘...
某管理系统 数据库设计报告 范本
管理系统。数据库设计报告。v1.0 说明 类型 创建 c 修改 u 删除 d 增加 a 目录。1.编写目的 5 2.参考文献 5 3.名词解释 5 4.数据库命名规则 5 4.数据库逻辑结构设计 6 4.0表汇总 6 4.1合同信息 8 4.2 审核信息表 8 4.3 备案基本信息 9 4.4 备案...