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

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

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

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

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

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

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

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

8、r(50)Null家庭地址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年級課程

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

10、Null用戶密碼User_DesChar(10)Null用戶描述4物理結(jié)構(gòu)的設(shè)計(jì)建立的索引建立的約束關(guān)系5數(shù)據(jù)庫的實(shí)施 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學(xué)生表的SQL語句CREATE TABLE dbo.stu

11、dent_Info (student_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 Chines

12、e_PRC_CI_AS NULL ,) 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

13、(course_No int NOT 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

14、PRIMARY5.6 成績表的SQL語句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寫進(jìn)相關(guān)數(shù)據(jù)5.71

15、建立用戶表5.72建立學(xué)生信息表5.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詳細(xì)設(shè)計(jì)6.1 學(xué)生信息管理系統(tǒng)功能學(xué)生信息管理系統(tǒng)實(shí)現(xiàn)的功能：管理員登陸與修改密碼，學(xué)生信息的添加、刪除與修改，班級信息的添加，修改，課程的設(shè)置、添加，成績的

16、紀(jì)錄、修改與刪除，以及對學(xué)生的各個(gè)信息的查詢。6.2 功能模塊的實(shí)現(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 + vbExclamat

17、ion, 警告 Text1(1).SetFocus Text1(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.學(xué)生信息的設(shè)置：用于學(xué)生基本信息的查詢、修改和添加學(xué)生的信息，

18、包括學(xué)生的學(xué)號、姓名、性別、班號、出生日期、入學(xué)年份、家庭住址以及備注。添加Private Sub Command1_Click() Dim mrc As ADODB.Recordset Dim txtSQL As String Dim MsgText As String If Not Testtxt(txtSID.Text) Then MsgBox 請輸入學(xué)號！, vbOKOnly + vbExclamation, 警告 txtSID.SetFocus Exit Sub End If If Not Testtxt(txtName.Text) Then MsgBox 請輸入姓名！, vbOKO

19、nly + 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 + vbExclamation, 警告 txtBorndate.SetFocus Exit Sub End If If Not Te

20、sttxt(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 Not Testtxt(txtRudate.Text) Then MsgBox 請輸入入校日期！, vbOKOnly + vbExclamation

21、, 警告 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 MsgBox 請輸入數(shù)字！, vbOKOnly + vbExclamation, 警告 Exit Sub txtSID.SetFocus End If txtSQL = select * from st

22、udent_Info where student_ID = & Trim(txtSID.Text) & Set mrc = ExecuteSQL(txtSQL, MsgText) If mrc.EOF = False Then MsgBox 學(xué)號重復(fù)，請重新輸入！, vbOKOnly + vbExclamation, 警告 mrc.Close txtSID.SetFocus Else mrc.Close If Not IsDate(txtBorndate.Text) Then MsgBox 出生時(shí)間應(yīng)輸入日期格式（yyyy-mm-dd）！, vbOKOnly + vbExclamation,

23、警告 txtBorndate.SetFocus Else txtBorndate = Format(txtBorndate, yyyy-mm-dd) If Not IsDate(txtRudate.Text) Then MsgBox 入校時(shí)間應(yīng)輸入日期格式（yyyy-mm-dd）！, vbOKOnly + vbExclamation, 警告 txtRudate.SetFocus Else txtRudate = Format(txtRudate, yyyy-mm-dd) txtSQL = select * from student_Info Set mrc = ExecuteSQL(txtSQ

24、L, MsgText) 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.Text) mrc.Fields(4) = Trim(comboClassNo.Text) mrc.Fields(5) = Trim(txtTel.Text) mrc.Fields(6) = Trim(txtRudate.Text) mrc.Fields(7) = Trim(t

25、xtAddress.Text) mrc.Update MsgBox 添加學(xué)籍信息成功！, vbOKOnly + vbExclamation, 警告 mrc.Close Me.Hide End If End If 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 男 combo

26、Sex.AddItem 女 txtSQL = select * from class_Info Set mrc = ExecuteSQL(txtSQL, MsgText) For i = 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 BooleanP

27、rivate Sub editCommand_Click() mcclean = False Frame2.Enabled = False firstCommand.Enabled = False previousCommand.Enabled = False nextCommand.Enabled = False lastCommand.Enabled = False txtSID.Enabled = True txtName.Enabled = True comboSex.Enabled = True txtBorndate.Enabled = True comboClassNo.Enab

28、led = True txtRudate.Enabled = True txtTel.Enabled = True txtAddress.Enabled = TrueEnd SubPrivate Sub cancelCommand_Click() If Not mcclean Then Frame2.Enabled = True firstCommand.Enabled = True previousCommand.Enabled = True nextCommand.Enabled = True lastCommand.Enabled = True txtSID.Enabled = Fals

29、e txtName.Enabled = False comboSex.Enabled = False txtBorndate.Enabled = False comboClassNo.Enabled = False txtRudate.Enabled = False txtTel.Enabled = False txtAddress.Enabled = False mrc.Bookmark = myBookmark Call viewData Else MsgBox 什么都沒有修改，有什么好取消的！, vbOKOnly + vbExclamation, 警告 End If End SubPri

30、vate Sub deleteCommand_Click() myBookmark = mrc.Bookmark str2$ = MsgBox(是否刪除當(dāng)前記錄？, vbOKCancel, 刪除當(dāng)前記錄) 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.MovePrev

31、ious mrc.Delete mrc.Bookmark = myBookmark Call viewData End If Else mrc.Bookmark = 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 =

32、 ExecuteSQL(txtSQL, MsgText) mrc.MoveFirst Call viewDate mcclean = TrueEnd SubPublic Sub viewData() txtSID.Text = mrc.Fields(0) txtName.Text = mrc.Fields(1) comboSex.Text = mrc.Fields(2) txtBorndate.Text = Format(mrc.Fields(3), yyyy-mm-dd) comboClassNo.Text = mrc.Fields(4) txtTel.Text = mrc.Fields(5

33、) txtRudate.Text = Format(mrc.Fields(6), yyyy-mm-dd) txtAddress.Text = 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.M

34、ovePrevious If mrc.BOF Then mrc.MoveLast End If Call viewDataEnd SubPrivate Sub updateCommand_Click() Dim txtSQL As String Dim MsgText As String Dim mrcc As ADODB.Recordset If mcclean Then MsgBox 請先修改學(xué)籍信息, vbOKOnly + vbExclamation, 警告 Exit Sub End If If Not Testtxt(txtSID.Text) Then MsgBox 請輸入學(xué)號！, v

35、bOKOnly + vbExclamation, 警告 txtSID.SetFocus 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(t

36、xtBorndate.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 + vbExclamation

37、, 警告 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 If If Not IsNumeric(Trim(txtSI

38、D.Text) Then MsgBox 學(xué)號請輸入數(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 MsgBox 學(xué)號重復(fù)，請重新輸入！, vbOKOnly + vbExclamation, 警告 mrcc.Clo

39、se txtSID.SetFocus Else mrcc.Close If Not IsDate(txtBorndate.Text) Then MsgBox 出生時(shí)間應(yīng)輸入日期格式（yyyy-mm-dd）！, vbOKOnly + vbExclamation, 警告 txtBorndate.SetFocus Else txtBorndate = Format(txtBorndate, yyyy-mm-dd) If Not IsDate(txtRudate.Text) Then MsgBox 入校時(shí)間應(yīng)輸入日期格式（yyyy-mm-dd）！, vbOKOnly + vbExclamation,

40、警告 txtRudate.SetFocus Else txtRudate = Format(txtRudate, yyyy-mm-dd) 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.Text) mrc.Fields(4) = Trim(comboClassNo.Text) mrc.Fields(5) = Trim(txtTel.Text) mr

41、c.Fields(6) = Trim(txtRudate.Text) mrc.Fields(7) = Trim(txtAddress.Text) mrc.Update MsgBox 修改學(xué)籍信息成功！, vbOKOnly + vbExclamation, 修改學(xué)籍信息 Call viewData Frame2.Enabled = True firstCommand.Enabled = True previousCommand.Enabled = True nextCommand.Enabled = True lastCommand.Enabled = True txtSID.Enabled =

42、 False txtName.Enabled = False comboSex.Enabled = False txtBorndate.Enabled = False comboClassNo.Enabled = False txtRudate.Enabled = False txtTel.Enabled = False txtAddress.Enabled = False mcclean = True End If End If End IfEnd Sub查詢Private Sub cmdExit_Click() Unload MeEnd SubPrivate Sub cmdInquire_

43、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) = Then sMeg = 學(xué)號不能為空 MsgBox sMeg, vbOKOnly + vbExclamation, 警告 txtSID.SetFocus Exit Sub Else If Not IsNumeric(Trim(txtSID.Text) Then MsgBox 請輸入數(shù)字！, vbOKOnly + vbExclamation, 警告 Exit Sub txt