課程設(shè)計 公司人事管理系統(tǒng)的設(shè)計

1、河南科技大學(xué)課 程 設(shè) 計 說 明 書課程名稱 程序設(shè)計方法課程設(shè)計 題 目 公司人事管理系統(tǒng)的設(shè)計 院 系 *班 級 *學(xué)生姓名 *指導(dǎo)教師*日 期 2012年12月28日 課程設(shè)計任務(wù)書（指導(dǎo)教師填寫）課程設(shè)計名稱 程序設(shè)計方法課程設(shè)計 學(xué)生姓名 張艷玲 專業(yè)班級信管101班 設(shè)計題目 公司人事管理系統(tǒng) 一、 課程設(shè)計目的該課程設(shè)計是信息管理本科集中實(shí)踐性環(huán)節(jié)之一，是學(xué)習(xí)完數(shù)據(jù)庫基礎(chǔ)與應(yīng)用和程序設(shè)計方法課程后進(jìn)行的一次全面的綜合練習(xí)。其目的是通過本課程設(shè)計使學(xué)生對具體問題應(yīng)用程序設(shè)計方法課程中所學(xué)的方法與技術(shù)，進(jìn)行需求分析及軟件設(shè)計的過程，不僅對程序設(shè)計方法課程中的所有知識點(diǎn)進(jìn)行一個全面的

2、復(fù)習(xí)鞏固，更重要的是增強(qiáng)學(xué)生解決實(shí)際問題的能力。二、 設(shè)計內(nèi)容、技術(shù)條件和要求1、具有對公司組織信息和公司組織構(gòu)架的查看功能；2、具有員工和主管信息的各種形式的查詢功能；3、具有員工信息的添加、刪除，修改等功能；4、具有部門主管管理本部門雇員信息的功能；5、具有人事部主管管理公司內(nèi)部人力資源的功能；6、具有公司現(xiàn)狀查看和評估的統(tǒng)計圖功能。技術(shù)條件：powerbuilder開發(fā)工具的熟練運(yùn)用，數(shù)據(jù)庫理論知識和實(shí)際操作能力。要求：1、本課程設(shè)計要求學(xué)生獨(dú)立設(shè)計完成。包括規(guī)劃后臺數(shù)據(jù)庫、程序代碼的編寫以及軟件界面的設(shè)計。2、數(shù)據(jù)庫中不能少于3個表。3、程序應(yīng)功能完善，界面友好，容錯性好，操作方便。三

3、、 時間進(jìn)度安排系統(tǒng)分析與規(guī)劃 半周系統(tǒng)設(shè)計與調(diào)試 一周撰寫課程設(shè)計說明書 半周四、 主要參考文獻(xiàn)1鄭阿奇.PowerBuilder實(shí)用教程.第2版.北京:電子工業(yè)出版社,2004.2明德祥.PowerBuilder實(shí)例下.第1版.長沙:國防科技大學(xué)出版社,2002.6.3馬承志.PowerBuilder編程實(shí)例與技巧.第1版.北京:機(jī)械工程出版社,2002.指導(dǎo)教師簽字： 2012年12月14日目錄1、系統(tǒng)功能介紹和設(shè)計11.1系統(tǒng)功能介紹11.2系統(tǒng)功能分析11.3系統(tǒng)功能模塊設(shè)計22、 數(shù)據(jù)庫設(shè)計32.1數(shù)據(jù)庫概念結(jié)構(gòu)設(shè)計32.2創(chuàng)建數(shù)據(jù)庫42.3在數(shù)據(jù)庫中創(chuàng)建表：52.4往公司的系統(tǒng)和

4、結(jié)構(gòu)表里添加數(shù)據(jù)73、 應(yīng)用程序的創(chuàng)建84、 應(yīng)用程序主窗口的創(chuàng)建84.1菜單的設(shè)計84.2系統(tǒng)用戶登陸界面94.3組織信息窗口10組織結(jié)構(gòu)圖窗口10組織結(jié)構(gòu)窗口124.4查詢信息窗口174.4.1查詢個人信息窗口17通訊錄窗口184.5修改信息窗口19修改個人信息窗口194.5.2修改密碼窗口224.6主管部門管理24修改雇員信息24增加刪除雇員274.7人事管理窗口30雇員增刪30人事調(diào)動344.8統(tǒng)計圖窗口35現(xiàn)狀35工資分布圖365、 主界面運(yùn)行窗口376、 程序設(shè)計方法課程設(shè)計評分表38公司人力資源管理系統(tǒng)1、系統(tǒng)功能介紹和設(shè)計1.1系統(tǒng)功能介紹1、具有系統(tǒng)登錄和用戶管理的功能。2、

