【正文】 查詢數(shù)據(jù) txtSQL = select * form 課程信息表 Set mrc = ExecuteSQL(txtSQL, MsgText) While ( = False) (1) Wend flagset = True End Sub Private Sub Command4_Click() Dim i As Integer Dim mrc As Dim mrcc As Dim txtSQL As String Dim MsgText As String Dim myBookmark As Variant If Not Testtxt() Then MsgBox 請(qǐng)先選擇院系名稱！ , vbOKOnly + vbExclamation, 警告 Exit Sub End If If Not Testtxt() Then MsgBox 請(qǐng)先選擇年級(jí) ！ , vbOKOnly + vbExclamation, 警告 Exit Sub End If If Not Testtxt((0)) Then MsgBox 請(qǐng)先選擇課程 ！ , vbOKOnly + vbExclamation, 警告 Exit Sub End If For i = 1 To txtSQL = select * from 年 級(jí) 課 程 設(shè) 置 表 where 年級(jí)=39。 Trim() 39。記下當(dāng)前記錄位置 myBookmark = str2$ = MsgBox(是否刪除當(dāng)前記錄？ , vbOKCancel, 刪除當(dāng)前記錄！) If str2$ = vbOK Then If Then myBookmark = = myBookmark 39。如果用戶名為空 MsgBox 請(qǐng)輸入真實(shí)姓名 , vbOKOnly + vbCritical, 錯(cuò)誤 Exit Sub End If If Trim() = Then 39。 amp。其次，對(duì)各個(gè)模塊進(jìn)行測(cè)試。Persist Info=False。 \ End If a: End Sub ： Private Sub cjcx_Click() 成績(jī)查詢 .Show End Sub Private Sub cjtj_Click() 成績(jī)統(tǒng)計(jì) .Show End Sub Private Sub ckbb_Click() End Sub Private Sub MDIForm_Load() (2).Text = 系統(tǒng)當(dāng)前用戶： amp。 20 21 第五章 系統(tǒng)實(shí)施 系統(tǒng)的物理配置設(shè)計(jì) 數(shù)據(jù)庫(kù)物理結(jié)構(gòu)設(shè)計(jì)是為數(shù)據(jù)模型在設(shè)備 商選定合適的存儲(chǔ)結(jié)構(gòu)和存取方法，已獲得數(shù)據(jù)庫(kù)的最佳存取效率。 下面設(shè)計(jì)規(guī)劃出的實(shí)體有：學(xué)生實(shí)體、班級(jí)實(shí)體、年級(jí)實(shí)體、課程實(shí)體。 （ ）標(biāo)識(shí)作用：可以標(biāo)識(shí)和確定某個(gè)具體對(duì)象，以便于計(jì)算機(jī)的識(shí)別。方便快捷。 ：管理員可以通過此功能對(duì)班級(jí)信息進(jìn)行增加、刪除、修改、查詢。 而傳統(tǒng)的學(xué)生管理系統(tǒng)大多由人工操作，不僅效率低，且可靠性不高。 功能規(guī)劃 ：為了方便學(xué)生信息的增加、刪除、修改、查詢。做到及時(shí)有效管理在校學(xué)生的相關(guān)信息。代碼是代表事物 名稱、屬性、狀態(tài)等符號(hào)。 （ c）課程基本信息：包括的數(shù)據(jù)項(xiàng)有：課程 編號(hào)、課程名稱、課程類別、課程描述等。 ：用戶直接單擊“登陸”按鈕進(jìn)入主菜單界面。 \ For Input As 1 Input 1, a Close 1 b = Minute(Time) * 60 + Second(Time) c = b CSng(a) If c 60 Then 24 MsgBox 登錄錯(cuò)誤已經(jīng)鎖定系統(tǒng)， amp。 39。 Security If old = 登錄 .mm1 Then If nw = rnew Then If rnew = Then MsgBox 密碼不能為空 , vbInformation, 系統(tǒng) Exit Sub End If 登錄 .mm1 = nw On Error Resume Next (密碼 ) = 登錄 .mm1 MsgBox 密碼已經(jīng)被修改！ Unload Me Else MsgBox 兩次密碼不同！ End If Else MsgBox 密碼不對(duì)！ End If End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Form_Load() = amp。累加輸入次數(shù) Exit Sub End If If Trim() = Then 39。Data Source= amp。myBookmark = End Sub 36 Private Sub Command6_Click() (院系名稱 ) = (院系編號(hào) ) = (院系專業(yè) ) = (院系電話 ) = (院系負(fù)責(zé)人 ) = = True = True = True = True End Sub Private Sub Command7_Click() If Not mcclean Then = True 39。 39。 39。 39。 End If End If If Not (dd(0) Or dd(1) Or dd(2)) Then MsgBox 請(qǐng)?jiān)O(shè)置查詢方式！ , vbOKOnly + vbExclamation, 警告 Exit Sub End If txtSQL = txtSQL amp?；氐皆瓉砦恢? = myBookmark 39。 amp。 sql = sql + AND Pwd=39。 首先是知識(shí)層面， 更進(jìn)一步的了解了系統(tǒng)分析與設(shè)計(jì)的基本操作， 其實(shí)很多東西不是上課能解決的，必須要自己動(dòng)手實(shí)踐。 \ = amp。 c amp。 amp。 ER 圖轉(zhuǎn)換成的關(guān)系模式如下所示： 學(xué)生（學(xué)號(hào)，姓名，性別，出生日期，班號(hào)，聯(lián)系電話，入校日期，家庭住址，備注） 班級(jí)（班號(hào)，年級(jí)，輔導(dǎo)員，教室） 課程（課程編號(hào)，課程名稱，課程類別，課程描 述） 年級(jí)課程設(shè)置（年級(jí)，年級(jí)名稱） 學(xué)生成績(jī)（考試編號(hào)，學(xué)號(hào)，姓名，班號(hào)，課程名稱，考試分?jǐn)?shù)） 4）數(shù)據(jù)庫(kù)結(jié)構(gòu)的實(shí)現(xiàn) 經(jīng)過前面的需求分析和概念結(jié)構(gòu)分析以后，得到數(shù)據(jù)庫(kù)的邏輯結(jié)構(gòu)。 數(shù)據(jù)庫(kù)設(shè)計(jì)在一個(gè)信息管理系統(tǒng)中占有非常重要的 地位，數(shù)據(jù)庫(kù)結(jié)構(gòu)設(shè)計(jì)的好壞直接對(duì)應(yīng)系統(tǒng)的效率和實(shí)現(xiàn)的效果。學(xué)生管理系統(tǒng)的數(shù)據(jù)字典的編寫。 現(xiàn)有的系統(tǒng)界面直觀，操作簡(jiǎn)單；界面友好而且使 用方便，做到了盡量使用戶的數(shù)據(jù)輸入最少；具有人機(jī)親和力，做到了輸入畫面盡可能接近實(shí)際；界面保 持一致，讓用戶始終用同一種方式思考與操作； 界面應(yīng)該使用戶隨時(shí)能夠掌握任 務(wù)的進(jìn)展情況；界面具有較強(qiáng)的容錯(cuò)功能，避免因?yàn)檎`操作、按鍵連擊等可能導(dǎo) 致的數(shù)據(jù)誤錄。 使用方便，操作簡(jiǎn)單，比較實(shí)用。 （ 2）可以將學(xué)生成績(jī)的數(shù)據(jù)庫(kù)發(fā)布到網(wǎng)上，方便學(xué)生教師進(jìn)行查詢，達(dá)到資源共享的目的。在技術(shù)難度方面，由于有指導(dǎo)老師的指導(dǎo)和相關(guān)參考文獻(xiàn)，特別是網(wǎng)上資料，特別是參考其它程序的功能，因此完全可以實(shí)現(xiàn)。 本模塊只有管理員才能使用，普通用戶不能進(jìn)入。學(xué)生管理系統(tǒng)用關(guān)聯(lián)圖來描述概念模型，簡(jiǎn)稱 ER圖（實(shí)體聯(lián)系圖）， ER圖由三部分組成：實(shí)體、屬性、聯(lián)系。 設(shè)置窗體的 startposition 屬性為 centerscreen。 = m yh = mm = If = 0 Then MsgBox 用戶名不存在或用戶身份錯(cuò)誤，請(qǐng)重新輸入！ , vbExclamation, 提示 num = num + 1 Else mm = If mm = (密碼 ) Then 23 yhm = yh mm1 = sys_lock = False num = 0 登錄 .Hide Else MsgBox 密碼錯(cuò)誤，請(qǐng)重新輸入！ , , 輸入錯(cuò)誤 num = num + 1 = End If End If If num = 3 Then MsgBox 登錄錯(cuò)誤已達(dá) 3 次，請(qǐng) 1 分鐘后重新登錄 , vbInformation, 錯(cuò)誤 a = Minute(Time) * 60 + Second(Time) Set fso = CreateObject() Set txtfile = ( amp。 \ = adCmdUnknown = Select 專業(yè) ,count(*) As 人數(shù) From 基本情況 Group By 專業(yè) End Sub ： Private Sub Command1_Click() = Not = Not = True If = 新增 Then = 確認(rèn) mbookmark = Else = 新增 End If End Sub Private Sub Command2_Click() i = MsgBox(確定刪除當(dāng)前信息嗎？ , 4 + vbQuestion, 提示 ) If i = 6 Then On Error Resume Next If Then End If End Sub Private Sub Command3_Click() = Not = Not 27 = True If =