📄 employee.prg

📁 一个相当不错的BS结构学习源码
💻 PRG
📖 第 1 页 / 共 4 页
字号:
上一页 1 2 34

             TheMessage = allt("【"+ allt(Pm2) +"】的个人信息修改成功")

          if allt(u1) = allt(Pm1)
             TheMessage = allt(TheMessage+"，如果更新了口令，请重新登录")
          endif

 		IF !USED('departments')          && 部门数据
		     USE departments IN 0
		ENDIF
		sele departments
                go top
                  Do while not EOF()
                       TEXT TO cDepart0 TEXTMERGE noshow
                           <option value=##department##>##department##</option>
                       ENDTEXT
                       cDepart = cDepart + cDepart0
                  skip
                  Enddo
                use

TEXT TO cResult TEXTMERGE noshow
   <HTML><HEAD><TITLE>管理员修改某个员工信息</TITLE>
   <META NAME="Generator" CONTENT="NetObjects Fusion 2.0.2 for Windows"></HEAD>
   <BODY BGCOLOR=""><table width=760 border=0 bgcolor=#164DA8 cellspacing=1 cellpadding=2 align=center>
   <tr bgcolor=white><td valign=center ><img src="image/ASPLogo3.jpg" width=730 height=56></td></tr></table>
   <table width="760" border="0" bordercolor="#164DA8" align="center" cellpadding="0" cellspacing="0">
   <tr><td height="13"><img src="image/banner2.jpg" width="758" height="12"></td></tr></table><br>
   <table width=760 border=0 bgcolor=#164DA8 cellspacing=1 cellpadding=2 align=center>
   <tr><td colspan=3><font color=white><P ALIGN="CENTER">员工信息查询->系统管理员选项->修改某个员工信息&nbsp[当前用户-##xm##]</font></td></tr>
   <tr bgcolor=white>
   <td><a href="index.asp"><font color="#164DA8">返回到登录页面</font></a></td>
   <td align=center> <font color="#164DA8" >##TheMessage##</FONT></td>
   <td align=right><a href="javascript:history.back()"><font color="#164DA8">返回上一级网页</font></a></td></tr></table> 
   <table width="760" border="0" bordercolor="#164DA8" align="center" cellpadding="0" cellspacing="0">
   <tr><td height="13"><img src="image\banner2.jpg" width="758" height="12"></td></tr></table>
   <table width="760" border="0" bordercolor="#164DA8" align="center" cellpadding="3" cellspacing="0"><tr><td><br>
   <FORM ACTION="ModifyUserInformation.asp"  METHOD=POST>     
   <TABLE CELLPADDING=1 CELLSPACING=1 BORDER=1 bordercolor="#164DA8" WIDTH=760 align=center>   
   <TR VALIGN="center" ALIGN="center">
   <TD WIDTH=30% bgcolor=#B5C7EF><img src="image\Employee.jpg"></td><td><br>
   <table CELLPADDING=0 CELLSPACING=1 BORDER=1 align=center width=100%>
   <tr><td width=25%><font color="#164DA8">&nbsp登录名</font></td><td>##Pm1##</td></tr>
   <tr><td width=25%><font color="#164DA8">&nbsp姓名</font></td><td><INPUT TYPE="text" NAME="UsrName" VALUE=##Pm2## SIZE=51 MAXLENGTH=5 >&nbsp*</td></tr>
   <tr><td width=25%><font color="#164DA8">&nbsp部门</font></td>
   <td><SELECT NAME="DepartName" size=1 width=10>
   <option value=##Pm3##>##Pm3##</option>
ENDTEXT
TEXT TO cResult1 TEXTMERGE noshow
   </SELECT>&nbsp*</td></tr>
   <tr><td width=25%><font color="#164DA8">&nbsp内线电话</font></td><td><INPUT TYPE="text" NAME="TELIN" VALUE=##Pm4## SIZE=51 MAXLENGTH=3 >&nbsp*</td></tr>
   <tr><td width=25%><font color="#164DA8">&nbsp外线电话</font></td><td><INPUT TYPE="text" NAME="TELOUT" VALUE=##Pm5## SIZE=51 MAXLENGTH=7 >&nbsp*</td></tr>
   <tr><td width=25%><font color="#164DA8">&nbsp个人电话</font></td><td><INPUT TYPE="text" NAME="TELE" VALUE=##Pm6## SIZE=51 MAXLENGTH=20 >&nbsp*</td></tr>
   <tr><td width=25%><font color="#164DA8">&nbspQQ号</font></td><td><INPUT TYPE="text" NAME="QQ" VALUE=##Pm7## SIZE=51 MAXLENGTH=15 >&nbsp*</td></tr>
   <tr><td width=25%><font color="#164DA8">&nbsp电子邮箱</font></td><td><INPUT TYPE="text" NAME="EDRESS" VALUE=##Pm8## SIZE=51 MAXLENGTH=30 >&nbsp*</td></tr>
   <tr><td width=25%><font color="#164DA8">&nbsp口令(1--8字符)</font></td><td><INPUT TYPE="password" NAME="Pw" VALUE=##Pm9## SIZE=51 MAXLENGTH=8 >&nbsp*</td></tr>
   <tr><td width=25%><font color="#164DA8">&nbsp权限</font></td><td><INPUT TYPE="text" NAME="Qx" VALUE=##Pm10## SIZE=51 MAXLENGTH=20 >&nbsp*</td></tr>
   </table><br></td></TR></table>
   <TABLE CELLPADDING=0 CELLSPACING=0 BORDER=1 WIDTH=760 align=center>
   <TR VALIGN="top" ALIGN="center"><TD WIDTH=100% align=center >
   <INPUT TYPE="submit" NAME="ModUsrInfo" VALUE="确认修改此用户信息" style="border: 1px solid #3466BB; background-color: #B6CAEB; color: #3466BB">
   </TD></TR></table></FORM></body></html>
ENDTEXT
    cResult = cResult + cDepart + cResult1

else
    use
    cResult = this.dlcw()
endif
    RETURN cResult
ENDFUNC
***********************************************************************************************
   FUNCTION AddUsr(u1 as string, P1 as String, Pm1 as string) as String
	SET TEXTMERGE DELIMITERS TO "##","##"
	LOCAL cResult as String, cResult1 as String, cDepart as String, cDepart0 as String, xm
           cDepart  = ""

		IF !USED('departments')          && 部门数据
		     USE departments IN 0
		ENDIF
		sele departments
                go top
                  Do while not EOF()
                       TEXT TO cDepart0 TEXTMERGE noshow
                           <option value=##department##>##department##</option>
                       ENDTEXT
                       cDepart = cDepart + cDepart0
                  skip
                  Enddo
                use

   IF !USED('userinfo')
       USE userinfo IN 0
   ENDIF
   sele userinfo
   go top
      LOCATE FOR allt(user_id)==ALLT(u1) and ALLT(pass_word)==ALLT(p1)       &&  查询登录人员
if found()
      xm = allt(user_name)
   use

TEXT TO cResult TEXTMERGE noshow
   <HTML><HEAD><TITLE>管理员修改某个员工信息</TITLE>
   <META NAME="Generator" CONTENT="NetObjects Fusion 2.0.2 for Windows"></HEAD>
   <BODY BGCOLOR=""><table width=760 border=0 bgcolor=#164DA8 cellspacing=1 cellpadding=2 align=center>
   <tr bgcolor=white><td valign=center ><img src="image/ASPLogo3.jpg" width=730 height=56></td></tr></table>
   <table width="760" border="0" bordercolor="#164DA8" align="center" cellpadding="0" cellspacing="0">
   <tr><td height="13"><img src="image/banner2.jpg" width="758" height="12"></td></tr></table><br>
   <table width=760 border=0 bgcolor=#164DA8 cellspacing=1 cellpadding=2 align=center>
   <tr><td colspan=3><font color=white><P ALIGN="CENTER">员工信息查询->系统管理员选项->修改某个员工信息&nbsp[当前用户-##xm##]</font></td></tr>
   <tr bgcolor=white>
   <td><a href="index.asp"><font color="#164DA8">返回到登录页面</font></a></td>
   <td align=center> <font color="#164DA8" >##Pm1##</FONT></td>
   <td align=right><a href="javascript:history.back()"><font color="#164DA8">返回上一级网页</font></a></td></tr></table> 
   <table width="760" border="0" bordercolor="#164DA8" align="center" cellpadding="0" cellspacing="0">
   <tr><td height="13"><img src="image\banner2.jpg" width="758" height="12"></td></tr></table>
   <table width="760" border="0" bordercolor="#164DA8" align="center" cellpadding="3" cellspacing="0"><tr><td><br>
   <FORM ACTION="AddNewUser.asp"  METHOD=POST>     
   <TABLE CELLPADDING=1 CELLSPACING=1 BORDER=1 bordercolor="#164DA8" WIDTH=760 align=center>   
   <TR VALIGN="center" ALIGN="center">
   <TD WIDTH=30% bgcolor=#B5C7EF><img src="image\Employee.jpg"></td><td><br>
   <table CELLPADDING=0 CELLSPACING=1 BORDER=1 align=center width=100%>
   <tr><td width=25%><font color="#164DA8">&nbsp登录名</font></td><td><INPUT TYPE="text" NAME="UsrID" VALUE="" SIZE=51 MAXLENGTH=3 >&nbsp*</td></tr>
   <tr><td width=25%><font color="#164DA8">&nbsp姓名</font></td><td><INPUT TYPE="text" NAME="UsrName" VALUE="" SIZE=51 MAXLENGTH=5 >&nbsp*</td></tr>
   <tr><td width=25%><font color="#164DA8">&nbsp部门</font></td>
   <td><SELECT NAME="DepartName" size=1 width=10>
ENDTEXT
TEXT TO cResult1 TEXTMERGE noshow
   </SELECT>&nbsp*</td></tr>
   <tr><td width=25%><font color="#164DA8">&nbsp内线电话</font></td><td><INPUT TYPE="text" NAME="TELIN" VALUE="" SIZE=51 MAXLENGTH=3 >&nbsp*</td></tr>
   <tr><td width=25%><font color="#164DA8">&nbsp外线电话</font></td><td><INPUT TYPE="text" NAME="TELOUT" VALUE="" SIZE=51 MAXLENGTH=7 >&nbsp*</td></tr>
   <tr><td width=25%><font color="#164DA8">&nbsp个人电话</font></td><td><INPUT TYPE="text" NAME="TELE" VALUE="" SIZE=51 MAXLENGTH=20 >&nbsp*</td></tr>
   <tr><td width=25%><font color="#164DA8">&nbspQQ号</font></td><td><INPUT TYPE="text" NAME="QQ" VALUE="" SIZE=51 MAXLENGTH=15 >&nbsp*</td></tr>
   <tr><td width=25%><font color="#164DA8">&nbsp电子邮箱</font></td><td><INPUT TYPE="text" NAME="EDRESS" VALUE="" SIZE=51 MAXLENGTH=30 >&nbsp*</td></tr>
   <tr><td width=25%><font color="#164DA8">&nbsp口令(1--8字符)</font></td><td><INPUT TYPE="password" NAME="Pw" VALUE="" SIZE=51 MAXLENGTH=8 >&nbsp*</td></tr>
   <tr><td width=25%><font color="#164DA8">&nbsp权限</font></td><td><INPUT TYPE="text" NAME="Qx" VALUE="" SIZE=51 MAXLENGTH=20 >&nbsp*</td></tr>
   </table><br></td></TR></table>
   <TABLE CELLPADDING=0 CELLSPACING=0 BORDER=1 WIDTH=760 align=center>
   <TR VALIGN="top" ALIGN="center"><TD WIDTH=100% align=center >
   <INPUT TYPE="submit" NAME="ModUsrInfo" VALUE="确认添加的新用户信息" style="border: 1px solid #3466BB; background-color: #B6CAEB; color: #3466BB">
   </TD></TR></table></FORM></body></html>
ENDTEXT
    cResult = cResult + cDepart + cResult1
else
  use
    cResult = this.dlcw()
endif

    RETURN cResult
ENDFUNC
**********************************************************************************************************
 FUNCTION AddUsrProc(u1 as string, p1 as string,Pm1 as String,Pm2 as String,Pm3 as String,Pm4 as String,Pm5 as String,Pm6 as String,Pm7 as String,Pm8 as String,Pm9 as String,Pm10 as String) as String
	SET TEXTMERGE DELIMITERS TO "##","##"
        SET DELETED ON
	LOCAL cResult as String 

LenAll = len(allt(Pm1))*len(allt(Pm2))*len(allt(Pm3))*len(allt(Pm4))*len(allt(Pm5))*len(allt(Pm6))*len(allt(Pm7))*len(allt(Pm8))*len(allt(Pm9))*len(allt(Pm10))

	IF !USED('userinfo')
	    USE userinfo IN 0
	ENDIF
	sele userinfo
        go top
        LOCATE FOR allt(user_id)==ALLT(Pm1)
            if found()
               TheMessage = "登录名【"+allt(Pm1)+"】已经分配给【"+allt(user_name)+"】，不能重复，请在下面继续"
                  cResult = this.AddUsr(u1,p1,TheMessage)
               use
            else
                 if LenAll = 0
                    use
                    cResult = this.dlcw()
                 else
                    go top
                    LOCATE FOR allt(user_id)==ALLT(u1) and ALLT(pass_word)==ALLT(p1)
                    appe blan
                    go bott
                    repl  user_id with allt(Pm1),user_name with allt(Pm2),department with allt(Pm3),;
                          telinside with allt(Pm4),teloutside with allt(Pm5),telephone with allt(Pm6),;
                          qq with allt(Pm7),EMAILDRESS with allt(Pm8),pass_word with allt(Pm9),user_power with allt(Pm10)
                    use
                    TheMessage = "登录名为【"+allt(Pm1)+"】，姓名为【"+allt(Pm2)+"】的员工信息添加成功，可以继续"
                    cResult = this.AddUsr(u1,p1,TheMessage)
                 endif
            endif

      IF !USED('userinfo')
           USE userinfo IN 0
      ENDIF
	sele userinfo
        go top
        LOCATE FOR allt(user_id)==ALLT(u1) and ALLT(pass_word)==ALLT(p1)       &&  查询登录人员
      if !found()
          cResult = this.dlcw()
      endif
      use

  RETURN cResult
  ENDFUNC
**********************************************************************************************************
    HIDDEN FUNCTION dlcw() as String              &&  出错网页函数，外部不可见
    LOCAL cResult
    TEXT TO cResult TEXTMERGE noshow
	<html>
	<head></head>
	<body>
	<p align="center"><font color="#FF0000" size="6">本次操作失败！</font></p>
	<p></p>
	<p align="left"><font color="#FF00FF">原因可能是：</font></p>
	<ul>
	<li><p style="line-height: 160%"><font color="#FF00FF">您没有输入所有必须输入的数据</font></li>
	<li><p style="line-height: 160%"><font color="#FF00FF">您没有选择必须选择的项目</font></li>
	<li><p style="line-height: 160%"><font color="#FF00FF">数据库出错或链结错误</font></li>
	<li><p style="line-height: 160%"><font color="#FF00FF">您没有该项操作的权限</font></li>
	<li><p style="line-height: 160%"><font color="#FF00FF">会话超时，请重新登录</font></li>
	<li><p style="line-height: 160%"><font color="#FF00FF">您没有正常登录系统</font></li>
	<li><p style="line-height: 160%"><font color="#FF00FF">服务器未启动或出错</font></li>
	<li><p style="line-height: 160%"><font color="#FF00FF">找不到相应的页面</font></li>
	</ul>
	<p></p>
	<p align="center"><font color="#FF00FF">如果重新登录，请注意用户名及口令的大小写！</font></p>
	<p></p><p></p>
	<div align="center"><a href="javascript:history.back()">返回上一页面</a>&nbsp&nbsp&nbsp&nbsp<a href="index.asp">返回登录页面</a></div>
	</body>
	</html>
     ENDTEXT

    RETURN cResult
ENDFUNC
**************************************************************************************

ENDDEFINE
上一页 1 2 34
💿 文件大小 231 K
👤 上传用户 ZOUTING
📂 所属分类书籍源码
🏷️ 相关标签

#BS结构 #源码
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -