⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 employee.prg

📁 一个相当不错的BS结构学习源码
💻 PRG
📖 第 1 页 / 共 4 页
字号:
🔍
1234 
     </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">VFP 狐狸办公信息管理系统(测试版)->员工信息管理系统->##TheMessage0##&nbsp[当前用户-##xm##]
     </font></td></tr>
     <tr bgcolor=white >
     <td><a href="index.asp"><font color="#104DAD">返回到登录网页</font></a></td>
     <td align=center> <font color="#104DAD" >##TheMessage##</FONT></td>
     <td align=right><a href="javascript:history.back()"><font color="#104DAD">返回上一级网页</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>
     <table width=100% border=0 bgcolor=#164DA8 cellspacing=1 cellpadding=2 align=center>
     <tr><td><font color=white><P ALIGN=CENTER>##TheMessage##</font></td></tr>
     <tr bgcolor=white ><td  align=center>
     <table width=100% bgcolor=#164DA8 border=0  cellspacing=1 cellpadding=2 align=center>
     <tr><td><font color=white>登录名</font></td>
     <td><font color=white>姓名</font></td>
     <td><font color=white>部门</font></td>
     <td><font color=white>内线</font></td>
     <td><font color=white>外线</font></td>
     <td><font color=white>个人电话</font></td>
     <td><font color=white>电子邮箱</font></td>
     <td><font color=white>QQ号</font></td></tr>
   ENDTEXT
   TEXT TO cHtmlEm1 TEXTMERGE noshow
          </table></td></tr></table>
          </td></tr></table>
          </body></html>
   ENDTEXT
  endif

     do case
        case allt(Pm1)="AllE" or allt(Pm1)="Departm" or allt(Pm1)="OneE"
             cHtml = cHtml + cHtmlEm + cHtmlEm1
        case allt(Pm1)="ModPer"
             cHtml = this.ModPerson(u1,p1)
        case allt(Pm1) = "Sysgl"
             cHtml = this.SystemEm(u1,p1,Pm7)
     otherwise
             cHtml = this.dlcw()
     endcase

   else
     use
     cHtml = this.dlcw()                                 &&  否则显示出错网页
   endif

  RETURN cHtml
  ENDFUNC                         
