人事管理系統(tǒng)-引言(參考版)
2024-09-11 08:49本頁(yè)面
【正文】 其中數(shù)據(jù)窗口中導(dǎo)入的數(shù)據(jù)表為(d_basic、 ”d_marriage”、 ”d_job” ),代碼如下： w_lookfor_reportopen() string marriage_condition string job_condition string basic_condition string emp_no string job_id (sqlca) (sqlca) (sqlca) basic_condition=emp_no=++string(emp_no)+ (basic_condition) filter(dw_1) () marriage_condition=emp_no=++string(emp_no)+ (marriage_condition) filter(dw_2) () 30 job_condition=job_id=++string(job_id)+ (job_condition) filter(dw_3) () cb_1clicked() //打印 long job job=printopen() (job,10,10) printclose(job) cb_1clicked() //退出 close(w_lookfor_report) ******************************************************************* （七）、 打印窗口 (w_browse): 由一個(gè)靜態(tài)文本框 (Create StaticText control1）、一個(gè)數(shù)據(jù)窗口控件（“ Create DateWindow control)和三個(gè)按鈕（ CommandButton)組成。++39。++39。++39。++39。++39。++39。++39。++39。++39。++39。++39。++39。++39。++39。++39。++39。++39。++39。++39。++39。++39。++39。++39。++39。++39。++39。++39。++39。++39。++39。其中數(shù)據(jù)窗口中導(dǎo)入的數(shù)據(jù)表為(d_sxhool),代碼如下： cb_1clicked() //最前一條 (0) cb_2clicked() //前一條 integer row_current 24 row_current=() if row_current=1 then messagebox(警告 ,已經(jīng)是最前一條記錄 ) end if cb_3clicked() //后一條 integer row_count integer row_current row_current=() row_count=() if row_current=row_count then messagebox(警告 ,已經(jīng)是最后一條記錄 ) end if cb_4clicked() //最后一條 integer row_count row_count=() (row_count) cb_5clicked() //退出 close(w_browse_school) ******************************************************************* 條件查詢窗口（ w_lookfor）： 由五個(gè)靜態(tài)文本框 (Create StaticText control)、一個(gè)數(shù)據(jù)窗口控件（“ Create DateWindow control ）、 一 個(gè) 下 拉 式 文 本 框 (“Create DropDownListBox control”) 和 三 個(gè) 按 鈕（ CommandButton）組成。 close(w_weihu_dept) end if end if ******************************************************************* （六）、查看中的五個(gè)窗口基本相同只寫其中一個(gè)。 else rollback。 else rollback。 維護(hù)員工的部門信息窗口 (w_weihu_dept): 由一個(gè)靜態(tài)文本框 (Create StaticText control)、一個(gè)數(shù)據(jù)窗口控件（“ Create DateWindow control）和兩個(gè)按鈕（ CommandButton）組成。 messagebox(錯(cuò)誤?。?！ ,數(shù)據(jù)保存失敗 ) end if close(w_insert_basic) elseif updateornot=2 then rollback。 messagebox(錯(cuò)誤?。?！ ,數(shù)據(jù)保存失敗 ) end if cb_4clicked() //退出 int mcount int updateornot mcount=() if mcount=0 then close(w_insert_basic) elseif mcount0 then updateornot=messagebox(保存修改 ,您修改了數(shù)據(jù)窗口中的數(shù)據(jù)，現(xiàn)在是否保存？,Question!,YesNoCancel!) if updateornot=1 then if update(,true,false)=1 then () mit。其中數(shù)據(jù)窗口中導(dǎo)入的數(shù)據(jù)表為 (d_basic),代碼如下： w_insert_basicopen() (sqlca) () cb_1clicked() //插入 long row_number () row_number=insertrow(,0) cb_2clicked() //刪除 long current_rownumber current_rownumber=() deleterow(,current_rownumber) cb_3clicked() //確認(rèn) if update(,true,false)=1 then () mit。代碼如下： w_maintimer() str= if j=146 then j=0 21 else j=j+2 end if if j=120 then str=right(★歡迎進(jìn)入人事管理系統(tǒng)★ ,146 j) else for i=1 to 120 j str=str+ end for str=str+★歡迎進(jìn)入人事管理系統(tǒng)★ end if =str w_mainopen() timer(.2) DeclareGlobal Variables int i,j string str ******************************************************************* （四）、輸入中的五個(gè)窗口基本相同出只寫其中一個(gè)。 19 五、參考文獻(xiàn)： [1] 張長(zhǎng)富 李勻 PowerBuilder 開發(fā)人員指南 希望圖書創(chuàng)作室 1998 年 6 月 [2] 何軍 劉紅巖 PowerScript 語(yǔ)言、事件與函數(shù) 電子工業(yè)出版社 1999 年 9 月 [3] 劉增進(jìn) PowerBuilder 數(shù)據(jù)窗口技術(shù)詳解 電子工業(yè)出版社 2020 年 3 月 [4] 何旭洪 余建英 數(shù)據(jù)庫(kù)系統(tǒng)開發(fā)實(shí)例導(dǎo)航 人民郵電出版社 2020 年 4 月 [5]郭興成 數(shù)據(jù)庫(kù)教程 北京希望電子出版社 2020年 7月 20 六 、開發(fā)代碼 附錄：開發(fā)代碼如下所示： ******************************************************************* （一）、幫助中的 (w_about)窗口： 兩個(gè)多行文本框 (Create MultiLineEdit control1,Create MultiLineEdit control2),兩個(gè)靜態(tài)文本框 (Create StaticText control1,Create StaticText control ******************************************************************* （二）、登錄窗口 (w_login): 由三個(gè)靜態(tài)文本框 (Create StaticText control）、一個(gè)群組控件（“ Create GroupBox control)和兩個(gè)按鈕（ CommandButton)組成。設(shè)計(jì)中我遇到了許多困
公司管理相關(guān)推薦
鄂ICP備17016276號(hào)-1