寵物用品管理系統(tǒng)--數(shù)據(jù)庫(kù)課程設(shè)計(jì)(編輯修改稿)
2025-02-14 15:26 本頁(yè)面
【文章內(nèi)容簡(jiǎn)介】 et 1 = New Set rs1 = New Set cm1 = New Dim strn As Stringstrn = driver={sql server}。server=(local)。database=CW。 strn = 1strsql = select * from managers where mngId=39。 + + 39。and psd=39。 + + 39。Set rs1 = (strsql)If = False ThenUnload MeElseMsgBox (用戶名或密碼錯(cuò)誤,請(qǐng)重新登錄!)End IfEnd SubPrivate Sub register_Click()Unload MeEnd Sub（2） 客戶注冊(cè)頁(yè)面 Private Sub Form_Load() = select * from customersSet = Adodc1 = cusNameSet = = citySet = = telSet = = adsEnd SubPrivate Sub new_Click()End SubPrivate Sub return_Click()Unload MeEnd SubPrivate Sub save_Click()MsgBox 注冊(cè)成功！, vbOKOnly, 提示End Sub（3） 貨品管理頁(yè)面Private Sub delete_Click()End SubPrivate Sub return_Click()Unload MeEnd Sub（4） 貨品展示頁(yè)面 Dim s As StringPrivate Sub order_Click()Unload MeEnd SubPrivate Sub register_Click()Unload MeEnd SubPrivate Sub return_Click()Unload MeEnd Sub 凡是需要數(shù)據(jù)庫(kù)信息的窗體，都必須將VB與SQL連接，使用Adodc控件和Datagrid控件，設(shè)置屬性，更改相應(yīng)的ODBC數(shù)據(jù)源和記錄源，將數(shù)據(jù)庫(kù)中的信息與VB連接起來(lái)。七、系統(tǒng)評(píng)價(jià)及心得體會(huì)系統(tǒng)評(píng)價(jià) 本次的課程設(shè)計(jì)，我能完成老師給出的最基本要求，并在此基礎(chǔ)創(chuàng)新，選擇了一個(gè)相對(duì)新穎的題目進(jìn)行設(shè)計(jì)，合理之處是把系統(tǒng)分為管理員和客戶兩個(gè)方向來(lái)管理，大大提高了系統(tǒng)的效率，方便使用。包括增刪改查以及注冊(cè)等多個(gè)功能。不足之處是建表太多，數(shù)據(jù)有點(diǎn)冗余。以后會(huì)多加改正，創(chuàng)建出更合理的管理系統(tǒng)。學(xué)習(xí)感受。 （1）必須牢固地掌握基礎(chǔ)知識(shí)，如數(shù)據(jù)庫(kù)，vb等，這樣才能寫(xiě)出高水平的程序。 （2）當(dāng)遇到問(wèn)題時(shí)，多動(dòng)腦筋，查資料或者上網(wǎng)，認(rèn)真仔細(xì)地解決，相信
環(huán)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1