軟件工程課程設(shè)計---學生信息管理系統(tǒng) (2)

上傳人：奔*** IP屬地：河北更新時間：2024-03-01 格式：doc 頁數(shù)：25 大?。?06.25KB 人氣指數(shù)：12 舉報 版權(quán)申訴

已閱讀1頁，還剩24頁未讀，繼續(xù)免費閱讀

版權(quán)說明：本文檔由用戶提供并上傳，收益歸屬內(nèi)容提供方，若內(nèi)容存在侵權(quán)，請進行舉報或認領(lǐng)

文檔簡介

1、　　引言（或緒論）　　1.1 課題背景　　隨著教育事業(yè)的不斷發(fā)展，學校的規(guī)模不斷擴大，學生數(shù)量及其信息量的急劇增加，有關(guān)學生的各種信息管理也隨之展開，學生信息管理系統(tǒng)應(yīng)運而生了，它可用來管理學生信息與提高系統(tǒng)管理工作的效率。學生信息管理系統(tǒng)把Eclipse（前臺

2、開發(fā)）與SQL數(shù)據(jù)庫（后臺管理）有機地結(jié)合，并運用SWING等相關(guān)技術(shù)，完成學生信息的規(guī)范管理、科學統(tǒng)計和快速查詢，從而可大大減少該管理上的工作量。　　數(shù)據(jù)庫在一個信息管理系統(tǒng)中占有非常重要的地位，數(shù)據(jù)庫結(jié)構(gòu)設(shè)計的好壞將直接對應(yīng)用系統(tǒng)的效率以及實現(xiàn)的效果產(chǎn)生影響。合理的數(shù)據(jù)庫結(jié)構(gòu)設(shè)計可以提高數(shù)據(jù)庫存儲的效率，保證數(shù)據(jù)的完整性和一致性。同時，合理的數(shù)據(jù)結(jié)構(gòu)也將有利于程序的順利實現(xiàn)。</p&g

3、t;　　1.2 系統(tǒng)開發(fā)關(guān)鍵技術(shù)介紹　　本系統(tǒng)采用的是Eclipse開發(fā)工具做為開發(fā)系統(tǒng)程序，采用SQL sever數(shù)據(jù)庫訪問技術(shù)完成對數(shù)據(jù)庫信息的規(guī)范管理和統(tǒng)計查詢。SQL sever使用更加簡單靈活的對象模型，適用于各種程序設(shè)計語言。SQL sever提供執(zhí)行以下操作方式：　　連接到數(shù)據(jù)源。

4、　　指定訪問數(shù)據(jù)源的命令，可以在命令中指定參數(shù)。　　執(zhí)行命令，例如一個SELECT語句。　　在適當情況下，可以把緩存行的更改內(nèi)容寫回數(shù)據(jù)庫中，更新數(shù)據(jù)源。　　提供常規(guī)方法檢測錯誤，錯誤通常由建立連接或執(zhí)行命令造成，涉及到 SQL的error對象。&l

5、t;/p>　　2 系統(tǒng)分析　　2.1 總體設(shè)計思想及工作流程　　用戶必須通過已經(jīng)注冊的帳號和密碼才能進行對該系統(tǒng)的管理與應(yīng)用，否則在登錄系統(tǒng)前要進行新賬號的注冊；管理員通過輸入密碼和帳號可以對數(shù)據(jù)庫的數(shù)據(jù)進行各種操作，而普通用戶僅僅可以進行一部分的操作；用戶根據(jù)自己的實際情況選擇相應(yīng)的

6、功能來提取自己所需信息。　?。?）學生信息管理系統(tǒng)的功能為顯示主要操作頁面，通過密碼驗證登陸界面，檔案信息處理功能。　　通過密碼驗證登陸，可實現(xiàn)安全登錄，方便可靠。學生信息處理功能包括輸入學生信息，顯示學生的檔案信息，學生檔案信息條件查詢（分為：按學生姓名進行查詢，按學生學號進行查詢），更新學生檔案信息。　?。?/p>

