可視化編程課程設(shè)計vb影碟出租管理系統(tǒng)設(shè)計畢業(yè)論文(編輯修改稿)
2025-07-23 05:09 本頁面
【文章內(nèi)容簡介】 Info=True。Jet OLEDB:Database Password=vcdglxt = adUseClient = adCmdText = provider=。data source= _ amp。 amp。 \。Mode=ReadWrite。Persist Security Info=True。Jet OLEDB:Database Password=vcdglxt = adUseClient = adCmdTextFor i = 0 To 5 = i Text1(i).Text = NextSQL = select , _ amp。 , from cdinfo,viplentinfo where = and =39。 amp。 Text1(0).Text amp。 39。 and is null = SQLSet = Adodc2 = amp。 張SQL = select , _ amp。 , from cdinfo,viplentinfo where = and =39。 amp。 Text1(0).Text amp。 39。 = SQLSet = Adodc1 = amp。 張End SubPrivate Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single)End Sub：使用的控件有Frame、TextBox、Label、CommandButton（）：Private Sub txtcdid_keypress(keyascii As Integer)Dim SQL As StringIf keyascii = 13 And Then SQL = select * from cdinfo,cdtype where = and 影碟編號= amp。 amp。 OpenDBFile OpenRS (SQL) If Not Then If gRst(是否借出) = 1 Then MsgBox 對不起，該影碟已經(jīng)借出，請從新選擇！, vbInformation + vbOKOnly, 信息 = = = = = = = CloseRS Exit Sub End If = gRst(影碟名稱) = gRst() = gRst(影碟價格) = gRst(光碟數(shù)量) = gRst(借出天數(shù)) Else MsgBox 對不起，你輸入的影碟編號不存在！, vbInformation + vbOKOnly, 信息 = CloseRS Exit Sub End If CloseRS ElseIf keyascii = 13 And = Then MsgBox 對不起，請輸入影碟編號，并按回車鍵！, vbInformation + vbOKOnly, 警告 = End IfEnd Sub：使用的控件有Fram
公司管理相關(guān)推薦
鄂ICP備17016276號-1