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

1、學(xué)生信息管理系統(tǒng)(總體設(shè)計(jì)）1、管理系統(tǒng)功能模塊設(shè)計(jì)本系統(tǒng)需要完成的功能主要有：(1)、有關(guān)學(xué)籍信息的輸入,包括輸入學(xué)生基本信息、所在班級(jí)、所學(xué)課程和成績等.（2)、學(xué)生信息的查詢,包括查詢學(xué)生基本信息、所在班級(jí)、已學(xué)課程和成績等。(3）、學(xué)生信息的修改。（4）、班級(jí)管理信息的輸入，包括輸入班級(jí)設(shè)置、年級(jí)信息等。(5）、班級(jí)管理信息的查詢。（6）、班級(jí)管理信息的修改。（7)、學(xué)?；菊n程信息的輸入。(8）、基本課程信息的修改.（9）、學(xué)生課程設(shè)置和修改.（10）、學(xué)生成績信息的輸入。（11）、學(xué)生成績信息的修改.（12）、學(xué)生成績信息的查詢。(13)、學(xué)生成績信息的統(tǒng)計(jì)。2、 功能模塊設(shè)計(jì)：學(xué)

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

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

4、nt(4）學(xué)時(shí)數(shù)Course_scoreInt（4）學(xué)分(4)學(xué)生成績信息：result_Info列名數(shù)據(jù)類型說明Student_idInt（4）學(xué)號(hào)(主鍵）Student_nameChar（10）姓名Course_noInt(4)課程號(hào)(主鍵）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)步和信息時(shí)代的到來，教育的普及

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

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

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

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

9、課程的基本情況定義：課程基本信息管理=課程編號(hào)+課程名稱+課程類型+學(xué)分+學(xué)時(shí)位置：課程信息輸入課程信息查詢課程信息修改名字：用戶基本信息別名：描述：反映出用戶的用戶名和密碼定義：用戶基本信息=用戶名+密碼位置：界面登錄系統(tǒng)學(xué)生信息管理系統(tǒng)(實(shí)現(xiàn)、調(diào)試、運(yùn)行)編碼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

10、_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=" Text2.Text & ”Set rs = New ADODB。Recordsetr

11、s。Open str_sql, cn， adOpenDynamic， adLockOptimisticIf Len(Text1。Text） = 0 Then MsgBox ”請(qǐng)輸入用戶名！”, 64, "提示” Text1。SetFocusElseIf Len(Text2。Text） = 0 Then MsgBox ”請(qǐng)輸入密碼！"， 64, ”提示” Text2.SetFocusElse If rs。RecordCount = 0 Then i = MsgBox（”不存在該用戶,是否立即注冊(cè)？”, 4 + 32, "提示"） If i = 6 Then

12、 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 Form_MouseMove（Button As Integer， Shift As Integer, X As Single， Y As Single）Label5。ForeColor =

13、vbBlackLabel5。FontUnderline = FalseLabel6.ForeColor = vbBlackLabel6。FontUnderline = FalseEnd SubPrivate Sub Label5_Click（）Unload MeForm3。ShowEnd SubPrivate Sub Label5_MouseMove（Button As Integer， Shift As Integer， X As Single, Y As Single）Label5。ForeColor = vbBlueLabel5。FontUnderline = TrueEnd SubPr

14、ivate 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、 添加學(xué)生信息代碼:Option ExplicitPrivate Sub Command1_Click()If Len（Text1。Text） = 0 Or Len（Text6。Text） = 0

15、 Then MsgBox "請(qǐng)將信息補(bǔ)充完整！”， 48， "警告” Exit SubEnd If添加新記錄sqlstr = ”select from student_Info"Set rs = ExecuteSQL（sqlstr， Msg）rs。AddNewrs。Fields（"student_id”） = Text6。Textrs。Fields("student_name”） = Text1.Textrs。Fields("class_no”） = Combo2。Textrs。Fields（”born_date”） = Text2。

16、Textrs。Fields("student_sex”) = Combo1.Textrs。Fields（"address”) = Text4。Textrs。Fields(”tele_number”） = Text7。Textrs。Fields(”comment”） = Text5。Textrs.Fields（”ru_date”） = Text3。Textrs.Updaters。CloseMsgBox ”學(xué)生信息添加完成！", 48， ”提示信息"mdlTextBox。Blank MeEnd SubPrivate Sub Command2_Click(）U

17、nload MeForm4。ShowEnd SubPrivate Sub Form_Load(）mdlTextBox。Centen MemdlTextBox.Blank MeCombo1.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。F

18、ields（0） rs.MoveNextNext irs.CloseEnd Sub3、 刪改學(xué)生信息代碼:Option ExplicitPrivate 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） I

19、f rs.RecordCount = 0 Then MsgBox "沒有找到符合條件的數(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”） Combo

20、4.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 Command1_Click（)Dim cn As ADODB。Connectionsqlstr = "upd

21、ate student_info set student_name='” Text1.Text ”，born_date= " Text3。Text ” ,student_sex=" Combo4。Text ”，class_no=” Combo1。Text & ”,tele_number=" Text4。Text & ”,address=” & Text5。Text & ”,comment=” Text6。Text ”'，ru_date='” Text7。Text " where student_id

22、=” & Combo2.Text & "'” 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 wh

23、ere student_id=" Combo2。Text ”'”O(jiān)n 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（）mdlTextBox.Centen

24、 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”Set rs = ExecuteSQL(sqlstr， Msg）For i = 1 To rs。RecordCount Combo1。AddIte

25、m 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） rs。MoveNextNextrs。CloseEnd Sub4、 查詢學(xué)生信息：Option ExplicitPrivate Sub Comm

26、and1_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 from student_info” Combo1。Text = "” Text1。Text = ”: Text2。Text = ”End IfIf O

27、ption2。Value = True Then sqlstr = "select * from student_info where class_no=” Combo1。Text & "' ” Text2。Text = ”": Text1。Text = ”End IfIf Option3.Value = True Then sqlstr = "select * from student_info where student_id='” Text1。Text & ”' ” Combo1。Text = ”"

28、: Text2。Text = ""End IfIf Option4.Value = True Then sqlstr = ”select * from student_info 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ù)

29、！”, 48， ”提示” fgStudent.Rows = 1Else fgStudent。Rows = 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

30、 i Case 0 fgStudent。ColWidth(i） = 1500 設(shè)定列寬 fgStudent.Text = "學(xué)號(hào)" 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 = ”班級(jí)" Case 4 fgStu

31、dent.ColWidth(i) = 1300 '設(shè)定列寬 fgStudent。Text = ”出生日期" Case 5 fgStudent。ColWidth(i） = 1500 設(shè)定列寬 fgStudent.Text = ”電話” Case 6 fgStudent.ColWidth（i） = 1500 fgStudent.Text = ”入學(xué)時(shí)間” 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 fgStudent。Cols 1 fgStudent。C