7、2）學生信息管理系統(tǒng)的功能模塊有：　　系統(tǒng)登陸界面，美觀大方，按enter鍵進入密碼驗證登陸界面，輸入正確密碼登陸主菜單選擇框架界面，方便用戶對程序個功能進行選擇，選擇要實現(xiàn)的功能按enter鍵進入該功能。　　1. 輸入學生檔案信息。　　2. 顯示學生的檔案信息　　3.

8、學生檔案信息條件查詢　　4. 更新學生檔案信息。　　0. 退出，謝謝使用!!!　　程序分為多個小模塊，通過調(diào)用實現(xiàn)各種功能，增強了程序的可建設(shè)性。　　2.2 業(yè)務(wù)需求　　(1) 安全性:

9、用戶必須通過帳號和密碼才能進行對該系統(tǒng)的管理。　　(2) 權(quán)限分配: 超級管理員通過輸入密碼和帳號可以對數(shù)據(jù)庫的數(shù)據(jù)進行各種操作，而普通用戶僅僅可以進行一部分的操作。　　(3) 易操作性: 可以快速進行查詢操作，進行數(shù)據(jù)的匯總。　　2.3 數(shù)據(jù)流圖&l

10、t;p>　　用戶的需求具體體現(xiàn)在各種信息的提供、保存、更新、查詢和統(tǒng)計上，這就要求數(shù)據(jù)庫結(jié)構(gòu)應(yīng)充分滿足各種信息的輸入和輸出。系統(tǒng)應(yīng)定義數(shù)據(jù)結(jié)構(gòu)、收集基本數(shù)據(jù)以及設(shè)置數(shù)據(jù)處理的流程，組成一份詳盡的數(shù)據(jù)字典，為以后的具體設(shè)計打下基礎(chǔ)與伏筆。在仔細分析、調(diào)查有關(guān)學生信息管理需要的基礎(chǔ)上，得到了本系統(tǒng)的流程圖：　　圖3.2 總數(shù)據(jù)流圖　　圖3.3 零層數(shù)

11、據(jù)流圖　　圖3.3 一層數(shù)據(jù)流圖　　2.2 總體設(shè)計流程圖　　圖2　總體設(shè)計流程圖　　該流程圖為此次學生信息查詢系統(tǒng)的總體流程圖，用戶進入界面以后可以看到登陸密碼界面，密碼輸入正確進入主菜單選擇框架界面，1為輸入學生信息檔案，2為顯示學生檔案，3為學生信息檔案查詢，4

12、為更新學生檔案，0為退出系統(tǒng)。用戶可以根據(jù)自己的需求方便快捷的做出自己的選擇。　　密碼登陸函數(shù)流程圖：　　該函數(shù)為密碼登陸函數(shù)模塊，當輸入的密碼不正確的時候，系統(tǒng)會提示“密碼輸入錯誤，請重新輸入”，直到輸入正確密碼為止。　　選擇框架函數(shù)流程圖：　　進入學生檔案管理系統(tǒng)時顯

13、示程序名稱和選擇框架主菜單，提示用戶進行選擇，完成相應(yīng)任務(wù)。此代碼被main（）函數(shù)調(diào)用。　　輸入信息函數(shù)流程圖：　　輸入學生信息函數(shù)模塊，用戶可以根據(jù)提示的信息來進行每一步的輸入操作，當輸入不當時，系統(tǒng)會自動提示，并讓用戶進行正確的操作。在此系統(tǒng)中，要求用戶輸入的只有字符型和數(shù)值型數(shù)據(jù)，設(shè)計了相應(yīng)的函數(shù)來進行數(shù)據(jù)校驗工作，保證數(shù)據(jù)輸入的準確性。<

14、/p>　　顯示信息流程圖：　　當用戶進入查詢信息模塊時，系統(tǒng)會顯示內(nèi)部存儲的內(nèi)容。　　查詢信息流程圖：　　當用戶執(zhí)行此查詢?nèi)蝿?wù)時，系統(tǒng)會提醒用戶進行查詢字段的選擇，即按學號或姓名進行查詢。若此學生檔案信息記錄存