5、具有對公司組織信息和公司組織構(gòu)架的查看功能；3、具有員工和主管信息的各種形式的查詢功能；4、具有員工信息的添加、刪除，修改等功能；5、具有部門主管管理本部門雇員信息的功能；6、具有人事部主管管理公司內(nèi)部人力資源的功能；7、具有公司現(xiàn)狀查看和評估的統(tǒng)計圖功能。1.2系統(tǒng)功能分析作為公司的人事管理系統(tǒng)首先必須要具備查看本公司人事狀況的功能，其次是修改現(xiàn)有人員信息的功能，還要有主管管理本部門職員的功能，另外還有有人事主管管理整個公司的能力。為更近一步完善次系統(tǒng)，設(shè)置了密碼和權(quán)限。具體如下：1、密碼設(shè)置。每個操作員均有自己的密碼，可以防止非本系統(tǒng)人員進(jìn)入本 系統(tǒng)；又因每個人的權(quán)限不一致，故可以防止越權(quán)

6、操作。而且對于自身系統(tǒng)提供的密碼，用戶可以根據(jù)個人的情況進(jìn)行修改。2、權(quán)限設(shè)置。設(shè)置每個人的權(quán)限，使個人有個人的操作范圍，不能超出自己的范圍操作。為此可以幫助部門主管管理本部門雇員和人事主管管理企業(yè)人員的調(diào)配、裁員和引進(jìn)。4、檔案更新。為了存放職工人事檔案的全部數(shù)據(jù)，檔案更新包括對各種表的記錄修改、刪除、添加等操作，而且通過設(shè)置密碼怎家了修改、刪除和添加的安丘性能。5、檔案查詢?？梢园葱彰⒉块T或任意條件查詢個人和一部分人的情況，以及運(yùn)用統(tǒng)計圖方便只管的查看本公司及部門人員的情況。1.3系統(tǒng)功能模塊設(shè)計14系統(tǒng)功能模塊介紹1、組織結(jié)構(gòu)查看模塊：幫助公司內(nèi)部人員很快的了解公司規(guī)模、公司的組織構(gòu)架

7、、公司管理層人員情況、以及其他員工的個人基本情況。2、雇員和主管信息查詢模塊：幫助公司內(nèi)部人員根據(jù)自己的需求快婿查找員工、主管的信息以及部門間的人員情況。3、修改雇員和主管信息模塊：修改個人信息必須只有本人才有此權(quán)限，而且工作的調(diào)換僅限于本部門內(nèi)的職務(wù)。首先必須輸入密碼才能進(jìn)修修改，而且主管只能修改本部門員工的信息。同時可以進(jìn)行密碼的修改功能。4、主管管理本部門雇員模塊：部門主管僅可以修改本部門的成員信息和添加、刪除本部門的雇員，沒有權(quán)限干涉其他的部門。在刪除本部門雇員時，對應(yīng)人員的密碼會隨之注銷。在添加本部門雇員時，會分配出事密碼。5、人事主管進(jìn)行人事管理模塊：人事主管具有部門之間的人事調(diào)配

8、權(quán)利，以及公司人員的辭退和招聘。6、人力資源狀況圖查看模塊：幫助公司人員了解公司人力資源現(xiàn)狀（學(xué)歷分布）以及部門、個人、主管的工資的分布情況。2、 數(shù)據(jù)庫設(shè)計2.1數(shù)據(jù)庫概念結(jié)構(gòu)設(shè)計設(shè)計規(guī)劃出的實(shí)體有：主管信息實(shí)體 、雇員信息實(shí)體、部門實(shí)體、職務(wù)實(shí)體。主管信息實(shí)體的E-R圖如圖示：雇員信息實(shí)體的E-R圖如圖示：部門信息實(shí)體的E-R圖如圖示：職務(wù)信息實(shí)體的E-R圖如圖示：2.2創(chuàng)建數(shù)據(jù)庫（1）單擊工具欄上的Database圖標(biāo)按鈕；（2）在彈出的Database畫板中，打開Object子窗口，展開“ODB ODBC”項下的Utilities目錄。（3）雙擊Utilities目錄下的“Create

