【正文】 卸載本窗體 Unload Me 39。用戶是否存在 Dim Pwd As String Dim Uname As String Static count As Integer 39。如果用戶名和口令輸入正確，卸載本窗體， 39。=================================================== 39。如果有 GROUP BY子句，則將結(jié)果按《列名》的值進(jìn)行分組，列值相等的就分在同一組中。amp。form。amp。amp。例如：你的密碼是 “wyc”，你輸入掩碼為 “ok”，在你瀏覽表時，顯示密碼為 “ok”，可以起到一定的保密作用，而在程序中調(diào)用表顯示其內(nèi)容時，不顯示掩碼。 小結(jié) ：基于上面的分析，開發(fā)本系統(tǒng)從經(jīng)濟(jì)上、技術(shù)上 、操作上都是可行的。采用 VB 加 ACCESS 數(shù)據(jù)庫開發(fā)這個學(xué)生在校積分管理系統(tǒng)可以滿意廣大領(lǐng)導(dǎo)和老師的需要。它支持多種數(shù)據(jù)庫格式，比如 ACCESS、 SQL SERVER 200、 ORACLE、 OS/2等。 1經(jīng)濟(jì)可行性： 在現(xiàn)代的學(xué)校中，學(xué)生的人數(shù)在不斷的增加，學(xué)校對學(xué)生的管理難度不斷的加大。 可行性分析 。我們選做的是學(xué)生在校積分管理系統(tǒng) ，其實現(xiàn)的功能包括常見的增加、刪除、修改、打印報表、學(xué)生信息查詢等。 \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ 第二部分：引言： 現(xiàn)在的學(xué)校要求對學(xué)生的個人能力進(jìn)行嚴(yán)格的管理，包括對個人的優(yōu)秀表現(xiàn)以及缺點。 組員 學(xué)生查詢 ,軟件幫助 , 組員 報表打印 ,軟件測試 , 組員 后期維護(hù) , 軟件發(fā)布 2開發(fā)時間： 時間 : 工作模塊 參加者 第一階段 總體分析 ,可行性分析 ,需求分析 ,用戶聯(lián)系 . 第二階段 界面設(shè)計 ,系統(tǒng)登錄等模塊 學(xué)生查詢 ,軟件幫助 報表打印 第三階段 軟件測試 , 軟件發(fā)布 第四階段 后期維護(hù) 3工程 Gantt 圖： 圖 .工程各模塊的進(jìn)度 Gantt 圖 4工程網(wǎng)絡(luò)： 工程網(wǎng)絡(luò)圖 \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ 第四部分：可行性研究： 可行性研究的任務(wù)不是解決問題，而是確定問題是否值得解 。面對越來越多的學(xué)生的基本信息，如何對他們進(jìn)行有效的管理，成了擺在學(xué)校面前的一大難題。 VB 的功能已經(jīng)非常強(qiáng)大，其功能涉及到文件、網(wǎng)絡(luò)、數(shù)據(jù)庫、控件、 ACTIVEX 等。 很多實踐證明，采用 VB 加 ACCESS 數(shù)據(jù)庫開發(fā)管理系統(tǒng) ,在技術(shù)上是可行性 .。 \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ 第五部分：需求分析： 1．功能要求： 系統(tǒng)要投入使用，必須實現(xiàn)如下功能：系統(tǒng)安全性方面的驗證，系統(tǒng)登錄，新增加用戶，注銷用戶；學(xué)生基本信息的增加、刪除、修改；學(xué)生積分的各項的選項的增加、刪除、修改；管理功 能模塊方面有學(xué)生信息查詢；打印方面可以打印報表；還提供文檔支持、軟件說明； 2．性能要求： 本管理信息系統(tǒng)主要用于單用戶，還不支持網(wǎng)絡(luò)功能，用戶數(shù)不多，所以性能上的要求不很高，目標(biāo)是可以在通用的計算機(jī)上流暢運(yùn)行。 在 “學(xué)生信息積分系統(tǒng) ”數(shù)據(jù)庫中新建表 Stud： 在 “學(xué)生信息積分系統(tǒng) ”數(shù)據(jù)庫中新建表 Stud： 軟件運(yùn)行主程序： set talk off amp。不處理已刪除的記錄 set cent on set date to ansi close all 。主窗口最大化 。確定程序所在的位置 set defa to (mypath) amp。pic amp。打開數(shù)據(jù)庫 。其一般格式為： SELECT[ALL|DISTINCT]目標(biāo)列表達(dá)式 [,目標(biāo)列表達(dá)式 ]……… . FROM表名或視圖名 [,表名或視圖名 ] [WHERE條件表達(dá)式 ] [GROUP BY列名 [HAVING條件表達(dá)式 ] [ORDER BY列名 [ASC|DESC]]； 整個 SELECT 語句的含義是：根據(jù) WHERE 子句的條件表達(dá)式，從 FROM 子句指定的基本表或視圖中找出滿足條件的元組，再按 SELECT 子句中的目標(biāo)表達(dá)式，選出屬性形成結(jié)果表。 ３．系統(tǒng)歡迎界面設(shè)計： ４．系統(tǒng)登錄界面設(shè)計： 界面元素： 名稱： 用途： Label 用戶登錄 Label 用戶 Label 密碼 Command 確定 Command 退出 Textbox Textbox 代碼設(shè)計： Private Sub Command1_Click() 39。如果用戶名存在，判斷輸入口令是否正確，如果錯誤，給出提示 39。=================================================== Dim IsUser As Boolean 39。當(dāng)用戶名和當(dāng)前記錄名稱相同時的處理： If Pwd = (password) Then 39。如果口令輸入錯誤，給出提示信息 If count 2 Then MsgBox 口令錯誤，請重新輸入 = End If IsUser = True 39。輸入三次口令，且口令錯誤，退出程序 If count = 3 Then MsgBox 非法用戶，不能使用本系統(tǒng) End End If 39。 amp。 39。 Trim() End If sqls If Then MsgBox 沒有找到符合條件的數(shù)據(jù) , , 查找 = False Exit Sub Else = True End If End Sub ******************************************************************************* Private Sub Command3_Click() sqls If Then MsgBox 查找結(jié)束 , , 查找 = False Exit Sub End If End Sub ****************************************************************************** Private Sub Form_Load() Dim db As Database Dim rst As Recordset Dim i As Integer Dim PathStr As String PathStr = If Right(PathStr, 1) \ Then PathStr = PathStr + \ PathStr = PathStr amp。 同學(xué)的分嗎 ?, vbYesNo, 提示信息 ) If Y = vbYes Then