*****************************************************************************************************************
	HIDDEN FUNCTION ModPerson(u1 as string, p1 as string) as String
	SET TEXTMERGE DELIMITERS TO "##","##"              &&  新的文本合并分隔符为 ## ##
        SET DELETED ON

	LOCAL cResult as String, xm
              cResult = ""

		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)                                             &&  姓名
                   
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">VFP 狐狸办公信息管理系统(测试版)->员工信息管理系统->修改我的个人信息&nbsp[当前用户-##xm##]
    </font></td></tr>
    <tr bgcolor=white >
    <td><a href="index.asp"><font color="#104DAD">返回到登录网页</font></a></td>
    <td  align=center> <font color="#104DAD">【##xm##】修改个人信息</FONT></td>
    <td  align=right><a href="javascript:history.back()"><font color="#104DAD">返回上一级网页</font></a></td>
    </tr></table> 
    <table width="760" border="0" bordercolor="#164DA8" align="center" cellpadding="0" cellspacing="0">
    <tr> 
    <td height="10" colspan="4" valign="top" bgcolor="#FFFFFF"> 
    <table width="100%" border="0" height="13" cellspacing="0" cellpadding="0" mm_noconvert="TRUE">
    <tr><td height="13"><img src="IMAGE\banner2.jpg" width="760" height="12"></td></tr></table></td></tr></table><br>
    <FORM ACTION="ModifyPersonalInformation.asp" METHOD=POST>                            
    <TABLE CELLPADDING=1 CELLSPACING=1 BORDER=1 bordercolor="#164DA8" WIDTH=760 align=center>   
    <TR VALIGN="center" ALIGN="center">
    <TD WIDTH=40% bgcolor=#B5C7EF><P><img src="IMAGE\Employee.jpg"></td><td><br>
    <table CELLPADDING=0 CELLSPACING=1 BORDER=0 align=center width=100%>
    <tr><td width=25%><font color="#164DA8">&nbsp姓名</font></td><td><INPUT TYPE="text" NAME="UsrName" VALUE=##User_name## SIZE=41 MAXLENGTH=5 >&nbsp*</td></tr>
    <tr><td width=25%><font color="#164DA8">&nbsp内线电话</font></td><td><INPUT TYPE="text" NAME="TELIN" VALUE=##telinside## SIZE=41 MAXLENGTH=3 >&nbsp*</td></tr>
    <tr><td width=25%><font color="#164DA8">&nbsp外线电话</font></td><td><INPUT TYPE="text" NAME="TELOUT" VALUE=##teloutside## SIZE=41 MAXLENGTH=7 >&nbsp*</td></tr>
    <tr><td width=25%><font color="#164DA8">&nbsp个人电话</font></td><td><INPUT TYPE="text" NAME="TELE" VALUE=##telephone## SIZE=41 MAXLENGTH=20 >&nbsp*</td></tr>
    <tr><td width=25%><font color="#164DA8">&nbsp电子邮箱</font></td><td><INPUT TYPE="text" NAME="EDRESS" VALUE=##EMAILDRESS## SIZE=41 MAXLENGTH=30 >&nbsp*</td></tr>
    <tr><td width=25%><font color="#164DA8">&nbspQQ号</font></td><td><INPUT TYPE="text" NAME="QQ" VALUE=##QQ## SIZE=41 MAXLENGTH=15 >&nbsp*</td></tr>
    <tr><td width=25%><font color="#164DA8">&nbsp输入新的口令</font></td><td><INPUT TYPE="Password" NAME="NewPw" VALUE="" SIZE=41 MAXLENGTH=8 ></td></tr>
    <tr><td width=25%><font color="#164DA8">&nbsp确认新的口令</font></td><td><INPUT TYPE="Password" NAME="SureNewPw" VALUE="" SIZE=41 MAXLENGTH=8 ></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="Send" VALUE="确认修改个人信息" style="border: 1px solid #3466BB; background-color: #B6CAEB; color: #3466BB"></TD>
    </TD></TR></table></FORM></body></html>
ENDTEXT
            use
else
            use
            cResult = this.dlcw()
endif

     RETURN cResult
  ENDFUNC
