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