學生信息管理系統(tǒng)(完整)

1、精選優(yōu)質(zhì)文檔-傾情為你奉上學生信息管理系統(tǒng)（總體設計）1、管理系統(tǒng)功能模塊設計本系統(tǒng)需要完成的功能主要有：（1）、輸入學生基本信息、所在班級、所學課程和成績等。（2）、學生信息的查詢，包括查詢學生基本信息、所在班級、已學課程和成績等。（3）、學生信息的修改。（4）、班級信息的輸入，包括輸入班級設置、年級信息等。（5）、班級信息的查詢。（6）、班級信息的修改。（7）、班級課程信息的輸入。（8）、班級課程信息的修改。（9）、學生課程添加和修改。（10）、學生成績信息的輸入。（11）、學生成績信息的修改。（12）、學生成績信息的查詢。（13）、學生成績信息的統(tǒng)計。2、 功能模塊設計：學生信息輸入學生

2、信息查詢學生信息管理學生信息修改成績信息輸入成績信息管理成績信息查詢成績信息修改學生信息管理系統(tǒng)班級信息輸入班級信息管理班級信息查詢班級信息修改課程信息輸入課程信息管理課程信息查詢課程信息修改密碼管理系統(tǒng)管理用戶管理3、 數(shù)據(jù)庫設計：(1)學生基本信息：student_Info列名數(shù)據(jù)類型說明Student_idInt(4)學號（主鍵）Student_nameChar(10)姓名Student_sexChar(2)性別Born_dateDatetime(8)出生日期Class_noInt(4)班級號Tele_numberChar(10)聯(lián)系電話Ru_dateDatetime(8)入校時期Add

3、ressVarchar(50)家庭住址commentVarchar(200)備注(2)班級基本信息:class_Info列名數(shù)據(jù)類型說明Class_noInt(4)班級號（主鍵）Class_nameVarchar(50)班級名稱DirectorVarchar(50)班主任professionVarchar(50)專業(yè)(3)課程基本信息：course_Info列名數(shù)據(jù)類型說明Course_noInt(4)課程編號（主鍵）Course_nameChar(10)課程名稱Course_typeChar(10)課程類型Course_startChar(10)開始學期Course_timeInt(4)學時

4、數(shù)Course_scoreInt(4)學分(4)學生成績信息：result_Info列名數(shù)據(jù)類型說明Student_idInt(4)學號（主鍵）Student_nameChar(10)姓名Course_noInt(4)課程號（主鍵）Course_typeChar(10)課程類型resultFloat(8)成績(5)用戶信息：user_Info列名數(shù)據(jù)類型說明User_codeVarchar(50)用戶密碼（主鍵）User_nameVarchar(50)用戶名（主鍵）學生信息管理系統(tǒng)（需求分析）1.系統(tǒng)開發(fā)背景分析系統(tǒng)的功能取決開用戶的需求。隨著科技進步和信息時代的到來，教育的普及程度起來起高，

5、學校的人數(shù)也在迅速的增長，怎樣的管理好成千上萬的學生，已經(jīng)成為一個學校的管理者必須面對的問題。編寫本報告的目的就是用最少的代價，盡可能短的時間內(nèi)確定問題是否能夠解決，通過對學校的一些管理軟件的調(diào)研分析，發(fā)現(xiàn)了一些不足，所以擬做此系統(tǒng)，使學生信息的管理更加準確,安全和快捷。在本次試驗中包括的模塊有學生信息管理、課程信息管理、成績信息管理和班級信息管理等幾項，各項管理工作涉及到的內(nèi)容用下面的關系模式表示。 a) 學生（學號，姓名，性別，年齡，班級，電話，備注，出生日期，入學時間，班級編號，家庭地址）b) 課程（課程編號，課程名稱，課程類別，學分，學時）c) 班級（系，班級號，指導老師）2.系統(tǒng)分析

