光盤管理系統(tǒng)計算機(jī)信息管理論文-資料下載頁
2025-06-18 19:34本頁面
【正文】 功能代碼如下：Case Is = 修改管理員 Call (select * from 管理員 where 名字=39。 amp。 (0).Text amp。 39。) If Not Then (名字) = (0).Text (密碼) = (1).Text (級別) = (解屏密碼) = (3).Text Call Call MsgBox 修改成功?。?！, vbInformation End If刪除管理員功能：完成刪除管理員功能，采用了預(yù)設(shè)得方式。 輸入項目：鼠標(biāo)或鍵盤事件。 輸出項目：無。 界面如圖所示：功能代碼如下： Case Is = 刪除管理員 Call (select * from 管理員 where 名字=39。 amp。 (0).Text amp。 39。) If Not Then (0).Text = (名字) (1).Text = (密碼) = (級別) (3).Text = (解屏密碼) Call 39。刪除 Call 39。更新 Call 39。關(guān)閉 MsgBox 刪除成功?。?！, vbInformation (0).Text = (1).Text = = (3).Text = End If End SelectEnd Sub Case Is = 管理員查詢 Private Sub search_Click(Index As Integer) Call (select * from 管理員 where 名字=39。 amp。 (0).Text amp。 39。) If Not Then (0).Text = (名字) (1).Text = (密碼) = (級別) (3).Text = (解屏密碼) Call Else MsgBox 沒有此管理員！??！, vbInformation Call End If 功能：查詢光盤功能, 采用了預(yù)設(shè)得方式。 輸入項目：鼠標(biāo)或鍵盤事件。 輸出項目：無。 界面如圖所示：功能代碼如下：Private Sub modicd_Click() On Error Resume Next msg = 設(shè)置基本數(shù)據(jù) (3).Selected = True = = 1 (0).Text = = False = True db = select * from 影片資料 where 影片名稱=39。 amp。 Trim((0).Text) amp。 39。 Call (db) (0).Text = (影片編號) (1).Text = (影片名稱) (4).Text = (時間長度) (2).Text = (導(dǎo)演) (3).Text = (發(fā)行年度) (8).Text = (影片介紹) (6).Text = (購買價格) = (影片類型) = (影片語言) = (影片格式) (7).Text = (總數(shù)) (5).Text = (出租價格) Call Call (select * from 演員 where 影片編號=39。 amp。 (0).Text amp。 39。) Do While Not (演員).Value Loop Call End Sub結(jié) 束 語 整個程序的編寫已經(jīng)完成，經(jīng)過這次的實踐讓我們對如何利用VB開發(fā)數(shù)據(jù)庫程序有了一個更深得理解。在此期間我們遇到了許多困難，但經(jīng)過我們反復(fù)的查閱資料和不斷調(diào)試下，這些難題還是終究被我們一一克服了，比如數(shù)據(jù)庫的加密、如何訪問加密的數(shù)據(jù)庫之類的，在這場實踐中我們一起調(diào)研、開發(fā)、調(diào)試，從中我們也得到了寶貴的的經(jīng)驗。雖然該系統(tǒng)還并不是很完美，有些功能因條件和自身能力的關(guān)系沒有設(shè)計出來，比如打印之類的管理，所以使得我們今后要不斷學(xué)習(xí)更多的東西來完善它，使其真正成為功能完備的光盤管理系統(tǒng)。參考文獻(xiàn)軟件工程原理、方法與應(yīng)用 史濟(jì)民 著 高等教育出版社軟件工程實驗 陳明、王智廣、趙鵬翔 著 高等教育出版社VB程序設(shè)計基礎(chǔ) 郎洪、段銀田、陳勇孝 著 高等教育出版社VB程序設(shè)計教程習(xí)題及習(xí)題解答 劉瑞新、李樹東、王為東 著電子工業(yè)出版社36
黨政相關(guān)相關(guān)推薦
鄂ICP備17016276號-1