*****************************************************************************************************************
	FUNCTION PerResult(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) as String
	SET TEXTMERGE DELIMITERS TO "##","##"              &&  新的文本合并分隔符为 ## ##
        SET DELETED ON

	LOCAL cResult as String, xm, TheMessage, LenAll
              cResult = ""

	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)
        LenAll = len(allt(Pm1))*len(allt(Pm2))*len(allt(Pm3))*len(allt(Pm4))*len(allt(Pm5))*len(allt(Pm6))
      
   if LenAll>0 and found()
       xm = allt(Pm1)
       repl  user_name with allt(Pm1),telinside with allt(Pm2),teloutside with allt(Pm3),;
             telephone with allt(Pm4),EMAILDRESS with allt(Pm5),qq with allt(Pm6)
             TheMessage = allt("【"+ xm +"】的个人信息修改成功")
       if len(allt(Pm7))+len(allt(Pm8))>0
           if allt(Pm7)==allt(Pm8)
                repl pass_word with allt(Pm8)
                TheMessage = TheMessage + "，修改口令成功，请重新登录"
           else
                TheMessage = TheMessage + "，但新口令校验不正确，口令未修改"
           endif
       else
                TheMessage = TheMessage + "，口令未修改"
       endif
    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">VFP 狐狸办公信息管理系统(测试版)->员工信息管理系统->修改我的个人信息&nbsp[当前用户-##xm##]
    </font></td></tr>
    <tr bgcolor=white >
    <td><a href="index.asp"><font color="#104DAD">返回到登录网页</font></a></td>
    <td  align=center> <font color="#104DAD">##TheMessage##</FONT></td>
    <td  align=right><a href="javascript:history.back()"><font color="#104DAD">返回上一级网页</font></a></td>
    </tr></table> 
    <table width="760" border="0" bordercolor="#164DA8" align="center" cellpadding="0" cellspacing="0">
    <tr> 
    <td height="10" colspan="4" valign="top" bgcolor="#FFFFFF"> 
    <table width="100%" border="0" height="13" cellspacing="0" cellpadding="0" mm_noconvert="TRUE">
    <tr><td height="13"><img src="IMAGE\banner2.jpg" width="758" height="12"></td></tr></table></td></tr></table><br>
    <FORM ACTION="ModifyPersonalInformation.asp" METHOD=POST>                            
    <TABLE CELLPADDING=1 CELLSPACING=1 BORDER=1 bordercolor="#164DA8" WIDTH=760 align=center>   
    <TR VALIGN="center" ALIGN="center">
    <TD WIDTH=40% bgcolor=#B5C7EF><P><img src="IMAGE\Employee.jpg"></td><td><br>
    <table CELLPADDING=0 CELLSPACING=1 BORDER=0 align=center width=100%>
    <tr><td width=25%><font color="#164DA8">&nbsp姓名</font></td><td><INPUT TYPE="text" NAME="UsrName" VALUE=##Pm1## SIZE=41 MAXLENGTH=5 >&nbsp*</td></tr>
    <tr><td width=25%><font color="#164DA8">&nbsp内线电话</font></td><td><INPUT TYPE="text" NAME="TELIN" VALUE=##Pm2## SIZE=41 MAXLENGTH=3 >&nbsp*</td></tr>
    <tr><td width=25%><font color="#164DA8">&nbsp外线电话</font></td><td><INPUT TYPE="text" NAME="TELOUT" VALUE=##Pm3## SIZE=41 MAXLENGTH=7 >&nbsp*</td></tr>
    <tr><td width=25%><font color="#164DA8">&nbsp个人电话</font></td><td><INPUT TYPE="text" NAME="TELE" VALUE=##Pm4## SIZE=41 MAXLENGTH=20 >&nbsp*</td></tr>
    <tr><td width=25%><font color="#164DA8">&nbsp电子邮箱</font></td><td><INPUT TYPE="text" NAME="EDRESS" VALUE=##Pm5## SIZE=41 MAXLENGTH=30 >&nbsp*</td></tr>
    <tr><td width=25%><font color="#164DA8">&nbspQQ号</font></td><td><INPUT TYPE="text" NAME="QQ" VALUE=##Pm6## SIZE=41 MAXLENGTH=15 >&nbsp*</td></tr>
    <tr><td width=25%><font color="#164DA8">&nbsp输入新的口令</font></td><td><INPUT TYPE="Password" NAME="NewPw" VALUE="" SIZE=41 MAXLENGTH=8 ></td></tr>
    <tr><td width=25%><font color="#164DA8">&nbsp确认新的口令</font></td><td><INPUT TYPE="Password" NAME="SureNewPw" VALUE="" SIZE=41 MAXLENGTH=8 ></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="Send" VALUE="确认修改个人信息" style="border: 1px solid #3466BB; background-color: #B6CAEB; color: #3466BB"></TD>
    </TD></TR></table></FORM></body></html>
ENDTEXT

   else
      use
      cResult = this.dlcw() 
  endif

     RETURN cResult
  ENDFUNC
*******************************************************************************************************************		
  HIDDEN FUNCTION SystemEm(u1 as string, p1 as string,SysEm as String) as String       &&  登录验证函数
	SET TEXTMERGE DELIMITERS TO "##","##"               &&  新的文本合并分隔符为 ## ##
        SET DELETED ON

	LOCAL cHtml as String, xm, TheMessage
           cHtml = ""
         cHtmlEm = ""
        cHtmlEm0 = ""
        cHtmlEm1 = ""

	IF !USED('userinfo')
	    USE userinfo IN 0
	ENDIF
	sele userinfo
              do case
                 case allt(SysEm) = "User_id"
                       TheMessage = "所有员工信息按【登录名】排序如下"
                 case allt(SysEm) = "User_Name"
                       TheMessage = "所有员工信息按【姓名】排序如下"
                 case allt(SysEm) = "Department"
                       TheMessage = "所有员工信息按【部门】排序如下"
                 otherwise
                    go top
                       LOCATE FOR allt(user_id)==ALLT(SysEm)
1234

⌨️ 快捷键说明

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