6、1.抽象出當前系統(tǒng)的邏輯模型 畫出反映當前系統(tǒng)工作的數(shù)據(jù)流程圖。數(shù)據(jù)流程圖是邏輯模型的圖形表示，即使不是專業(yè)的計算機技術人員也能非常容易理解，它是一種很好的系統(tǒng)構(gòu)造的表示方法。畫數(shù)據(jù)流程圖是應該從已獲得的人工處理流程中去掉物理因素，只保留數(shù)據(jù)、信息處理部分。2系統(tǒng)功能分析系統(tǒng)主要用于學校學生信息管理，主要任務是用計算機對學生各種信息進行日常管理，如：查詢、修改、增加、刪除。3.系統(tǒng)目標設計 根據(jù)本校的實際情況，利用校園網(wǎng)而設計一套針對性和功能都比較強的學生信息管理系統(tǒng)，對學生信息管理系統(tǒng)進行科學的分類、錄入、查詢 4.開發(fā)設計思想 盡量采用學?，F(xiàn)有的軟硬件環(huán)境及先進的管理系統(tǒng)開發(fā)方案，從而達到

7、充分利用資源，提高系統(tǒng)開發(fā)的水平和應用效果的目的。系統(tǒng)應該符合學校學生信息管理的規(guī)定，滿足學校學生日常管理的需要，達到操作過程中的直觀、方便、實用、安全等要求。強調(diào)多部門合作，學生工作設計面廣泛，應該考慮各部門各層次的需求，便于維護。要建立可靠的數(shù)據(jù)備份。通過對數(shù)據(jù)流程圖的進一步分析,得出學生信息管理系統(tǒng)應該具備以下功能:    1、實現(xiàn)學生基本信息的登記    2、實現(xiàn)數(shù)據(jù)的瀏覽與修改    3、實現(xiàn)查詢符合一定條件的資料    4、

8、實現(xiàn)學生有關數(shù)據(jù)的統(tǒng)計分析5.E-R圖家庭地址出身年月入學時間 班級號系電話姓名班級班級設置學生學號備注班級性別指導老師年齡學習學時課程編號課程設置課程課程類型學分課程名稱6數(shù)據(jù)流程圖7.數(shù)據(jù)字典名字：學生基本信息管理別名：描述：反映出學生的基本信息情況定義：學生基本信息管理=姓名+年齡+性別+學號+班級+電話入學時間+出生年月+家庭地址+備注位置：學生信息輸入學生信息查詢學生信息修改名字：班級基本信息管理別名：描述：反映出班級的基本信息情況定義：班級基本信息管理=系+班級號+指導老師位置：班級信息輸入班級信息查詢班級信息修改名字：課程基本信息管理別名：描述：反映出學生在學校學習的課程的基本情

9、況定義：課程基本信息管理=課程編號+課程名稱+課程類型+學分+學時位置：課程信息輸入課程信息查詢課程信息修改名字：用戶基本信息別名：描述：反映出用戶的用戶名和密碼定義：用戶基本信息=用戶名+密碼位置：界面登錄系統(tǒng)學生信息管理系統(tǒng)（實現(xiàn)、調(diào)試、運行）編碼1、 登錄模塊代碼：Option ExplicitPrivate Sub cmd3_Click()Dim cn As ADODB.ConnectionDim rs As ADODB.RecordsetDim str_cn As String '訪問sql server的連接字符串Dim str_sql As Stringstr_cn =

10、"driver=sql server;server=.;uid=sa;pwd=;database=student"Set cn = New ADODB.Connectioncn.CursorLocation = adUseClientcn.Open str_cn '連接sql serverstr_sql = "select * from user_info where user_name='" & Text1.Text & "' and user_code='" & Text2.

11、Text & "'"Set rs = New ADODB.Recordsetrs.Open str_sql, cn, adOpenDynamic, adLockOptimisticIf Len(Text1.Text) = 0 Then MsgBox "請輸入用戶名！", 64, "提示" Text1.SetFocusElseIf Len(Text2.Text) = 0 Then MsgBox "請輸入密碼！", 64, "提示" Text2.SetFocusElse If rs.

12、RecordCount = 0 Then i = MsgBox("不存在該用戶，是否立即注冊？", 4 + 32, "提示") If i = 6 Then Unload Me Form3.Show Else mdlTextBox.Blank Me Text2.SetFocus End If Else ' Unload Me Form1.Hide Form4.Show End IfEnd IfEnd SubPrivate Sub Form_Load()mdlTextBox.Centen Me '使窗體居中End SubPrivate Sub

