【正文】 1 = emp_state_date searchwhat1 = elseif = 家庭住址 then searchkey1 = emp_homeadress searchwhat1 = + +elseif =聯(lián)系電話then searchkey1 = emp_telephone searchwhat1 = elseif = 銀行卡號(hào) then searchkey1 = emp_bankcard searchwhat1 = + +end if//查詢條件2if = 員工號(hào)then searchkey2 = emp_no searchwhat2 = elseif = 姓名then searchkey2 = emp_name searchwhat2 = + + elseif = 部門號(hào) then searchkey2 = dept_id searchwhat2 = elseif = 職位 then searchkey2 = job_id searchwhat2 = + +elseif =性別then searchkey2 = emp_gender searchwhat2 = elseif = 出生年月 then searchkey2 = emp_birthday searchwhat2 = + + elseif =籍貫then searchkey2 = emp_hometown searchwhat2 = elseif = 民族 then searchkey2 = emp_nation searchwhat2 = + +elseif =身份證號(hào)then searchkey2 = emp_id searchwhat2= elseif = 婚姻狀況 then searchkey2 = emp_marriage searchwhat2 = + +elseif =健康狀況then searchkey2 = emp_health searchwhat2 = elseif = 政治面貌 then searchkey2 = emp_zzmm searchwhat2 = + +elseif =入職時(shí)間then searchkey2 = emp_startwork searchwhat2 = elseif = 員工狀態(tài) then searchkey2 = emp_state searchwhat2 = + +elseif =狀態(tài)時(shí)間then searchkey2 = emp_state_date searchwhat2 = elseif = 家庭住址 then searchkey2 = emp_homeadress searchwhat2 = + +elseif =聯(lián)系電話then searchkey2 = emp_telephone searchwhat2 = elseif = 銀行卡號(hào) then searchkey2 = emp_bankcard searchwhat2 = + +end if//查詢條件3if = 員工號(hào)then searchkey3 = emp_no searchwhat3 = elseif = 姓名then searchkey3 = emp_name searchwhat3 = + + elseif = 部門號(hào) then searchkey3 = dept_id searchwhat3 = elseif = 職位 then searchkey3 = job_id searchwhat3 = + +elseif =性別then searchkey3 = emp_gender searchwhat3 = elseif = 出生年月 then searchkey3 = emp_birthday searchwhat3 = + +elseif =籍貫then searchkey3 = emp_hometown searchwhat3 = elseif = 民族 then searchkey3 = emp_nation searchwhat3 = + +elseif =身份證號(hào)then searchkey3 = emp_id searchwhat3= elseif = 婚姻狀況 then searchkey3 = emp_marriage searchwhat3 = + +elseif =健康狀況then searchkey3 = emp_healthsearchwhat3 = elseif = 政治面貌 then searchkey3 = emp_zzmm searchwhat3 = + +elseif =入職時(shí)間then searchkey3 = emp_startwork searchwhat3 = elseif = 員工狀態(tài) then searchkey3 = emp_state searchwhat3 = + +elseif =狀態(tài)時(shí)間then searchkey3 = emp_state_date searchwhat3 = elseif = 家庭住址 then searchkey3 = emp_homeadress searchwhat3 = + +elseif =聯(lián)系電話then searchkey3 = emp_telephone searchwhat3 = elseif = 銀行卡號(hào) then searchkey3 = emp_bankcard searchwhat3 = + +end if//查詢條件的綜合if = or = then //elseif = or = then // searchcondition = searchkey1 ++searchwhat2+elseif = or = then // searchcondition = searchkey1 + searchhow1 ++searchwhat1 ++searchoperator1 ++ searchkey2 +searchhow2 ++searchwhat2 +else // searchcondition = searchkey1 ++ searchwhat1 ++ searchoperator1 ++ searchkey2 + searchhow2 + + searchwhat2 ++ searchoperator2++ searchkey3 + searchhow3 ++ searchwhat3 + end if (lookforcondition)filter(dw_infor_search)//()附錄13 工資生成窗口“月份選擇”下拉列表控件clicked事件程序：int job_idint job_pay//string subsidy_date,subsidy_typeint subsidy,subsidy_daynumberint attendancelong attendance_daynumberstring attendance_type//int med_pay,med_safe//int month_total//string emp_no////string pay_datedate pay_date//pay_date = date( + )//declare emp_no_all cursor forselect , from t_emp_information_basic。//open emp_no_all。//fetch emp_no_all into : emp_no,: job_id。//do while = 0 // select into: job_pay from t_wage_level where =: job_id。 select , into :subsidy_daynumber , :subsidy from t_subsidy where = :emp_no amp。 and = :pay_date。 if subsidy_type = 1then subsidy = subsidy_daynumber*100 elseif subsidy_type = 2 then subsidy = subsidy_daynumber*200 elseif subsidy_type = 3 then subsidy = subsidy_daynumber*300 else subsidy = 0 end if select , into : med_pay, : med_safe from t_medicare where = :emp_no amp。and = :pay_date。 , into :attendance_daynumber, :attendance_type from t_attendance where = :emp_no amp。 and = :pay_date。 // if attendance_type = then attendance = 0 else attendance = attendance_daynumber*100 end if // month_total = job_pay + subsidy + med_pay med_safe attendance// insert into t_month_pay(emp_no,pay_date,base_pay,subsidy,med,insur,attendan,month_total) values(:emp_no,:pay_date,:job_pay,:subsidy,:med_pay,:med_safe,:attendance,:month_total)。 job_pay = 0 subsidy = 0 subsidy_type = subsidy_daynumber = 0 med_pay = 0 med_safe = 0 attendance_type = attendance = 0 attendance_daynumber = 0 // fetch emp_no_all into :emp_no , :job_id。loop//close emp_no_all。()