1、21跨平臺語言程序設計導入項目學生信息管理系統（管理信息系統課程設計說明書）1前 言學生信息管理系統（Student Information Management System）,以下簡稱SIMS，是針對學校人事處的大量業務處理工作而開發的管理軟件，是典型的管理信息系統（Management Information System）。它是一個教育單位不可缺少的部分,它的內容對于學校的決策者和管理者來說都至關重要,它能夠為用戶提供充足的信息和快捷的查詢手段。能有效的幫助學校和老師掌握學生的情況，為學生提供成績跟課程方面的查詢。在傳統模式下利用人工進行學生信息管理，存在著較多的缺點，如：效率底，保密

2、性差，時間一長將產生大量的文件和數據，更不便于查找，更新，維護等。諸如這些情況，令學校管理者對學生的信息管理帶來了很大困難，嚴重影響了教育工作者的工作效率。隨著科學技術的不斷提高,計算機科學日漸成熟, 使用日趨成熟的計算機技術來代替傳統的人工模式，來實現學生信息的現代化管理，其強大的功能已為人們深刻認識,它已進入人類社會的各個領域并發揮著越來越重要的作用。作為計算機應用的一部分,使用計算機對學生信息進行管理,具有著手工管理所無法比擬的優點.例如:檢索迅速、查找方便、易修改、可靠性高、存儲量大、數據處理快捷、保密性好、壽命長、成本低、便于打印等。這些優點能夠極大地提高學生信息管理的效率,也是學校

3、的科學化、正規化管理,與世界接軌的重要條件。用計算機制作的學生信息管理系統還可以通過功能強大的Internet網及時的向學生的家長傳遞該生在校的最新成績，有助于學校與家長的信息互動，為更好地把握學校的教育方針一定的促進作用！因此，開發這樣一套管理軟件成為很有必要的事情。3系統分析3.1需求分析21世紀以來，人類經濟高速發展，人們發生了日新月異的變化，特別是計算機的應用及普及到經濟和社會生活的各個領域。使原本的舊的管理方法越來越不適應現在社會的發展。許多人還停留在以前的手工操作。這大大地阻礙了人類經濟的發展。為了適應現代社會人們高度強烈的時間觀念，學校信息管理系統軟件為學校辦公室帶來了極大的方便

4、。（一）教育系統學生管理現狀分析學校工作流程分析學校工作總體規劃由教務人員在學生信息管理系統中完成對運行教務處所需的基本數據的維護，包括這些信息的增加、修改及對各項信息的變動都將在這進行操作。新的學年，教務人員首先加入年級信息，然后編排班級，再對來校學生進行基本的信息錄入，新生入學后由教務人員在學籍系統中完成新學生信息的維護。（二）學校具體需求分析學生：對各科成績的查詢任課老師：輸入并維護所教科目的學生成績教務處： 學校全體成員的信息管理，并對任課老師，班主任等輸入的信息進行存庫，對學生的信息進行必要的維護。通過研究調查，本系統需以下功能：綜合學生信息、學生成績以及信息查詢等信息。方便用戶了解

5、和管理學生的全面動態信息。良好的界面設計，更人性化的設計理念，使用戶擁有更輕松的使用心情。3.2可行性分析目的：可行性研究的目的是用最小的代價在盡可能的時間內確定問題是否能解決。經濟性：由于學校等中小型管理系統并不復雜，且Visual Basic 6.0本身要求的運行環境不高，所以一般Windows 2000以上的系統環境都可以使用。實用性：本學生信息管理系統管理系統無太多復雜的操作要求，也沒有過分花哨的裝飾品，人性化的設計界面可以使操作者輕易運用自如 4系統設計4.1 設計目標本系統可以能減少很多不必要的資源，不用象以前那樣用冗余的紙張式的管理。大節省了學校能源。并且計算機的存儲與快速查詢功

6、能大大提高了學籍管理的效率，并且還提高了學籍信息管理的精確度。方便快速的操作，可減少學籍信息管理的漏洞，又減少因工作的冗余出現的錯誤，并且操作非常簡單，可減少許多不很必要的人員，這無論從物質上還是工作人員的工資上都為學校節約了開支。為學校增加了財富。數據庫分析用戶需求具體有學籍管理系統提供保存、更新、查詢、維護，這就需求數據庫結構能充分滿足各種信息的輸入與輸出，實現有組織地、動態地存儲大量關聯數據，方便用戶訪問系統中的數據，它與文件系統的重要區別是數據的充分共享，交叉訪問，與應用程序的高度獨立性。4.3系統流程圖系統初始化附加數據庫系統登錄系統主界面學生成績信息管理學生課程信息管理系統管理學生