13、 Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)Label5.ForeColor = vbBlackLabel5.FontUnderline = FalseLabel6.ForeColor = vbBlackLabel6.FontUnderline = FalseEnd SubPrivate Sub Label5_Click()Unload MeForm3.ShowEnd SubPrivate Sub Label5_MouseMove(Button As Integer, Shift A

14、s Integer, X As Single, Y As Single)Label5.ForeColor = vbBlueLabel5.FontUnderline = TrueEnd SubPrivate Sub Label6_Click()Unload MeForm2.ShowEnd SubPrivate Sub Label6_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)Label6.ForeColor = vbBlueLabel6.FontUnderline = TrueEnd Sub2、

15、添加學生信息代碼：Option ExplicitPrivate Sub Command1_Click()If Len(Text1.Text) = 0 Or Len(Text6.Text) = 0 Then MsgBox "請將信息補充完整！", 48, "警告" Exit SubEnd If'添加新記錄sqlstr = "select * from student_Info"Set rs = ExecuteSQL(sqlstr, Msg)rs.AddNewrs.Fields("student_id") =

16、Text6.Textrs.Fields("student_name") = Text1.Textrs.Fields("class_no") = Combo2.Textrs.Fields("born_date") = Text2.Textrs.Fields("student_sex") = Combo1.Textrs.Fields("address") = Text4.Textrs.Fields("tele_number") = Text7.Textrs.Fields(&quo

17、t;comment") = Text5.Textrs.Fields("ru_date") = Text3.Textrs.Updaters.CloseMsgBox "學生信息添加完成！", 48, "提示信息"mdlTextBox.Blank MeEnd SubPrivate Sub Command2_Click()Unload MeForm4.ShowEnd SubPrivate Sub Form_Load()mdlTextBox.Centen MemdlTextBox.Blank MeCombo1.Text = "

18、;男": Combo2.Text = ""Combo1.AddItem "男"Combo1.AddItem "女"sqlstr = "select * from class_Info"Set rs = ExecuteSQL(sqlstr, Msg)For i = 1 To rs.RecordCount Combo2.AddItem rs.Fields(0) rs.MoveNextNext irs.CloseEnd Sub3、 刪改學生信息代碼：Option ExplicitPrivate Sub Comm

19、and4_Click() '從數(shù)據(jù)庫中讀取學生信息并添加到窗體中的輸入框 sqlstr = "select * from student_Info where student_id='" & Combo2.Text & "' and class_no='" & Combo1.Text & "'" Set rs = ExecuteSQL(sqlstr, Msg) If rs.RecordCount = 0 Then MsgBox "沒有找到符合條件的數(shù)據(jù)！

20、", 48, "警告" mdlTextBox.Blank Me: Combo3.Text = "" Else Text2.Text = Trim(rs.Fields("student_id") Text1.Text = Trim(rs.Fields("student_name") Text3.Text = Trim(rs.Fields("born_date") Combo3.Text = Trim(rs.Fields("class_no") Combo4.Text

21、= Trim(rs.Fields("student_sex") Text4.Text = Trim(rs.Fields("tele_number") Text5.Text = Trim(rs.Fields("address") Text6.Text = Trim(rs.Fields("comment") Text7.Text = Trim(rs.Fields("ru_date")End If rs.CloseEnd SubPrivate Sub Command1_Click()Dim cn As

22、 ADODB.Connectionsqlstr = "update student_info set student_name='" & Text1.Text & "',born_date= ' " & Text3.Text & " ' ,student_sex='" & Combo4.Text & "',class_no='" & Combo1.Text & "',tele_n

23、umber='" & Text4.Text & "',address='" & Text5.Text & "',comment='" & Text6.Text & "',ru_date='" & Text7.Text & "' where student_id='" & Combo2.Text & "'" On Error Go

24、To exitsub Set cn = New ADODB.Connection cn.Open connstr cn.Execute sqlstr MsgBox "成功修改數(shù)據(jù)！"exitsub: cn.Close mdlTextBox.Blank Me: Combo3.Text = "" End SubPrivate Sub Command2_Click()Dim cn As ADODB.Connectionsqlstr = "delete from student_info where student_id='" &am

25、p; Combo2.Text & "'"On Error GoTo exitsubSet cn = New ADODB.Connectioncn.Open connstrcn.Execute sqlstrMsgBox "成功刪除數(shù)據(jù)！"exitsub:cn.Close mdlTextBox.Blank Me: Combo3.Text = ""End SubPrivate Sub Command3_Click()Unload MeForm4.ShowEnd SubPrivate Sub Form_Load()mdlTex

26、tBox.Centen MeCombo1.Text = "": Combo2.Text = ""mdlTextBox.Blank MeCombo3.Text = "" Combo4.Text = "男" Combo4.AddItem "男" Combo4.AddItem "女" Dim sqlstr As StringDim Msg As StringDim i As Integersqlstr = "select * from class_Info"Se

27、t rs = ExecuteSQL(sqlstr, Msg)For i = 1 To rs.RecordCount Combo1.AddItem rs.Fields(0) Combo3.AddItem rs.Fields(0) rs.MoveNextNextDim sql As StringDim msgtext As Stringsql = "select * from student_Info"Set rs = ExecuteSQL(sql, msgtext)For i = 1 To rs.RecordCount Combo2.AddItem rs.Fields(0)

28、rs.MoveNextNextrs.CloseEnd Sub4、 查詢學生信息：Option ExplicitPrivate Sub Command1_Click()Dim rs As New ADODB.RecordsetDim cn As New ADODB.ConnectionDim cnstr As Stringcnstr = "driver=sql server;server=.;uid=sa;pwd=;database=student"cn.Open cnstrIf Option1.Value = True Then sqlstr = "select

29、* from student_info" Combo1.Text = "" Text1.Text = "": Text2.Text = ""End IfIf Option2.Value = True Then sqlstr = "select * from student_info where class_no='" & Combo1.Text & "' " Text2.Text = "": Text1.Text = "&q

30、uot;End IfIf Option3.Value = True Then sqlstr = "select * from student_info where student_id='" & Text1.Text & "' " Combo1.Text = "": Text2.Text = ""End IfIf Option4.Value = True Then sqlstr = "select * from student_info where student_name

31、='" & Text2.Text & "'" Combo1.Text = "": Text2.Text = ""End Ifrs.Open sqlstr, cnSet rs = ExecuteSQL(sqlstr, Msg)If rs.RecordCount = 0 Then MsgBox "沒有查找到滿足條件的數(shù)據(jù)！", 48, "提示" fgStudent.Rows = 1Else fgStudent.Rows = rs.RecordCount +

32、1 fgStudent.Cols = 9 '設定行高 For i = 0 To fgStudent.Rows - 1 fgStudent.RowHeight(i) = 280 Next i '設定列的屬性 fgStudent.Row = 0 For i = 0 To fgStudent.Cols - 1 fgStudent.Col = i '指定當前列為第I 列 fgStudent.FixedAlignment(i) = 4 '使內(nèi)容居中 Select Case i Case 0 fgStudent.ColWidth(i) = 1500 '設定列寬 fg

33、Student.Text = "學號" Case 1 fgStudent.ColWidth(i) = 2000 '設定列寬 fgStudent.Text = "姓名" Case 2 fgStudent.ColWidth(i) = 800 '設定列寬 fgStudent.Text = "性別" Case 3 fgStudent.ColWidth(i) = 800 '設定列寬 fgStudent.Text = "班級" Case 4 fgStudent.ColWidth(i) = 1300 &#

34、39;設定列寬 fgStudent.Text = "出生日期" Case 5 fgStudent.ColWidth(i) = 1500 '設定列寬 fgStudent.Text = "電話" Case 6 fgStudent.ColWidth(i) = 1500 fgStudent.Text = "入學時間" Case 7 fgStudent.ColWidth(i) = 2500 '設定列寬 fgStudent.Text = "地址" Case 8 fgStudent.ColWidth(i) = 3000 '設定列寬 fgStudent.Text = "備注信息" End Select Next i i = 1 '從第二行開始顯示內(nèi)容 While (Not rs.EOF) fgStudent.Row = i For j = 0 To fg