15、在，則會顯示該省的檔案信息。此函數(shù)完成了節(jié)點定位的功能。　　更新信息流程圖：　　在更新學生檔案信息的操作中，系統(tǒng)會先按輸入的學號查詢到該生檔案信息記錄，然后按順序填入要修改的學生信息。　　3 系統(tǒng)設(shè)計<p&g

16、t;　　3.1 系統(tǒng)功能結(jié)構(gòu)圖　　設(shè)計數(shù)據(jù)庫系統(tǒng)時應(yīng)充分滿足各種信息的輸入和輸出。據(jù)此，結(jié)學生信息管理系統(tǒng)所需完成的主體任務(wù)。學生信息管理系統(tǒng)主要任務(wù)如下：　　基本信息的輸入。包括學籍（學生基本）信息，班能、課程和成績等住處的輸入。　　基本信息的修改。包括學籍信息、班級、課程和成績等信息的修改。

17、;　　基本信息的查詢。包括學籍信息和成績信息等的查詢。　　年級信息及班級信息的設(shè)置等。　　學?；菊n程信息的輸入、修改和設(shè)置。　　基于需求分析及主要任務(wù)的表述，可對上述各項功能按照結(jié)構(gòu)化程序設(shè)計的要求進行集中、分層結(jié)構(gòu)化，自上而下逐層設(shè)置得到系統(tǒng)功能模塊結(jié)構(gòu)圖：<

18、;p>　　圖3.1 系統(tǒng)功能結(jié)構(gòu)圖　　4 系統(tǒng)數(shù)據(jù)庫設(shè)計　　4.1 系統(tǒng)E-R圖　　概念結(jié)構(gòu)設(shè)計就是E-R方法的分析與設(shè)計，概念結(jié)構(gòu)設(shè)計是整個數(shù)據(jù)庫設(shè)計的關(guān)鍵。在此，將使用實體—聯(lián)系（E-R）模型來描述系統(tǒng)的概念結(jié)構(gòu)，同時設(shè)計出能夠滿足用戶需求的的各種實體，以及它們之間

19、的關(guān)系，為后面的邏輯結(jié)構(gòu)設(shè)計打下基礎(chǔ)。這也實體包括各種具體的實際信息，通過相互之間的作用形成數(shù)據(jù)的流動。本程序根據(jù)上面的設(shè)計規(guī)劃出的實體有：學籍實體、班級實體、年級實體、課程實體與成績實體，學生信息管理系統(tǒng)數(shù)據(jù)庫E-R模型，如下圖所示：　　圖4.1 學生信息管理系統(tǒng)E-R模型圖　　4.2 數(shù)據(jù)表的創(chuàng)建　　根據(jù)系統(tǒng)

20、特點，由數(shù)據(jù)模型利用Oracle10g進行數(shù)據(jù)庫的詳細設(shè)計，學生信息管理系統(tǒng)數(shù)據(jù)庫中各個表格的設(shè)計結(jié)果如下：　　表1: 學籍信息表　　表2: 學生成績信息表　　表3: 班級信息表　　表4: 年級課

21、程設(shè)置表　　表5: 課程基本信息表　　表6: 系統(tǒng)用戶表　　4.3 存儲過程和觸發(fā)器設(shè)計　　為了提高該系統(tǒng)的運行環(huán)境，后臺有關(guān)數(shù)據(jù)的操作部分使用了存儲過程和觸發(fā)器。　　1.創(chuàng)建的存儲過程進行添

22、加班級信息，代碼如下：　　create or replace procedure insertclass　　(p_class_no in class_no%type,　　p_grade in grade%type,　　p_director in director%type

23、,　　p_classroom_no in classroom_no%type　　) 　　is v_count number;　　begin　　select

24、 count(*) into v_count from class_info where class_no=p_class_no;　　if v_count=0 then　　insertinto class_info values(p_class_no,p_grade,p_director,p_classroom_no );<

25、;p>　　else　　dbms_output.put_line('班號已經(jīng)存在,請重新輸入班號');　　end if;　　end insertclass;　　2.存儲過程的調(diào)

26、用代碼:　　Private Sub Command1_Click()　　Dim sqlcon As New ADODB.Connection　　Dim mrc As ADODB.Recordset　　Dim MsgText As String<

