學生信息管理系統(tǒng)_數(shù)據(jù)庫課程設(shè)計報告

1、成績數(shù)據(jù)庫原理與應(yīng)用課程設(shè)計報告設(shè)計題目： 圖書管理系統(tǒng)學生姓名朱圣堯?qū)W號20080508135專業(yè)名稱08計應(yīng)專日期2010.12。22設(shè)計名稱：學生信息管理系統(tǒng)設(shè)計內(nèi)容：設(shè)計一個學生信息管理系統(tǒng)設(shè)計目的與要求:采用VB和SQL Server設(shè)計一個學生管理系統(tǒng)，并使系統(tǒng)達到以下功能:(1)大大提高學校管理的運作效率;(2）快捷，有效的處理學生的各種信息，通過全面的信息采集和處理，輔助提高管理水平；（3)使用本系統(tǒng)，可以迅速提升學生的管理水平，為提高效益，方便用戶查詢， 提供有效的技術(shù)保障。設(shè)計環(huán)境或器材、原理與說明:前臺開發(fā)工具：Vasual Basic 6.0后臺數(shù)據(jù)庫工具：SQL Se

2、rver 2000設(shè)計過程（步驟)或程序代碼：1需求分析1.1相關(guān)功能要求:1)添加：可以添加學生學籍信息、課程信息、班級信息、成績信息2）查詢：可以查詢學生學籍信息、課程信息、班級信息、成績信息3)修改：可以修改學生學籍信息、課程信息、班級信息、成績信息1。2 數(shù)據(jù)流圖:學生信息管理的第一層數(shù)據(jù)流圖：教務(wù)處學院學生考試1.0學生注冊2.0安排3.0分配4.0成績輸入學生信息表班級信息表年級課程信息表班級課程信息表成績信息表圖1。1學生信息的第二層數(shù)據(jù)流圖：教務(wù)處1.1登錄1.21添加學生信息1.22修改學生信息班級信息表學生信息表1.23刪除學生成績表圖1。2班級信息和課程信息的第二層數(shù)據(jù)流

3、圖:學院2.1登錄2.21修改班級信息2.22刪除班級信息2.23添加班級信息2.24修改年級信息2.25刪除年級信息2.26添加年級信息年級課程信息表3.21修改班級課程信息3.22刪除班級課程信息3.23添加班級課程信息班級課程信息表 圖1。3學生成績信息的第二層數(shù)據(jù)流圖:學生4.1考試4.2錄入成績成績表課程信息表圖1。41.3相關(guān)的數(shù)據(jù):1)數(shù)據(jù)項：學生學號含義說明:惟一標識一個學生 別名：student_ID類型：字符型整型長度：8取值范圍：00000000-99999999取值含義：前兩位表示入學年份的后兩位，第3、4位表示學院代號，第5、6位表示專業(yè)代號，最后兩位表示報到序號2）

4、數(shù)據(jù)結(jié)構(gòu)：學生含義說明:定義了一個描述學生的信息結(jié)構(gòu)組成：學生編號、學生姓名、學生性別、出生年月、班級編號、電話號碼、入學日期、家庭住址數(shù)據(jù)結(jié)構(gòu)：課程含義說明：定義了一個描述課程的信息結(jié)構(gòu)組成:課程編號、課程名稱、課程類型數(shù)據(jù)結(jié)構(gòu)：班級含義:定義了一個描述班級的信息組成:班級編號、班級所屬的年級、班主任、教室數(shù)據(jù)結(jié)構(gòu):成績含義：定義了一個描述成績的信息組成：成績總評、課程名稱、考試成績3）數(shù)據(jù)流：成績管理信息說明：表示學生與課程的關(guān)系數(shù)據(jù)流來源：學生信息表、課程信息表數(shù)據(jù)流去向：成績信息表組成：學生編號、課程編號數(shù)據(jù)流：課程安排信息說明：表示年級和課程的關(guān)系數(shù)據(jù)流來源:班級信息表、課程信息表數(shù)

