connect;
open(w_login)
2、模式选择窗口的登录按钮程序
if rb_admin.checked=true then
nType=1
else
if rb_user.checked=true then
nType=2
else
messagebox("提示","请选择用户类型！")
return
end if
end if
open(w_main)
close(parent)
3、登录窗口的登录按钮程序
int mess_flag //登录错误标志
int user_type=0 ,re_num //用户类型,符合条件的记录数
string ls_user,ls_pwd,yh_mc,yh_kl
integer li_id
yh_mc=sle_1.text
yh_kl=sle_2.text
if sle_1.text<>"" then
select "workermessage"."password",
"workermessage"."qx"
into :ls_pwd,
:li_id
from "workermessage" where "workermessage"."workernumber"=:yh_mc;
else
messagebox("提示","用户名不能为空")
return
end if
if sle_2.text=ls_pwd and li_id=nType then
open(w_zhuchuangkou)
if nType=2 then
end if
else
messagebox("提示","用户名或口令不正确！请重新登录！")
return
end if
close(parent)
4、主窗口的程序代码
if nType=2 then
m_main.m_systemoperate.visible=false
m_main.m_houseresouce.visible=false
m_main.m_sold.visible=false
m_main.m_feemanage.visible=false
m_main.m_tongjifenxi.visible=false
m_main.m_customermessage.visible=false
m_main.m_peoplemessage.visible=false
end if
5、系统操作日志窗口的修改模式按钮的代码
dw_1.Enabled=True
cb_add.enabled=true //开启修改功能,此时添加,删除记录可用,可保存记录
cb_delete.enabled=true
cb_save_change.enabled=true
cb_cancel_change.enabled=true
cb_save_quit.enabled=true
6、系统操作日志窗口的添加系统操作信息按钮的代码
Integer li_Row //行标志，指示插入到的行
cb_r_mode.enabled=false
//设置按钮功效，可读，可写，启用保存、取消修改和“保存并退出”功能
cb_w_mode.enabled=false
cb_save_change.enabled=true
cb_cancel_change.enabled=true
www.youerw.com
dw_1.Setfocus() //插入一条空行记录，以待修改
li_Row=dw_1.InsertRow(0)
dw_1.ScrollToRow(li_Row) //滚动到指定行
cb_save_change.setfocus( )
7、系统操作日志窗口的删除信息按钮的代码
integer mess_flag,mess_flag_se
cb_r_mode.enabled=false
//设置按钮功效，可读，可写，启用保存、取消修改和“保存并退出”功能
cb_w_mode.enabled=false
cb_save_change.enabled=true
cb_cancel_change.enabled=true
cb_save_quit.enabled=true
mess_flag=MessageBox("警告：","当前的房屋信息将要被删除！",Question!,YesNo!,2)
//删除当前光标所在行
if mess_flag = 1 then
mess_flag_se=messagebox("警告：","您确信要删除这条记录吗?",question!,yesno!,2)
if mess_flag_se=1 then
dw_1.DeleteRow(0)
end if
end ifcb_cancel_change.setfocus( )
<< 上一页 [11] [12] [13] [14] [15] [16] [17] [18] [19] [20] ... 下一页 >>