【正文】
=.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。) c9=alltrim() c10=alltrim() if len(c1)=0 Messagebox(39。,48,39。) Else c11={^amp。c5} Sele renwu Insert into renwu(任務(wù)號 ,客戶號 ,下達(dá)時間 ,維修時間 ,職工號 ,工時 ,任務(wù)性質(zhì)號 ,出入庫號 ) value(c1,c2,c11,c12,c6,c7,c9,c10) Messagebox(39。,48,信息 ) Endif Command2(刪除)的 click 事件: SET dele on a1=alltrim() SELE renwu IF len(a1)=0 MESSAGEBOX(不能為空 ?,48,信息提示 ) ELSE Dele from renwu where 任務(wù)號 =a1 MESSAGEBOX(您確定要刪除 ?,24,信息提示 ) =39。 =39。 =39。 =39。 =39。 =39。 =39。 =39。 ENDIF Command3(返回)的 click 事件: 任務(wù)修改: Command1(確定)的 click 事件: Sele renwu Loca for 任務(wù)號 =alltrim() If foun() Messageb([查詢結(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 客戶號 =b3,下達(dá)時間 =b5,維修時間 =b6,職工號 =b7,工時 =b8,出入庫號 =b2 where 任務(wù)號 =b1 Messagebox(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。,48,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 任務(wù)性質(zhì)號 =39。 If c4 d1=39。 Endi If c=4 d2=39。 Endi If c4 d3=39。 Endif Endif If 任務(wù)性質(zhì)號 =39。 If c5 d1=39。 Endi If c=5 d2=39。 Endi If c5 d3=39。 Endif Endif If 任務(wù)性質(zhì)號 =39。 If c6 d1=39。 Endi If c=6 d2=39。 Endi If c6 d3=39。 Endif Endif If d1=39。 or d2=39。or d3=39。 =優(yōu)秀 Else =一般 Endif set talk on set safety on Command3(返回 )的 click 事件: 月總工時考核: Command1(確定)的 click 事件: Sele 工時 1 Loca for 職工號 =alltrim() If foun() Messagebox(39。,48,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。 If b75 Messagebox(39。,48,39。) =39。 Endi If b=75 Messagebox(39。,48,39。) =39。 Endi If b75 Messagebox(39。,48,39。) =39。 Endif Endif If 職稱 =39。 If b85 Messagebox(39。,48,39。) =39。 Endi If b=85 Messagebox(39。,48,39。) =39。 Endi If b85 Messagebox(39。,48,39。) =39。 Endif Endif If 職稱 =39。 If b120 Messagebox(39。,48,39。) =39。 Endi If b=120 Messagebox(39。,48,39。) =39。 Endi If b120 Messagebox(39。,48,39。) =39。 Endif Endif Set talk on Set safety on Command3(返回)的 click 事件: 月安裝數(shù)量考核: Command1(確定)的 click 事件: Sele 月安裝數(shù)量 1 Loca for 職工號 =alltrim() If foun() Messagebox(39。,48,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。 If b10 Messagebox(39。,48,39。) =39。 Endi If b=10 Messagebox(39。,48,39。) =39。 Endi If b10 Messagebox(39。,48,39。) =39。 Endif Endif If 職稱 =39。 If b20 Messagebox(39。,48,39。) =39。 Endi If b=20 Messagebox(39。,48,39。) =39。 Endi If b20 Messagebox(39。,48,39。) =39。 Endif Endif If 職稱 =39。 If b20 Messagebox(39。,48,39。) =39。 Endi If b=20 Messagebox(39。,48,39。) =39。 Endi If b20 Messagebox(39。,48,39。) =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)中,生成菜單程序,測試和運(yùn)行菜單系統(tǒng)等, 是通過設(shè)計窗體來完成菜單的設(shè)計界面的,本系統(tǒng)設(shè)計的菜單運(yùn)行如 下: 這里的人事檔案又包括人事基本信息錄入和考核信息二個子菜單。系統(tǒng)設(shè)置包括部門,職務(wù),年度,合同四個參數(shù)的設(shè)置子菜單。其基本任務(wù)是: a) 前期準(zhǔn)備 b) 系統(tǒng)平臺的安裝與調(diào)試 c) 程序的編制與調(diào)試 d) 信息系統(tǒng)調(diào)試 e) 數(shù)據(jù)庫與文件的建立 f) 系統(tǒng)轉(zhuǎn)換 g) 試運(yùn)行、驗收與維護(hù) 系統(tǒng)開發(fā)環(huán)境包括硬 件平臺和軟件平臺兩種。由于本系統(tǒng)是一個小型的 MIS 管理系統(tǒng),因此對計算機(jī)硬件的要求不高,比較經(jīng)濟(jì),只要配備有 PII 處理器(或以上)、 64M 內(nèi)存(或以上)、 10G 硬盤(或以上)的普通微機(jī)即可順利運(yùn)行。本系統(tǒng)在開發(fā)時選用了穩(wěn)定性較強(qiáng)的 Windows XP 中文專業(yè)版和 Visual 作為開發(fā)語言,由于這些軟件產(chǎn)品都是 Microsoft 公司的產(chǎn)品,因此彼此之間的兼容性較好,開發(fā)出的應(yīng)用系統(tǒng) 穩(wěn)定性較高。 數(shù)據(jù)跟蹤:完成菜單項測試后,又對系統(tǒng)內(nèi)的每一個數(shù)據(jù)進(jìn)行了跟蹤。 綜合測試:在以上測試的基礎(chǔ)上對系統(tǒng)功能進(jìn)行了整體的