9、 ASA DataBase”對話框，如圖示，彈出“Create Server AnyWhere Database”對話框。（4）單擊“Broswe.”按鈕，彈出“Create Dtabase”對話框，選擇合適的路徑，返回對話框。（5）使用默認(rèn)的用戶UserID項“dba”和默認(rèn)的口令Password項“sql”，單擊ok按鈕，就可以創(chuàng)建一個ASA數(shù)據(jù)庫humenresource，同時，系統(tǒng)自動的為數(shù)據(jù)庫配置了ODBC和DB Profile，并且已經(jīng)到新建的數(shù)據(jù)庫。（可以看到數(shù)據(jù)庫名huemnresource的圖標(biāo)上有一個綠色的小勾）。2.3在數(shù)據(jù)庫中創(chuàng)建表：（1）展開數(shù)據(jù)庫目錄，選中“Tabl

10、es”，單擊鼠標(biāo)右鍵，在彈出的選單中單擊“New Tables”，就會出現(xiàn)表的設(shè)計子窗口。（2）在表的設(shè)計子窗口中，分別輸入每個字段的名稱，選擇合適的數(shù)據(jù)類型，數(shù)據(jù)寬度，是否允許為空等。最后單擊保存按鈕，鍵入表的名字。 以此步驟建立了6個表，分別是major，employee、depart、duty、pass、passem。它們之間關(guān)系如下圖所示：“employee”結(jié)構(gòu)如下圖所示“major”結(jié)構(gòu)如圖所示“depart”結(jié)構(gòu)如圖所示“duty”結(jié)構(gòu)如圖所示“pass(主管密碼)” 結(jié)構(gòu)如圖所示“passem（雇員密碼）”結(jié)構(gòu)如圖所示2.4往公司的系統(tǒng)和結(jié)構(gòu)表里添加數(shù)據(jù)“depart”表“du

11、ty”表3、 應(yīng)用程序的創(chuàng)建單擊菜單File/New項，在彈出式對話框中選取Workspace標(biāo)簽下的Workspace，填入路徑保存；然后單擊菜單File/New項，選擇Target標(biāo)簽下的Application，建立humen的應(yīng)用。在該應(yīng)用的open事件中添加如下腳本，用于鏈接數(shù)據(jù)庫，打開運(yùn)行主窗口。/ Profile 123SQLCA.DBMS = "ODBC"SQLCA.AutoCommit = FalseSQLCA.DBParm = "ConnectString='DSN=humen;UID=;PWD='"connect;if

12、 sqlca.sqlcode<>0 then messagebox("提示","數(shù)據(jù)庫連接錯誤！")returnend ifopen(w_login)4、 應(yīng)用程序主窗口的創(chuàng)建4.1菜單的設(shè)計在菜單畫面中設(shè)計的應(yīng)用程序主窗口中創(chuàng)建菜單company。該菜單的具體結(jié)構(gòu)如下圖所示：4.2系統(tǒng)用戶登陸界面“登陸”按鈕的代碼string dl_name,dl_mima1,dl_mima2,lr_name,lr_mima int ilr_name=trim(sle_1.text)lr_mima=trim(sle_2.text)select count(

13、*)into :i from passem,passwhere passem.id=:lr_name or pass.id=:lr_nameusing sqlca;if i<1 thenmessagebox("對不起","該用戶不存在！")sle_1.text = ""sle_2.text = ""sle_1.setfocus()returnend ifselect passem.password,pass.passwordinto :dl_mima1,:dl_mima2from passem,passwhe

14、re passem.id=:lr_name or pass.id=:lr_nameusing sqlca;if dl_mima1 <> lr_mima and dl_mima2<>lr_mima thenmessagebox("對不起","密碼錯！")sle_2.text = ""sle_2.setfocus()returnend ifopen(w-start)close(parent)“退出”按鈕的代碼close(parent)4.3組織信息窗口組織結(jié)構(gòu)圖窗口核心代碼首先創(chuàng)建treeview所需的datawi

