【正文】 en (0) (0) “添加”按鈕下的代碼是： string dwtj int i i=() (i+1) (id) (i+1) () 30 “更新”按鈕下的代碼是： int i_count,j_count i_count=() j_count=() if i_count0 or j_count 0 then if ()=1 and ()=1 then mit using sqlca。 if i1 then messagebox(對不起 ,該用戶不存在！ ) = = () return end if select password into :xs_mima from passem where id=:cxeid。在該應(yīng)用的 open 事件中添加如下腳本，用于鏈接數(shù)據(jù)庫，打開運(yùn)行主窗口。 主管管理本部門雇員模塊：部門主管僅可以修改本部門的成員信息和添加、刪除本部門的雇員，沒有權(quán)限干涉其他的部門。為更近一步完善次系統(tǒng)，設(shè)置了密碼和權(quán)限。 要求： 本課程設(shè)計(jì)要求學(xué)生獨(dú)立設(shè)計(jì)完成。 檔案查詢。 （ 5）使用默認(rèn)的用戶 UserID 項(xiàng)“ dba”和默認(rèn)的口令 Password 項(xiàng)“ sql”，單擊 ok 按鈕，就可以創(chuàng)建一個(gè) ASA 數(shù)據(jù)庫 humenresource，同時(shí) ，系統(tǒng)自動(dòng)的為數(shù)據(jù)庫配置了 ODBC 和 DB Profile，并且已經(jīng)到新建的數(shù)據(jù)庫。 if dl_mima1 lr_mima and dl_mima2lr_mima then messagebox(對不起 ,密碼錯(cuò)！ ) = () return end if open(wstart) close(parent) “退出”按鈕的代碼 close(parent) 組織結(jié)構(gòu)圖窗口 11 核心代碼 首先創(chuàng)建 treeview 所需的 datawindow infor_depart xx_duty1 OPEN 事件代碼： datastore dt_dept,dt_duty long ll_root,ll_hd_lv1 integer li_deptt,li_dutyt,i,j string ls_deptid,ls_deptname,ls_dutyid,ls_dutyname string ls_temp dt_dept = create datastore//創(chuàng)建數(shù)據(jù)存儲(chǔ)對象 = infor_depart (sqlca) () dt_duty = create datastore = xs_duty1 (sqlca) () //如是寫在窗口的 open()事件，此段代碼可省略。 if i1 then messagebox(對不起 ,該用戶不存在！ ) = = () return end if select password,part into :dl_mima,:depid 26 from pass where id=:lr_id。 dw_1 下的代碼為： 35 統(tǒng)計(jì)圖窗口 現(xiàn)狀 創(chuàng)建 graph 形式的 datawindow。 (sqlca) (bumenid) 主界面運(yùn)行窗口 38 程序設(shè)計(jì)方法課程設(shè)計(jì)評分表 程序設(shè)計(jì)方法課程設(shè)計(jì)評分表 評分項(xiàng)目 具 體 要 求 分值 評 分 選題質(zhì)量 選題符合要求，體現(xiàn)綜合訓(xùn)練基本要求；題 目難易適 度。 ) else (depid) end if 數(shù)據(jù)窗口 dw_1 下得代碼是： “更新”按鈕下的代碼是： int i_count i_count=() if i_count0 then if ()=1 then mit using sqlca。 ll_root = (0,部門信息 ,1) 12 li_deptt = ()//得到部門個(gè)數(shù) for i = 1 to li_deptt ls_deptid = (i,depart_id) ls_deptname = (i,depart_name) ls_temp = ls_deptid + + ls_deptname ll_hd_lv1 = (ll_root,ls_temp,1) () (ls_deptid)//為所建數(shù)據(jù)窗口中聲明的參數(shù) li_dutyt = ()//得到該部門下屬職務(wù) for j = 1 to li_dutyt ls_dutyid = (j,duty_id) ls_dutyname = (j,duty_name) ls_temp = ls_dutyid + + ls_dutyname (ll_hd_lv1,ls_temp,2) next next (ll_root) (true) 組織結(jié)構(gòu)窗口 首先創(chuàng)建 treeview 所需的 datawindow infor_depart（同上） Infor_major 13 Infor_employee 14 Infor_employee_one Open 事件代碼 datastore dt_dept,dt_duty,dt_maj,dt_emp long ll_root,ll_hd_lv1 integer li_deptt,li_empt,i,j string ls_deptid,ls_deptname,ls_majid,ls_majname,ls_empid,ls_empname string ls_temp dt_dept = create datastore//創(chuàng)建數(shù)據(jù)存儲(chǔ)對象 = infor_depart (sqlca) () dt_maj = create datastore = infor_major (sqlca) () dt_emp = create datastore = infor_employee (sqlca) () //如是寫在窗口的 open()事件，此段代碼可省略。 ： （ 1）展開數(shù)據(jù)庫目錄，選中“ Tables”，單擊鼠標(biāo)右鍵，在彈出的選單中單擊“ New Tables”，就會(huì)出現(xiàn)表的設(shè)計(jì)子窗口。 2 1． 4 系統(tǒng)功能模塊介紹 組織結(jié)構(gòu)查看模塊：幫助公司內(nèi)部人員很快的了解公司規(guī)模、公司的組織構(gòu)架、公司管理層人員情況、以及其他員工的個(gè)人基本情況。 數(shù)據(jù)庫中不能少于 3 個(gè)表。 具有對公司組織信息和公司組織構(gòu)架的查看功能； 具有員工和主管信息的各種形式的查詢功能； 具有員工信息的添加、刪除，修改等功能； 具有部門主管管理本部門雇員信息的功能； 具有人事部主管管理公司內(nèi)部人力資源的功能； 具有公司現(xiàn)狀查看和評估的統(tǒng)計(jì)圖功能。首先必須輸入密碼才能進(jìn)修修改，而且主管只能