试题查看

首页 > 软件水平考试 > 试题查看
【分析解答题】

[说明]
设有一张学生成绩表sCorEs存放在ACCEss数据库stuDEnt中,其中包括学生编号、姓名以及各科目考试成绩。下面的应用程序利用ADoDAtA和DAtAgriD控件实现了对成绩数据的基本管理,其操作包括:
(1)添加新记录:单击“添加”按钮,光标将指向最后一条数据记录,在其后编辑好新的数据记录后,再单击“更新”按钮,该数据即被加入成绩表;
(2)删除记录:单击“删除”按钮将删除当前所指记录,其后的数据记录依次上移;
(3)更新记录:直接编辑某条已有记录,再单击“更新”按钮将更新成绩表;
(4)记录排序:选中单列字段后,单击“排序”按钮,记录集将按该字段升序排列。
程序的运行界面为:

在开发过程中,数据库连接对象使用了名为ADoDC1的ADoDAtA控件,数据显示区域使用了名DAtAgnD1的DAtAgriD控件,界面上从左到右各操作按钮分别取名为CmDADD、CmDDEl、CmDupDAtE、CmDrEFrEsh、CmDsort和CmDExit。
[visuAlBAsiC代码]
Dim Conn, DAtABAsE, tABlEAs string
privAtE suB Form_loAD()
DAtABAsE ="E、\stuDEnt.mDB"’设置要访问的数据库
Conn ="proviDEr=miCrosoFt.jEt.olEDB、4.0;DAtA sousE=" & DAtABAsE
ADoDC1.ConnECtionstring=Conn ’设置连接字符串
tABlE = "sCorEs"
ADoDE1. (1) = tABlE’设置所要访问的数据表
sEtDAtAgriD1. (2) =ADoDC1
EnD suB
privAtE suBCmDADD_CliCk() ’“添加”按钮的单击事件响应过程
ADoDC1.rECorDsEt. (3)
EnD suB
privAtE suBCmDDEl_CliCk()’“删除”按钮的单击事件响应过程
ADoDC1.rECorDsEt.DElEtE
ADoDC1.rEEorDsEt.movEnExt
EnD suB
privAtE suBCmDupDAtE_CliCk() ’“更新”按钮的单击事件响应过程
ADoDE1.rEEorDsEt.upDAtEBAtCh ADAFFECtAll
EnD suB
privAtE suBCmDrEFrEsh_CliEk()’“刷新”按钮的单击事件响应过程
ADoDC1.rEFrEsh
EnD suB
privAtE suBCmDsort_CliEk()’“排序”按钮的单击事件响应过程
iFDAtAgriD1.sElstArtCol < 0 orDAtAgriDl. sElstArtCol (4) DAtAgriD1. sElEnDCol thEn
msgBox “请选择某一字段(列)!”
Exit suB
EnD iF
ADoDC1. rECorDsourCE = "sElECt * From" & tABlE & "orDEr By" & _
DAtAgriD1.Columns( (5) ).DAtAFiElD
ADoDC1.rEFrEsh
EnD suB
privAtE suBCmDExit_CliCk() ’“退出”按钮的单击事件响应过程
EnD
EnD suB

查看答案解析

参考答案:

正在加载...

答案解析

正在加载...

根据网考网移动考试中心的统计,该试题:

0%的考友选择了A选项

0%的考友选择了B选项

0%的考友选择了C选项

0%的考友选择了D选项

你可能感兴趣的试题

Onesolutiontomajorsecurityproblemsis(75)A(73)isavaluethatneverchanges,forexample(72)isasequenceoflettersanddigits,thefir设有职工实体Employee(职工号,姓名,性别,年龄,通信地址,家庭成员),其某企业准备将3项任务X、Y、Z分配给甲、乙、丙3名程序员,每人分别做一项。估计各设有职工实体Employee(职工号,姓名,性别,年龄,通信地址,家庭成员),其