【文章內容簡介】 工號 姓名工作時間 ER 圖12 / 30第四章 系統的具體設計與實現 新用戶注冊與登入登入界面設計主要實現的用戶的登入功能，要求用戶在登入時使用用戶名和密碼，本系統的用戶名為“admin”密碼為”111111” 具體操作如下：打開或新建一個項目，早項目管理器中，選擇“表單”頁項，選擇“新建”按鈕，打開新建對話框。選擇吧“表單”并選擇新建文件按鈕從“文件”菜單中選擇“新建”命令。同樣打開“新建”對話框，然后選擇表單，并選擇新建文件按鈕在命令窗口內鍵入“creater form”命令設計好的表單文件唄保存在表單的事件當中，每一個表單由兩個文件組成，一個是 為擴展名打開該表單文件，其實，表單文件是一個標準的數據表。確定按鈕的代碼：i=i+1If =”admin” and . 13 / 30value=”111111If i4Messagebox(“密碼輸入錯誤，請重新輸入！”)=“”ElseMessagebox(“密碼輸入錯誤三次，系統關閉”)Endif Endif 退出按鈕 click 事件代碼：Ask=messagebox(“確實要退出系統嗎？” ，4+32+256， “員工工資管理系統登陸”)If ask=6QuitElseEndif 基本數據基本數據包括員工信息瀏覽表單，該表單主要用來瀏覽員工基本信息。14 / 3015 / 3016 / 30 信息管理 的主要代碼；1. Command1（員工信息查詢按鈕）的 click 代碼：do form （信息修改/添加按鈕）的 click 代碼：do form （信息的刪除按鈕）的 click 代碼：do form 4. mand4（退出按鈕）的 click 代碼：do form 員工的信息17 / 30系統的查詢頁面 的主要代碼： form1 的 init 事件 public a,q：private tt=alltrim() do case case =1 select * from student_info where 工號=amp。t into cursor q count to a case =2 select * from student_info where 姓名=amp。t into cursor q count to a case =3 select * from student_info where 性別=amp。t into cursor q count to a case =4 select * from student_info where 年齡=amp。t into cursor q count to a case =5 select * from student_info where 家庭住址=amp。t into cursor q count to a endcase if a0 =1 =q else messagebox(39。對不起，沒有找到符合你的要求的記錄！39。)18 / 30endif查詢的過程中，如果數據較多，需要用戶等待時，查詢系統中應有進度條加以顯示，才能使系統更加具有規(guī)范性。具體實現方法如下： VFP 的系統選單“工具”中“選項”條，彈出“選項”窗口，在窗口中點擊“ActiveX 控件”欄，添加任務進度欄控件 Microsoft ProgressBar Control （SP2）至 ActiveX 工具箱中?！癆ctiveX 控件” ，添加控件 Microsoft ProgressBar Control 至查詢的表單 Form1 中，并設置其屬性 Max 值為 1000。： for i=1 to 1000 for j=1 to 2022 j=j+1 endfor =i i=i+1 endfor messagebox(39。數據查詢完畢，OK！39。,0+64) clear events 　　通過這樣的設置，在查詢時如果時間較長，查詢進度條會為用戶顯示查詢任務的運行情況,應用宏命令實現組合查詢。在組合查詢中，需要查詢的組合項通常很多，如果每項都使用不同的變量，編程會非常煩瑣。筆者使用宏命令輕松實現查詢組合條件，具體實現的方法是在查詢按鈕里加入如下代碼： LOCAL cFilter,nCnt,cCondition FOR nCnt = 1 to IF TYPE(39。(nCnt).controlSource39。) U THEN IF !EMPTY((nCnt).ControlSource) AND 。 TYPE(39。(nCnt).value39。)UTHEN cCondition=((nCnt).value,THISFORM.19 / 30Controls(nCnt).controlSource) IF !EMPTY(cCondition) THEN cFilter = cFilter + AND cCondition ENDIF ENDIF ENDIF ENDFOR 通過這樣的設置，雖然有多個查詢條件，但查詢的組合條件為 cFilter，以后的應用只要對 cFilter 進行處理即可刪除查詢表中的空記錄 使用類查詢（）時，會在待查詢表中的最后自動插入一條空記錄，而在實際的 GRID 表格顯示中，我們是不希望將空記錄顯示出來的。下面是解決此問題的詳細步驟： Form 對象的 Load 事件輸入以下代碼:　　SET DELETE ON 　?。?　　　　　　　　amp。amp。amp。amp。刷新表單 go bottom 　　delete next 1　　　　　amp。amp。amp。amp。因為當前表被添加了一個空記錄，在實際應用中應刪除掉 　　 　　go top 　 　　　 amp。amp。amp。amp。刪除一條記錄后，應及時地刷新 GRID 表 ，實現中英文自動切換 。在用 開發(fā)查詢系統時，文本框對象和組合框對象應用得較多，在文本框中進行中英文的輸入時，來回切換非常煩瑣，所以筆者借助自定義子類，來實現中英文輸入的自動切換。具體實現的步驟如下： VFP6