7、信息管理理學生成績錄入學生選課課程查詢學生信息錄入學生信息修改學生成績查詢修改密碼用戶管理215系統詳細設計5.1數據庫需求分析課程選擇考核輸入課程設置學生注冊考核信息課程信息管理其它系統數據接口考核信息管理學生信息管理個人信息輸入 5.2數據庫邏輯結構設計（1）kc（課程）見表1表5-1字段名數據類型是否允許為空說明課程號Char（3）Not null主鍵課程名Char（16）Not null開課學期tinyintNot null只能為1-8學時tinyintNot null學分tinyintnull（2）xs_kc（學生選課）見表2表5-2字段名數據類型是否允許為空說明學號Char（6）N

8、ot null主鍵課程號Char（3）Not null主鍵成績tinyintnull學分tinyintnull（3）xs（學生）見表3表5-3字段名數據類型是否允許為空說明學號Char（6）Not null主鍵姓名Char（8）Not null專業名Char(10)null性別Bit Null男1，女0出生日期SmallDatetimeNull總學分tinyintnull照片imageNull備注textNull(4)user1（管理員登錄）見表4表5-4 字段名數據類型說明角色Char(3)用戶名Char（6）主鍵 密碼Char（6）Not null（5）user2(學生登錄)見表5 表5-

9、5字段名數據類型說明角色Char(3)用戶名Char（6）主鍵密碼Char（6）6.系統實現6.1系統初始界面圖6-1“系統初始界面代碼”Dim starttime As StringDim endtime As StringDim i As IntegerPrivate Sub Form_Load()starttime = Format(Now, "hh:mm:ss")End SubPrivate Sub Timer1_Timer()Dim ret As Integerendtime = Format(Now, "hh:mm:ss")If DateDi

10、ff("s", starttime, endtime) = 10 Then Dim cn As ADODB.Connection Set cn = New ADODB.Connection Dim sqlres As ADODB.Recordset cn.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;userid=sa;Initial Catalog=master" Set sqlres = New ADODB.Recordset sqlres

11、.Open "SELECT * FROM master.sysdatabases WHERE name = 'xscj'", cn, adOpenDynamic, adLockPessimistic If sqlres.EOF = False Then 'Label1.Caption = "登陸成功" cn.Close Unload Me Form1.Show Else ret = MsgBox("是否加載數據庫", vbYesNo, "XSCJ") If ret = vbYes Then

12、cn.Close Unload Me Form12.Show Else cn.Close End End If End IfEnd IfEnd SubPrivate Sub Timer2_Timer()Dim str As Stringstr = "系統加載中，請等待."i = i + 1If i = 20 Then i = 0 Label1.Caption = ""Else Label1.Caption = Label1.Caption & Mid(str, i, 1)End IfEnd Sub6.2附加數據庫圖6-2“附加Server數據庫”

13、按鈕的click事件添加如下的代碼Private Sub Command2_Click()If Text1.Text = "" Then MsgBox "請選擇數據庫文件！", , "XSCJ" Exit SubEnd IfOn Error GoTo dataerrcn.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;userid=sa;Initial Catalog=master"cn.Execute (

14、"sp_attach_db dbname='" & strdata & "',filename1='" & m & "'")MsgBox "附加成功！", , "XSCJ"cn.CloseUnload MeForm1.ShowExit Subdataerr:MsgBox Err.Description, , "XSCJ"cn.CloseEnd Sub6.3登陸界面設計圖6-3“登錄”按鈕的click事件添加如下的

15、代碼:Private Sub Command1_Click()If Text1.Text = "" Or Text2.Text = "" Then MsgBox "請輸入完整的登錄信息!" Text1.SetFocus Exit SubEnd IfIf Text3.Text = "" Then MsgBox "請輸入驗證碼" Text3.SetFocus Exit SubEnd IfDim i As Integeri = Len(Text1.Text)If i < 6 Then MsgBo

