寵物用品管理系統(tǒng)--數(shù)據(jù)庫課程設(shè)計(編輯修改稿)
2025-07-11 11:52 本頁面
【文章內(nèi)容簡介】 ivate Sub customer_Click() Unload Me End Sub Private Sub manager_Click() Unload Me End Sub Private Sub exit_Click() Unload Me End Sub Private Sub login_Click() Set 1 = New Set rs1 = New Set cm1 = New Dim strn As String strn = driver={sql server}。server=(local)。database=CW。 strn = 1 strsql = select * from managers where mngId=39。 + + 39。and psd=39。 + + 39。 Set rs1 = (strsql) If = False Then Unload Me Else MsgBox (用戶名或密碼錯誤 ,請重新登錄 !) End If End Sub Private Sub register_Click() Unload Me End Sub （ 2） 客戶注冊頁面 Private Sub Form_Load() = select * from customers Set = Adodc1 = cusName Set = = city Set = = tel Set = = ads End Sub Private Sub new_Click() End Sub Private Sub return_Click() Unload Me End Sub Private Sub save_Click() MsgBox 注冊成功！ , vbOKOnly, 提示 End Sub （ 3） 貨品管理頁面 Private Sub delete_Click() End Sub Private Sub return_Click() Unload Me End Sub （ 4） 貨品展示頁面 Dim s As String Private Sub order_Click() Unload Me End Sub Private Sub register_Click() Unload Me End Sub Private Sub return_Click() Unload Me End Sub 凡是需要數(shù)據(jù)庫信息的窗體，都必須 將 VB 與 SQL 連接，使用 Adodc 控件 和Datagrid 控件 ，設(shè)置屬性， 更改相應(yīng)的 ODBC 數(shù)據(jù)源和記錄源， 將數(shù)據(jù)庫中的信息與 VB 連接起來。 七、系統(tǒng)評價及心得體會 系統(tǒng) 評價 本次的課程設(shè)計，我能完成老師給出的最基本要求，并在此基礎(chǔ)創(chuàng)新，選擇了一個相對新穎的題目進行設(shè)計，合理之處是把系統(tǒng)分為管理員和客戶兩個方向來管理，大大提高了系統(tǒng)的效率，方便使用。包括增刪改查以及注冊等多個功能。不足 之處是建表太多，數(shù)據(jù)有點冗余。以后會多加改
畢業(yè)設(shè)計相關(guān)推薦
鄂ICP備17016276號-1