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

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

2、學(xué)生信息輸入學(xué)生信息管理學(xué)生信息查詢*學(xué)生信息修改成績信息管理成績信息輸入成績信息查詢成績信息修改學(xué) 生 信 息 管 理 系 統(tǒng)班級信息輸入班級信息管理班級信息查詢班級信息修改課程信息修改系統(tǒng)管理用戶管理3、數(shù)據(jù)庫設(shè)計(jì)：學(xué)生基本信息：student_lnfo列名數(shù)據(jù)類型說明Stude nt_idIn t(4)學(xué)號（主鍵）Stude nt_n ameChar(10)姓名Stude nt_sexChar(2)性別Born_dateDatetime(8)出生日期Class_ noIn t(4)班級號Tele_ nu mberChar(10)聯(lián)系電話Ru_dateDatetime(8)入校時期Addr

3、essVarchar(50)家庭住址comme ntVarchar(200)備注(2)班級基本信息：classnfo列名數(shù)據(jù)類型說明Class_ noIn t(4)班級號(主鍵)Class_ nameVarchar(50)班級名稱DirectorVarchar(50)班主任professi onVarchar(50)專業(yè)(3)課程基本信息：coursenfo列名數(shù)據(jù)類型說明Course_ noInt課程編號(主鍵)Course_ nameChar(10)課程名稱Course_typeChar(10)課程類型Course_startChar(10)開始學(xué)期Course_timeInt學(xué)時數(shù)Cou

4、rse_scoreInt學(xué)分（4）學(xué)生成績信息：resultnfo列名數(shù)據(jù)類型說明Stude nt_idIn t(4)學(xué)號（主鍵）Stude nt_n ameChar(10)姓名CoursenoIn t(4)課程號（主鍵）Course_typeChar(10)課程類型resultFloat(8)成績（5）用戶信息:usernfo列名數(shù)據(jù)類型說明User_codeVarchar(50)用戶密碼（主鍵）UsernameVarchar(50)用戶名（主鍵）學(xué)生信息管理系統(tǒng)（需求分析）1. 系統(tǒng)開發(fā)背景分析系統(tǒng)的功能取決開用戶的需求。隨著科技進(jìn)步和信息時代的到來，教育的 普及程度起來起高，學(xué)校的人數(shù)也

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

6、系統(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ī)對學(xué)生各種信息進(jìn) 行日常管理，女口：查詢、修改、增加、刪除。3. 系統(tǒng)目標(biāo)設(shè)計(jì)根據(jù)本校的實(shí)際情況，禾I用校園網(wǎng)而設(shè)計(jì)一套針對性和功能都比較強(qiáng)的學(xué)生信息管理系統(tǒng)，對學(xué)生信息管理系統(tǒng)進(jìn)行科學(xué)的分類、錄入、查詢.4. 開發(fā)設(shè)計(jì)思想盡量采用學(xué)?，F(xiàn)有的軟硬件環(huán)境及先進(jìn)的管理系統(tǒng)開發(fā)方案，從而達(dá)到充

7、 分利用資源，提高系統(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ù)備份。通過對數(shù)據(jù)流程圖的進(jìn)一步分析，得出學(xué)生信息管理系統(tǒng)應(yīng)該具備以下功能：1、實(shí)現(xiàn)學(xué)生基本信息的登記2、實(shí)現(xiàn)數(shù)據(jù)的瀏覽與修改3、實(shí)現(xiàn)查詢符合一定條件的資料4、實(shí)現(xiàn)學(xué)生有關(guān)數(shù)據(jù)的統(tǒng)計(jì)分析5. E-R 圖學(xué)時課程類型課程編號學(xué)分課程名稱6.數(shù)據(jù)流程圖=匸芒W洱iji加成績筲理刪除課秤倚 理<F修改班級宵理丿統(tǒng)汁7.數(shù)據(jù)字典名字：學(xué)生基本信息管理

