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