15、ndowinfor_departxx_duty1OPEN事件代碼：datastore dt_dept,dt_dutylong ll_root,ll_hd_lv1integer li_deptcnt,li_dutycnt,i,jstring ls_deptid,ls_deptname,ls_dutyid,ls_dutynamestring ls_tempdt_dept = create datastore/創(chuàng)建數(shù)據(jù)存儲對象dt_dept.dataobject = "infor_depart"dt_dept.settransobject(sqlca)dt_dept.retrie

16、ve()dt_duty = create datastoredt_duty.dataobject = "xs_duty1"dt_duty.settransobject(sqlca)dt_duty.retrieve()/如是寫在窗口的open()事件，此段代碼可省略。ll_root = tv_1.finditem(roottreeitem!,0)tv_1.setredraw(false)tv_1.deleteitem(ll_root)/如需要插入的項的父項的句柄為零，則插入根級。ll_root = tv_1.insertitemlast(0,"部門信息",

17、1)li_deptcnt = dt_dept.rowcount()/得到部門個數(shù)for i = 1 to li_deptcntls_deptid = dt_dept.getitemstring(i,"depart_id")ls_deptname = dt_dept.getitemstring(i,"depart_name")ls_temp = ls_deptid + " " + ls_deptnamell_hd_lv1 = tv_1.insertitemsort(ll_root,ls_temp,1)dt_duty.reset()dt_

18、duty.retrieve(ls_deptid)/為所建數(shù)據(jù)窗口中聲明的參數(shù)li_dutycnt = dt_duty.rowcount()/得到該部門下屬職務(wù)for j = 1 to li_dutycntls_dutyid = dt_duty.getitemstring(j,"duty_id")ls_dutyname = dt_duty.getitemstring(j,"duty_name")ls_temp = ls_dutyid + " " + ls_dutynametv_1.insertitemsort(ll_hd_lv1,ls_

19、temp,2)nextnexttv_1.expanditem(ll_root)tv_1.setredraw(true)組織結(jié)構(gòu)窗口首先創(chuàng)建treeview所需的datawindowinfor_depart（同上）Infor_major Infor_employeeInfor_employee_oneOpen事件代碼datastore dt_dept,dt_duty,dt_maj,dt_emplong ll_root,ll_hd_lv1integer li_deptcnt,li_empcnt,i,jstring ls_deptid,ls_deptname,ls_majid,ls_majname,

20、ls_empid,ls_empnamestring ls_tempdt_dept = create datastore/創(chuàng)建數(shù)據(jù)存儲對象dt_dept.dataobject = "infor_depart"dt_dept.settransobject(sqlca)dt_dept.retrieve()dt_maj = create datastoredt_maj.dataobject = "infor_major"dt_maj.settransobject(sqlca)dt_maj.retrieve()dt_emp = create datastoredt

21、_emp.dataobject = "infor_employee"dt_emp.settransobject(sqlca)dt_emp.retrieve()/如是寫在窗口的open()事件，此段代碼可省略。ll_root = tv_1.finditem(roottreeitem!,0)tv_1.setredraw(false)tv_1.deleteitem(ll_root)/如需要插入的項的父項的句柄為零，則插入根級。ll_root = tv_1.insertitemlast(0,"部門信息",1)li_deptcnt = dt_dept.rowcou

22、nt()/得到部門個數(shù)for i = 1 to li_deptcntls_deptid = dt_dept.getitemstring(i,"depart_id")ls_deptname = dt_dept.getitemstring(i,"depart_name")ls_temp = ls_deptid + " " + ls_deptnamell_hd_lv1 = tv_1.insertitemsort(ll_root,ls_temp,1)dt_emp.reset()dt_emp.retrieve(ls_deptid)/為所建數(shù)據(jù)窗

23、口中聲明的參數(shù)li_empcnt = dt_emp.rowcount()/得到該部門的人數(shù)for j = 1 to li_empcntls_empid = dt_emp.getitemstring(j,"id")ls_empname = dt_emp.getitemstring(j,"name")ls_temp = ls_empid + " " + ls_empnametv_1.insertitemsort(ll_hd_lv1,ls_temp,2)nextnexttv_1.expanditem(ll_root)tv_1.setredr

24、aw(true)/destroy dt_dept/destroy dt_empdw_1.dataobject = "infor_depart"dw_1.settransobject(sqlca)dw_1.retrieve()tv_1控件下的代碼：int li_tlv,li_majstring ls_deptid,ls_majid,ls_empidstring ls_tlabel,ls_mlabeltreeviewitem ltvi_tmp,ltvi_deptdw_1.reset()/handle為此事件的參數(shù)。this.getitem(handle,ltvi_tmp)li_