8、別名：描述：反映出學(xué)生的基本信息情況定義：學(xué)生基本信息管理=姓名+年齡+性別+學(xué)號+班級+電話入學(xué)時間+出生年月+家庭地址+備注位置：學(xué)生信息輸入學(xué)生信息查詢學(xué)生信息修改名字：班級基本信息管理別名：描述：反映出班級的基本信息情況定義：班級基本信息管理 =系+班級號+指導(dǎo)老師 位置：班級信息輸入班級信息查詢班級信息修改名字：課程基本信息管理別名：描述：反映出學(xué)生在學(xué)校學(xué)習(xí)的課程的基本情況定義：課程基本信息管理 =課程編號+ 課程名稱+課程類型+學(xué)分+學(xué)時 位置：課程信息輸入課程信息查詢 課程信息修改名字：用戶基本信息別名：描述：反映出用戶的用戶名和密碼定義：用戶基本信息=用戶名+密碼位置：界面登

9、錄系統(tǒng)學(xué)生信息管理系統(tǒng)(實(shí)現(xiàn)、調(diào)試、運(yùn)行)編碼1、登錄模塊代碼：Opti on ExplicitPrivate Sub cmd3_Click()Dim cn As ADODB.Co nn ectio nDim rs As ADODB .R ecordsetDim str_cn As String'訪問 sql server 的連接字符串Dim str_sql As Stri ngstr_c n = "driver=sql server;server=.;uid=sa;pwd=;database=stude nt"Set cn = New ADODB.Co nn ec

10、tio ncn. CursorLocati on = adUseClie ntcn.Open str_cn'連接 sql serverstr_sql = "select * from user_i nfo where user_ name=” & Textl.Text & "' and user_code='" & Text2.Text & "”'Set rs = New ADODB.Recordsetrs.Ope n str_sql, cn, adOpe nDyn amic, adLock

