陈赫1.txt

着 是 学生管理系统的代码

窗口的OPEN事件代码：
gs_loginparm=message.stringparm//保存传递过来的参数
“操作员编号”文本框（sle_operator_id)的modified事件代码:
string ls_operator_id
ls_operator_id=sle_operator_id.text
select"operator"."operator_name"
  into:gs_operator_name
  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=""
    return
    end if
    sle_operator_name.text=gs_operator_name   
    "确定”按钮(cb_ok)的clicked事件代码：
    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=Is_operator_name
    Is_getpassword=trim(sle_password.text)
    Is_password=trim(Is_password)
    if len(Is_password)=0 then Is_password=space(10)
    if len(Is_getpassword)=0 or isnull(Is_getpassword)  then
       Is_getpassword=space(10)
    end if
   if Is_getpassword< >Is_password then
       messagebox(“警告”、“口令错误！”） 
      
       sle_password.tex=“”
       sle_password.setfocus()
       return
       end if
   en if
   close (parent)
   gs_operator_id=Is_operator_id 
   gs_operator_id=is_operator_name
   gs_password=Is_password
   gs_permission=Is_permission
   if gs_loginparm="First" then //若是第一次登陆，则打开主窗口
      open(w_main)  /若重新登陆， 则不打开主窗口
   end if 
   //判断操作权限，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
    "退出"按钮(cb_exit)的Clicked事件代码
   close(parent)