大一下学期课程设计代码.pdfVIP

添加歌曲信息

OptionExplicit

PublicsqlStrAsString

PrivateSubCommand1_Click()

DimiAsInteger

DimmaxAsInteger

DimgsbhAsInteger

IfText1.Text=OrText4.Text=OrText5.Text=OrText1.Text=Then

MsgBox请将信息填写完整,vbOKOnly+vbExclamation,警告

ExitSub

EndIf

sqlStr=select歌手编号fromsongwhere[歌手]=Trim(cboGS.Text)

Adodc1.RecordSource=sqlStr

Adodc1.Refresh

IfNotAdodc1.Recordset.EOFThen

gsbh=Adodc1.Recordset.Fields(歌手编号)

Else

MsgBox没有找到歌手相关信息，请先添加歌手信息，然后添加歌曲信息！,vbOKOnly

+vbExclamation,警告

ExitSub

EndIf

sqlStr=selectmax(歌曲编号)fromsong

Adodc1.RecordSource=sqlStr

Adodc1.Refresh

max=Adodc1.Recordset.Fields(0)

sqlStr=select*fromsong

Adodc1.RecordSource=sqlStr

Adodc1.Refresh

WithAdodc1.Recordset

.AddNew

.Fields(歌曲编号)=max+1

.Fields(歌名)=Text1.Text

.Fields(歌手编号)=gsbh

.Fields(作词)=Text4.Text

.Fields(歌手)=cboGS.Text

.Fields(题材)=cboTC.Text

.Fields(简介)=Text5.Text

.Fields(歌词)=Text6.Text

.Update

EndWith

MsgBox歌手信息添加完成！,vbOKOnly+vbExclamation,警告

cleartextbox

initGS

initTC

EndSub

Subcleartextbox()

Text1=

Text4=

Text5=

Text6=

EndSub

PrivateSubCommand2_Click()

UnloadMe

EndSub

PrivateSubForm_Load()

initGS

initTC

Me.Picture=Nothing

EndSub

SubinitGS()

sqlStr=select歌手fromsingerorderby歌手

Adodc1.RecordSource=sqlStr

Adodc1.Refresh

WhileNotAdodc1.Recordset.EOF

cboGS.AddItemAdodc1.Recordset.Fields(歌手)

Adodc1.Recordset.MoveNext

Wend

EndSub

SubinitTC()

sqlStr=select题材fromsong

Adodc1.RecordSource=sqlStr

Adodc1.Refresh

WhileNotAdodc1.Recordset.EOF