【文章內容簡介】 =39。DSN=xscj。UID=dba。PWD=sql39。 注意：執(zhí)行此應用時，首先鏈接數據庫“ xscj”，成功后打開登錄窗口。 10 五 、 詳細設計 本模塊實現用戶登錄控制、用戶自己的密碼修改和用戶管理，其中用戶管理 包括修改用戶信息、添加新用戶、刪除用戶，學生用戶沒有此權限 。 設計登陸 窗口 登陸 窗口如圖 。 圖 1) 創(chuàng)建窗口并設置屬性 創(chuàng)建登陸 窗口 w_login，調整其大小，在窗口上放置 1個圖片控件 (p_1)、 3個靜態(tài)文本 控件 (st_ st_ st_3)、 2個單選鈕控件（ rb_ rb_2） 2個單行編輯器控件 (sle_ sle_2)、2個命令按鈕控件 (cb_ cb_2)，各個控件的位置和大小參照圖 。 2) 編寫腳本 (1)登陸 按鈕 cb_1的 Clicked事件腳本如下。 string is_username,is_password is_username=trim() is_password=trim() 11 if is_username= or is_password= then messagebox(提示 ,賬號密碼不能為空！ ) end if select password,qx into :gs_password,:gs_admin from users where userid=:is_username。 if =true then if trim(gs_password)=trim() and gs_admin=39。學生 39。 then open(w_main) close(w_load) .enabled=false end if else if =true then if trim(gs_password)=trim() and gs_admin=39。老師 39。 then open(w_main) close(w_load) .enabled=true end if end if end if （ 2） 退出 按鈕 cb_2的 Clicked事件腳本如下。 close(parent) 學生功能模塊 由于本系統(tǒng)是多重身份用戶共同使用，所以要分清各 類用戶的權限，以方便用戶使用。 12 本系統(tǒng)分為教師和學生兩種權限，在登陸界面選擇自己相應的身份后，輸入用戶名、密碼后即可登入相應的權限界面。以學生為例登陸系統(tǒng)，進入 如圖 界面： 圖 學生登陸系統(tǒng)主窗口 此時學生只可查詢自己的基本信息和成績，可以修改個人基本信息及密碼，但不可隨意修改成績。只有教師才能進行對學生成績信息的修改 。 設計密碼修改窗口 修改密碼窗口 布局設計 如圖 。 1) 創(chuàng)建窗口并設置屬性 創(chuàng)建密碼修改窗口 w_newpw，調 整其大小，在窗口上放置 3個靜態(tài)文本控件 (st_ st_st_3)、 3 個單行編輯器控件 (sle_ sle_ sle_3)、 2個命令按鈕控件 (cb_ cb_2)，各個控件的位置和大小參照圖 。 13 圖 密碼修改窗口 2) 編寫腳本 (1)保存 按鈕 cb_1的 Clicked事件腳本如下。 string pw if trim()is_password then messagebox(提示 ,舊密碼錯誤！ ) else if trim()=trim() then pw=trim() update owner set password=:pw where (password=:is_password) and (id=:is_username)。 else if 0 then messagebox(提示 ,密碼修改成功！ ) else 14 close(parent) messagebox(提示 ,密碼修改完成！ ) end if else messagebox(提示 ,兩次新密碼不同！ ) end if end if (2)退出 按鈕 cb_2的 Clicked事件腳本如下。 close(parent) 成績信息查詢 本窗口可以實現用戶對成績信息的查詢及瀏覽， 不同權限選擇適合的身份，輸入用戶名和密碼之后即可進入成績信息查詢界面。界面設計如圖 。 圖 成績信息查詢界面 15 （ 1） 學生基本信 息管理模塊 本模塊實現學生基本信息的輸入、修改和查詢。 創(chuàng)建數據窗口 d_4，顯示風格為“ Grid”，數據源類型為“ SQL Select”，其布局如圖 示。 圖 學生信息基本模塊 進入成績信息查詢子系統(tǒng)后，可對學生的基本信息，選課信息，成績進行查詢。下面以學生基本信息查詢?yōu)槔M行詳細介紹。 進入查詢窗口后，輸入學生學號后點擊查詢按鈕，即可查出該生地基本信息。查詢窗口設計如圖 。 圖 學生基本信息查詢窗口 16 基本信息 查詢窗口的查詢按鈕的 clicked事件腳本如下： string xuehao xuehao=trim() if xuehao= then messagebox(沒有輸入學號 ,請輸入正確的查詢條件 !) else (xuehao) end if () 清除按鈕的 clicked事件腳本如下： () = ()