【正文】
參考文獻(xiàn)軟件工程原理、方法與應(yīng)用 史濟(jì)民 著 高等教育出版社軟件工程實(shí)驗(yàn) 陳明、王智廣、趙鵬翔 著 高等教育出版社VB程序設(shè)計(jì)基礎(chǔ) 郎洪、段銀田、陳勇孝 著 高等教育出版社VB程序設(shè)計(jì)教程習(xí)題及習(xí)題解答 劉瑞新、李樹(shù)東、王為東 著電子工業(yè)出版社36。在此期間我們遇到了許多困難,但經(jīng)過(guò)我們反復(fù)的查閱資料和不斷調(diào)試下,這些難題還是終究被我們一一克服了,比如數(shù)據(jù)庫(kù)的加密、如何訪問(wèn)加密的數(shù)據(jù)庫(kù)之類的,在這場(chǎng)實(shí)踐中我們一起調(diào)研、開(kāi)發(fā)、調(diào)試,從中我們也得到了寶貴的的經(jīng)驗(yàn)。 39。 amp。 39。 amp。 輸出項(xiàng)目:無(wú)。) If Not Then (0).Text = (名字) (1).Text = (密碼) = (級(jí)別) (3).Text = (解屏密碼) Call Else MsgBox 沒(méi)有此管理員!?。? vbInformation Call End If 功能:查詢光盤功能, 采用了預(yù)設(shè)得方式。 (0).Text amp。關(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。刪除 Call 39。 39。 amp。 輸出項(xiàng)目:無(wú)。) If Not Then (名字) = (0).Text (密碼) = (1).Text (級(jí)別) = (解屏密碼) = (3).Text Call Call MsgBox 修改成功?。?!, vbInformation End If刪除管理員功能:完成刪除管理員功能,采用了預(yù)設(shè)得方式。 (0).Text amp。 界面如圖所示:功能代碼如下:Case Is = 修改管理員 Call (select * from 管理員 where 名字=39。 輸入項(xiàng)目:鼠標(biāo)或鍵盤事件。更新 Call 39。查詢條件在數(shù)據(jù)庫(kù)中 If Then Call 39。 39。 amp。 輸出項(xiàng)目:無(wú)。彈出修改菜單添加管理員功能:完成添加管理員功能, 采用了預(yù)設(shè)得方式。 39。 amp。 39。 amp。忽略錯(cuò)誤 msg = 修改光盤 (3).Selected = True = 39。 = amp。 Call (db) If Then MsgBox 無(wú)此盤?。?!, vbQuestion Call Else = False = True Set = Call End If Else If ((0).Text) = True Then db = select * from 影片資料 where amp。 ((0).Text) amp。 =39。) Do While Not (演員).Value Loop End If Call ElseIf (0).Text = 導(dǎo)演 Or (0).Text = 影片類型 Or (0).Text = 影片格式 Or (0).Text = 影片語(yǔ)言 Then db = select * from 影片資料 where amp。 (0).Text amp。) Do While Not (演員).Value Loop Call Call (select * from 演員 where 影片編號(hào)=39。 (0).Text amp。 Call (db) If Then MsgBox 無(wú)此盤?。?!, vbQuestion Else (0).