【正文】 月工時數考級查詢：在此模塊中，您可以根據職工號查詢該職工一個月是否工作時間已經達到要求。如果，該職工工作沒有達到額定工時，那么會有提示：該職工還沒有達到要求，并給“差”這個等級。 根據分析階段得出的的結論，結合本系統(tǒng)對有關數據的存儲的需要，更加方便實現(xiàn)該系統(tǒng)的所有功能，本系統(tǒng)設計的 6 個主要表及每個表的字段名、類型、寬度如下： ()（職工號、姓名、性別、職稱、身份證、學歷、電話、地址、工資） ()(客戶號、姓名、空調型號、單位、地址、電話、購機時間 ) ()(材料號 ,名稱、型號、規(guī)格、單價、庫存量、倉庫號 )。 （ ）（任務號、客戶號、安裝維修、內容、下達時間、職工 號、維修時間、出入庫號、工時、任務性質號） （倉庫表 .dbf） (倉庫號、倉庫名、地址、管理員、電話 ) ()： 字段名 類型 寬度 職工號 字符型 5 姓名 字符型 8 性別 字符型 2 身份證號碼 字符型 18 學歷 字符型 8 電話號碼 字符型 13 地址 字符型 25 職稱 字符型 6 ()： 字段名 類型 寬度 客戶號 字符型 5 空調型號 字符型 10 姓名 字符型 8 單位名稱 字符型 40 聯(lián)系地址 字符型 40 電話 字符型 12 購機時間 日期型 8 （ ）： 字段名 類型 寬度 材料號 字符型 4 材料名 字符型 10 型號 字符型 10 規(guī)格 字符型 10 單價 字符型 5 庫存量 字符型 8 倉庫號 字符型 10 （ ） 字段名 類型 寬度 任務號 字符型 5 客戶號 字符型 5 安裝維修 字符型 6 內容 字符型 20 下達時間 日期時間型 8 維修時間 日 期時間型 8 職工號 字符型 5 出入庫號 字符型 5 工時 數字型 2 任務性質號 字符型 2 ： 字段名 類型 寬度 倉庫號 字符型 5 倉庫名 字符型 6 地址 字符型 20 管理員 字符型 8 聯(lián)系電話 字符型 13 第 六 章 空調售后服務系統(tǒng)實現(xiàn) 系統(tǒng)登錄： 系統(tǒng)主程序 =0 =0 =2 CLOSE ALL CLEAR ALL CLEA SET SYSMENU OFF SET SYSMENU TO SET TALK OFF SET DELETE OFF SET EXACT OFF SET CONFIRM OFF SET SAFETY OFF do form 進入 .scx read even (1)打開表單設計器，設計好表單，并且設置好必要的屬性，設計結果見圖63。 事件代碼 : public n n=0 事件代碼 : if +100 = else =800 endif (2)“ 確定 “ 按鈕的 CLICK 事件為： IF(n2) MESSAGEBOX(密碼三次輸入錯誤 ,不能使用本系統(tǒng) ,48,信息提示 ) =.f. ELSE SELE user LOCATE for alltrim(用戶名 )==alltrim() and alltrim(密碼 )==alltrim() IF found() =.t. DO form 表單 1 ELSE MESSAGEBOX(用戶名或密碼不正確，請重新輸入！ ,48,信息提示 ) =space(10) =space(10) N=n+1 ENDIF ENDIF 雙擊圖標運行程序以后，就可以看到程序的登錄界面。需要通過系統(tǒng)管理驗證，即輸入正確的密碼進行系統(tǒng)登陸，本系統(tǒng)默認的密碼為 123456。 系統(tǒng)菜單的實現(xiàn)： 在系統(tǒng)登錄成功之后，就會看到系統(tǒng)的主界面，下面進入系統(tǒng)菜單： 任務查詢： Optiongroup1 的 click 事件 ： if =1 =.t. =.f else =.f. =.t. endif mand1（查詢）的 click 事件： Set safe off If =1 k5=allt() Sele * from renwu where 任務號 =k5 into dbf as4 =[as4] Else k6=allt() Sele * from renwu where 職工號 =k6 into dbf as4 =[as4] Endif Command2（打印）的 click 事件： report form as4 preview Command3（返回）的 click 事件： 任務瀏覽： Command1（首行）的 click 事件： go top =.f. =.f. =.t. =.t. Command2（上一條）的 click 事件： skip 1 if bof() messagebox(已是首記錄！ ,48,信息窗口 ) =.f. =.f. else =.t. =.t. endif Command3（下一條）的 click 事件： skip =.t. =.t. if eof() messagebox(已是尾記錄！ ,48,信息窗口 ) =.t. =.t. =.f. =.f. Endif Command4（末條）的 click 事件： go bottom =.f. =.T. =.f. =.f. Command5（返回）的 click 事件： 任務添加： Command1（添加）的 click 事件： c1=alltrim() c2=alltrim() c4=alltrim() c5=alltrim() c6=alltrim() c7=val(39。39。) c9=alltrim() c10=alltrim() if len(c1)=0 Messagebox(39。請輸入數據 !39。,48,39。信息 39。) Else c11={^amp。c4} c12={^amp。c5} Sele renwu Insert into renwu(任務號 ,客戶號 ,下達時間 ,維修時間 ,職工號 ,工時 ,任務性質號 ,出入庫號 ) value(c1,c2,c11,c12,c6,c7,c9,c10) Messagebox(39。記錄已經添加 !39。,48,信息 ) Endif Command2（刪除）的 click 事件： SET dele on a1=alltrim() SELE renwu IF len(a1)=0 MESSAGEBOX(不能為空 ?,48,信息提示 ) ELSE Dele from renwu where 任務號 =a1 MESSAGEBOX(您確定要刪除 ?,24,信息提示 ) =39。39。 =39。39。 =39。39。 =39。39。 =39。39。 =39。39。 =39。39。 =39。39。 ENDIF Command3（返回）的 click 事件： 任務修改： Command1（確定）的 click 事件： Sele renwu Loca for 任務號 =alltrim() If foun() Messageb([查詢結果要修改嗎 ?]) =.t. =.t. =.t. =.t. =.t. =.t. =.t. =.t. =.t. =.t. =.t. =.t. =.t. Else Messageb([此材料不存在！ ],48,信息 ) = Endif Command2（修改）的 click 事件： set safety off b1=alltrim() b2=alltrim() b3=alltrim() b5= b6= b7=alltrim() b8= Sele renwu Update renwu set 客戶號 =b3,下達時間 =b5,維修時間 =b6,職工號 =b7,工時 =b8,出入庫號 =b2 where 任務號 =b1 Messagebox(39。您已修改成功！ 39。,48,信息 ) =.f. =.f. =.f. =.f. =.f. =.f. =.f. =.f. =.f. =.f. =.f. =.f. =.f. Command3（返回）的 click 事件： 相應時間考核： Command1（確定）的 click 事件： Sele 響應時間 Loca for 職工號 =alltrim() If foun() Messagebox(39。確定要查詢嗎？ 39。,48,39。信息 39。) = =.t. =.t. =.t. =.t. =.t. Else Messagebox(沒有此職工 ,48,信息 ) = Endif Command2（查詢）的 click 事件： Set talk off Set safety off a=alltrim() d1=alltrim() d2=alltrim() d3=alltrim() Sele 職工號 ,響應時間 as b ,任務性質號 from 響應時間 where 職工號 =a into dbf xx c=val(39。b39。) If 任務性質號 =39。0139。 If c4 d1=39。差 39。 Endi If c=4 d2=39。一般 39。 Endi If c4 d3=39。優(yōu)秀 39。 Endif Endif If 任務性質號 =39。0239。 If c5 d1=39。差 39。 Endi If c=5 d2=39。一般 39。 Endi If c5 d3=39。優(yōu)秀 39。 Endif Endif If 任務性質號 =39。0339。 If c6 d1=39。差 39。 Endi If c=6 d2=39。一般 39。 Endi If c6 d3=39。優(yōu)秀 39。 Endif Endif If d1=39。優(yōu)秀 39。 or d2=39。優(yōu)秀 39。or d3=39。優(yōu)秀 39。 =優(yōu)秀 Else =一般 Endif set talk on set safety on Command3（返回 ）的 click 事件： 月總工時考核： Command1（確定）的 click 事件： Sele 工時 1 Loca for 職工號 =alltrim() If foun() Messagebox(39。確定要查詢嗎？ 39。,48,39。信息 39。) = =.t. =.t. =.t. =.t. =.t. Else Messagebox(沒有此職工 ,48,信息 ) = Endif Command2（查詢）的 click 事件： Set talk off Set safety off a=alltrim() Sele 職工號 ,總工時 as b ,職稱 from 工時 1 where 職工號 =a into dbf xx1 If 職稱 =39。高級 39。 If b75 Messagebox(39。該職工還未達到要求 39。,48,39。信息 39。) =39。差 39。 Endi If b=75 Messagebox(39。該職工已經達到要求 39。,48,39。信息 39。) =39。一般 39。 Endi If