【導(dǎo)讀】面對(duì)龐大的信息量，有必要開發(fā)學(xué)生信息管理系統(tǒng)來(lái)提高學(xué)生管理工作的效率。據(jù)庫(kù)的規(guī)劃設(shè)計(jì)與維護(hù)、客戶端應(yīng)用程序的開發(fā)兩個(gè)方面。對(duì)于前者建立起的數(shù)據(jù)。好、功能完備、容易使用，具有流行軟件的操作習(xí)慣等特點(diǎn)。經(jīng)過(guò)詳細(xì)的調(diào)查分析，向?qū)ο蟮母鞣N標(biāo)準(zhǔn)化的控件，尤其是對(duì)ADO的支持完成對(duì)數(shù)據(jù)庫(kù)的各種操作。采用C/S結(jié)構(gòu)，達(dá)到對(duì)學(xué)生信息管理的目的。設(shè)計(jì)時(shí)首先在短時(shí)間內(nèi)先建立系統(tǒng)應(yīng)。的實(shí)際可行的系統(tǒng)。

　　

【正文】 If Label1(3).BackColor = amp。HFFFFFF Then Text1(0).BackColor = amp。H8000000E End If Text1(7).Height = 600 Text1(8).Height = 600 End If End If End Sub Private Sub Command3_Click() Dim txtSQL As String Dim j As Integer For i = 0 To 8 If i 4 Then If Text1(i) = Label2(i).Caption Then 設(shè)計(jì)（論文）說(shuō)明書 41 MsgBox 請(qǐng) amp。 Label2(i).Caption amp。 !, vbOKOnly, 提示 Text1(i).SetFocus Exit Sub End If Else If Text1(i) = Label2(i).Caption Then MsgBox 請(qǐng) amp。 Label2(i).Caption amp。 !, vbOKOnly, 提示 Exit Sub End If End If Next If IsDate(Text1(3)) = False Then MsgBox 出生日期應(yīng)為日期格式 (yyyymmdd)!, vbOKOnly, 警告 Text1(3).SetFocus Exit Sub End If If IsDate(Text1(6)) = False Then MsgBox 入學(xué)日期應(yīng)為日期格式 (yyyymmdd)!, vbOKOnly, 警告 Text1(6).SetFocus Exit Sub End If txtSQL = delete from student_Form where student_NO=39。 amp。 Trim(Text1(0)) amp。 39。 Set mrc = ExecuteSQL(txtSQL, MsgText) txtSQL = select * from student_Form Set mrc = ExecuteSQL(txtSQL, MsgText) (0) = Trim(Text1(0)) (1) = Trim(Text1(1)) (2) = Trim(Text1(2)) (3) = Trim(Text1(3)) 設(shè)計(jì)（論文）說(shuō)明書 42 (4) = Trim(Text1(4)) (5) = Trim(Text1(5)) (6) = Trim(Text1(6)) (7) = Trim(Text1(7)) (9) = Trim(Text1(9)) If Text1(8) = Label2(8).Caption Then (8) = Else (8) = Trim(Text1(8)) End If MsgBox 學(xué)籍信息修改成功 !, vbOKOnly, 提示 j = 0 For i = 1 To 1 If (i, 0) = Text1(0) Then j = i End If Next If j 0 Then (j, 0) = Trim(Text1(0)) (j, 1) = Trim(Text1(1)) (j, 2) = Trim(Text1(2)) (j, 3) = Trim(Text1(3)) (j, 4) = Trim(Text1(4)) (j, 5) = Trim(Text1(5)) (j, 6) = Trim(Text1(6)) (j, 7) = Trim(Text1(7)) (j, 9) = Trim(Text1(9)) If Text1(8) Label2(8).Caption Then (j, 8) = Trim(Text1(8)) 設(shè)計(jì)（論文）說(shuō)明書 43 End If End If = j j = 0 TextDcolor End Sub 成績(jī)查詢 界面代碼： Private Sub Label8_Click() Text1 = Text2 = Text3 = Text4 = Text5 = Text6 = = False = False = False = False = False = False = False = True End Sub Private Sub Command2_Click() If Text1 = Then MsgBox 學(xué)號(hào)不能為空 !, vbOKOnly, 提示 Text1 = Exit Sub End If 設(shè)計(jì)（論文）說(shuō)明書 44 tSQL = select * from score_Form where student_NO=39。 amp。 Trim(Text1) amp。 39。 Set mrc = ExecuteSQL(tSQL, MsgText) If = flase Then = True = True = True = True = True = (0) = (1) = (2) = (3) = (4) = (5) ShowData Else MsgBox 此學(xué)號(hào)不存在 !, vbOKOnly, 警告 Text1 = End If End Sub 修改班級(jí)信息 界面代碼： Private Sub Command2_Click() End Sub Dim mrc As Dim MsgText As String Dim tSQL As String Private Sub Command1_Click() If Text1 = Then 設(shè)計(jì)（論文）說(shuō)明書 45 MsgBox 班級(jí)代號(hào)不能為空 !, vbOKOnly, 提示 Exit Sub End If txtSQL = delete from class_Form where class_NO=39。 amp。 Trim(Text1) amp。 39。 Set mrc = ExecuteSQL(txtSQL, MsgText) txtSQL = select * from class_Form Set mrc = ExecuteSQL(txtSQL, MsgText) (0) = Trim(Text1) (1) = Trim(Text2) (2) = Trim(Text3) (3) = Trim(Text4) (4) = Trim(Text5) MsgBox 班級(jí)信息修改成功 !, vbOKOnly, 提示 Text1 = Text2 = Text3 = Text4 = Text5 = End Sub Private Sub Command2_Click() End Sub Private Sub Command3_Click() Unload Me End Sub Private Sub Form_Load() 設(shè)計(jì)（論文）說(shuō)明書 46 End Sub Private Sub Text1_LostFocus() Text4 = tSQL = select * from class_Form where class_NO=39。 amp。 Trim(Text1) amp。 39。 Set mrc = ExecuteSQL(tSQL, MsgText) If = flase Then = (0) = (1) = (2) = (3) = (4) = True Else MsgBox 此班級(jí)編號(hào)不存在 !, vbOKOnly, 警告 = False End If End Sub 課程添加 界面代碼： Private Sub Label7_Click() Text1 = Text2 = Text3 = = True = True = False = False = True End Sub Private Sub Command1_Click() 設(shè)計(jì)（論文）說(shuō)明書 47 If Text1 = Then MsgBox 課程號(hào)不能為空 !, vbOKOnly, 提示 Exit Sub End If If Text2 = Then MsgBox 課程名不能為空 !, vbOKOnly, 提示 Exit Sub End If If Text3 = Then MsgBox 課程講師不能為空 !, vbOKOnly, 提示 Exit Sub End If txtSQL = select * from course_Form where course_NO=39。 amp。 Trim(Text1) amp。 39。 Set mrc = ExecuteSQL(txtSQL, MsgText) If = False Then MsgBox 此課程編號(hào)已存在 !, vbOKOnly, 警告 = = = Exit Sub End If txtSQL = select * from course_Form Set mrc = ExecuteSQL(txtSQL, MsgText) (0) = Trim(Text1) (1) = Trim(Text2) 設(shè)計(jì)（論文）說(shuō)明書 48 (2) = Trim(Text3) = = = MsgBox 班級(jí)信息添加成功 !, vbOKOnly, 提示 ShowData End Sub