【正文】 ALUES ( :ls_bneno,:ls_bnpwd) 。//刷新dw_list窗口 ls_bdno = (1,BDNO) if isnull(ls_bdno) then return dwfilter = BDNO = 39。+ls_bdno+39。 (dwfilter) () () //刷新dw_in窗口 (false) () (0) (true) //set focus (BNENO) ()else messagebox(錯(cuò)誤,新增用戶(hù)失敗!,stopsign!) rollback。end if其含義為：首先，窗口的數(shù)據(jù)輸入文本框中取得相應(yīng)數(shù)值，并直接保存數(shù)據(jù)窗口的新增數(shù)據(jù)行，新增用戶(hù)成功后立即新增該用戶(hù)的系統(tǒng)登錄權(quán)限，并為其設(shè)置初始密碼。最后刷新所有窗口數(shù)據(jù)窗口。如果用戶(hù)輸入有誤不保存數(shù)據(jù)并給用戶(hù)提示。（2）職工權(quán)限設(shè)置a、職工權(quán)限設(shè)置窗口（W_right）具有權(quán)限設(shè)置、修改兩種功能，如果是第一次設(shè)置該用戶(hù)權(quán)限，則由系統(tǒng)管理員對(duì)相應(yīng)人員設(shè)置對(duì)應(yīng)權(quán)限；如果己對(duì)該用戶(hù)設(shè)置權(quán)限，窗口打開(kāi)時(shí)自動(dòng)讀該職工己有的權(quán)限，可提供給系統(tǒng)管理員進(jìn)行修改。這個(gè)判斷過(guò)程由W_right的Open事件執(zhí)行，其過(guò)程如下：if = then messagebox(提示,請(qǐng)用鼠標(biāo)單擊右邊列表中的用戶(hù)行!) close(w_right) returnend if//顯示科室(sqlca)()(sqlca)(sqlca)if isnull() = false or len() 0 then ()end if//顯示現(xiàn)有管理科所()//讀權(quán)限 = f_read_bman_pms(,cbx_pg) = f_read_bman_pms(,cbx_gx_yj) = f_read_bman_pms(,cbx_gx_sp) = f_read_bman_pms(,cbx_fd_yj) = f_read_bman_pms(,cbx_fd_sp) = f_read_bman_pms(,cbx_jb_yj) = f_read_bman_pms(,cbx_jb_sp)= f_read_bman_pms(,cbx_qj_ky_half)=f_read_bman_pms(,cbx_qj_ky_more_yj)=f_read_bman_pms(,cbx_qj_ky_more_sp)=f_read_bman_pms(,cbx_qj_kz_one_yj)=f_read_bman_pms(,cbx_qj_kz_one_sp)=f_read_bman_pms(,cbx_qj_kz_more_yj)=f_read_bman_pms(,cbx_qj_kz_more_sp)= f_read_bman_pms(,cbx_xx_sp)其含義為：首先，顯示數(shù)據(jù)窗口內(nèi)的所有內(nèi)容，然后從登錄時(shí)保存的全局函數(shù)據(jù)中讀取用的相應(yīng)權(quán)限，在窗口中的各種權(quán)限設(shè)計(jì)為“復(fù)選框”選擇，復(fù)選框有選中與未選中兩種狀態(tài)。從全局函數(shù)中讀出相應(yīng)的項(xiàng)目來(lái)影響復(fù)選項(xiàng)的“Checked”屬性。b、設(shè)置職工權(quán)限由系統(tǒng)管理員根據(jù)實(shí)際情況確定系統(tǒng)職工的所轄科室、科員請(qǐng)假、科長(zhǎng)請(qǐng)假、派工、加班等相應(yīng)權(quán)限。所轄科室從下拉列表框中進(jìn)行選擇，其余權(quán)限通過(guò)復(fù)選框進(jìn)行選擇，選擇好權(quán)限后單擊“確定存盤(pán)”系統(tǒng)自動(dòng)判斷數(shù)據(jù)自動(dòng)性并進(jìn)行保存，保存結(jié)果反饋給用戶(hù)提示。其保存過(guò)程如下：if () = 0 then messagebox(提示,選擇所管轄的科所!,exclamation!) returnend ifif messagebox(提示,確認(rèn)無(wú)誤保存嗎?,question!,okcancel!) = 1 then if () = 1 then mit。 //寫(xiě)權(quán)限 f_write_bman_pms(,cbx_pg,) f_write_bman_pms(,cbx_gx_yj,) f_write_bman_pms(,cbx_gx_sp,) f_write_bman_pms(,cbx_fd_yj, ) f_write_bman_pms(,cbx_fd_sp,) f_write_bman_pms(,cbx_jb_yj,) f_write_bman_pms(,cbx_jb_sp,)f_write_bman_pms(,cbx_qj_ky_half,)f_write_bman_pms(,cbx_qj_ky_more_yj,) f_write_bman_pms(,cbx_qj_ky_more_sp,) f_write_bman_pms(,cbx_qj_kz_one_yj,) f_write_bman_pms(,cbx_qj_kz_one_sp,) f_write_bman_pms(,cbx_qj_kz_more_yj,) f_write_bman_pms(,cbx_qj_kz_more_sp,)f_write_bman_pms(,cbx_xx_sp,) messagebox(提示,成功保存權(quán)限!) () close(parent) else rollback。 messagebox(錯(cuò)誤,保存所屬科所失敗?,stopsign!) end ifend if其含義為：首先，判斷窗口中各項(xiàng)內(nèi)容是否輸入完整，數(shù)據(jù)完整無(wú)誤后直接保存數(shù)據(jù)窗口中的內(nèi)容，并將權(quán)限內(nèi)容保存到全局函數(shù)中。最后反饋給用戶(hù)保存提示。、考勤處理科所長(zhǎng)請(qǐng)假科所正、副職請(qǐng)假一天以上需首先由當(dāng)事人填寫(xiě)請(qǐng)假申請(qǐng)單，由政工局長(zhǎng)簽署意見(jiàn)，再由局長(zhǎng)審批，最后交政工科備案。a、填寫(xiě)請(qǐng)假申請(qǐng)單單擊“考勤處理/請(qǐng)假/科所長(zhǎng)”菜單，窗口打開(kāi)時(shí)，首先取己知的部分?jǐn)?shù)據(jù)，如姓名、當(dāng)前日期、所屬部門(mén)等，再交由用戶(hù)自行填寫(xiě)其余內(nèi)容，如請(qǐng)假類(lèi)別、事由、天數(shù)等。其取己數(shù)據(jù)部分過(guò)程如下：long ll_cur_rowstring ls_qjno,ls_bnnam,ls_bdnamdatetime ldt1time lt1int li_xhlt1 = now()ldt1 = datetime(date(gs_today),lt1) (sqlca)ll_cur_row = (0)ls_qjno = f_qj_no(gs_id)//請(qǐng)假單號(hào)(ll_cur_row,QJNO,ls_qjno)//用戶(hù)NO(ll_cur_row,BNENO,gs_id)//用戶(hù)姓名(ll_cur_row,BNNAM,gs_bnnam)//科室NO(ll_cur_row,BDNO,gs_bdno)//科室名稱(chēng)(ll_cur_row,BDNAM,gs_bdnam)//日期(ll_cur_row,QJDAT,ldt1)(ll_cur_row,QJTIME,ldt1)(ll_cur_row,QJTIME1,ldt1)//查找個(gè)人序號(hào)xh(ll_cur_row,xh,其含義為：首先，設(shè)置數(shù)據(jù)窗口的事務(wù)對(duì)象，然后取得系統(tǒng)己知的部分內(nèi)容并填寫(xiě)到數(shù)據(jù)窗口的相應(yīng)欄目中。己一個(gè)數(shù)據(jù)窗口反饋給用戶(hù)。b、保存申請(qǐng)單內(nèi)容用戶(hù)填寫(xiě)完相應(yīng)項(xiàng)目后，單擊“保存”按鈕系統(tǒng)將用戶(hù)數(shù)據(jù)保存到數(shù)據(jù)庫(kù)中。其處理過(guò)程如下：long ll_cur_rowstring ls_qjnodatetime ldt1time lt1if () =0 then returnif () = 1 then mit。 messagebox(提示,成功提交!)else rollback。 messagebox(錯(cuò)誤,保存請(qǐng)假單失敗!,stopsign!) returnend if(false)()ll_cur_row = (0)(true)////初始化/////lt1 = now()ldt1 = datetime(date(gs_today),lt1) ls_qjno = f_qj_no(gs_id)//請(qǐng)假單號(hào)(ll_cur_row,QJNO,ls_qjno)//用戶(hù)NO(ll_cur_row,BNENO,gs_id)//用戶(hù)姓名(ll_cur_row,BNNAM,gs_bnnam)//科所no(ll_cur_row,BDNO,gs_bdno)//科所名稱(chēng)(ll_cur_row,BDNAM,gs_bdnam)//日期(ll_cur_row,QJDAT,ldt1)(ll_cur_row,QJTIME,ldt1)(ll_cur_row,QJTIME1,ldt1)//查找個(gè)人序號(hào)xh(ll_cur_row,xh,)其含義為：首先，設(shè)置提交數(shù)據(jù)窗口的數(shù)據(jù)保存事務(wù)，并反饋用戶(hù)保存結(jié)果。然后重新初始化數(shù)據(jù)窗口，以恢復(fù)初始值。c、簽署意見(jiàn)和審批主管局長(zhǎng)、政工局長(zhǎng)等管理人員都需要對(duì)申請(qǐng)請(qǐng)假的單據(jù)進(jìn)行簽署意見(jiàn)和審批，在系統(tǒng)設(shè)計(jì)中首先單擊“查詢(xún)”按鈕由數(shù)據(jù)窗口查詢(xún)得到所有待審批的單據(jù)，再交由管理人員人審核，對(duì)審核通過(guò)的可以進(jìn)行輸入數(shù)據(jù)簽名密碼，其保存處理過(guò)程如下：long ll_countint istring ls_bz2if f_signature(gs_id) then messagebox(錯(cuò)誤,簽名密碼錯(cuò)誤!,stopsign!) returnend if//請(qǐng)假代碼 5ll_count = ()//查詢(xún)標(biāo)志0未1同意2不同意for i = 1 to ll_count ls_bz2 = (i,BZ2) if ls_bz2 = 1 or ls_bz2 = 2 then (i,BNENO2,gs_id) (i,BNNAM2,gs_bnnam) end ifnext//請(qǐng)假代碼 1ll_count = ()//查詢(xún)標(biāo)志0未1同意2不同意for i = 1 to ll_count ls_bz2 = (i,BZ2) if ls_bz2 = 1 or ls_bz2 = 2 then (i,BNENO2,gs_id) (i,BNNAM2,gs_bnnam) end ifnext//請(qǐng)假代碼 6ll_count = ()//查詢(xún)標(biāo)志0未1同意2不同意for i = 1 to ll_count ls_bz2 = (i,BZ2) if ls_bz2 = 1 or ls_bz2 = 2 then (i,BNENO2,gs_id) (i,BNNAM2,gs_bnnam) end ifnext//請(qǐng)假代碼 7ll_count = ()//查詢(xún)標(biāo)志0未1同意2不同意for i = 1 to ll_count ls_bz2 = (i,BZ2) if ls_bz2 = 1 or ls_bz2 = 2 then (i,BNENO2,gs_id) (i,BNNAM2,gs_bnnam) end ifnextif messagebox(提示,確認(rèn)要保存嗎?,question!,okcancel!) = 1 then if () = 1 then mit。 () else rollback。 messagebox(錯(cuò)誤,保存科員請(qǐng)假審批結(jié)果失敗!,stopsign!) end if if () = 1 then mit。 () else rollback。 messagebox(錯(cuò)誤,保存在職學(xué)習(xí)審批結(jié)果失敗!,stopsign!) end if if () = 1 then mit。 () else rollback。 messagebox(錯(cuò)誤,保存科所長(zhǎng)請(qǐng)假一天審批結(jié)果失敗!,stopsign!) end if if () = 1 then mit。 () else rollback。 messagebox(錯(cuò)誤,保存科所長(zhǎng)請(qǐng)假一天以上審批結(jié)果失敗!,stopsign!) end ifend if其含義為：首先，校驗(yàn)數(shù)據(jù)簽名的密碼是否正確。然后查詢(xún)審批意見(jiàn)，針對(duì)不同的審批結(jié)果，得到請(qǐng)假結(jié)果，最后保存數(shù)據(jù)窗口數(shù)據(jù)，反饋用戶(hù)保存結(jié)果。、統(tǒng)計(jì)查詢(xún)系統(tǒng)所有的查詢(xún)菜單都能針對(duì)時(shí)間段進(jìn)行統(tǒng)計(jì)查詢(xún)，部分選項(xiàng)還能分類(lèi)查詢(xún)。首先由用戶(hù)輸入查詢(xún)的時(shí)間段，選擇分類(lèi)項(xiàng)目查詢(xún)，單擊查詢(xún)按鈕系統(tǒng)會(huì)根據(jù)查詢(xún)條件對(duì)數(shù)據(jù)窗口進(jìn)行檢索。其派工查詢(xún)處理過(guò)程如下：// string dwfilterdatetime dt1,dt2time lt1,lt2lt1 = time(00:00:00)lt2 = time(23:59:59)dt1 = datetime(date(),lt1)dt2 = datetime(date(),lt2)//設(shè)置查詢(xún)的時(shí)間條件if isdate() = true and isdate() = true and = then //按時(shí)間段 choose case true case gs_ruler = 4 or gs_ruler = 5 (false) = d_pg_cx (true) (sqlca) dwfilte