選擇系統(tǒng)課程設(shè)計(jì)(文件)
【正文】 mand2_Click() End Sub 窗體 3 mlink = Provider=。 = False 39。 Else = select * from 空表 End If End If End If End Sub Private Sub Command2_Click() End Sub Private Sub Form_Load() Dim mpath$, mlink$ mpath = If Right(mpath, 1) \ Then mpath = mpath + \ mlink = Provider=。 mlink = mlink + Data Source= + mpath + = mlink = adCmdUnknown End Sub 窗體 5 = select * from 查詢已選 Else = select * from 空表 If Option2 Then = select * from 查詢未選 Else = select * from 空表 If Option3 Then = select * from 輸入姓名查詢 where 姓名 = amp。 = False 39。, , , 1 If Then MsgBox 無此學(xué)號(hào)！ , , 提示 Else MsgBox 已簽到！ , , 提示 (已選題 ) = 1 39。 完整的源程序 窗體 1 = True 學(xué)號(hào) =39。 “ 查詢 學(xué)生選題 信息 ” End Sub “ 結(jié)束程序 ” 總結(jié) 這次課設(shè)我的題目是 課程設(shè)計(jì)題目選擇系統(tǒng) ，通過這次課設(shè)讓我 更加深入地 了解了VB 與數(shù)據(jù)庫之間的聯(lián)系，可以應(yīng)用 ADO技術(shù)使 VB 與數(shù)據(jù)庫進(jìn)行聯(lián)系，還可以應(yīng)用SQL 語言查詢和更改數(shù)據(jù)庫中的信息， 通過完成這些作品，學(xué)生鞏固、加深了對(duì)相關(guān)知識(shí)的理解，加強(qiáng)了知識(shí)之間的聯(lián)系，促進(jìn)了知識(shí)的遷移和應(yīng)用。 amp。 “通過 adodc 控件訪問數(shù)據(jù)庫并通過 dategrid 控件顯示信息” = select * from 查詢已選 Else = select * from 空表 If Option2 Then = select * from 查詢未選 Else = select * from 空表 If Option3 Then = select * from
畢業(yè)設(shè)計(jì)相關(guān)推薦
鄂ICP備17016276號(hào)-1