21.王五為學(xué)生們設(shè)計了學(xué)校食堂學(xué)生校園卡查詢系統(tǒng),在終端機上輸入學(xué)生的校園卡卡號,可以查出該卡對應(yīng)的學(xué)生姓名及相應(yīng)的余額.
校園卡信息存儲在一個綜合的數(shù)據(jù)庫“school.mdb”,其中的“Yue”數(shù)據(jù)表用來存儲學(xué)生的校園卡基本信息,包括學(xué)號(num)、姓名(name)、余額(money),括號內(nèi)的為對應(yīng)字段名.下列VB程序用來實現(xiàn)根據(jù)學(xué)號查詢并顯示學(xué)生姓名及余額,運行界面如圖所示:
數(shù)據(jù)庫文件與應(yīng)用程序在同一文件夾中,在文本框Text1中輸入學(xué)生的學(xué)號,單擊“查詢”按鈕,在標簽Label4、Label5中分別顯示學(xué)生姓名和余額.
Private Sub Command1_Click ( ?。?br />Dim adocn As new connection
Dim adors As new recordeset
Dim str1As string,str2as string
Str1=”driver=microsoft access driver(*.mdb);dbq=”&app.path&”\①
.mdb”
Adon.open str1
Str2=”select*from Yue where②____=’”+text1.text+”’”
Adors.open str2,adocn,adOpenDynamc,adLockOptimistic
If adors.eof then
Msgbox”你輸入的學(xué)號不存在!”
Else
Label4.caption=adors.Fields(“name”).value
③_____=adors.Fields(“money”).value
Endif
Adors.close
Adocn.close
End Sub
為了實現(xiàn)上述目標,在橫線處填入合適的語句或表達式:
①
②
③
.