數(shù)據(jù)庫(kù)原理課程設(shè)計(jì)-學(xué)分管理系統(tǒng)(編輯修改稿)
2025-01-20 16:02 本頁(yè)面
【文章內(nèi)容簡(jiǎn)介】 = delete from credit where sno= amp。 sno1 If sno1 Then 39。If = 0 Then 39。MsgBox 輸入學(xué)號(hào)不正確 39。Else (delete_str) disp renew 39。End If Else MsgBox error End If End Sub Private Sub Command15_Click() End Sub Private Sub Command2_Click() 14 End Sub Private Sub Command3_Click() End Sub Private Sub Command4_Click() Text1(0).SetFocus For i = 0 To 7 Text1(i).Text = Next Text1(1).Enabled = False Text1(2).Enabled = False 39。disp End Sub Private Sub Command5_Click() End Sub 15 Private Sub Command6_Click() Dim a(4) As Integer sno1 = InputBox(請(qǐng)輸入學(xué)生的學(xué)號(hào)： , 查詢(xún) , 200, 100) Set rs = New select * from credit where sno=39。 amp。 sno1 amp。 39。, , adOpenStatic, adLockOptimistic If = 0 Then MsgBox 輸入學(xué)號(hào)不正確 Else i = 0 For j = 3 To 1 a(i) = Val((j).Value) i = i + 1 Next If a(0) = 50 And a(1) = 50 And a(2) = 24 And a(3) = 8 And a(4) = 20 Then MsgBox 該學(xué)生已修滿(mǎn)學(xué)分，可以畢業(yè) Else MsgBox 該學(xué)生由于未修滿(mǎn)學(xué)分，不能畢業(yè) End If End If 16 End Sub Private Sub Command7_Click() disp End Sub Private Sub Command8_Click() disp End Sub Private Sub Command9_Click() If Then msg = MsgBox(已達(dá)到最后一條 , 48 + 0, 提示 ) End If disp End Sub Private Sub Form_Load() 17 Set rs = New 39。Set = New dsn=123。uid=sa。pwd= select * from credit, , adOpenStatic, adLockOptimistic disp = False = False End Sub Form2： Private Sub Command1_Click(
環(huán)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1