多媒体课程设计报告(ktv点歌系统)

《多媒体课程设计报告(ktv点歌系统)》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。

1、智能08臧宝龙40850238多媒体课程设计报告班级：智能08姓名：臧宝龙学号：40850238-26-智能08臧宝龙40850238KTV点歌系统课程设计一．目标：使用VB.Net制作一个简易的多媒体点歌系统。二．功能需求：1.实现歌曲文件的扫描并存储2.歌星选择（字母）3.歌名选择4.点唱预约三．设备及软件：PC机一台；VisualStudio2008；MicrosoftAccess2003三．源代码及相关功能演示：本设计基于学生信息管理系统并加以深度的改造与改进，基本实现了所需功能。1.DBoper

2、ation代码PublicClassDBOperationSharedFunctionDBOperate(ByValSQLStringAsString)AsDataTableDimCONNAsStringCONN="provider=microsoft.jet.oledb.4.0;"&"datasource=K:课程设计课程设计KTVKTVbinDebugktv.mdb"DimoleconnAsNewOleDb.OleDbConnection(CONN)DimcmdAsOleDb.OleDb

3、Command=NewOleDb.OleDbCommand(SQLString,oleconn)cmd.CommandType=CommandType.TextDimsTokens()AsStringsTokens=SQLString.Split("")IfStrings.InStr("INSERT,DELETE,UPDATE",sTokens(0).ToUpper)ThenIfoleconn.State<>ConnectionState.OpenThenoleconn.Open()'打开数据库连接End

4、Ifcmd.ExecuteNonQuery()'执行SQL语句Ifoleconn.State<>ConnectionState.ClosedThenoleconn.Close()'关闭数据库连接EndIfIfsTokens(0).ToUpper="INSERT"ThenMsgBox("编辑记录成功")EndIfIfsTokens(0).ToUpper="DELETE"ThenMsgBox("删除记录成功")EndIfIfsTokens(0).ToUpper="UPDATE"ThenMsgBox("更新记录

5、成功")EndIfReturnNothingElseDimObjectdsDataSetAsNewDataSet()-26-智能08臧宝龙40850238DimadapterAsNewOleDb.OleDbDataAdapter()adapter.TableMappings.Add("Table","TEMP")adapter.SelectCommand=cmdIfoleconn.State<>ConnectionState.OpenThenoleconn.Open()'打开数据库连接EndIfcmd.E

6、xecuteNonQuery()'执行SQL语句Ifoleconn.State<>ConnectionState.ClosedThenoleconn.Close()'关闭数据库连接EndIfadapter.Fill(ObjectdsDataSet)'填充数据集ReturnObjectdsDataSet.Tables("TEMP")EndIfEndFunctionEndClass1.DBuser代码PublicClassDBUserPrivate_UserNameAsStringPrivate_Passwo

7、rdAsStringPropertyusername()AsStringGetReturn_UserNameEndGetSet(ByValvalueAsString)_UserName=valueEndSetEndPropertyPropertypassword()AsStringGetReturn_PasswordEndGetSet(ByValvalueAsString)_Password=valueEndSetEndPropertySubNew(ByValNameAsString,ByValPWDAs

8、String)_UserName=Name_Password=PWDEndSubFunctionLoginConfirm()AsBooleanDimSQLStringAsStringSQLString="SELECT*FROM用户信息表WHERE用户名='"&_UserName&"'AND密码='"&_Password&"'"DimUserTableAsDataTable=DBOperation.DBOperate(SQLSt