【正文】 Text1(3).Enabled = False Text1(7).Enabled = False Text1(8).Enabled = False End If If Label1(3).BackColor = amp。 39。 39。 amp。 amp。 39。 39。 Label2(i).Caption amp。 , yyyymmdd) Case Else .TextMatrix(.Rows 1, i) = (i) amp。 amp。 39。yyyymmdd39。 Trim(Text1(6)) amp。and Format(student_Esd,39。) =39。 39。 Else txtSQL = txtSQL amp。 where student_Cla=39。 amp。 Trim(Text1(1)) amp。 39。 Set mrc = ExecuteSQL(txtSQL, MsgText) If = False Then MsgBox 學(xué)號不能重復(fù)!, vbOKOnly, 警告 Text1(0).SetFocus Exit Sub End If 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)) (4) = Trim(Text1(4)) (5) = Trim(Text1(5)) (6) = Trim(Text1(6)) (7) = Trim(Text1(7)) If Text1(8) = Label2(8).Caption Then (8) = Else (8) = Trim(Text1(8)) End If MsgBox 學(xué)籍信息添加成功!, vbOKOnly, 提示 With MSFlexGrid1 .Rows = .Rows + 1 .TextMatrix(.Rows 1, 0) = Trim(Text1(0)) .TextMatrix(.Rows 1, 1) = Trim(Text1(1)) .TextMatrix(.Rows 1, 2) = Trim(Text1(2)) .TextMatrix(.Rows 1, 3) = Trim(Text1(3)) .TextMatrix(.Rows 1, 4) = Trim(Text1(4)) .TextMatrix(.Rows 1, 5) = Trim(Text1(5)) .TextMatrix(.Rows 1, 6) = Trim(Text1(6)) .TextMatrix(.Rows 1, 7) = Trim(Text1(7)) If Text1(8) Label2(8).Caption Then .TextMatrix(.Rows 1, 8) = Trim(Text1(8)) End If End With = 1 TextDcolorEnd SubPrivate Sub Command2_Click() Dim j As Integer Dim txtSQL As String If Text1(5) Label2(5).Caption Then If IsDate(Text1(5)) = False Then MsgBox 起始日期應(yīng)為日期格式(yyyymmdd)!, vbOKOnly, 警告 Text1(5).SetFocus Exit Sub Else Text1(5) = Format(Text1(5), yyyymmdd) End If End If If Text1(6) Label2(6).Caption Then If IsDate(Text1(6)) = False Then MsgBox 起始日期應(yīng)為日期格式(yyyymmdd)!, vbOKOnly, 警告 Text1(6).SetFocus Exit Sub Else Text1(6) = Format(Text1(6), yyyymmdd) End If End If txtSQL = select * from student_Form If Text1(0) Label2(0).Caption Then txtSQL = txtSQL 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 IftxtSQL = select * from student_Form where student_NO=39。HFFFFFF End If End IfEnd SubPrivate Sub Command1_Click() Dim txtSQL As String For i = 0 To 7 If i 4 Then If Text1(i) = Label2(i).Caption Then MsgBox 請 amp。 39。 39。HFFFFFF Picture1(Index).Visible = True For i = 0 To 11 Text1(i) = Next = False = FalseEnd SubPrivate Sub ShowData() Dim txSQL As String Dim mrcc As txSQL = select * from class_Form Set mrcc = ExecuteSQL(txSQL, MsgText) With MSFlexGrid1 .ColWidth(0) = 1200 .ColWidth(1) = 1200 .ColWidth(2) = 1200 .ColWidth(3) = 6000 .TextMatrix(0, 0) = 班級編號 .TextMatrix(0, 1) = 班級名稱 .TextMatrix(0, 2) = 導(dǎo)員姓名 .TextMatrix(0, 3) = 備注信息 .Rows = 1 Do While Not .Rows = .Rows + 1 For i = 0 To 1 .TextMatrix(.Rows 1, i) = (i) amp。HFFFFFF Picture1(0).Visible = TrueEnd SubPrivate Sub Form_Resize() 1End SubPrivate Sub Label2_Click(Index As Integer) = 班級信息 = amp。 Trim(Text1(8)) amp。 Trim(Text1(4)) amp。 Trim(Text1(0)) amp。 Trim(Text1(7)) amp。 Trim(Text1(8)) amp。 Trim(Text1(7)) amp。 Trim(Text1(3)) amp。 Trim(Text1(4)) amp。 Trim(Text1(3)) amp。 Trim(Text1(0)) amp。 39。通過開發(fā)這個系統(tǒng)，我掌握了項目的基本開發(fā)過程，了解了的基本知識鞏固了我對Visual Basic的學(xué)習(xí)，但在這次設(shè)計中的最大收獲并不是掌握這幾門開發(fā)工具的應(yīng)用，而是學(xué)會了設(shè)計系統(tǒng)的思維方法，以及與同學(xué)們之間相互幫助的精神。 如圖13所示學(xué)籍信息管理模塊(添加功能)：：：：在本系統(tǒng)的開發(fā)過程中，由于本人是初次開發(fā)軟件，在知識、經(jīng)驗方面都存在著不足。如圖12所示班級信息管理模塊：學(xué)籍信息管理模塊是對學(xué)生的個人信息進(jìn)行統(tǒng)計。包括班級編號，班級名稱，導(dǎo)員姓名，備注信息。PWD（大寫）為用戶名和密碼來登陸本系統(tǒng)。 39。 Set mrc = ExecuteSQL(txtSQL, MsgText) MsgBox 課程信息已經(jīng)刪除!, vbOKOnly, 提示 List2Text End IfEnd Sub學(xué)校的成績管理工作是檢驗學(xué)生學(xué)習(xí)情況的一個主要手段，本模塊包括考試類型設(shè)置，共有期中考試和期未考試兩種類型，還設(shè)置了成績添加、成績查詢、成績?yōu)g覽、成績修改等功能模塊。Private Sub Command2_Click() Dim txtSQL As String If ThentxtSQL=delete from course_Form where course_Name=39。 39。修改： Private Sub Command2_Click() Text1(0) = Text1(1) = Text1(2) = End Sub Set mrc = ExecuteSQL(txtSQL, MsgText) txtSQL = select * from user_Form Set mrc = ExecuteSQL(txtSQL, MsgText) (0) = Trim(Text1(3)) (1) = Trim(Text1(5)) (2) = Now For i = 3 To 6 Text1(i) = Next MsgBox 用戶信息修改成功!, vbOKOnly, 提示End Sub該模塊的功能是實現(xiàn)對全校班級的管理工作，包括：班級游覽、班級添加、班級修改等，這三個功能模塊各自獨立，完成學(xué)校的全部班級的管理。nlm m學(xué)習(xí)學(xué)生課程教師學(xué)習(xí)學(xué)習(xí)課程學(xué)生教師實體模型數(shù)據(jù)模型數(shù)據(jù)庫圖10教師與課程的ER圖數(shù)據(jù)庫采用了Microsoft推出的Access數(shù)據(jù)庫，這是微軟集成到Office中的一個桌面數(shù)據(jù)庫，能夠快速方便的和Office的其他套件綜合使用。學(xué)生課程成績學(xué)習(xí)mn圖8學(xué)生成績管理系統(tǒng)中學(xué)生與課程的ER圖教師與課程這兩個實體之間，是一對多聯(lián)系；一位教師可以教多門課程，而一門課程對于學(xué)生成績來說只能有一位教師(英語、高等數(shù)學(xué)有多位教師教，但對某個固定的學(xué)生來說只能有一位教師)。課程與學(xué)生這兩個實體是多對多聯(lián)系；一位學(xué)生要學(xué)習(xí)多門課程，一門課程有多位學(xué)生共同學(xué)習(xí)。圖7事務(wù)型管理模塊圖數(shù)據(jù)模型設(shè)計。它簡單易學(xué)、效率高，且功能強(qiáng)大。因此，比較適合于采用數(shù)據(jù)庫管理。項目開發(fā)的目標(biāo)：建立學(xué)生信息管理系統(tǒng)，采用計算機(jī)對學(xué)生信息進(jìn)行管理，實現(xiàn)學(xué)生信息管理工作流程的系統(tǒng)化、規(guī)范化和自動化.項目提出的意義：現(xiàn)在我國的大中專院校的學(xué)生信息管理水平普遍不高，有的還停留在紙介質(zhì)基礎(chǔ)上，這種管理手段已不能適應(yīng)時代的發(fā)展，因為它浪費(fèi)了了許多的人力和物力。ACCESS數(shù)據(jù)庫VB編程學(xué)生信息管理系統(tǒng)畢業(yè)論文該信息管理系統(tǒng)可以說是一個綜合性的學(xué)校學(xué)生管理系統(tǒng)，它集成了學(xué)生學(xué)籍管理系統(tǒng)、學(xué)生成績管理系統(tǒng)、學(xué)