數(shù)據(jù)庫實(shí)習(xí)報告(編輯修改稿)
2025-08-31 00:10 本頁面
【文章內(nèi)容簡介】 會有所提高。八、附錄VB源代碼：：Private Sub Command1_Click()Dim rpt As IntegerIf = 20121003818 Then If = 123456 Then If = Then Else rpt = MsgBox(驗(yàn)證碼錯誤, vbRetryCancel + vbExclamation, 驗(yàn)證碼) If rpt = vbRetry Then = End If End If Else rpt = MsgBox(密碼錯誤, vbRetryCancel + vbExclamation, 密碼) If rpt = vbRetry Then = End If End IfElse rpt = MsgBox(用戶名錯誤, vbRetryCancel + vbExclamation, 用戶名) If rpt = vbRetry Then = End IfEnd IfEnd SubPrivate Sub Command2_Click()End SubPrivate Sub Form_Load() = 15 = vbRedRandomizeDim x As Longx = Int(90000 * Rnd(0)) + 10000 = xEnd Sub2．學(xué)生信息界面代碼：Private sqlcon As New Private sqlres As New Private sqlcmd As New Dim sqlstr As StringPrivate Sub Command1_Click()MakeSqlStr = select *from 學(xué)生 where 學(xué)號= amp。 sqlstrEnd SubPrivate Sub Command2_Click()ret = MsgBox(是否要刪除 + (學(xué)號) + 號學(xué)生的記錄, vbYesNo, 提示)If ret = vbYes Then = sqlcon = delete from 學(xué)生 where 學(xué)號= + (學(xué)號) = select * from 學(xué)生End IfEnd SubPrivate Sub Command3_Click()Dim sqlupstr As Stringsqlupstr = select * from 學(xué)生 where 學(xué)號= amp。 Trim() sqlupstr, sqlcon, adOpenDyamic, adLockPessimisticIf Not ThenElsesqlres(學(xué)號) = sqlres(姓名) = sqlres(性別) = sqlres(出生日期) = sqlres(系代號) = End If = select * from 學(xué)生End SubPrivate Sub Command4_Click()Dim sqlupstr As Stringsqlupstr = select *from 學(xué)生 where 學(xué)號= amp。 Trim() sqlupstr, sqlcon, adOpenDyamic, adLockPessimisticIf Not ThenElsesqlres(學(xué)號) = sqlres(姓名) = sqlres(性別) = sqlres(出生日期) = sqlres(系代號) = End If = select * from 學(xué)生End SubPrivate Sub F
公司管理相關(guān)推薦
鄂ICP備17016276號-1