光盤管理系統(tǒng)計(jì)算機(jī)信息管理論文-閱讀頁
2025-07-03 19:34本頁面
【正文】 = False = True db = select * from 影片資料 where 影片名稱=39。 Trim((0).Text) amp。 Call (db) (0).Text = (影片編號(hào)) (1).Text = (影片名稱) (4).Text = (時(shí)間長(zhǎng)度) (2).Text = (導(dǎo)演) (3).Text = (發(fā)行年度) (8).Text = (影片介紹) (6).Text = (購買價(jià)格) = (影片類型) = (影片語言) = (影片格式) (7).Text = (總數(shù)) (5).Text = (出租價(jià)格) Call Call (select * from 演員 where 影片編號(hào)=39。 (0).Text amp。) Do While Not (演員).Value Loop Call End SubPrivate Sub MSHFlexGrid1_Click() modimsf 39。 輸入項(xiàng)目：鼠標(biāo)或鍵盤事件。 界面如圖所示：功能代碼如下： Case Is = 添加管理員 If (0).Text And (1).Text And And (3).Text Then Call (select * from 管理員 where 名字=39。 (0).Text amp。) 39。 添加 (名字) = (0).Text (密碼) = (1).Text (級(jí)別) = (解屏密碼) = (3).Text Call 39。關(guān)閉 MsgBox 添加成功?。。? vbInformation (0).Text = (1).Text = = (3).Text = Else MsgBox 已經(jīng)有此管理員！??！, vbInformation Call End If Else MsgBox 請(qǐng)輸入完整?。?！, vbInformation End If修改管理員功能：完成修改管理員功能，采用了預(yù)設(shè)得方式。 輸出項(xiàng)目：無。 amp。 39。 輸入項(xiàng)目：鼠標(biāo)或鍵盤事件。 界面如圖所示：功能代碼如下： Case Is = 刪除管理員 Call (select * from 管理員 where 名字=39。 (0).Text amp。) If Not Then (0).Text = (名字) (1).Text = (密碼) = (級(jí)別) (3).Text = (解屏密碼) Call 39。更新 Call 39。 amp。 39。 輸入項(xiàng)目：鼠標(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。 Trim((0).Text) amp。 Call (db) (0).Text = (影片編號(hào)) (1).Text = (影片名稱) (4).Text = (時(shí)間長(zhǎng)度) (2).Text = (導(dǎo)演) (3).Text = (發(fā)行年度) (8).Text = (影片介紹) (6).Text = (購買價(jià)格) = (影片類型) = (影片語言) = (影片格式) (7).Text = (總數(shù)) (5).Text = (出租價(jià)格) Call Call (select * from 演員 where 影片編號(hào)=39。 (0).Text amp。) Do While Not (演員).Value Loop Call End Sub結(jié) 束 語 整個(gè)程序的編寫已經(jīng)完成，經(jīng)過這次的實(shí)踐讓我們對(duì)如何利用VB開發(fā)數(shù)據(jù)庫程序有了一個(gè)更深得理解。雖然該系統(tǒng)還并不是很完美，有些功能因條件和自身能力的關(guān)系沒有設(shè)計(jì)出來，比如打印之類的管理，所以使得我們今后要不斷學(xué)習(xí)更多的東西來完善它，使其真正成為功能完備的光盤管理
黨政相關(guān)相關(guān)推薦
鄂ICP備17016276號(hào)-1