5、據(jù)流去向：課程安排表組成:年級、課程名稱4）數(shù)據(jù)存儲：班級信息表、課程信息表、課程安排表、成績信息表、學生學籍信息表說明：記錄學生、班級、成績、課程的情況流入數(shù)據(jù)流：學籍管理信息、課程管理信息、班級管理信息流出數(shù)據(jù)流：課程安排信息、成績管理信息組成：學生編號、學生姓名、課程名稱、班級編號、考試成績、年級存取方式:隨即存取5)處理過程：添加、修改、刪除學生學籍信息、課程信息、班級信息、成績信息說明:完成學籍、課程、班級、成績的各種操作輸入：學生編號、班級編號、課程名稱、輸出：學生學籍信息、課程信息、班級信息、成績信息的添加、刪除、修改結(jié)果處理：如果有新生入學,就要進行學生各種信息的添加；如果有畢

6、業(yè)生離校,就要對學生的各種信息進行刪除；如果某個學生的信息需要修改,則對其相應(yīng)的信息進行修改2概念結(jié)構(gòu)設(shè)計1)學生實體E_R圖：學生學生學號學生性別學生出生日期所屬班級號電話號碼入學年份學生姓名家庭地址備注2）班級實體E_R圖: 班級班號所在班級班主任所在教室3）課程實體E_R圖：課程課程名稱課程類型課程描述4)年級實體E_R圖： 年級年級名稱課程名5)成績實體E_R圖：成績總評學生學號學生姓名班級號課程名稱成績6）實體和實體之間的E_R圖：學生屬于班級屬于年級學習課程成績考試成績_課程學習3。邏輯結(jié)構(gòu)設(shè)計現(xiàn)在需要將上面的數(shù)據(jù)庫概念結(jié)構(gòu)轉(zhuǎn)化為SQL Server 2000數(shù)據(jù)庫系統(tǒng)所支持的實際

7、數(shù)據(jù)模型,也就是數(shù)據(jù)庫的邏輯結(jié)構(gòu)。在上面的實體以及實體之間關(guān)系的基礎(chǔ)上,形成數(shù)據(jù)庫中的表格以及各個表格之間的關(guān)系。Student_Info學生信息表 列名數(shù)據(jù)類型可否為空說明Student_IDint（4）Not null學生學號（主鍵）Student_NameChar（10）Null學生姓名Stdent_SexChar（2）Null學生性別Born_DateDatetime（8）Null出生日期Class_NOInt（4）Null班號Tele_NumberVarchar(12)Null聯(lián)系電話Ru_DateDatetime（8）Null入校時間AddressVarchar（50）Null家庭

