freepeople性欧美熟妇, 色戒完整版无删减158分钟hd, 无码精品国产vα在线观看DVD, 丰满少妇伦精品无码专区在线观看,艾栗栗与纹身男宾馆3p50分钟,国产AV片在线观看,黑人与美女高潮,18岁女RAPPERDISSSUBS,国产手机在机看影片

正文內(nèi)容

人事管理信息系統(tǒng)畢業(yè)論文-資料下載頁

2025-07-27 09:56本頁面
  

【正文】 d! //獲得分辨率 GetEnvironment(wangsys) li_ScreenWidth= li_ScreenHeight= =false //隱藏string ls_namels_name =ls_softname+39。 V39。+ls_ver= ls_name//設(shè)置當(dāng)前軟件名稱RegistrySet(ls_regkey,softname,ls_name)opensheet(w_lcpic,THIS,0,layered!)PostEvent(this,39。ue_resize39。)timer(30,this) //30 秒刷新一次ue_resize事件代碼:long llparts[4]OpenUserObject(uo_ready,0,2132)if li_ScreenWidth =1024 and li_ScreenHeight =768 then //按照 1024 * 768 設(shè)置 llparts[1] = 200 llparts[2] = 540 llparts[3] = 780 llparts[4] = 1 // 剩余的 全部留給最后一個(gè) (llparts[]) (0,0,39。 狀態(tài)欄幫助窗口 39。) (1,0,39。 人事管理信息系統(tǒng)畢業(yè)論文!! 作者:王軍 39。) (2,0,39。 當(dāng)前操作員是: 39。 +ls_ryname+39。【39。+ls_rydm+39。】39。) (3,0,39。 39。+39。 現(xiàn)在是:39。+String(Today(), yyyy/mm/dd hh:mm +39。 39。+ f_dayzwrq(String(Today(),39。yyyy/mm/dd39。)) ) )elseif li_ScreenWidth =800 and li_ScreenHeight =600 then //按照 800 * 600 設(shè)置 llparts[1] = 200 llparts[2] = 500 llparts[3] = 700 llparts[4] = 1 // 剩余的 全部留給最后一個(gè) (llparts[]) (0,0,39。 狀態(tài)欄幫助窗口 39。) (1,0,39。 畢業(yè)論文!! 作者:王軍39。) (2,0,39。當(dāng)前操作員是:39。 +ls_ryname+39?!?9。+ls_rydm+39?!?9。) (3,0,39?,F(xiàn)在是:39。+String(Today(), yyyy/mm/dd hh:mm+39。 39。+ f_dayzwrq(String(Today(),39。yyyy/mm/dd39。)) ) )end iftimer事件用于顯示時(shí)間:PostEvent(this,39。ue_resize39。)ue_login2事件用于重新登錄:PostEvent(this,39。open39。) (0) //清空!(constructor)resize事件代碼:作用是自定義分辨率((),())(()++,())if = Maximized! then (()+,() 76 )else (()+,() )end if ( ,() )if = Maximized! then ( ,() 76 )else ( ,() )end if tv_1事件用于顯示權(quán)限功能模塊:long tvi_root,tvi_next,tvi_next1,tvi_next2,tvi_root1,currenthandle,currentnextint i,j,z,k string city_bm,city_nametreeviewitem tvi //定義一個(gè)樹形數(shù)據(jù)類型的變量 (false) if ls_rydm = 39。Admin39。 then = 39。dw_wangsys39。 (sqlca) ()else = 39。dw_wangqxcfg39。 (sqlca) //連接數(shù)據(jù)庫 (ls_rydm) end ifi=() j=1 //定義樹形變量的屬性,設(shè)置根目錄的標(biāo)簽,若在編碼表中有此根目錄,則不用在此生成 t=【功能模塊】 //生成根目錄 // 目錄未打開時(shí)的圖片索引,此圖片可在樹形控件中設(shè)定 =1 //目錄打開時(shí)的圖片索引 =2 tvi_root=(0,tvi) do while j=i //從隱含的編碼數(shù)據(jù)窗口檢索數(shù)據(jù),第一行開始取區(qū)域內(nèi)碼,因?yàn)榫幋a表按編碼序排,所以可自動(dòng)按序建層次 if ls_rydm = 39。Admin39。 then city_bm=(j,wangsys_dm) city_name=(j,wangsys_name) else city_bm=(j,wangqxcfg_s_rydm) city_name=(j,wangsys_wangsys_name) end if //取區(qū)域名稱 k=len(city_bm) z=int(k)//取內(nèi)碼的位數(shù) choose case z case 2 =city_name //把編碼值賦給tvi =city_bm =3 =2 //以根項(xiàng)目為父項(xiàng)目,插入第二層項(xiàng)目,以后凡是檢索到位數(shù)是二的,均在此生成二層目錄 tvi_root1=(tvi_root,tvi) case 4 //以后凡是檢索到位數(shù)是四位,均生成第三層目錄 =city_name =city_bm =4 =3 tvi_next=(tvi_root1,tvi) end choose j=j+1 loop (true) currenthandle=(roottreeitem!,0) //查找根目錄下的第一項(xiàng)目 (currenthandle) //缺省打開此項(xiàng)目四、 員工信息 【建立與維護(hù)】w_ryxx代碼:人員新增ue_add事件代碼:if = false then return //增加long ryhzselect count(*) into:ryhz from RYXX。if ryhz=0 then JLBH=0else select max(rydm) into: JLBH from RYXX。end if JLBH=JLBH+1if =100 then messagebox(39。嚴(yán)重錯(cuò)誤!39。,39。該 RYXX(人員基本信息) 表不存在,請(qǐng)趕緊聯(lián)系 系統(tǒng)管理員 !39。,stopsign!) returnend ifls_insert=39。Insert39。()((0))[1] = JLBH[1] =39。0139。 //民族 [1] =39。0539。 //文化程度 [1] =39。239。 [1] =39。139。[1] = ls_rydm[1] = datetime(today(),now())[1] =ls_rydm[1] =datetime(today(),now())(39。 = 139。) (39。 = 139。) (39。 = 139。) (39。 = 139。) (39。 = 139。) ()(2)ib_modify = true人員刪除ue_del事件代碼:if = false then return //刪除int ls_jlbhls_jlbh=[1]if messagebox(39。是否刪除,請(qǐng)確認(rèn)下哦??39。,39。請(qǐng)問,你是真的需要?jiǎng)h除編號(hào)為 39。+string(ls_jlbh)+39。 的人員信息嗎??? 39。,question!,YesNO!,1)=1 then (()) if ()=1 then return IF () = 1 THEN COMMIT USING SQLCA。 ib_modify = false () messagebox(39。刪除成功!39。,39。~r 記錄編號(hào)為【39。+string(ls_jlbh)+39?!?的人員刪除成功!!39。) ELSE ROLLBACK USING SQLCA。 messagebox(39。刪除失敗39。,39。~r 記錄編號(hào)為【39。+string(JLBH)+39?!?的人員信息 刪除失敗,~r~n錯(cuò)誤原因是: 39。 +,stopsign!) return END IFend if PostEvent(39。ue_show39。)人員保存ue_save事件代碼:if = false then return //保存integer rtnstring ls_messageif ()=1 then return JLBH=[1]if ls_insert=39。Insert39。 then //不是增加的不檢查,防止 維護(hù)的時(shí)候 編號(hào) 混亂!~~ JLBh = 0long ryhz select count(*) into:ryhz from RYXX。 if ryhz=0 then JLBH=0 else select max(rydm) into: JLBH from RYXX。 end if JLBH=JLBH+1 [1] = JLBHend if[1] =ls_rydm[1] =datetime(today(),now())//string(today(),39。yyyy/mm/dd hh:mm:ss39。)rtn = ()IF rtn = 1 THEN COMMIT USING SQLCA。 ib_modify = false messagebox(39。保存成功了哦~~39。,39。~r 記錄編號(hào)為【39。+string(JLBH)+39。】 的人員基本信息 ◎ 保存成功 ◎!!39。) ELSE ls_message = ROLLBACK USING SQLCA。 messagebox(39。提示:人員基本信息數(shù)據(jù)保存失敗39。,39。~r 記錄編號(hào)為【39。+string(JLBH)+39?!?的人員基本信息存盤出現(xiàn)錯(cuò)誤,~r~n錯(cuò)誤原因是:39。 + ls_message,stopsign!) returnEND IF if ls_insert=39。Insert39。 then triggerevent(ue_add) else () (2) end if顯示人員詳細(xì)信息ue_show事件代碼:()(=no)(JLBH)()(2)人員詳細(xì)信息另存為ue_saveas事件代碼:()人員詳細(xì)信息打印預(yù)覽ue_dwpreviews事件代碼:openwithparm(w_wangpreview,)
點(diǎn)擊復(fù)制文檔內(nèi)容
范文總結(jié)相關(guān)推薦
文庫吧 www.dybbs8.com
備案圖鄂ICP備17016276號(hào)-1