27、;p>　　Dim txtSQL As String　　Dim cmd As New ADODB.Command　　Dim classNO, grad, DIRECTO, CLASSROOMNO　　sqlcon.Open "Provider=OraOLEDB.Oracle.1;Password=12

28、34;Persist Security Info=True;User ID=CC;Data Source=orcl"　　If Not Testtxt(txtClassno.Text) Then　　MsgBox "請輸入班號！", vbOKOnly + vbExclamation, "警告"</p&g

29、t;　　txtClassno.SetFocus　　Exit Sub　　End If　　If Not Testtxt(comboGrade.Text) Then　　MsgBox

30、 "請選擇年級！", vbOKOnly + vbExclamation, "警告"　　comboGrade.SetFocus　　Exit Sub　　End If<p&g

31、t;　　If Not Testtxt(txtDirector.Text) Then　　MsgBox "請輸入班主任姓名！", vbOKOnly + vbExclamation, "警告"　　txtDirector.SetFocus　　Exit Sub<

32、;/b>　　End If　　If Not Testtxt(txtClassroom.Text) Then　　MsgBox "請輸入教室房間號！", vbOKOnly + vbExclamation, "警告"

33、　　txtClassroom.SetFocus　　Exit Sub　　End If　　If Not IsNumeric(Trim(txtClassno.Text)) Then

34、　MsgBox "請輸入數(shù)字！", vbOKOnly + vbExclamation, "警告"　　Exit Sub　　txtClassno.SetFocus　　End If

