【正文】 =alltrim() c7=val(39。,48,39。c5} Sele renwu Insert into renwu(任務(wù)號 ,客戶號 ,下達時間 ,維修時間 ,職工號 ,工時 ,任務(wù)性質(zhì)號 ,出入庫號 ) value(c1,c2,c11,c12,c6,c7,c9,c10) Messagebox(39。 =39。 =39。 =39。 =39。,48,信息 ) =.f. =.f. =.f. =.f. =.f. =.f. =.f. =.f. =.f. =.f. =.f. =.f. =.f. Command3（返回）的 click 事件： 相應(yīng)時間考核： Command1（確定）的 click 事件： Sele 響應(yīng)時間 Loca for 職工號 =alltrim() If foun() Messagebox(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 職工號 ,響應(yīng)時間 as b ,任務(wù)性質(zhì)號 from 響應(yīng)時間 where 職工號 =a into dbf xx c=val(39。 If c4 d1=39。 Endi If c4 d3=39。 If c5 d1=39。 Endi If c5 d3=39。 If c6 d1=39。 Endi If c6 d3=39。 or d2=39。 =優(yōu)秀 Else =一般 Endif set talk on set safety on Command3（返回 ）的 click 事件： 月總工時考核： Command1（確定）的 click 事件： Sele 工時 1 Loca for 職工號 =alltrim() If foun() Messagebox(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。,48,39。 Endi If b=75 Messagebox(39。) =39。,48,39。 Endif Endif If 職稱 =39。,48,39。 Endi If b=85 Messagebox(39。) =39。,48,39。 Endif Endif If 職稱 =39。,48,39。 Endi If b=120 Messagebox(39。) =39。,48,39。 Endif Endif Set talk on Set safety on Command3（返回）的 click 事件： 月安裝數(shù)量考核： Command1（確定）的 click 事件： Sele 月安裝數(shù)量 1 Loca for 職工號 =alltrim() If foun() Messagebox(39。) = =.t. =.t. =.t. =.t. =.t. Else Messagebox(沒有此職工 ,48,信息 ) = Endif Command2（查詢）的 click 事件： Set talk off Set safety off a=alltrim() Sele 職工號 ,月安裝數(shù)量 as b ,職稱 from 月安裝數(shù)量 1 where 職工號 =a into dbf xx1 If 職稱 =39。,48,39。 Endi If b=10 Messagebox(39。) =39。,48,39。 Endif Endif If 職稱 =39。,48,39。 Endi If b=20 Messagebox(39。) =39。,48,39。 Endif Endif If 職稱 =39。,48,39。 Endi If b=20 Messagebox(39。) =39。,48,39。 Endif Endif 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 事件： 系統(tǒng)菜單 設(shè)計一個菜單系統(tǒng)，一般要經(jīng)過幾個步驟：菜單系統(tǒng)的規(guī)劃，建立菜單與子菜單，把任務(wù)分配到菜單系統(tǒng)中，生成菜單程序，測試和運行菜單系統(tǒng)等， 是通過設(shè)計窗體來完成菜單的設(shè)計界面的，本系統(tǒng)設(shè)計的菜單運行如 下： 這里的人事檔案又包括人事基本信息錄入和考核信息二個子菜單。其基本任務(wù)是： a) 前期準備 b) 系統(tǒng)平臺的安裝與調(diào)試 c) 程序的編制與調(diào)試 d) 信息系統(tǒng)調(diào)試 e) 數(shù)據(jù)庫與文件的建立 f) 系統(tǒng)轉(zhuǎn)換 g) 試運行、驗收與維護 系統(tǒng)開發(fā)環(huán)境包括硬 件平臺和軟件平臺兩種。本系統(tǒng)在開發(fā)時選用了穩(wěn)定性較強的 Windows XP 中文專業(yè)版和 Visual 作為開發(fā)語言，由于這些軟件產(chǎn)品都是 Microsoft 公司的產(chǎn)品，因此彼此之間的兼容性較好，開發(fā)出的應(yīng)用系統(tǒng) 穩(wěn)定性較高。 綜合測試：在以上測試的基礎(chǔ)上對系統(tǒng)功能進行了整體的測試，依次來檢驗系統(tǒng)功能是否符合系統(tǒng)設(shè)計的要求。 怎樣使用本系統(tǒng) ： 點擊鼠標左鍵即可進行相應(yīng)功能的選擇。 （ 3）代碼的維護：隨著系統(tǒng)的發(fā)展和變化，可能會 出現(xiàn)舊代碼不能適應(yīng)新要求的問題，因此，有必要變更代碼，予以維護。即一方面使用本系統(tǒng)來進行工作，另一方面又繼續(xù)沿用老的方式 — 手工方式。本部分將具體從三方面闡述：優(yōu)點，缺點以及將來可能提出的要求。 4． 系統(tǒng)擴充容易。系統(tǒng)有效性規(guī)則不完善。 3． 由于資料有限，有很多地方還設(shè)計的不夠詳細，如績效考核，其考核的幾個要素還需要更好的完善。 2． 多媒體化。十分感謝孫老師的精心指導(dǎo)，這次程序設(shè)計使我學(xué)到了很多編程方面的知識，也發(fā)現(xiàn)自己在編程方面存在很多不足，我將不斷的學(xué)習(xí)來完善自己。為日后成為合格的應(yīng)用型人才打下良好的基礎(chǔ)。同時，也要感謝我的老師和同學(xué)們及實習(xí)企業(yè)在本系統(tǒng)的設(shè)計過程中給予我的支持和幫助。 Weary inquired. He walked around to Billy39。s spine. Weary drew back his right boot, aimed a kick at the spine, at the tube which had so many of Billy39。mopping up.39。 Billy Pilgrim had not heard this anecdote. But, lying on the blac k ice there, Billy stared into the patina of the corporal39。s cruel trench knife, said in German that Weary would no doubt like to use the knife on him, to tear his face off with the spiked knuckles, to stick the blade into his belly or throat. He spoke no English, and Billy and Weary understood no German. 39。s overcoat and blouse. Brass buttons flew like popcorn. The corporal reached into Weary39。s hip pocket. 39。 He handed the picture to the other old man. 39。s clogs. So Weary and Billy were both without decent milita ry footwear now39。 Billy would say, or 39。t. He tried to remember what year it was. He couldn39。Hm?39。 39。 39。 39。s head. This fellow here, I wonder what he was called before he became a dogpillar. No calling a dogpillar by its original name, I said. Isn39。s jaw. Not only the old names, but you can39。s head. I also used to write things. He managed to suppress a smile. How many years is it now since I stopped writing? It feels like a long time. I stared at the man39。m the one who should feel ashamed. No, I told him, after looking quickly around us, I can39。s e to this, I would have been better off if I39。re right. I changed the subject. Do you live near here? Do you know the beauty parlor on the main street? You turn in there. My name is Hiyama. He nodded at me. Come on over sometime. There39。m afraid I39。t even move their ears. Even if you can still make out a cat39。t tell how far its legs have vegetized because of its trousers. It is male, thirty five or thirty six years old, tall, with a bit of a stoop. I approached him and held out my envelope as always. Registered mail, special delivery, please. The manpillar, nodding silently, accepted the envelope and took stamps and a registered mail