學(xué)生信息管理系統(tǒng)

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

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

3、teDatetime(8)入校時期AddressVarchar(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)開始學(xué)

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

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

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

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

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

9、描述：反映出學(xué)生在學(xué)校學(xué)習(xí)的課程的基本情況定義：課程基本信息管理=課程編號+課程名稱+課程類型+學(xué)分+學(xué)時位置：課程信息輸入課程信息查詢課程信息修改名字：用戶基本信息別名：描述：反映出用戶的用戶名和密碼定義：用戶基本信息=用戶名+密碼位置：界面登錄系統(tǒng)學(xué)生信息管理系統(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_sq

10、l As Stringstr_cn = "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='

11、;" & Text2.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

12、.SetFocusElse If rs.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 '使窗體

13、居中End SubPrivate Sub 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

14、 As Integer, Shift As 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.FontUnderl

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

16、student_id") = 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") = Text

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

18、eCombo1.Text = "男": 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、 刪改學(xué)生信息代碼：Option Expl

19、icitPrivate Sub Command4_Click() '從數(shù)據(jù)庫中讀取學(xué)生信息并添加到窗體中的輸入框 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 MsgBo

20、x "沒有找到符合條件的數(shù)據(jù)！", 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

21、") Combo4.Text = 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 Comma

22、nd1_Click()Dim cn As ADODB.Connectionsqlstr = "update student_info set student_name='" & Text1.Text & "',born_date= ' " & Text3.Text & " ' ,student_sex='" & Combo4.Text & "',class_no='" & Combo1.Text &

23、; "',tele_number='" & Text4.Text & "',address='" & Text5.Text & "',comment='" & Text6.Text & "',ru_date='" & Text7.Text & "' where student_id='" & Combo2.Text & "

24、9;" On Error GoTo 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 studen

25、t_id='" & 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 S

26、ub Form_Load()mdlTextBox.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 * fro

27、m class_Info"Set 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.A

28、ddItem rs.Fields(0) rs.MoveNextNextrs.CloseEnd Sub4、 查詢學(xué)生信息：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 sq

29、lstr = "select * 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 = "": T

30、ext1.Text = ""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_inf

31、o where student_name='" & 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

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

33、 = 1500 '設(shè)定列寬 fgStudent.Text = "學(xué)號" Case 1 fgStudent.ColWidth(i) = 2000 '設(shè)定列寬 fgStudent.Text = "姓名" Case 2 fgStudent.ColWidth(i) = 800 '設(shè)定列寬 fgStudent.Text = "性別" Case 3 fgStudent.ColWidth(i) = 800 '設(shè)定列寬 fgStudent.Text = "班級" Case 4 fgStudent.C

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