35、　　cmd.ActiveConnection = sqlcon　　cmd.CommandText = "insertclass"　　cmd.CommandType = adCmdStoredProc　　Set classNO = cmd.CreateParameter(&qu

36、ot;@CLASS_NO", adVarChar, adParamInput, 50)　　cmd.Parameters.Append (classNO)　　Set grad = cmd.CreateParameter("@GRADE", adVarChar, adParamInput, 50)<

37、p>　　cmd.Parameters.Append (grad)　　Set DIRECTO = cmd.CreateParameter("@DIRECTOR", adVarChar, adParamInput, 50)　　cmd.Parameters.Append (DIRECTO)

38、Set CLASSROOMNO = cmd.CreateParameter("@CLASSROOM_NO", adVarChar, adParamInput, 50)　　cmd.Parameters.Append (CLASSROOMNO)　　cmd("@CLASS_NO") = txtClassno.Text&l

39、t;/p>　　cmd("@GRADE") = comboGrade.Text　　cmd("@DIRECTOR") = txtDirector.Text　　cmd("@CLASSROOM_NO") = txtClassroom.Text<p

40、>　　Set mrc = cmd.Execute　　cmd.Parameters.Delete ("@CLASS_NO")　　cmd.Parameters.Delete ("@GRADE")　　cmd.Parameters.Delete ("@DIRECTO

41、R")　　cmd.Parameters.Delete ("@CLASSROOM_NO")　　MsgBox "添加班級信息成功！", vbOKOnly + vbExclamation, "添加班級信息"　　End Sub<

42、/b>　　3.創(chuàng)建觸發(fā)器：　　create or replace trigger course_info_del 　　before delete on course_info 　　for each row

43、　　declare　　-- local variables here　　begin　　delete from gradecourse_info;　　end

44、 ;　　4.4 數(shù)據(jù)庫的連接　　配置文件連接數(shù)據(jù)庫的代碼：　　ConnectString = "Provider=OraOLEDB.Oracle.1;Password=1234;Persist Security Info=True;User ID=CC;Data Source=orc

45、l"　　5 系統(tǒng)實現(xiàn)　　根據(jù)整個系統(tǒng)的總體設(shè)計以及相關(guān)子系統(tǒng)的相關(guān)模塊功能的設(shè)計，我們進行了系統(tǒng)的軟件開發(fā)。詳細設(shè)計和功能展示如下：　　5.1 系統(tǒng)實現(xiàn)工具與支持平臺　　(1) 用戶界面

46、　　本系統(tǒng)采用Microsoft Visual Basic 6.0設(shè)計，用戶交互界面采用的是基于Windows的窗口界面。　　(2) 開發(fā)和運行環(huán)境　　工具軟件：VisualBasic　　系統(tǒng)軟件：Oracle 10g　　開發(fā)環(huán)境

47、：Windows XP Professional 　　運行環(huán)境：Windows 98\NT\2000\XP\2003　　硬件配置：PentiumⅢ以上CPU、256MB以上的內(nèi)存、4GB以上的硬盤空間　　5. 2 公用模塊的設(shè)計　　在系統(tǒng)中創(chuàng)建公用模塊，存放在整個工程項

48、目中會調(diào)用到的函數(shù)、變量等。　　代碼如下：　　Public fMainForm As frmMain　　Public UserName As String　　Sub Main()　　Dim f

49、Login As New frmLogin　　fLogin.Show vbModal　　If Not fLogin.OK Then　　'Login Failed so exit app　　End<

50、p>　　End If　　Unload fLogin　　Set fMainForm = New frmMain　　fMainForm.Show　　End Sub<

51、p>　　Public Function ConnectString() _　　As String　　'returns a DB ConnectString　　ConnectString = "Provider=OraOLEDB.Oracle.1;Pas

52、sword=1234;Persist Security Info=True;User ID=CC;Data Source=orcl"　　End Function　　Public Function ExecuteSQL(ByVal SQL _　　As String, MsgString As String

53、) _　　As ADODB.Recordset　　'executes SQL and returns Recordset　　Dim cnn As ADODB.Connection　　Dim rst As ADODB.Recordset<

54、;p>　　Dim sTokens() As String　　On Error GoTo ExecuteSQL_Error　　sTokens = Split(SQL)　　Set cnn = New ADODB.Connection　　cnn.Open ConnectS

55、tring　　If InStr("INSERT,DELETE,UPDATE", _　　UCase$(sTokens(0))) Then　　cnn.Execute SQL　　MsgString = sTokens(0) & _

56、　　" query successful"　　Else　　Set rst = New ADODB.Recordset　　rst.CursorLocation = adUseClient　　rs

57、t.Open Trim$(SQL), cnn, _　　adOpenKeyset, _　　adLockOptimistic　　'rst.MoveLast 'get RecordCount　　Set ExecuteSQL = rst

58、　　MsgString = "查詢到" & rst.RecordCount & _　　" 條記錄 "　　End If　　ExecuteSQL_Exit:<

59、/p>　　Set rst = Nothing　　Set cnn = Nothing　　Exit Function　　ExecuteSQL_Error:　　MsgString = "查詢錯誤: " & _</p&

60、gt;　　Err.Description　　Resume ExecuteSQL_Exit　　End Function　　Public Function Testtxt(txt As String) As Boolean　　If Trim(txt) =

61、 "" Then　　Testtxt = False　　Else　　Testtxt = True　　End If　　End Functi

62、on　　5. 3系統(tǒng)界面設(shè)計:　　圖5.2 系統(tǒng)登錄界面　　圖5.3添加課程信息界面　　圖5.4添加學籍信息界面　　圖5.5查詢學籍信息界面　　圖5.5設(shè)置年級課程信息界面</p&g

63、t;　　5. 4 系統(tǒng)核心代碼　　(1) 添加班級信息是通過存儲過程的調(diào)用實現(xiàn)的,部分源代碼:　　sqlcon.Open "Provider=OraOLEDB.Oracle.1;Password=1234;Persist Security Info=True;User ID=CC;Data Source=orcl"

64、;　　cmd.ActiveConnection = sqlcon　　cmd.CommandText = "insertclass"　　cmd.CommandType = adCmdStoredProc　　Set classNO = cmd.Create

65、Parameter("@CLASS_NO", adVarChar, adParamInput, 50)　　cmd.Parameters.Append (classNO)　　Set grad = cmd.CreateParameter("@GRADE", adVarChar, adParamInput, 50)<

66、;/p>　　cmd.Parameters.Append (grad)　　Set DIRECTO = cmd.CreateParameter("@DIRECTOR", adVarChar, adParamInput, 50)　　cmd.Parameters.Append (DIRECTO)

67、　　Set CLASSROOMNO = cmd.CreateParameter("@CLASSROOM_NO", adVarChar, adParamInput, 50)　　cmd.Parameters.Append (CLASSROOMNO)　　cmd("@CLASS_NO") = txtC

68、lassno.Text　　cmd("@GRADE") = comboGrade.Text　　cmd("@DIRECTOR") = txtDirector.Text　　cmd("@CLASSROOM_NO") = txtClassroom.Text<

69、/p>　　Set mrc = cmd.Execute　　cmd.Parameters.Delete ("@CLASS_NO")　　cmd.Parameters.Delete ("@GRADE")　　cmd.Parameters.Delete (&

70、quot;@DIRECTOR")　　cmd.Parameters.Delete ("@CLASSROOM_NO")　　MsgBox "添加班級信息成功！", vbOKOnly + vbExclamation, "添加班級信息"

71、　　End Sub　　(2) 查詢學生成績模塊的部分代碼:　　Private Sub cmdInquire_Click()　　Dim txtSQL As String　　Dim MsgText As String

72、;　　Dim dd(4) As Boolean　　Dim mrc As ADODB.Recordset　　txtSQL = "select * from RESULT_INFO where "　　If Check1(0).Value Then　　If

73、Trim(txtSID.Text) = "" Then　　sMeg = "學號不能為空"　　MsgBox sMeg, vbOKOnly + vbExclamation, "警告"　　txtSID.SetFocus

74、　　Exit Sub　　Else　　If Not IsNumeric(Trim(txtSID.Text)) Then　　MsgBox "請輸入數(shù)字！", vbOKOnly + vbExclamation, "

75、警告"　　Exit Sub　　txtSID.SetFocus　　End If　　dd(0) = True　　txtSQL = txtSQL &a

76、mp; "student_ID = '" & Trim(txtSID.Text) & "'"　　End If　　End If　　If Check1(1).Value

77、Then　　If Trim(txtName.Text) = "" Then　　sMeg = "姓名不能為空"　　MsgBox sMeg, vbOKOnly + vbExclamation, "警告"　　txtNa

78、me.SetFocus　　Exit Sub　　Else　　dd(1) = True　　If dd(0) Then　　txtSQL = txtSQL &am

79、p; "and student_Name = '" & txtName.Text & "'"　　Else　　txtSQL = txtSQL & "student_Name = '" & txtName.

80、Text & "'"　　End If　　End If　　End If　　If Check1(2).Value Then&l

81、t;/p>　　If Trim(txtCourse.Text) = "" Then　　sMeg = "課程不能為空"　　MsgBox sMeg, vbOKOnly + vbExclamation, "警告"　　txtCourse

82、.SetFocus　　Exit Sub　　Else　　dd(2) = True　　If dd(0) Or dd(1) Then　　txtSQL = txt

83、SQL & "and course_Name = '" & txtCourse.Text & "'"　　Else　　txtSQL = txtSQL & "course_Name = '" & t

84、xtCourse.Text & "'"　　End If　　End If　　End If　　If Not (dd(0) Or

85、 dd(1) Or dd(2) Or dd(3)) Then　　MsgBox "請設(shè)置查詢方式！", vbOKOnly + vbExclamation, "警告"　　Exit Sub　　End If

86、　　txtSQL = txtSQL & " order by student_ID "　　Set mrc = ExecuteSQL(txtSQL, MsgText)　　With myflexgrid　　.Rows = 2<

87、;/b>　　.CellAlignment = 4　　.TextMatrix(1, 0) = "考試編號"　　.TextMatrix(1, 1) = "學號"　　.TextMatrix(1, 2) = "姓名"

88、;　　.TextMatrix(1, 3) = "班號"　　.TextMatrix(1, 4) = "課程名稱"　　.TextMatrix(1, 5) = "分數(shù)"　　Do While Not mrc.EOF<

89、;/p>　　.Rows = .Rows + 1　　.CellAlignment = 4　　.TextMatrix(.Rows - 1, 0) = mrc.Fields(0)　　.TextMatrix(.Rows - 1, 1) = mrc.Fields(1)&l

90、t;p>　　.TextMatrix(.Rows - 1, 2) = mrc.Fields(2)　　.TextMatrix(.Rows - 1, 3) = mrc.Fields(3)　　.TextMatrix(.Rows - 1, 4) = mrc.Fields(4)　　.TextMatrix(.Rows -

91、 1, 5) = mrc.Fields(5)　　mrc.MoveNext　　Loop　　End With　　mrc.Close<

92、p>　　End Sub　　(3) 修改課程信息部分代碼:　　Private Sub cancelCommand_Click()　　If Not mcclean Then　　Frame2.Enabled = True</p&

93、gt;　　firstCommand.Enabled = True　　previousCommand.Enabled = True　　nextCommand.Enabled = True　　lastCommand.Enabled = True　　txt

94、Courseno.Enabled = False　　txtCoursename.Enabled = False　　comboCoursetype.Enabled = False　　txtCoursedes.Enabled = False　　mrc.Bookmark = m

95、yBookmark　　Call viewData　　Else　　MsgBox "什么都沒有修改，不需要取消！", vbOKOnly + vbExclamation, "警告"

96、　End If　　End Sub　　Private Sub deleteCommand_Click()　　myBookmark = mrc.Bookmark　　str2$ = MsgBox("是否刪除當前

97、記錄？", vbOKCancel, "刪除當前記錄")　　If str2$ = vbOK Then　　mrc.MoveNext　　If mrc.EOF Then　　mrc.MoveFirst　　myB

98、ookmark = mrc.Bookmark　　mrc.MoveLast　　mrc.Delete　　mrc.Bookmark = myBookmark　　Call viewData　　Else

99、　　myBookmark = mrc.Bookmark　　mrc.MovePrevious　　mrc.Delete　　mrc.Bookmark = myBookmark　　Call viewData<

100、p>　　End If　　Else　　mrc.Bookmark = myBookmark　　Call viewData　　End If

101、　　End Sub　　Private Sub editCommand_Click()　　mcclean = False　　Frame2.Enabled = False　　firstCommand.Enabled

102、= False　　previousCommand.Enabled = False　　nextCommand.Enabled = False　　lastCommand.Enabled = False　　txtCourseno.Enabled = True

103、　　txtCoursename.Enabled = True　　comboCoursetype.Enabled = True　　txtCoursedes.Enabled = True　　comboCoursetype.AddItem "必修"<

104、;p>　　comboCoursetype.AddItem "考查"　　myBookmark = mrc.Bookmark　　End Sub　　Private Sub firstCommand_Click()

105、　mrc.MoveFirst　　Call viewData　　End Sub　　Private Sub previousCommand_Click()　　mrc.MovePrevious　　I

106、f mrc.BOF Then　　mrc.MoveLast　　End If　　Call viewData　　End Sub　　Private Sub upd

107、ateCommand_Click()　　Dim txtSQL As String　　Dim MsgText As String　　Dim mrcc As ADODB.Recordset　　If mcclean Then　　MsgB

108、ox "請先修改課程信息", vbOKOnly + vbExclamation, "警告"　　Exit Sub　　End If　　If Not Testtxt(txtCourseno.Text) T

109、hen　　MsgBox "請輸入課程編號！", vbOKOnly + vbExclamation, "警告"　　txtCourseno.SetFocus　　Exit Sub

110、End If　　If Not IsNumeric(Trim(txtCourseno.Text)) Then　　MsgBox "課程編號請輸入數(shù)字！", vbOKOnly + vbExclamation, "警告"　　txtCourseno.SetFocu

111、s　　Exit Sub　　End If　　If Not Testtxt(txtCoursename.Text) Then　　MsgBox "請輸入課程名稱！", vbOKOnl

112、y + vbExclamation, "警告"　　txtCoursename.SetFocus　　Exit Sub　　End If　　If Not Testtxt(comboC

113、oursetype.Text) Then　　MsgBox "請選擇課程類型！", vbOKOnly + vbExclamation, "警告"　　comboCoursetype.SetFocus　　Exit Sub

114、　　End If　　If Not Testtxt(txtCoursedes.Text) Then　　MsgBox "請輸入課程描述信息！", vbOKOnly + vbExclamation, "警告"　　txtCo

115、ursedes.SetFocus　　Exit Sub　　End If　　mrc.Delete　　txtSQL = "select * from course_Info where cou

116、rse_No = '" & Trim(txtCourseno.Text) & "'"　　Set mrcc = ExecuteSQL(txtSQL, MsgText)　　If mrcc.EOF = False Then　　MsgBox "課程編

117、號重復(fù)，請重新輸入！", vbOKOnly + vbExclamation, "警告"　　mrcc.Close　　txtCourseno.SetFocus　　Else　　mrcc.Close</p&

118、gt;　　mrc.AddNew　　mrc.Fields(0) = Trim(txtCourseno.Text)　　mrc.Fields(1) = Trim(txtCoursename.Text)　　mrc.Fields(2) = Trim(comboCoursetype.Text)</

119、p>　　mrc.Fields(3) = Trim(txtCoursedes.Text)　　mrc.Update　　MsgBox "修改課程信息成功！", vbOKOnly + vbExclamation, "警告"　　mrc.Bookmark =

120、 myBookmark　　Call viewData　　Frame2.Enabled = True　　firstCommand.Enabled = True　　previousCommand.Enabled = True　　nex

121、tCommand.Enabled = True　　lastCommand.Enabled = True　　txtCourseno.Enabled = False　　txtCoursename.Enabled = False　　comboCoursetype.Enabled

122、 = False　　txtCoursedes.Enabled = False　　mcclean = True　　End If　　End Sub<b&

123、gt;　　6 總結(jié)與展望　　6.1 收獲與體會　　通過本次數(shù)據(jù)庫課程設(shè)計我從中學習到了許多課本中沒有的知識，更重要的是從該課程設(shè)計中對自己的動手能力和動腦能力有了更大層次的提高，切實提高了自己的綜合能力，使得將所學的知識同實際的運用相結(jié)合，并對數(shù)據(jù)庫知識的了解和運用，尤其是數(shù)據(jù)庫中常用的檢索操作

124、和更新操作，以及權(quán)限的分配和安全性保護等等，有了更深層次的理解；對oracle數(shù)據(jù)庫的觸發(fā)器和存儲過程的運用有了很大的了解和認識，能夠根據(jù)實際的情況來編寫適當?shù)挠|發(fā)器和存儲過程，并顯示正確的處理結(jié)果；同時，通過該設(shè)計也充分的將所學的語言和數(shù)據(jù)庫知識有效的結(jié)合，創(chuàng)新性的開發(fā)出一個具備比較合理的功能的可視化圖形界面的數(shù)據(jù)庫軟件，為今后的實際工作的開發(fā)項目有了很大程度的幫助。　　在本次課程設(shè)計中我認識

眾賞文庫> 全部分類> 畢業(yè)設(shè)計

溫馨提示

1. 本站所有資源如無特殊說明，都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
2. 本站的文檔不包含任何第三方提供的附件圖紙等，如果需要附件，請聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
3. 本站RAR壓縮包中若帶圖紙，網(wǎng)頁內(nèi)容里面會有圖紙預(yù)覽，若沒有圖紙預(yù)覽就沒有圖紙。
4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
5. 眾賞文庫僅提供信息存儲空間，僅對用戶上傳內(nèi)容的表現(xiàn)方式做保護處理，對用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯，并不能對任何下載內(nèi)容負責。
6. 下載文件中如有侵權(quán)或不適當內(nèi)容，請與我們聯(lián)系，我們立即糾正。
7. 本站不保證下載資源的準確性、安全性和完整性, 同時也不承擔用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。

軟件工程課程設(shè)計---學生信息管理系統(tǒng) (2)

文檔簡介

溫馨提示

最新文檔

評論

軟件工程課程設(shè)計---學生信息管理系統(tǒng) (2)

文檔簡介

溫馨提示

最新文檔

評論

免費下載