8、地址CommentVarchar（200）Null注釋Class_Info班級信息表格列名數(shù)據(jù)類型可否為空說明Class_NoInt(4）null班號(主鍵）GradeChar（10）Null年級DirectorChar（20）Null班主任Classroom_NoChar（10）Null教室Course_Info課程基本信息表列名數(shù)據(jù)類型可否為空說明Course_NameChar(10）Not null課程名稱(主鍵）Course_TypeChar(10）Null課程類型Course_DesChar（20)Null課程描述Gradecourse_Info年級課程設(shè)置表列名數(shù)據(jù)類型可否為空說明

9、GradeChar(10）null年級Course_NameChar（10）Null課程名稱Result_Info學生成績表列名數(shù)據(jù)類型可否為空說明Exam_NoChar(10)null考試類型Student_IDInt（4）Null學生學號Student_NameChar(10）Null學生姓名Class_NoInt（4）Null學生班號Course_NameChar（10)Null課程名稱ResultFloat（8）Null分數(shù)User_Info系統(tǒng)用戶表列名數(shù)據(jù)類型可否為空說明User_IDChar（10)null用戶名稱User_PWDChar（10）Null用戶密碼User_DesC

10、har(10）Null用戶描述4物理結(jié)構(gòu)的設(shè)計建立的索引建立的約束關(guān)系5數(shù)據(jù)庫的實施 5.1 用戶表的SQL語句CREATE TABLE dbo。user_Info （user_ID char （10) COLLATE Chinese_PRC_CI_AS NOT NULL ,user_PWD char (10） COLLATE Chinese_PRC_CI_AS NULL ,user_Des char (10） COLLATE Chinese_PRC_CI_AS NULL ) ON PRIMARY5.2學生表的SQL語句CREATE TABLE dbo。student_Info （studen

11、t_ID int NOT NULL ,student_Name char (10） COLLATE Chinese_PRC_CI_AS NULL ，student_Sex char （2) COLLATE Chinese_PRC_CI_AS NULL ，born_Date datetime NULL ，class_NO int NULL ,tele_Number char (10) COLLATE Chinese_PRC_CI_AS NULL ,ru_Date datetime NULL ，address varchar （50） COLLATE Chinese_PRC_CI_AS NULL

12、,） ON PRIMARY5.3班級表的SQL語句CREATE TABLE dbo.class_Info (class_No int NOT NULL ，grade char （10) COLLATE Chinese_PRC_CI_AS NULL ，director char （10） COLLATE Chinese_PRC_CI_AS NULL ,classroom_No char (10) COLLATE Chinese_PRC_CI_AS NULL ） ON PRIMARY5。4課程表的SQL語句CREATE TABLE dbo.course_Info (course_No int NO

13、T NULL ,course_Name char (10） COLLATE Chinese_PRC_CI_AS NULL ，course_Type char (10） COLLATE Chinese_PRC_CI_AS NULL ,） ON PRIMARY5.5課程設(shè)置表的SQL語句CREATE TABLE dbo。gradecourse_Info (grade char （10） COLLATE Chinese_PRC_CI_AS NULL ,course_Name char (10） COLLATE Chinese_PRC_CI_AS NULL ) ON PRIMARY5。6 成績表的SQ

14、L語句CREATE TABLE dbo。result_Info （exam_No char （10） COLLATE Chinese_PRC_CI_AS NOT NULL ，student_ID int NOT NULL ，student_Name char （10） COLLATE Chinese_PRC_CI_AS NULL ,class_No int NULL ,course_Name char (10） COLLATE Chinese_PRC_CI_AS NULL ，result float NULL ） ON PRIMARY5。7寫進相關(guān)數(shù)據(jù)5.71建立用戶表5.72建立學生信息表5

15、。73建立班級信息表5。73建立課程信息表5。74建立課程設(shè)置表5.75建立成績表5.8 VB模塊中與SQL Sever 2000連接的關(guān)鍵代碼ConnectString = ”Provider=SQLOLEDB。1；Integrated Security=SSPI;Persist Security Info=False；Initial Catalog=Student；datasource=”5.9關(guān)系圖6詳細設(shè)計6。1 學生信息管理系統(tǒng)功能學生信息管理系統(tǒng)實現(xiàn)的功能：管理員登陸與修改密碼,學生信息的添加、刪除與修改,班級信息的添加,修改，課程的設(shè)置、添加，成績的紀錄、修改與刪除,以及對學生的

16、各個信息的查詢。6.2 功能模塊的實現(xiàn)（VB代碼）1.用戶登錄的設(shè)置:用于設(shè)置用戶的基本信息，包括用戶名和密碼（修改）以及用戶的退出。修改Private Sub cmdCancel_Click（) Unload MeEnd SubPrivate Sub cmdOK_Click（） Dim txtSQL， MsgText As String Dim mrc As ADODB。Recordset If Trim(Text1(1）。Text） > Trim(Text1(2).Text） Then MsgBox ”密碼輸入不正確!”, vbOKOnly + vbExclamation, &quo

17、t;警告” Text1（1)。SetFocusText1(1）。Text = "” Else txtSQL = "select * from user_Info where user_ID = ” UserName "'” Set mrc = ExecuteSQL(txtSQL, MsgText） mrc。Fields（1） = Text1（1）。Text mrc。Update mrc。Close MsgBox ”密碼修改成功!”， vbOKOnly + vbExclamation， ”修改密碼” Me。Hide End If End Sub2.學生信息的

18、設(shè)置：用于學生基本信息的查詢、修改和添加學生的信息,包括學生的學號、姓名、性別、班號、出生日期、入學年份、家庭住址以及備注。添加Private Sub Command1_Click() Dim mrc As ADODB.Recordset Dim txtSQL As String Dim MsgText As String If Not Testtxt（txtSID.Text） Then MsgBox "請輸入學號！”， vbOKOnly + vbExclamation， ”警告” txtSID.SetFocus Exit Sub End If If Not Testtxt（txtN

19、ame。Text) Then MsgBox ”請輸入姓名！”， vbOKOnly + vbExclamation， ”警告” txtName。SetFocus Exit Sub End If If Not Testtxt（comboSex。Text） Then MsgBox "請選擇性別！"， vbOKOnly + vbExclamation, ”警告” comboSex。SetFocus Exit Sub End If If Not Testtxt(txtBorndate。Text） Then MsgBox ”請輸入出生日期！”, vbOKOnly + vbExclama

20、tion, "警告” txtBorndate。SetFocus Exit Sub End If If Not Testtxt（comboClassNo。Text) Then MsgBox ”請選擇班號！”, vbOKOnly + vbExclamation, ”警告” comboClassNo。SetFocus Exit Sub End If If Not Testtxt（txtTel。Text） Then MsgBox ”請輸入聯(lián)系電話！”， vbOKOnly + vbExclamation, ”警告" txtTel。SetFocus Exit Sub End If If

21、 Not Testtxt（txtRudate.Text) Then MsgBox "請輸入入校日期！”， vbOKOnly + vbExclamation， ”警告" txtRudate.SetFocus Exit Sub End If If Not Testtxt(txtAddress.Text） Then MsgBox ”請輸入家庭住址！”， vbOKOnly + vbExclamation， "警告” txtAddress。SetFocus Exit Sub End If If Not IsNumeric(Trim（txtSID。Text)） Then Ms

22、gBox ”請輸入數(shù)字！"， vbOKOnly + vbExclamation, "警告" Exit Sub txtSID.SetFocus End If txtSQL = ”select * from student_Info where student_ID = '” & Trim（txtSID。Text） "'” Set mrc = ExecuteSQL（txtSQL， MsgText) If mrc。EOF = False Then MsgBox ”學號重復,請重新輸入！”, vbOKOnly + vbExclamatio

23、n, ”警告” mrc。Close txtSID.SetFocus Else mrc.Close If Not IsDate（txtBorndate.Text） Then MsgBox "出生時間應(yīng)輸入日期格式（yyyymmdd）！”， vbOKOnly + vbExclamation， "警告” txtBorndate。SetFocus Else txtBorndate = Format(txtBorndate， "yyyymm-dd”） If Not IsDate（txtRudate.Text） Then MsgBox ”入校時間應(yīng)輸入日期格式(yyyy-mm

24、-dd）！”， vbOKOnly + vbExclamation， ”警告" txtRudate.SetFocus Else txtRudate = Format(txtRudate， ”yyyymmdd"） txtSQL = ”select from student_Info” Set mrc = ExecuteSQL（txtSQL， MsgText) mrc.AddNew mrc.Fields(0） = Trim（txtSID。Text) mrc。Fields（1) = Trim(txtName。Text） mrc。Fields(2） = Trim（comboSex.T

25、ext） mrc。Fields(3） = Trim（txtBorndate.Text） mrc。Fields(4) = Trim（comboClassNo。Text） mrc.Fields（5) = Trim（txtTel.Text) mrc.Fields（6） = Trim（txtRudate.Text) mrc。Fields（7） = Trim(txtAddress.Text） mrc.Update MsgBox "添加學籍信息成功!"， vbOKOnly + vbExclamation, "警告” mrc.Close Me.Hide End If End I

26、f End If End SubPrivate Sub Command2_Click(） Unload MeEnd SubPrivate Sub Form_Load（) Dim mrc As ADODB。Recordset Dim txtSQL As String Dim MsgText As String Dim i As Integer comboSex。AddItem ”男” comboSex。AddItem ”女" txtSQL = ”select from class_Info ” Set mrc = ExecuteSQL（txtSQL， MsgText） For i =

27、1 To mrc.RecordCount comboClassNo。AddItem mrc。Fields（0) mrc。MoveNext Next i mrc.CloseEnd SubPrivate Sub txtComment_Change（）End Sub修改Dim mrc As ADODB。RecordsetDim myBookmark As VariantDim mcclean As BooleanPrivate Sub editCommand_Click（） mcclean = False Frame2。Enabled = False firstCommand.Enabled = F

28、alse previousCommand。Enabled = False nextCommand。Enabled = False lastCommand。Enabled = False txtSID.Enabled = True txtName.Enabled = True comboSex。Enabled = True txtBorndate。Enabled = True comboClassNo。Enabled = True txtRudate。Enabled = True txtTel.Enabled = True txtAddress。Enabled = TrueEnd SubPriv

29、ate Sub cancelCommand_Click（) If Not mcclean Then Frame2。Enabled = True firstCommand。Enabled = True previousCommand。Enabled = True nextCommand。Enabled = True lastCommand.Enabled = True txtSID。Enabled = False txtName。Enabled = False comboSex.Enabled = False txtBorndate。Enabled = False comboClassNo。En

30、abled = False txtRudate.Enabled = False txtTel。Enabled = False txtAddress。Enabled = False mrc.Bookmark = myBookmark Call viewData Else MsgBox "什么都沒有修改，有什么好取消的!”， vbOKOnly + vbExclamation, ”警告” End IfEnd SubPrivate Sub deleteCommand_Click(） myBookmark = mrc。Bookmark str2 = MsgBox（”是否刪除當前記錄?”, vb

31、OKCancel， "刪除當前記錄”） If str2 = vbOK Then mrc。MoveNext If mrc。EOF Then mrc。MoveFirst myBookmark = mrc.Bookmark mrc。MoveLast mrc。Delete mrc.Bookmark = myBookmark Call viewData Else myBookmark = mrc。Bookmark mrc。MovePrevious mrc。Delete mrc.Bookmark = myBookmark Call viewData End If Else mrc.Bookmar

32、k = myBookmark Call viewData End IfEnd SubPrivate Sub firstCommand_Click(） mrc.MoveFirst Call viewDataEnd SubPrivate Sub Form_Load（） Dim txtSQL As String Dim MsgText As String txtSQL = ”select from student_Info ” Set mrc = ExecuteSQL（txtSQL， MsgText) mrc。MoveFirst Call viewDate mcclean = TrueEnd Sub

33、Public Sub viewData（） txtSID.Text = mrc。Fields(0） txtName.Text = mrc。Fields（1） comboSex。Text = mrc.Fields(2） txtBorndate.Text = Format（mrc。Fields（3）, ”yyyymmdd”） comboClassNo。Text = mrc。Fields（4） txtTel。Text = mrc。Fields（5) txtRudate。Text = Format（mrc。Fields(6）， "yyyymm-dd"） txtAddress。Tex

34、t = mrc。Fields（7） End SubPrivate Sub lastCommand_Click（） mrc.MoveLast Call viewDataEnd SubPrivate Sub nextCommand_Click(） mrc。MoveNext If mrc.EOF Then mrc。MoveFirst End If Call viewDataEnd SubPrivate Sub previousCommand_Click（) mrc.MovePrevious If mrc.BOF Then mrc.MoveLast End If Call viewDataEnd Su

35、bPrivate Sub updateCommand_Click（） Dim txtSQL As String Dim MsgText As String Dim mrcc As ADODB.Recordset If mcclean Then MsgBox "請先修改學籍信息”, vbOKOnly + vbExclamation， ”警告" Exit Sub End If If Not Testtxt（txtSID.Text） Then MsgBox ”請輸入學號!”， vbOKOnly + vbExclamation， "警告" txtSID。SetF

36、ocus Exit Sub End If If Not Testtxt（txtName.Text) Then MsgBox ”請輸入姓名!”, vbOKOnly + vbExclamation， "警告" txtName。SetFocus Exit Sub End If If Not Testtxt(comboSex.Text） Then MsgBox "請選擇性別!”， vbOKOnly + vbExclamation， "警告" comboSex。SetFocus Exit Sub End If If Not Testtxt(txtBorn

37、date.Text） Then MsgBox ”請輸入出生日期！”， vbOKOnly + vbExclamation， ”警告” txtBorndate。SetFocus Exit Sub End If If Not Testtxt（comboClassNo。Text） Then MsgBox ”請選擇班號!”， vbOKOnly + vbExclamation， "警告” comboClassNo。SetFocus Exit Sub End If If Not Testtxt（txtTel.Text) Then MsgBox ”請輸入聯(lián)系電話!”， vbOKOnly + vbEx

38、clamation， "警告” txtTel。SetFocus Exit Sub End If If Not Testtxt（txtRudate.Text） Then MsgBox ”請輸入入校日期！”， vbOKOnly + vbExclamation， ”警告” txtRudate。SetFocus Exit Sub End If If Not Testtxt（txtAddress。Text） Then MsgBox ”請輸入家庭住址！”， vbOKOnly + vbExclamation， ”警告" txtAddress.SetFocus Exit Sub End I

39、f If Not IsNumeric（Trim（txtSID。Text）) Then MsgBox ”學號請輸入數(shù)字!”, vbOKOnly + vbExclamation， ”警告” txtSID.SetFocus Exit Sub End If mrc。Delete txtSQL = "select from student_Info where student_ID = " Trim(txtSID。Text） "" Set mrcc = ExecuteSQL(txtSQL, MsgText) If mrcc。EOF = False Then Msg

40、Box ”學號重復,請重新輸入！”， vbOKOnly + vbExclamation， ”警告” mrcc.Close txtSID。SetFocus Else mrcc。Close If Not IsDate(txtBorndate。Text） Then MsgBox ”出生時間應(yīng)輸入日期格式(yyyymmdd）!”， vbOKOnly + vbExclamation, ”警告” txtBorndate.SetFocus Else txtBorndate = Format(txtBorndate, ”yyyymm-dd"） If Not IsDate(txtRudate。Text

41、） Then MsgBox "入校時間應(yīng)輸入日期格式（yyyy-mmdd）！”， vbOKOnly + vbExclamation, ”警告” txtRudate.SetFocus Else txtRudate = Format(txtRudate， ”yyyy-mmdd") mrc。AddNew mrc。Fields（0） = Trim(txtSID。Text) mrc.Fields（1） = Trim(txtName.Text) mrc。Fields（2） = Trim(comboSex。Text） mrc。Fields（3） = Trim（txtBorndate。Te

42、xt） mrc.Fields（4） = Trim（comboClassNo。Text) mrc.Fields(5） = Trim（txtTel。Text） mrc.Fields（6） = Trim（txtRudate.Text） mrc.Fields（7） = Trim（txtAddress。Text） mrc。Update MsgBox "修改學籍信息成功！", vbOKOnly + vbExclamation, "修改學籍信息" Call viewData Frame2.Enabled = True firstCommand.Enabled = Tr

43、ue previousCommand。Enabled = True nextCommand。Enabled = True lastCommand。Enabled = True txtSID。Enabled = False txtName.Enabled = False comboSex。Enabled = False txtBorndate。Enabled = False comboClassNo.Enabled = False txtRudate。Enabled = False txtTel。Enabled = False txtAddress。Enabled = False mcclean

44、 = True End If End If End IfEnd Sub查詢Private Sub cmdExit_Click（） Unload MeEnd SubPrivate Sub cmdInquire_Click（) Dim txtSQL As String Dim MsgText As String Dim dd(4) As Boolean Dim mrc As ADODB。Recordset txtSQL = "select from student_Info where ” If Check1（0）.Value Then If Trim(txtSID。Text） = ”

45、Then sMeg = ”學號不能為空” MsgBox sMeg， vbOKOnly + vbExclamation, ”警告” txtSID.SetFocus Exit Sub Else If Not IsNumeric（Trim（txtSID。Text)） Then MsgBox ”請輸入數(shù)字!”， vbOKOnly + vbExclamation, ”警告” Exit Sub txtSID。SetFocus End If dd（0） = True txtSQL = txtSQL "student_ID = ” Trim（txtSID。Text） ” End If End If

46、If Check1（1）。Value Then If Trim（txtName.Text） = ” Then sMeg = ”姓名不能為空" MsgBox sMeg， vbOKOnly + vbExclamation， "警告” txtName。SetFocus Exit Sub Else dd（1） = True If dd（0) Then txtSQL = txtSQL "and student_Name = ” txtName。Text ” Else txtSQL = txtSQL ”student_Name = '” txtName。Text ”" End If End If End If If Check1（2）。Value The