16、x "用戶名應為六位數字", , "提示" Text1.SetFocus Text1.Text = "" Exit SubEnd Ifi = Len(Text2.Text)If i < 6 Then MsgBox "密碼應為六位", , "提示" Text2.SetFocus Text2.Text = "" Exit SubEnd IfIf UCase(Trim(Text3.Text) <> Trim(Label4.Caption) Then MsgBox

17、"驗證碼輸入錯誤" Text3.SetFocus Text3.Text = "" Exit SubEnd IfDim sqlcon As New ADODB.ConnectionDim sqlres As New ADODB.RecordsetSet sqlcon = New ADODB.Connectionsqlcon.Open connectstringIf option1.Value Then Set sqlres = New ADODB.Recordset sqlres.Open "select * from dlgl where 用戶

18、名='" + Trim(Text1.Text) + "' and 密碼='" + Trim(Text2.Text) + "'", connectstring, adOpenDynamic, adLockPessimistic If Not sqlres.EOF Then juese = option1.Caption yonghuming = Trim(Text1.Text) mima = Trim(Text2.Text) MsgBox "登錄成功" sqlres.Close Unload M

19、e MDIForm1.Show Exit Sub Else sqlres.Close MsgBox "用戶名或密碼錯誤！" Text1.Text = "" Text2.Text = "" Text3.Text = "" Text1.SetFocus Randomize i = Int(Rnd * 25 + 65) j = Int(Rnd * 25 + 65) k = Int(Rnd * 25 + 65) l = Int(Rnd * 25 + 65) Label4.Caption = Chr(i) & Chr

20、(j) & Chr(k) & Chr(l) Exit Sub End IfEnd IfIf Option2.Value Then Set sqlres = New ADODB.Recordset sqlres.Open "select * from dl where 用戶名='" + Trim(Text1.Text) + "' and 密碼='" + Trim(Text2.Text) + "'", connectstring, adOpenDynamic, adLockPessimist

21、ic If Not sqlres.EOF Then juese = Option2.Caption yonghuming = Trim(Text1.Text) mima = Trim(Text2.Text) MsgBox "登錄成功" sqlres.Close Unload Me MDIForm1.Show Exit Sub Else sqlres.Close MsgBox "用戶名或密碼錯誤！" Text1.Text = "" Text2.Text = "" Text3.Text = "" T

22、ext1.SetFocus Randomize i = Int(Rnd * 25 + 65) j = Int(Rnd * 25 + 65) k = Int(Rnd * 25 + 65) l = Int(Rnd * 25 + 65) Label4.Caption = Chr(i) & Chr(j) & Chr(k) & Chr(l) End IfEnd IfEnd Sub6.6 學生信息查詢圖6-6“查詢”按鈕的click事件添加如下的代碼Private Sub Command1_Click()Dim str As Stringstr = "select * f

23、rom xs,cxb where xs.性別=cxb.性別0 "If Text1.Text = "" And Text2.Text = "" And Combo1.Text <> "所有專業" Then str = "select * from xs,cxb where 專業名='" + Trim(Combo1.Text) + "' and xs.性別=cxb.性別0 "End IfIf Text1.Text = "" And Text2

24、.Text = "" And Combo1.Text = "所有專業" Then str = "select * from xs,cxb where xs.性別=cxb.性別0"End IfIf Text1.Text <> "" And Text2.Text = "" Thenstr = "select * from xs,cxb where 學號='" & Trim(Text1.Text) & "' and xs.性別=

25、cxb.性別0"End IfIf Text1.Text <> "" And Text2.Text <> "" Thenstr = "select * from xs where 學號='" & Trim(Text1.Text) & "' and 姓名='" & Trim(Text2.Text) & "'"End IfIf Text1.Text = "" And Text2.Tex

26、t <> "" Thenstr = "select * from xs where 姓名='" & Trim(Text2.Text) & "'"End If'str = "select * from xs where 學號='" & Trim(Text1.Text) & "' or 姓名='" & Trim(Text2.Text) & "' or 專業名='&qu

27、ot; & Trim(Combo1.Text) & "'"Adodc1.RecordSource = strAdodc1.CommandType = adCmdTextAdodc1.RefreshIf Adodc1.Recordset.EOF Then Text2.Text = "" Combo1.Text = "所有專業" Adodc1.RecordSource = "select * from xs,cxb where xs.性別=cxb.性別0" Adodc1.Refresh Adod

28、c1.Recordset.MoveFirstEnd IfIf Text1.Text <> "" Or Text2.Text <> "" Then Combo1.Text = Adodc1.Recordset("專業名")End IfEnd Sub6.7學生成績錄入圖6-7“更新”按鈕的click事件添加如下的代碼Private Sub Command1_Click()Dim 學號, 課程名, 成績, 學分If Trim(Text2.Text) = "" Then MsgBox "成

29、績不能為空，請輸入完整的信息！", , "提示" Text2.SetFocus Exit SubEnd Ifsqlcmd.CommandText = "addscore"sqlcmd.CommandType = adCmdStoredProcSet 學號 = sqlcmd.CreateParameter("學號", adVarChar, adParamInput, 6)sqlcmd.Parameters.Append (學號)Set 課程名 = sqlcmd.CreateParameter("課程名",

30、adVarChar, adParamInput, 16)sqlcmd.Parameters.Append (課程名)Set 成績 = sqlcmd.CreateParameter("成績", adInteger, adParamInput)sqlcmd.Parameters.Append (成績)Set 學分 = sqlcmd.CreateParameter("學分", adInteger, adParamInput)sqlcmd.Parameters.Append (學分)sqlcmd("學號") = Combo3.Textsqlc

