【正文】 查找 = 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。 amp。 39。 amp。 amp。 主菜單： 二級菜單： 功能： 系統(tǒng)操作 新建用戶 新 建用戶 注銷用戶 注銷用戶 退出系統(tǒng) 退出系統(tǒng) 文件選項 打印報表 打印報表 學(xué)生查詢 學(xué)生查詢 幫助說明 版本信息 版本信息 使用說明 使用說明 工具欄設(shè)計： 在界面上加入一個 IMAGELIST！的控件；放入自己喜歡的圖片作鏈接； 在界面上加入一個 maintab 的控件 ,設(shè)置好所需要的頁面數(shù)，如： 8 個，分別為： 個人信息、學(xué)習(xí)積分、紀(jì)律積分、衛(wèi)生積分、宣傳積分等； 個人信息界面如下 : 個人信息 記錄個人的基本信息，以及所得的積分 學(xué)習(xí)積分 記錄個人的學(xué)習(xí)積分； 紀(jì)律積 分 記錄個人的紀(jì)律積分； 衛(wèi)生積分 記錄個人的衛(wèi)生積分； 宣傳積分 記錄個人的宣傳積分； 勞動積分 記錄個人的勞動積分； 民意測試 記錄個人的民意積分； 學(xué)習(xí)積分界面如下 : 紀(jì)律積分界面如下 : 卩生積分界面如下 : 宣傳積分界面如下 : 勞動積分界面如下 : 6．版本信息界面設(shè)計： 名稱： 用途： Picture1 顯示圖片 Label 歡迎使用 Label 制作小組 Label 警告說明 7．學(xué)生信息查詢總表設(shè)計： 在界面上加入一個 DATA控件，用來連 接數(shù)據(jù)庫，顯示學(xué)生的基本信息： 8．查詢界面設(shè)計： 名稱： 用途： Label 查詢條件 Label 學(xué)號 Label 姓名 Label 性別 Label 年齡 label 積分 Data1 連接數(shù)據(jù)庫 Combo 條件選擇 Combo 大于或等于或小于選擇 Text Text Text Text Text Text Text Command 查詢 Command 繼續(xù)查詢 mand 退出 ******************************************************************************* Private Sub Command2_Click() On Error Resume Next If = 學(xué)號 Or = 性別 Or = 姓名 Then sqls = amp。輸入三次口令，且口令錯誤，退出程序 If count = 3 Then MsgBox 非法用戶，不能使用本系統(tǒng) End End If 39。移動到下一條記錄 Loop count = count + 1 39。如果口令輸入錯誤，給出提示信息 If count 2 Then MsgBox 口令錯誤，請重新輸入 = End If IsUser = True 39。(2).Enabled = True 39。當(dāng)用戶名和當(dāng)前記錄名稱相同時的處理： If Pwd = (password) Then 39。記錄輸入口令次數(shù) Pwd = Trim() Uname = Trim() IsUser = False 39。=================================================== Dim IsUser As Boolean 39。否則，判斷是否用完三次機會，并給出相應(yīng)提示。如果用戶名存在，判斷輸入口令是否正確，如果錯誤，給出提示 39。判斷用戶輸入的名稱和口令是否合法 39。 ３．系統(tǒng)歡迎界面設(shè)計： ４．系統(tǒng)登錄界面設(shè)計： 界面元素： 名稱： 用途： Label 用戶登錄 Label 用戶 Label 密碼 Command 確定 Command 退出 Textbox Textbox 代碼設(shè)計： Private Sub Command1_Click() 39。如果 GROUP BY 子句中有 HAVING 短語，則只有滿足指定的條件才輸出。其一般格式為： SELECT[ALL|DISTINCT]目標(biāo)列表達式 [,目標(biāo)列表達式 ]……… . FROM表名或視圖名 [,表名或視圖名 ] [WHERE條件表達式 ] [GROUP BY列名 [HAVING條件表達式 ] [ORDER BY列名 [ASC|DESC]]； 整個 SELECT 語句的含義是：根據(jù) WHERE 子句的條件表達式，從 FROM 子句指定的基本表或視圖中找出滿足條件的元組，再按 SELECT 子句中的目標(biāo)表達式，選出屬性形成結(jié)果表。 read events quit 2． SQL 查詢語言： 數(shù)據(jù)庫查詢是數(shù)據(jù)庫的核心操作。打開數(shù)據(jù)庫 。指明路徑 open database 學(xué)生積分管理系統(tǒng) amp。pic amp。設(shè)置當(dāng)前路徑 set path to data。確定程序所在的位置 set defa to (mypath) amp。 mypath=left(sys(16),rat(\,sys(16))) amp。主窗口最大化 。 ZOOM WINDOW SCREEN MAX amp。不處理已刪除的記錄 set cent on set date to ansi close all 。關(guān)閉對話模式 set safe off set stat off set dele on amp。 在 “學(xué)生信息積分系統(tǒng) ”數(shù)據(jù)庫中新建表 Stud： 在 “學(xué)生信息積分系統(tǒng) ”數(shù)據(jù)庫中新建表 Stud： 軟件運行主程序： set talk off amp。 在 “學(xué)生信息積分系統(tǒng) ”數(shù)據(jù) 庫中新建表 Main： 名字：打印報表； 別名：報表信息； 描述：本報表 可以在其 ?輸入掩碼 ?文本框內(nèi)輸入其掩碼，其作用是：在你瀏覽此表時只顯示掩碼，而不顯示其內(nèi)容。 \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\