光盤(pán)管理系統(tǒng)計(jì)算機(jī)信息管理論文(編輯修改稿)
2025-07-15 19:34 本頁(yè)面
【文章內(nèi)容簡(jiǎn)介】 功能代碼如下Case Is = 4 msg = 刪除光盤(pán) = 光盤(pán)管理 amp。 msg (0).Visible = True (0).Visible = True (1).Visible = True (0).Visible = True = False = True = False = True For i = 0 To 8 (i).Text = (i).Locked = True Next = = = = (0).Text = (0).Text = For i = 0 To 8 (i).BackColor = amp。H80000004 Next = amp。H80000004 = amp。H80000004 = amp。H80000004 = amp。H80000004 End Select⑤查詢(xún)光盤(pán)功能：完成了查詢(xún)光盤(pán)功能，并設(shè)置了多項(xiàng)查詢(xún)條件的選擇。 輸入項(xiàng)目：鼠標(biāo)或鍵盤(pán)事件。 輸出項(xiàng)目：無(wú)。 界面如圖所示：功能代碼如下： Case Is = 光盤(pán)查詢(xún) (1).Selected = True = False For i = 0 To 8 (i).Locked = True Next (0).TabIndex = 0 (0).TabIndex = 1 Case Is = 刪除光盤(pán) (4).Selected = True (0).TabIndex = 0 (0).TabIndex = 1 End SelectPrivate Sub selec() 39。=======查詢(xún)過(guò)程 On Error Resume Next If (0).Text = 影片編號(hào) Or (0).Text = 影片名稱(chēng) Then = False = True db = select * from 影片資料 where amp。 (0).Text amp。 =39。 amp。 (0).Text amp。 39。 Call (db) If Then MsgBox 無(wú)此盤(pán)?。。? vbQuestion Else (0).Text = (影片編號(hào)) (1).Text = (影片名稱(chēng)) (4).Text = (時(shí)間長(zhǎng)度) (2).Text = (導(dǎo)演) (3).Text = (發(fā)行年度) (8).Text = (影片介紹) (6).Text = (購(gòu)買(mǎi)價(jià)格) = (影片類(lèi)型) = (影片語(yǔ)言) = (影片格式) (7).Text = (總數(shù)) (5).Text = (出租價(jià)格) Call Call (select * from 演員 where 影片編號(hào)=39。 amp。 (0).Text amp。 39。) Do While Not (演員).Value Loop Call Call (select * from 演員 where 影片編號(hào)=39。 amp。 (0).Text amp。 39。) Do While Not (演員).Value Loop End If Call ElseIf (0).Text = 導(dǎo)演 Or (0).Text = 影片類(lèi)型 Or (0).Text = 影片格式 Or (0).Text = 影片語(yǔ)言 Then db = select * from 影片資料 where amp。 (0).Text amp。 =39。 amp。 ((0).Text) amp。 39。 Call (db) If Then MsgBox 無(wú)此盤(pán)！?。? vbQuestion
黨政相關(guān)相關(guān)推薦
鄂ICP備17016276號(hào)-1