【正文】
) = = () returnend ifselect password,partinto :dl_mima,:partidfrom passwhere id=:lr_id。if dl_mimalr_mima then messagebox(提示,對不起,您輸入的密碼錯(cuò)誤!請重新輸入。)else (partid) = true =true =trueend if數(shù)據(jù)窗口dw_1下的代碼是: “刪除”按鈕下的代碼是:int i,jstring dwj=()dw=(j,id)(dw)i=messagebox(提示,您真的要?jiǎng)h除該記錄嗎?,question!,yesnocancel!,3)if i=1 then (0) (0)“添加”按鈕下的代碼是:string dwtjint ii=()(i+1)(id)(i+1)()“更新”按鈕下的代碼是:int i_count,j_counti_count=()j_count=()if i_count0 or j_count 0 then if ()=1 and ()=1 then mit using sqlca。 messagebox(提示,您已經(jīng)成功添加+string(i_count)+條數(shù)據(jù),新添加的雇員登陸密碼為“0000”!) else rollback using sqlca。 messagebox(提示,數(shù)據(jù)保存失敗) end if end if在dw_1下懸掛名為“l(fā)r_increase2”的數(shù)據(jù)窗口,創(chuàng)建如下:在“depart”列懸掛名“dd_depart1”為的數(shù)據(jù)數(shù)據(jù)窗口,創(chuàng)建如下:在“job”列懸掛名“xs_duty”為的數(shù)據(jù)數(shù)據(jù)窗口,創(chuàng)建如下:dw_2(用于修改密碼表中的信息)的創(chuàng)建如下:dw_1下的代碼是:“登陸”按鈕下的代碼是:string lr_id,lr_mima,dl_id,dl_mima//int ilr_id = trim()lr_mima=trim()if lr_id0210101 then messagebox(提示,只有人事部主管有此權(quán)限可以添加和刪除雇員!)else // if lr_id=0210101 then select password into :dl_mima from pass where id=39。021010139。 if dl_mima=lr_mima then () = true =true =true else messagebox(提示,對不起,您輸入的密碼錯(cuò)誤!請重新輸入。) end ifend if“刪除”按鈕下的代碼是:int i,jstring dwj=()dw=(j,id)(dw)i=messagebox(提示,您真的要?jiǎng)h除該記錄嗎?,question!,yesnocancel!,3)if i=1 then (0) (0)“添加”按鈕下的代碼是:string dwtjint ii=()(i+1)(id)(i+1)()“更新”按鈕下的代碼是:int i_count,j_counti_count=()j_count=()if i_count0 or j_count 0 then if ()=1 and ()=1 then mit using sqlca。 messagebox(提示,您已經(jīng)成功添加+string(i_count)+條數(shù)據(jù),新添加的雇員登陸密碼為“0000”!) else rollback using sqlca。 messagebox(提示,數(shù)據(jù)保存失敗) end if end if此窗口的創(chuàng)建和“雇員增刪”窗口的創(chuàng)建類似,而且更加簡單。只需要?jiǎng)h除dw_2,“刪除”,“添加”按鈕。dw_1下的代碼為:創(chuàng)建graph形式的datawindow。Open事件代碼:(sqlca)()創(chuàng)建graph形式的datawindow:“顯示”按鈕下的代碼string bu,bumenidbu=select idinto :bumenidfrom departwhere name=:bu。 (sqlca) (bumenid) 主界面運(yùn)行窗口 程序設(shè)計(jì)方法課程設(shè)計(jì)評分表程序設(shè)計(jì)方法課程設(shè)計(jì)評分表評分項(xiàng)目具 體 要 求分值評 分選題質(zhì)量選題符合要求,體現(xiàn)綜合訓(xùn)練基本要求;題目難易適度。10說明書質(zhì)量概念清楚,內(nèi)容正確,條理分明,書寫工整,語言流暢,結(jié)構(gòu)嚴(yán)謹(jǐn);圖紙、表格、插圖繪制規(guī)范準(zhǔn)確;欄目齊全合理,格式符合規(guī)范。30程序質(zhì)量代碼正確,質(zhì)量高;應(yīng)用知識(shí)點(diǎn)多,控件應(yīng)用不單一。程序能夠正確運(yùn)行,易操作,界面友好,健壯性強(qiáng)。30工作量程序功能完善,工作量飽滿。20綜合印象設(shè)計(jì)態(tài)度認(rèn)真;按時(shí)提交報(bào)告和源程序。10總分五分制成績評閱教師簽字: 年 月 日