vb數(shù)據(jù)庫編程報(bào)告——學(xué)生管理系統(tǒng)(參考版)
2025-01-18 18:53本頁面
【正文】 \。Data Source= amp。關(guān)閉數(shù)據(jù)集 39。檢驗(yàn)舊密碼 If Trim() = (UserPwd).Value Then (UserPwd).Value = Else MsgBox 原密碼錯(cuò)誤，修改密碼失?。? End If 39。打開數(shù)據(jù)集 DBstr, xxCnn, adOpenStatic, adLockOptimistic 39。 39。39。 Replace(UsernowID, 39。寫數(shù)據(jù)庫 DBstr = select * from UserInfo where UserID=39。修改密碼 Private Sub Command1_Click() Dim ChgUser As New Dim DBstr As String 39。關(guān)閉數(shù)據(jù)集 End If 39。 請重新輸入 !, , 登陸信息 Exit Sub Else 39。找不到該用 戶名 MsgBox 用戶名不存在 ! amp。 39。 UserID amp。密碼過長 MsgBox 您輸入密碼過長！ , , 登陸信息 Exit Sub End If UserPwd = Trim() str = select * from UserInfo where UserID=39。) If Len(Trim()) = 0 Then 39。, 39。沒有輸入用戶名 MsgBox 請輸入用戶名！ , , 登陸信息 Exit Sub End If If Len(Trim()) 16 Then 39。敲回車時(shí)相當(dāng)于按登錄 Select Case KeyCode Case vbKeyReturn Call Image_Click End Select End Sub Private Sub Image_cancel_Click() Unload Me End Sub Private Sub Image_login_Click() End Sub Private Sub Image_Click() Dim check As New 39。 \。Data Source= amp。 Next i End Sub Private Sub Command2_Click() End End Sub Private Sub Command3_Click() Unload Me End Sub Private Sub Form_Load() With MSFlexGrid1 .Row = 0 .Col = 0: .Text = 學(xué)號(hào) .Col = 1: .Text = 姓名 .Col = 2: .Text = 平均分 .Col = 3: .Text = 名次 End With End Sub (7)編輯用戶登錄窗體： 16 代碼： 39。 = o r = 1 15 For i = 0 To count1 1 學(xué)號(hào) = amp。 o = o + + Str(b(y)) + a(y) 39。Next y For i = 0 To count1 2 k = i For j = 1 To count1 1 If b(j) b(k) Then k = j Next j temp1 = a(i): a(i) = a(k): a(k) = temp1 temp2 = b(i): b(i) = b(k): b(k) = temp2 Next i 39。 u = u + + a(y) 39。For y = 0 To 8 39。 xh avg = 0 For j = 2 To 6 avg = avg + Val((j)) Next j average = avg / 5 39。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 5 附件 A 沈陽工業(yè)大學(xué)實(shí)驗(yàn)報(bào)告 （適用計(jì)算機(jī)程序設(shè)計(jì)類） 專業(yè)班級(jí)： 學(xué)號(hào)： 姓名： 實(shí)驗(yàn)步驟或程序 ： (1)創(chuàng)建學(xué)生數(shù)據(jù)庫及表，并向數(shù)據(jù)庫里添加數(shù)據(jù) 學(xué)生成績表 添加學(xué)生表數(shù)據(jù) UserInfo表 添
研究報(bào)告相關(guān)推薦
鄂ICP備17016276號(hào)-1