25、tlv = ltvi_tmp.level/2li_maj = ltvi_dept.levells_tlabel = ltvi_tmp.labells_mlabel = ltvi_dept.labelif li_tlv = 1 thendw_1.dataobject = "infor_depart"dw_1.settransobject(sqlca)dw_1.retrieve()elseif li_tlv = 2 thendw_1.dataobject = "infor_major"dw_1.settransobject(sqlca)ls_majid =

26、mid(ls_tlabel,1,2)dw_1.retrieve(ls_majid)elseif li_tlv = 3 thendw_1.dataobject = "infor_employee_one"dw_1.settransobject(sqlca)ls_empid = mid(ls_tlabel,1,8)dw_1.retrieve(ls_empid)end if4.4查詢信息窗口查詢個人信息窗口查詢主管信息：創(chuàng)建名為“major”的datawindow：“查詢”按鈕下得代碼：查詢部門成員：創(chuàng)建名為bumen_empl的datawindow：“查詢”按鈕下得代碼：str

27、ing partnamepartname=trim(ddlb_2.text)dw_3.settransobject(sqlca) dw_3.retrieve(partname)通訊錄窗口創(chuàng)建名為infor_number的datawindow：“查詢”按鈕下的代碼：string maj_name,maj_num,bumennameint dd_nobumenname=ddlb_1.textselect ,major.numberinto :maj_name,:maj_numfrom major,departwhere :bumenname= and de

28、part.id=major.major;sle_1.text=maj_namesle_2.text=maj_numdw_1.settransobject(sqlca)dw_1.retrieve(bumenname)4.5修改信息窗口修改個人信息窗口員工信息窗口的創(chuàng)建：創(chuàng)建名為“xg_emp”的datawindow：在job列懸掛xg_job數(shù)據(jù)窗口，xg_job的創(chuàng)建如下：“登陸”按鈕下的代碼是：string mima,xs_mima,cxeidint icxeid=trim(sle_3.text)mima=trim(sle_4.text)select count(*)into :i from

29、 passemwhere id=:cxeidusing sqlca;if i<1 thenmessagebox("對不起","該用戶不存在！")sle_3.text = ""sle_4.text = ""sle_3.setfocus()returnend ifselect passwordinto :xs_mimafrom passemwhere id=:cxeid; if xs_mima = mima thendw_2.settransobject(sqlca)dw_2.retrieve(cxeid)els

30、e messagebox("提示","密碼輸入錯誤，請重新輸入！")sle_4.text=""end if“保存”按鈕下的代碼是：string cxeid cxeid=trim(sle_3.text)dw_2.update() if sqlca.sqlcode=0 thencommit using sqlca;messagebox("提示","您已經(jīng)成功保存修改的數(shù)據(jù)")else rollback using sqlca;messagebox("提示","數(shù)據(jù)保存失

31、敗")end if修改密碼窗口“修改密碼”按鈕下的代碼：string id,ymima,xmima,qmima,y_mimaint iid = trim(sle_1.text)ymima=trim(sle_2.text)xmima=trim(sle_3.text)qmima=trim(sle_4.text)select count(*)into :i from passem,passwhere passem.id=:id or pass.id=:idusing sqlca;if i<1 thenmessagebox("對不起","該用戶不存在！&q

32、uot;)sle_1.text = ""sle_2.text = ""sle_1.setfocus()returnend ifif rb_1.checked and xmima<>"" then select password into :y_mima from passem where id=:id ; if y_mima<>ymima then messagebox("提示","您的原密碼錯誤，請重新輸入！") else if xmima<>qmima t

33、henmessagebox("提示","確認(rèn)密碼輸入錯誤，請重新輸入")sle_3.text=""sle_4.text=""sle_1.setfocus()else update passemset password=:xmimawhere id=:id; if sqlca.sqlcode = 0 thenmessagebox("提示","密碼修改成功，請記好您新修改的密碼！")end ifend ifend ifend if if rb_2.checked and xmim

34、a<>"" then select password into :y_mima from pass where id=:id ; if y_mima<>ymima then messagebox("提示","您的原密碼錯誤，請重新輸入！") else if xmima<>qmima thenmessagebox("提示","確認(rèn)密碼輸入錯誤，請重新輸入")sle_3.text=""sle_4.text=""sle_1.s