31、md("課程名") = Combo2.Textsqlcmd("成績") = CInt(Text2.Text)sqlcmd("學分") = 0Set sqlres = sqlcmd.ExecuteMsgBox "更新選課成績成功", , "提示"sqlcmd.Parameters.Delete ("學號")sqlcmd.Parameters.Delete ("課程名")sqlcmd.Parameters.Delete ("成績")sqlc

32、md.Parameters.Delete ("學分")Adodc1.RecordSource = "select xs_kc.學號,姓名,專業名,課程名,成績,xs_kc.學分 from xs,kc,xs_kc where 課程名='" + Trim(Combo2.Text) + "' and 專業名='" + Trim(Combo1.Text) + "' and xs.學號=xs_kc.學號 and kc.課程號=xs_kc.課程號"Adodc1.RefreshAdodc1.Rec

33、ordset.MoveLastEnd Sub6.8 修改學生成績圖6-86.9學生成績查詢圖6-96.10用戶管理圖6-10窗體的代碼如下Private sqlcon As New ADODB.ConnectionPrivate sqlres As New ADODB.RecordsetPrivate Sub Command1_Click()sqlres.MoveFirstText1.Text = sqlres.Fields(0)Text2.Text = sqlres.Fields(1)Text3.Text = sqlres.Fields(2)End SubPrivate Sub Comman

34、d2_Click()sqlres.MovePreviousIf sqlres.BOF Then sqlres.MoveFirstEnd IfText1.Text = sqlres.Fields(0)Text2.Text = sqlres.Fields(1)Text3.Text = sqlres.Fields(2)End SubPrivate Sub Command3_Click()sqlres.MoveNextIf sqlres.EOF Then sqlres.MoveLastEnd IfText1.Text = sqlres.Fields(0)Text2.Text = sqlres.Fiel

35、ds(1)Text3.Text = sqlres.Fields(2)End SubPrivate Sub Command4_Click()sqlres.MoveLastText1.Text = sqlres.Fields(0)Text2.Text = sqlres.Fields(1)Text3.Text = sqlres.Fields(2)End SubPrivate Sub Command5_Click()Dim a As Integera = MsgBox("是否刪除角色為:" & Trim(Text1.Text) & "用戶名為:"

36、 + Trim(Text2.Text) + "記錄？", vbYesNo, "提示")If a = 6 Thensqlres.Deletesqlres.UpdateEnd IfEnd SubPrivate Sub Command6_Click()Unload Me'FrmMain.ShowEnd SubPrivate Sub Form_Load()Me.Height = 5355Me.Left = 5000Me.Top = 2000Me.Width = 7515Set sqlcon = New ADODB.Connectionsqlcon.Ope

37、n connectstringSet sqlres = New ADODB.Recordset sqlres.Open "select * from dlgl ", connectstring, adOpenDynamic, adLockPessimisticIf Not sqlres.EOF Then Text1.Text = sqlres.Fields(0) Text2.Text = sqlres.Fields(1) Text3.Text = sqlres.Fields(2)Else MsgBox "無記錄" Command1.Enabled = F

38、alse Command2.Enabled = False Command3.Enabled = False Command4.Enabled = False Command5.Enabled = False Exit SubEnd IfEnd SubPrivate Sub Form_Unload(Cancel As Integer)sqlcon.CloseEnd Sub6.11修改用戶密碼圖6-11“確定”按鈕的click事件添加如下的代碼Private Sub Command1_Click()If Text1.Text = "" Or Text2.Text = "" Or Text3.Text = "" Then MsgBox "請輸入完整信息" Text1.SetFocus Exit SubEnd Ifi = Len(Text1.Text)If i < 6 Then MsgBox "密碼應為六位", , "提示"