?? 確定.txt
字號:
1.確定
string ls_operator_id,ls_operator_name,ls_password,ls_permission
string ls_getpassword
ls_operator_id=sle_operator_id.text
select"operator"."operator_name","operator"."password",
"operator"."permission"
into:ls_operator_name,:ls_password,:ls_permission
from "operator"
where"operator"."operator_id"=:ls_operator_id;
if sqlca.sqlcode<>0 then
sle_operator_name.text="沒找到!"
sle_operator_id.text=""
sle_password.text=""
sle_operator_id.setfocus()
return
end if
sle_operator_name.text=ls_operator_name
ls_getpassword=trim(sle_password.text)
ls_password=trim(ls_password)
if len(ls_password)=0 then ls_password=space(10)
if len(ls_getpassword)=0 or isnull(ls_getpassword) then
ls_getpassword=space(10)
end if
if ls_getpassword<>ls_password then
messagebox("警告","口令錯誤!")
sle_password.text=""
sle_password.setfocus()
return
end if
//close (parent)
gs_operator_id=ls_operator_id
gs_operator_name=ls_operator_name
gs_password=ls_password
gs_permission=ls_permission
if gs_loginparm="First" then //若是第一次登陸,則打開主窗口
open(w_main) //若重新登陸, 則不打開主窗口
end if
close (parent)
//open(w_main)
//判斷操作權限,11-系統級 其他-用戶級
/*if gs_permission="11" then
m_main.m_score.m_score_input.enabled=true
m_main.m_student.m_student_input.enabled=true
m_main.m_course.m_course_set.enable=ture
m_main.m_course_m_course_sel.enable=true
m_main.m_system.m_system_operator.enable=ture
else
m_main.m_score.m_score_input.enabled=false
m_main.m_student.m_student_input.enabled=false
m_main.m_course.m_course_set.enabled=false
m_main.m_course.m_course_sel.enabled=false
m_main.m_system.m_system_operator.enable=false
end if*/
2.w_student_input
if dwo.name="b_save" then
dw_student.update()//更新表數據,即將數據窗口控件中的數據保存到數據庫中
if sqlca.sqlcode<>0 then
rollback;
messagebox("操作非法!","無法保存!")
return
else
commit;
messagebox("系統提示","信息保存成功!")
return
end if
end if
if dwo.name="b_exit" then
close(parent)
end if
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -