齐幼菊版《Visual Basic程序设计》课程作业四及答案文档格式.docx
《齐幼菊版《Visual Basic程序设计》课程作业四及答案文档格式.docx》由会员分享,可在线阅读,更多相关《齐幼菊版《Visual Basic程序设计》课程作业四及答案文档格式.docx(15页珍藏版)》请在冰豆网上搜索。
select*from学生表"
ADOrs.OpenstrSQL'
ADOrs.Close'
3.程序设计题
(1)有以下3个数据表:
学生表:
student_info(student_id,student_name,student_sex,student_class),分别表示学号、姓名、性别、班级,各字段数据类型都是文本。
课程表:
course_info(course_ID,course_name,course_credit),分别表示课程号、课程名、学分,课程号、课程名为文本类型,学分为数字类型。
成绩表:
mark_info(student_ID,course_ID,mark),分别表示学号、课程号、成绩,其中学号、课程号为文本类型,mark为数字类型。
写出下列功能的SQL语句:
插入一个新课程记录(课程号:
A001;
课程名:
英语1;
学分:
5)
修改学号为“95020”,课程号为“A001”的成绩为85
查询所有学生的基本信息,使用中文作为查询结果的各字段的名称
统计出各个班级的人数
查询出学号为“95020”所选修的课程名和成绩,以及姓名
(2)编写使用ADO对象中的Connection对象连接SQLServer数据库的代码。
(3)使用VisualBasic开发一个简单的通讯录,要求实现以下功能:
能够录入联系人的基本信息,并保存。
输入后,可以浏览所有联系人的基本信息。
可以按姓名等关键字查找记录。
能够对个人的基本信联系人息进行编辑修改和删除记录。
第7章多媒体应用——播放器
(1)决定系统是否自动检测多媒体控件(MMControl)各按钮的状态的属性是()。
A.EnableB.AutoEnable
C.PlayEnabledD.以上答案都不正确
(2)将多媒体控件(MMControl)的Frames属性设为3,则以下叙述正确的是()。
A.指定Back或Step命令后退或前进的帧数都为3
B.只有Back命令后退的帧数为3
C.只有Step命令前进的帧数为3
D.后退或前进的帧数都为6
(3)多媒体控件(MMControl)具有一组执行MCI命令的下压式按钮。
其中Record按钮表示为()。
A.前一首B.录制C.弹出D.播放
(4)为了使多媒体控件(MMControl)中的录制按钮不显示,应添加代码()。
A.MMControl1.Visible=False
B.MMControl1.Visible=True
C.MMControl1.RecordVisible=False
D.MMControl1.RecordVisible=True
(5)在多媒体控件(MMControl)中,DeviceType属性用于设置多媒体设备的类型,如果将要播放的文件是CD歌曲,应将DeviceType属性设置为()。
A.DigitalVideoB.WaveAudioC.AVIVideoD.CDAudio
(6)WindowsMediaPlayer控件的UiMode属性,表示播放器界面模式,以下选项是播放器模式的属性值是()。
A.FullB.MiniC.NoneD.以上都是
(7)在WindowsMediaPlayer控件中,决定播放文件是否全屏的属性是()。
A.FullScreenB.FullC.ScreenD.stretchToFit
2.程序设计题
设计CD播放器程序,通过该程序能够欣赏CD-ROM中CD曲目,并能控制播放状态及更改播放曲目,显示CD盘中的歌曲总数及正在播放歌曲的播放总时间,界面如下图所示。
参考答案
(1)B
(2)A(3)B(4)C
(1)
声明Connection对象Adocn
创建新对象
建立与数据库连接
(2)
声明并创建一个新的Recordset对象
与Connection对象建立关联
声明一条SQL语句
执行SQL语句,记录集为查询结果
关闭记录集对象
1Insertintocourse_infovalues('
A001'
'
英语'
5)
2Updatemark_infosetmark=85wherestudent_ID='
95020'
andcourse_ID='
3Selectstudent_idas学号,student_nameas姓名,student_sexas性别,student_classas班级fromstudent_info
4Selectstudent_class,count(*)fromstudent_infogroupbystudent_class
5Selectstudent_nameas姓名,course_nameas课程名,markas成绩fromstudent_info,course_info,mark_info
wherestudent_info.student_id=mark_info.student_id
andcourse_info.course_ID=mark_info.course_ID
andstudent_info.student_id='
PublicADOcnAsConnection
PublicSubMain()
DimstrSqlServerAsString
strSqlServer="
Provider=SQLOLEDB;
Server=(local);
UserID=sa;
_Password=sa;
Database=XS"
IfADOcnIsNothingThen
SetADOcn=NewConnection
ADOcn.OpenstrSqlServer'
连接SQLServer数据库
EndIf
EndSub
(3)
Frmmain窗体
PrivateSubForm_Load()
Combo1.AddItem"
姓名"
手机"
PrivateSubmodify_Click()
IfDataGrid1.Visible=FalseThen
frmadd.Show
Else
frmupdate.Show
EndIf
PrivateSubnew_Click()
frmadd.Show
PrivateSubquit_Click()
End
PrivateSubrefesh_Click()
DimstrSQLAsString
strSQL="
select*fromaddress_list"
Adodc1.RecordSource=strSQL
Adodc1.Refresh
DataGrid1.Visible=True
DataGrid1.Refresh
frmadd窗体
PrivateSubabout_Click()
frmabout.Show
PrivateSubCommand1_Click()
DimstrSQLAsString
IfCombo1.Text="
Then
IfText1.Text="
"
MsgBox"
请输入要查询的姓名"
vbQuestion+vbOKOnly
Else
strSQL="
select*"
strSQL=strSQL+"
fromaddress_listwherename='
+Text1.Text+"
'
Adodc1.Refresh
EndIf
请输入要查询的手机"
fromaddress_listwheremobile='
PrivateSubDataGrid1_Click()
Adodc1.Caption="
第["
+DataGrid1.Text+"
]记录"
PrivateSubdelete_Click()
IfMsgBox("
是否要删除?
vbQuestion+vbYesNo)=vbYesThen
DeleteFromaddress_list"
Where编号="
+DataGrid1.Text
ADOcn.ExecutestrSQL
删除成功"
Combo1.AddItem"
IfDataGrid1.Visible=FalseThen
frmadd.Show
frmupdate.Show
End
frmupdate窗体
updateaddress_listsetname='
+Text1.Text
sex='
+Combo1.Text
mobile='
+Text3.Text
phone='
+Text4.Text
QQ='
+Text5.Text
Email='
+Text6.Text
address='
+Text7.Text
whereid="
+frmmain.DataGrid1.Text
修改成功!
frmmain.Adodc1.Refresh
PrivateSubCommand2_Click()
UnloadMe
Text1.Text="
男"
女"
Text3.Text="
Text4.Text="
Text5.Text="
Text6.Text="
Text7.Text="
DimADOrsAsNewRecordset
ADOrs.ActiveConnection=ADOcn
ADOrs.Open"
select*fromaddress_listwhereid="
Text1.Text=ADOrs.Fields("
name"
)
Combo1.Text=ADOrs.Fields("
sex"
Text3.Text=ADOrs.Fields("
mobile"
Text4.Text=ADOrs.Fields("
phone"
Text5.Text=ADOrs.Fields("
QQ"
Text6.Text=ADOrs.Fields("
Email"
Text7.Text=ADOrs.Fields("
address"
Module1模块
声明全局对象变量ADOcn,用于创建与数据库的连接
定义数据库连接字符串
DimstrAccessAsString
用于连接Access数据库,其中DataSource为具体的数据库文件路径,其他设置不变
strAccess="
DataSource=通讯录.mdb"
如果还没有建立与数据库的连接,则用以下代码创建。
IfADOcnIsNothingThen
SetADOcn=NewConnection
ADOcn.OpenstrSQLServer'
ADOcn.OpenstrAccess'
连接Access数据库
如果希望连接Access数据库,则使用strAccess
无论你使用的是何种数据库,只需改变此处设置,其他程序代码基本不用改变
frmmain.Show'
显示主窗体
(1)B
(2)A(3)B(4)C(5)D
(6)D(7)D
初始化设备
MMControl1.Visible=False
MMControl1.Notify=True
MMControl1.Shareable=False
MMControl1.TimeFormat=0
MMControl1.DeviceType="
cdaudio"
MMControl1.UpdateInterval=1000
PrivateSubMMControl1_StatusUpdate()
计算曲目信息
label2.Caption="
曲目总数:
&
MMControl1.Tracks
Label3.Caption="
曲目播放总时间:
Trim(Str(Int(MMControl1.Length/60000)))+"
分"
Label4.Caption="
正在播放曲目:
MMControl1.Track
PrivateSubComPlay_Click()
开始播放
MMControl1.Command="
play"
ComPause.Enabled=True
ComPlay.Enabled=False
ComStop.Enabled=True
PrivateSubComPrev_Click()
播放上一首
prev"
PrivateSubComNext_Click()
播放下一首
next"
PrivateSubComPause_Click()
暂停播放
pause"
ComPlay.Enabled=True
PrivateSubComStop_Click()
停止播放
stop"
ComStop.Enabled=False
PrivateSubComEject_Click()
弹出
eject"
PrivateSubComEnd_Click()
退出
PrivateSubForm_Unload(CancelAsInteger)
关闭MCI设备
close"