评价网 > 科教论文 > 工学毕业论文 > 计算机论文 > 正文

《企业人事信息管理系统》(一)毕业论文(3)

2013-05-28 01:40 03.2

 

9  附录：主要程序代码
（1）Profile程序
// Profile renshi
SQLCA.DBMS = "ODBC"
SQLCA.AutoCommit = False
SQLCA.DBParm = "ConnectString='DSN=renshi;UID=;PWD='"
connect;
open(w_welcome)
sleep(1)
if sqlca.sqlcode<>0 then
 messagebox("错误","数据库连接错误，经检查后重试！",stopsign!)
 close(w_welcome)
 return
end if
close(w_welcome)
openwithparm(w_11,"First")

（2）全局变量
String gs_operator_id
String gs_operator_name
String gs_password
String gs_permission
String gs_loginparm
string ls_text
（3）登陆窗口sle_1代码
String ls_1
ls_1=sle_1.text
select"h_operator"."operator_name"
  into :gs_operator_name
  from "h_operator"
  where "h_operator"."operator_id"=:ls_1;
 if sqlca.sqlcode<>0 then
 sle_3.text="没找到!"
 sle_1.text=""
 sle_2.text=""
 return
end if
sle_3.text=gs_operator_name
（4）登陆窗口cb_ok代码
string password,operatorid
operatorid=trim(sle_1.text)
password=trim(sle_2.text)
select operator_id,operator_name into :gs_operator_id,:gs_operator_name from h_operator
where operator_id =:operatorid and password =: password and permission=:ls_text using sqlca;
if sqlca.sqlcode=0 then
  messagebox("登陆成功","欢迎登陆企业人事管理系统")
  if ls_text="管理" then
 open(w_main1)
else
   open(w_main)
     m_main.m_peixun.m_peixun_input.enabled=false
   m_main.m_yuangong.m_yuangong_input.enabled=false
   m_main.m_yuangong.m_kaohe.enabled=false
   m_main.m_bumen.m_bumen_input.enabled=false
   m_main.m_system.m_system_operator.enabled=false

   m_main.m_biandong.m_biandong_xinjin.enabled=false
   m_main.m_biandong.m_biandong_lizhi.enabled=false
  end if
  close(parent)
else
  messagebox("警告","密码错误",exclamation!)
  sle_1.setfocus()
  sle_1.text=''
  sle_2.text=''
 end if
（5）信息添加cb_add代码(其他信息添加菜单中的代码类似，在此就不再赘述了)
long ll_currentrow
ll_currentrow=dw_bumen.insertrow(0)
dw_bumen.scrolltorow(ll_currentrow)
dw_bumen.setrow(ll_currentrow)
dw_bumen.setfocus()

（6）信息删除 cb_delete代码(其他信息删除的代码类似，在此就不再赘述了)
int li_select
li_select=messagebox("提示","确实要删除吗",exclamation!,yesno!)
if li_select=1 then
 dw_bumen.deleterow(0)
end if

（7）信息保存cb_save代码(其他信息保存的代码类似，在此就不再赘述了)
dw_bumen.update()
if sqlca.sqlcode<>0 then
 rollback;
 messagebox("错误","存储错误")
 return
else
 commit;
end if

（8）退出cb_exit代码(其他退出按钮的代码类似，在此就不再赘述了)
if dwo.name="b_exit"then
 close(parent)
end if

（9）查询cb_retrieve(其他查询按钮的代码类似，在此就不再赘述了)
long ll_rows
string ls_bno,ls_bname
if trim(sle_bno.text)="" and trim(sle_bname.text)="" then
 messagebox("提示","请输入员工号!")
 sle_bno.setfocus()
 return
end if
ls_bno=trim(sle_bno.text)
if len(ls_bno)>0 then
 dw_bumen_query.setfilter("bno='"+ls_bno+"'")
 dw_bumen_query.filter()
 ll_rows=dw_bumen_query.retrieve()
 if ll_rows=0 then
  messagebox("提示","无记录!")
  return

您可以访问中国科教评价网（www.NsEac.com）查看更多相关的文章。

 end if
 sle_bname.text=dw_bumen_query.object.bname[1]
&