11、OptimisticIf Len( Textl.Text) = 0 The nMsgBox "請輸入用戶名！ ", 64,"提示"Textl.SetFocusElseIf Len( Text2.Text) = 0 The nMsgBox "請輸入密碼！ ", 64,"提示"Text2.SetFocusElseIf rs.RecordCo unt = 0 The n,4 + 32,"提示")i = MsgBox("不存在該用戶，是否立即注冊？If i = 6 The nUn load M

12、eForm3.ShowElsemdlTextBox.Bla nk MeText2.SetFocusEnd IfElse'Un load MeForm1.HideForm4.ShowEnd IfEnd IfEnd SubPrivate Sub Form_Load()mdITextBox.Ce nten Me'使窗體居中End SubPrivate Sub Form_MouseMove(Button As In teger, Shift As In teger, X As Sin gle,Y As Si ngle)Label5.ForeColor = vbBIackLabel5.F

13、 ontUn derl ine = FalseLabel6.ForeColor = vbBlackLabel6.F ontUn derl ine = FalseEnd SubPrivate Sub Label5_Click()Un load MeForm3.ShowEnd SubPrivate Sub Label5_MouseMove(Button As Integer, Shift As Integer, X AsSi ngle, Y As Si ngle)Label5.ForeColor = vbBlueLabel5.F ontUn derl ine = TrueEnd SubPrivat

14、e Sub Label6_Click()Un load MeForm2.ShowEnd SubPrivate Sub Label6_MouseMove(ButtonAs Integer, Shift As Integer, X AsSi ngle, Y As Sin gle)Label6.ForeColor = vbBlueLabel6.F ontUn derl ine = TrueEnd Sub2、添加學(xué)生信息代碼：Opti on ExplicitPrivate Sub Comma nd1_Click()If Len( Textl.Text) = 0 Or Len( Text6.Text)

15、= 0 The nMsgBox "請將信息補(bǔ)充完整！ ", 48,"警告Exit SubEnd If'添加新記錄sqlstr = "select * from stude nt_lnfo"Set rs = ExecuteSQL(sqlstr, Msg)rs.AddNewrs.Fields("stude nt_id") = Text6.Textrs.Fields("stude nt_n ame") = Text1.Textrs.Fields("class_ no") = Comb

16、o2.Textrs.Fields("born_date") = Text2.Textrs.Fields("stude nt_sex") = Combo1.Textrs.Fields("address") = Text4.Textrs.Fields("tele_ nu mber") = Text7.Textrs.Fields("comme nt") = Text5.Textrs.Fields("ru_date") = Text3.Textrs.Updaters.CloseMsg

17、Box "學(xué)生信息添加完成！ ", 48,"提示信息 mdITextBox.Bla nk MeEnd SubPrivate Sub Comma nd2_Click()Un load MeForm4.ShowEnd SubPrivate Sub Form_Load() mdITextBox.Ce nte n Me mdITextBox.Bla nk MeCombo1.Text ="男"：Combo2.Text =""Combo1.Addltem "男"Combo1.Addltem "女"

18、sqlstr = "select * from classnfo"Set rs = ExecuteSQL(sqlstr, Msg)For i = 1 To rs.RecordCo untCombo2.Addltem rs.Fields(O) rs.MoveNextNext irs.CloseEnd Sub3、刪改學(xué)生信息代碼：Opti on ExplicitPrivate Sub Comma nd4_Click()'從數(shù)據(jù)庫中讀取學(xué)生信息并添加到窗體中的輸入框sqlstr = "select * from stude nt_lnfo where stude

19、 nt_id=” & Combo2.Text & "' and class_no='" & Combol.Text & "'"Set rs = ExecuteSQL(sqlstr, Msg)If rs.RecordCo unt = 0 The nMsgBox "沒有找到符合條件的數(shù)據(jù)！ ", 48,"警告mdITextBox.Bla nk Me: Combo3.Text =""ElseText2.Text :=Trim(rs.Fields("

20、;stude nt_id")Text1.Text :=Trim(rs.Fields("stude nt_n ame")Text3.Text :=Trim(rs.Fields("born_date")Combo3.Text = Trim(rs.Fields("class_ no")Combo4.Text = Trim(rs.Fields("stude nt_sex")Text4.Text :=Trim(rs.Fields("tele_ nu mber")Text5.Text :=Trim

21、(rs.Fields("address")Text6.Text :=Trim(rs.Fields("comme nt")Text7.Text :=Trim(rs.Fields("ru_date")End Ifrs.CloseEnd SubPrivate Sub Comma nd1_Click()Dim cn As ADODB.Co nn ectio nsqlstr = "update student_infoset student_name='"& Text1.Text &"

22、9;,born_date= '"& Text3.Text & " ' ,student_sex=”& Combo4.Text &"',class_no=”& Combol.Text & "',tele_number=”& Text4.Text &"',address='" & Text5.Text & "',comme nt=” & Text6.Text & "&#

23、39;,ru_date='" &Text7.Text & "' where stude nt_id=” & Combo2.Text & "”'On Error GoTo exitsubSet cn = New ADODB.Co nn ectio ncn. Ope n conn strcn .Execute sqlstrMsgBox "成功修改數(shù)據(jù)！"exitsub:cn. ClosemdITextBox.Bla nk Me: Combo3.Text =""End Sub

24、Private Sub Comma nd2_Click()Dim cn As ADODB.Co nn ection sqlstr = "delete from stude nt_info where stude nt_id='" & Combo2.Text & "'"On Error GoTo exitsubSet cn = New ADODB.Co nn ection cn. Ope n conn strcn .Execute sqlstrMsgBox "成功刪除數(shù)據(jù)！exitsub:cn. ClosemdIT

25、extBox.Bla nk Me: Combo3.Text =""End SubPrivate Sub Comma nd3_Click()Un load MeForm4.ShowEnd SubPrivate Sub Form_Load() mdlTextBox.Ce nte n MeCombo1.Text = "": Combo2.Text ="" mdlTextBox.Bla nk MeCombo3.Text =""Combo4.Text ="男"Combo4.Addltem "男&

26、quot;Combo4.Addltem "女"Dim sqlstr As StringDim Msg As Stri ngDim i As In teger sqlstr = "select * from class_l nfo"Set rs = ExecuteSQL(sqlstr, Msg)For i = 1 To rs.RecordCo untCombol.Addltem rs.Fields(O)Combo3.Addltem rs.Fields(0)rs.MoveNextNextDim sql As StringDim msgtext As Stri

27、 ngsql = "select * from stude nt_lnfo"Set rs = ExecuteSQL(sql, msgtext)For i = 1 To rs.RecordCo untCombo2.Addltem rs.Fields(O)rs.MoveNextNextrs.CloseEnd Sub4、查詢學(xué)生信息：Opti on ExplicitPrivate Sub Comma nd1_Click()Dim rs As New ADODB.RecordsetDim cn As New ADODB.Co nn ectionDim cn str As Strin

28、g cn str = "driver=sql server;server=.;uid=sa;pwd=;database=stude nt"cn. Ope n cn strIf Optio n1.Value = True The nsqlstr = "select * from stude nt_info"Combol.Text =""Textl.Text = "": Text2.Text =""End IfIf Optio n2.Value = True The nsqlstr = "

29、select * from stude nt_info where class_ no=”' & Combol.Text &III IIText2.Text = "": Textl.Text =""End IfIf Optio n3.Value = True The nsqlstr = "select * from stude nt_info where stude nt_id=” & Textl.Text & "'IICombol.Text = "": Text2.

30、Text =""End IfIf Optio n4.Value = True Thensqlstr = "select * from stude nt_info where stude nt_n ame='" & Text2.Text &Hill", 48,"提示"I列Combol.Text = "": Text2.Text =""End If rs.Ope n sqlstr, cnSet rs = ExecuteSQL(sqlstr, Msg)If rs.Re

31、cordCo unt = 0 The nMsgBox "沒有查找到滿足條件的數(shù)據(jù)！fgStude nt.Rows = 1ElsefgStude nt.Rows = rs.RecordCo unt + 1fgStude nt.Cols = 9'設(shè)定行高For i = 0 To fgStudent.Rows - 1fgStude nt.RowHeight(i) = 280Next i'設(shè)定列的屬性fgStude nt.Row = 0For i = 0 To fgStudent.Cols - 1fgStude nt.Col = i'指定當(dāng)前列為第Case 0fgSt

32、udent.ColWidth(i) = 1500 ' fgStudent.Text ="學(xué)號"Case 1fgStude nt.ColWidth(i) = 2000fgStudent.Text ="姓名"Case 2fgStude nt.ColWidth(i) = 800fgStude nt.Text ="性別"Case 3fgStude nt.ColWidth(i) = 800fgStudent.Text ="班級"Case 4fgStude nt.ColWidth(i) = 1300fgStudent.

33、Text ="出生日期"Case 5fgStude nt.ColWidth(i) = 1500 fgStudent.Text ="電話"Case 6fgStude nt.ColWidth(i) = 1500fgStudent.Text ="入學(xué)時間"設(shè)定列寬'設(shè)定列寬'設(shè)定列寬'設(shè)定列寬'設(shè)定列寬'設(shè)定列寬fgStudent.Text ="地址"Case 8fgStude nt.ColWidth(i) = 3000'設(shè)定列寬fgStudent.Text ="

34、備注信息"End SelectNext ii = 1'從第二行開始顯示內(nèi)容While (Not rs.EOF)fgStude nt.Row = iFor j = 0 To fgStudent.Cols - 1fgStude nt.Col = jfgStude nt.CellAlig nment = 4Select Case jCase 0fgStude nt.Text = rs.Fields("stude nt_id")Case 1fgStude nt.Text = rs.Fields("stude nt_n ame")Case 2fgStude nt.Text = rs.Fields("stude nt_sex")Case 3fgStude nt.Text = rs.Fields("born_date")Case 5fgStude nt.Text = rs.Fields("tele_ nu mber")Case 6fgStude nt.T