教師信息管理系統(tǒng)設(shè)計(jì)-資料下載頁
2025-08-04 16:44本頁面
【正文】 Sub cmdcancel_Click() = False = False = True = True = False = FalseEnd SubPrivate Sub cmdmodify_Click() Dim answer As String On Error GoTo cmdmodify = False = False = True = True = True Exit Subcmdmodify: If 0 Then MsgBox End IfEnd SubPrivate Sub cmdupdate_Click() If Not IsNull() Then End If = True = True = False = False MsgBox 修改成功!, vbOKOnly + vbExclamation, End SubPrivate Sub cmddel_Click() Dim answer As String 39。On Error GoTo cmddel answer = MsgBox(確定要刪除嗎？, vbYesNo, ) If answer = vbYes Then = True Else Exit Sub End If39。cmddel: 39。MsgBox End SubPrivate Sub Form_Load() Dim sql As String Dim conn As New Connection On Error GoTo loaderror provider=。 data source= amp。 amp。 \ sql = select * from 讀者信息 = adUseClient sql, conn, adOpenKeyset, adLockPessimistic = False = False = False = False = False Set = rs_reader Exit Subloaderror: MsgBox End SubPrivate Sub Form_Unload(Cancel As Integer) Set = Nothing End Sub9 登錄窗口源程序：Option ExplicitDim t As Integer 39。記錄確定次數(shù)Private Sub cmdCancle_Click() Unload MeEnd SubPrivate Sub cmdOK_Click()Dim sql As StringDim rs_login As New Dim conn As New provider=。 data source= amp。 amp。 \ If Trim() = Then MsgBox 用戶名不能為空，請重新輸入！ Else sql = select * from 用戶表 where user_ID=39。 amp。 Trim() amp。 39。 sql, conn, adOpenKeyset, adLockPessimistic If = True Then MsgBox 沒有這個用戶,請重輸入！, vbOKOnly + vbExclamation, = Else username = If Trim((1)) = Trim() Then Unload Me Else MsgBox 密碼不正確,請重輸入！, vbOKOnly + vbExclamation, = End If End If End If t = t + 1 If t = 3 Then Unload Me End IfEnd SubPrivate Sub Form_Load()t = 0End Sub課程設(shè)計(jì)評分表課題名稱： 項(xiàng) 目評 價(jià)設(shè)計(jì)方案的合理性與創(chuàng)造性設(shè)計(jì)與調(diào)試結(jié)果設(shè)計(jì)說明書的質(zhì)量答辯陳述與回答問題情況課程設(shè)計(jì)周表現(xiàn)情況綜合成績 教師簽名： 日 期： （注：1．此頁附在課程設(shè)計(jì)報(bào)告之后；2．綜合成績按優(yōu)、良、中、及格和不及格五級評定。）28
環(huán)評公示相關(guān)推薦
鄂ICP備17016276號-1