【文章內容簡介】 程連接數(shù)據(jù)庫的算法流程圖如圖 41 所示：e()裝入驅動程序Connection()生成Connection 接口對象Connection 對象通過驅動程序建立與數(shù)據(jù)源的連接，生成Statement，PreparedStatement 接口對象操作數(shù)據(jù)庫StatementResultSetPreparedStatement驅動程序數(shù)據(jù)庫圖 41 連接數(shù)據(jù)庫的算法流程圖 用戶登錄設計說明程序描述本模塊是用來處理用戶登錄系統(tǒng)的程序，判斷用戶輸入密碼、用戶名與否，如果輸入了，單擊確定之后進入登錄處理界面，判斷用戶是否存在，不存在則登錄失敗；如果存在該用戶，則判斷用戶輸入的密碼是否與用戶存在的密碼一致；如果一致，登錄成功，否則登錄失敗。功能完成系統(tǒng)登錄，包括管理員后臺登錄和用戶前臺登錄。15 / 36輸入項下面是用戶登錄的輸入要求：A、登錄名稱：標識符，長度為 310，只能是數(shù)字或者字母組成的；B、登錄密碼：組成不作要求，可以是任何字符組成；輸出項輸出項包括了兩項：A、管理員或用戶登錄失?。?）用戶不存在信息提示信息框；2）登錄密碼輸入錯誤信息提示框。B、管理員或用戶登錄成功：用戶登錄成功后提示用戶登錄成功消息框。流程邏輯登錄系統(tǒng)的程序流程圖，見圖 6 所示：開始輸入登錄名、密碼用戶存在輸入密碼正確登錄成功結束NYNY 圖 6 登錄系統(tǒng)的程序流程圖16 / 365 系統(tǒng)實現(xiàn) 主要模塊的設計說明和程序代碼系統(tǒng)主界面如圖 51 所示圖 51 系統(tǒng)主界面 系統(tǒng)主界面是用戶進入系統(tǒng)后主要接觸的界面，由它可以進入各個功能模塊。分別單擊按鈕“增加記錄” 、 “修改記錄” 、 “刪除記錄” 、 “查詢” 、 “報表打印”可進入與之相對應的功能模塊，單擊“退出”按鈕退出本系統(tǒng)。為使界面不至于單調，可以為主界面加入背景。在“增加記錄”按鈕的“Click”事件中添加代碼如下：do form 增加記錄在“修改記錄”按鈕的“Click”事件中添加代碼如下：do form 修改記錄在“刪除記錄”按鈕的“Click”事件中添加代碼如下：do form 刪除記錄17 / 36在“查詢”按鈕的“Click”事件中添加代碼如下：do form 查詢在“報表打印”按鈕的“Click”事件中添加代碼如下：do form 報表打印在“退出”按鈕的“Click”事件中添加代碼如下：clear events“增加記錄”模塊如圖 52 所示圖 52 增加記錄模塊 企業(yè)新進職員都要為其建立人事檔案，該模塊的功能就是添加新職員信息。 操作很簡單，按需要輸入完數(shù)據(jù)后，單擊“確定”按鈕即可，同時系統(tǒng)會彈出對話框提示輸入成功。 “取消”按鈕的功能是清空所有文本框。該模塊做了些限制性設計，以防用戶誤操作。如：將輸入“職員號” 、 “進本單位年份”的文本框的 Format 和 InputMask 屬性都設為“9999” ，使用戶只能輸入四位數(shù)字，輸入其它字符無效。同樣在輸入“生日”的文本框的 Format 和 InputMask18 / 36 屬性都設為“9999/99/99” 。單擊“確定”后，如果沒有輸入“職員號”或輸入的“職員號”已存在，系統(tǒng)都會彈出提示信息，以便用戶改正。在“確定”按鈕的“Click”事件中添加代碼如下：* 檢查“職員號”是否為空if empty(alltrim())messagebox(職員號不能為空,48,錯誤)else* 獲取各輸入值inID=alltrim()inName=alltrim()inSex=alltrim()inBirth=alltrim()inLearn=alltrim()inPolitics=alltrim()inPhone=alltrim()inAddress=alltrim()inDepartment=alltrim()inFunction=alltrim()inDate=alltrim()inMemo=alltrim()* 檢查輸入的“職員號”是否已存在set order to 職員號seek inIDif !found()insert into 職員信息表 value(inID,inName,inSex,inBirth,inLearn,inPolitics,inPhone,inAddress,inDepartment,inFunction,inDate,inMemo) messagebox(添加成功！,48,信息) * 添加完畢后清空各文本框 =39。39。19 / 36 =39。39。 =39。39。 =39。39。 =39。39。 =39。39。 =39。39。 =39。39。 =39。39。 =39。39。 =39。39。 =39。39。else messagebox(此職員號已存在，請另輸一個,48,錯誤) =39。39。 endifendif在“取消”按鈕的“Click”事件中添加代碼如下：* 清空各文本框=39。39。=39。39。=39。39。=39。39。=39。39。=39。39。=39。39。=39。39。=39。39。=39。39。=39。39。=39。39。20 / 36在“退出”按鈕的“Click”事件中添加代碼如下：do form 主界面“修改記錄”模塊如圖 53 所示圖 53 修改記錄模塊 職員信息的改變，如：部門的調動、職位的升降、搬家、換了電話，或者發(fā)現(xiàn)輸入了錯誤的信息，就可以進入該模塊進行修改。你可以單擊“導航條”逐條定位查找，如果知道要修改職員的職員號，可在最下面的文本框里直接輸入該職員號，單擊“查找” ，如果找到，系統(tǒng)會定位到該記錄，如果沒有找到，系統(tǒng)會給出提示信息。該模塊也做了與“增加記錄”模塊相近的限制性設計。在該表單的數(shù)據(jù)環(huán)境（Data Environment）中添加“職員信息表” ，將各文本框的 ControlSource 屬性設置為在 “職員信息表”中與之相對應的字段，這樣便完成了與“職員信息表”的綁定。在“查找”按鈕的“Click”事件中添加代碼如下：set order to 職員號21 / 36seek alltrim()if !found()messagebox(該職員號不存在,48,錯誤)go topendif=39。39。在“退出”按鈕的“Click”事件中添加代碼如下：do form 主界面“刪除記錄”模塊如圖 54 所示圖 54 刪除記錄模塊 如果因為職員離職、退休，或其它原因要刪除某條記錄，就可進入該模塊進行刪除。本模塊的控件布局與“修改記錄”模塊基本相似，只是顯示記錄的各文本框的 Enabled 屬性均設置為 “.f.”（假） 。同“修改記錄”模塊一樣，設22 / 36置與“職員信息表”的綁定。在“刪除這條記錄”按鈕的“Click”事件中添加代碼如下：nAnswer=messagebox(確定要刪除嗎？,36,信息)if nAnswer=6(39。職員信息表39。)* 以獨占方式打開表，執(zhí)行刪除命令use 職員信息表 exclusivedelete from 職員信息表 where 職員號=alltrim()packuse(39。職員信息表39。)endif在“查找”按鈕的“Click”事件中添加代碼如下：set order to 職員號seek alltrim()if !found()messagebox(該職員號不存在,48,錯誤)go topendif=39。39。在“退出”按鈕的“Click”事件中添加代碼如下：do form 主界面23 / 36“查詢”模塊如圖 55 所示圖 55 查詢記錄模塊 在本模塊，你可以選擇查詢條件，快速查找到所需的職員信息，也可以一覽整個“職員信息表” ?？晒┻x擇的查詢關鍵字有“職員號” 、 “姓名”和“所屬部門”3 個字段，可單項查詢，也可組合查詢。首先，當表單被激活時，根據(jù)各復選框的選中情況決定相應的文