确定.txt

pb开发学生成绩管理系统代码

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