35、etfocus()else update passset password=:xmimawhere id=:id; if sqlca.sqlcode = 0 thenmessagebox("提示","密碼修改成功，請記好您新修改的密碼！")end ifend ifend ifend if4.6主管部門管理修改雇員信息創(chuàng)建名為lr_increase1的datawindow:在從屬部門列懸掛“dd_part”數(shù)據(jù)窗口如下設(shè)置此數(shù)據(jù)窗口：在職務(wù)列懸掛xs_duty1數(shù)據(jù)窗口，次窗口的設(shè)置如下：“登陸”按鈕的代碼：string lr_id,lr_mima,dl_

36、id,dl_mima,depidint ilr_id = trim(sle_1.text)lr_mima=trim(sle_2.text)select count(*)into :i from passwhere id=:lr_idusing sqlca;if i<1 thenmessagebox("對不起","該用戶不存在！")sle_1.text = ""sle_2.text = ""sle_1.setfocus()returnend ifselect password,partinto :dl_mima

37、,:depidfrom passwhere id=:lr_id;if dl_mima<>lr_mima thenmessagebox("提示","對不起，您輸入的密碼錯誤！請重新輸入。")else dw_1.retrieve(depid)end if數(shù)據(jù)窗口dw_1下得代碼是：“更新”按鈕下的代碼是：int i_counti_count=dw_1.modifiedcount()if i_count>0 thenif dw_1.update()=1 thencommit using sqlca;messagebox("提示&qu

38、ot;,"您已經(jīng)成功保存"+string(i_count)+"條數(shù)據(jù)")else rollback using sqlca;messagebox("提示","數(shù)據(jù)保存失敗")end if end if增加刪除雇員dw_1數(shù)據(jù)窗口的創(chuàng)建同“修改雇員信息”窗口所創(chuàng)建名為lr_increase1的datawindow一樣.dw_2（用于修改密碼表中的信息）的創(chuàng)建如下：“登陸”按鈕下的代碼是:string lr_id,lr_mima,dl_id,dl_mima,partidint ilr_id = trim(sle_1.t

39、ext)lr_mima=trim(sle_2.text)select count(*)into :i from passwhere id=:lr_idusing sqlca;if i<1 thenmessagebox("對不起","該用戶不存在！")sle_1.text = ""sle_2.text = ""sle_1.setfocus()returnend ifselect password,partinto :dl_mima,:partidfrom passwhere id=:lr_id;if dl_mi

40、ma<>lr_mima thenmessagebox("提示","對不起，您輸入的密碼錯誤！請重新輸入。")else dw_1.retrieve(partid)cb_4.enabled = truecb_5.enabled=truecb_6.enabled=trueend if數(shù)據(jù)窗口dw_1下的代碼是：“刪除”按鈕下的代碼是：int i,jstring dwj=dw_1.getrow()dw=dw_1.getitemstring(j,"id")dw_2.retrieve(dw)i=messagebox("提示&

41、quot;,"您真的要刪除該記錄嗎？",question!,yesnocancel!,3)if i=1 thendw_2.deleterow(0)dw_1.deleterow(0)“添加”按鈕下的代碼是：string dwtjint ii=dw_1.rowcount()dw_1.insertrow(i+1)dw_1.setcolumn("id")dw_1.scrolltorow(i+1)dw_1.setfocus()“更新”按鈕下的代碼是：int i_count,j_counti_count=dw_1.modifiedcount()j_count=dw_

42、1.deletedcount()if i_count>0 or j_count >0 thenif dw_1.update()=1 and dw_2.update()=1 thencommit using sqlca;messagebox("提示","您已經(jīng)成功添加"+string(i_count)+"條數(shù)據(jù)，新添加的雇員登陸密碼為“0000”！")else rollback using sqlca;messagebox("提示","數(shù)據(jù)保存失敗")end if end if4.7人

43、事管理窗口雇員增刪在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(sle_1.text)lr_mima=trim(sle_2.text)if lr_id<>"0210101" thenmessagebox("提示","只有人事部主管有此權(quán)限可以添加和刪除雇員!")else /if lr_id="0210101" then select password into :dl_mima from pass where id='0210101' if dl_m