?? employee.prg
字號:
TheMessage = "登錄名為【"+allt(SysEm)+"】，姓名為【"+allt(user_name)+"】的員工的信息已經(jīng)刪除"
delete
endcase
go top
LOCATE FOR allt(user_id)==ALLT(u1) and ALLT(pass_word)==ALLT(p1)
if found() and "A" $ user_power
xm = allt(user_name)
USE
if allt(SysEm)="User_id" or allt(SysEm)="User_Name" or allt(SysEm) = "Department"
select * from userinfo NOCONSOLE order by &SysEm
else
select * from userinfo NOCONSOLE
endif
go top
do while not eof()
TEXT TO cHtmlEm0 TEXTMERGE noshow
<tr bgcolor=white>
<td align=center><input type=radio name="SelectWho" value=##user_id##></td>
<td align=center><font size="2" face=arial>##user_id##</font></td>
<td align=center><font size="2" face=arial>##User_name##</font></td>
<td align=center><font size="2" face=arial>##Department##</font></td>
<td align=center><font size="2" face=arial>##telinside##</font></td>
<td align=center><font size="2" face=arial>##teloutside##</font></td>
<td align=center><font size="2" face=arial>##telephone##</font></td>
<td align=center><font size="2" face=arial>##QQ##</font></td>
<td align=left><font size="2" face=arial>##EMAILDRESS##</font></td>
<td align=center><font size="2" face=arial>##User_power##</font></td></tr>
ENDTEXT
cHtmlEm = cHtmlEm + cHtmlEm0
skip
enddo
use
TEXT TO cHtml TEXTMERGE noshow
<HTML><HEAD><TITLE>系統(tǒng)管理員頁面</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 狐貍辦公信息管理系統(tǒng)(測試版)->員工信息查詢->系統(tǒng)管理員選項 [當前用戶-##xm##]</FONT></font></td></tr>
<tr bgcolor=white >
<td><a href="index.asp"><font color="#164DA8">返回到登錄頁面</font></a></td>
<td align=center> <font color="#164DA8" >管理員更新用戶信息</FONT></td>
<td align=right><a href="javascript:history.back()"><font color="#164DA8">返回上一級網(wǎng)頁</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><br>
<FORM ACTION="SystemManager.asp" METHOD=POST>
<TABLE WIDTH=760 border=0 bgcolor=#164DA8 cellspacing=1 cellpadding=2 align=center>
<TR><TD COLSPAN=14 align=center><font color=white>##TheMessage##</font></TD></TR>
<TR VALIGN="center" ALIGN="center" bgcolor=white>
<td><font size="2">選中</font></td><td><font size="2">登錄名</font></td><td><font size="2">姓名</font></td>
<td><font size="2">部門</font></td><td><font size="2">內(nèi)線</font></td><td><font size="2">外線</font></td><td><font size="2">個人電話</font></td>
<td><font size="2">QQ號</font></td><td><font size="2">電子郵箱</font></td><td><font size="2">權(quán)限</font></td>
</TR>
ENDTEXT
TEXT TO cHtmlEm1 TEXTMERGE noshow
</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="Manager_Usr" VALUE="修改此用戶信息" style="border: 1px solid #3466BB; background-color: #B6CAEB; color: #3466BB">
<INPUT TYPE="submit" NAME="Manager_Usr" VALUE="刪除此用戶信息" style="border: 1px solid #3466BB; background-color: #B6CAEB; color: #3466BB">
<INPUT TYPE="submit" NAME="Manager_Usr" VALUE="添加新用戶信息" style="border: 1px solid #3466BB; background-color: #B6CAEB; color: #3466BB"></TD>
</TD></TR></table><br></FORM></body></html>
ENDTEXT
cHtml = cHtml + cHtmlEm + cHtmlEm1
else
use
cHtml = this.dlcw()
endif
RETURN cHtml
ENDFUNC
*****************************************************************************************************************
FUNCTION Smanager(u1 as string, p1 as string,Pm1 as String,Pm2 as String) as String
SET TEXTMERGE DELIMITERS TO "##","##"
LOCAL cResult as String, TheMessage as String
TheMessage = "請在下面填寫新增用戶的信息"
if allt(Pm2)="添加新用戶信息"
cResult = this.AddUsr(u1,p1,TheMessage)
else
if empty(Pm1)
cResult = this.dlcw()
else
if allt(Pm2)="修改此用戶信息"
cResult = this.ModUser(u1,p1,Pm1)
else
cResult = this.SystemEm(u1,p1,Pm1)
endif
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 ModUser(u1 as string, p1 as string,PmSele as String) as String
SET TEXTMERGE DELIMITERS TO "##","##"
SET DELETED ON
LOCAL cResult as String, cResult1 as String, cDepart as String, cDepart0 as String, xm
cResult = ""
cDepart = ""
cResult1 = ""
cDepart0 = ""
IF !USED('departments') && 部門數(shù)據(jù)
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
Loca for allt(user_id)==ALLT(u1) and ALLT(pass_word)==ALLT(p1)
if found()
xm = allt(user_name)
go top
Loca for allt(user_id)==allt(PmSele)
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">員工信息查詢->系統(tǒng)管理員選項->修改某個員工信息 [當前用戶-##xm##]</font></td></tr>
<tr bgcolor=white>
<td><a href="index.asp"><font color="#164DA8">返回到登錄頁面</font></a></td>
<td align=center> <font color="#164DA8" >請在下面修改此用戶信息</FONT></td>
<td align=right><a href="javascript:history.back()"><font color="#164DA8">返回上一級網(wǎng)頁</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"> 登錄名</font></td><td>##User_id##</td></tr>
<tr><td width=25%><font color="#164DA8"> 姓名</font></td><td><INPUT TYPE="text" NAME="UsrName" VALUE=##User_name## SIZE=51 MAXLENGTH=5 > *</td></tr>
<tr><td width=25%><font color="#164DA8"> 部門</font></td>
<td><SELECT NAME="DepartName" size=1 width=10>
<option value=##department##>##department##</option>
ENDTEXT
TEXT TO cResult1 TEXTMERGE noshow
</SELECT> *</td></tr>
<tr><td width=25%><font color="#164DA8"> 內(nèi)線電話</font></td><td><INPUT TYPE="text" NAME="TELIN" VALUE=##telinside## SIZE=51 MAXLENGTH=3 > *</td></tr>
<tr><td width=25%><font color="#164DA8"> 外線電話</font></td><td><INPUT TYPE="text" NAME="TELOUT" VALUE=##teloutside## SIZE=51 MAXLENGTH=7 > *</td></tr>
<tr><td width=25%><font color="#164DA8"> 個人電話</font></td><td><INPUT TYPE="text" NAME="TELE" VALUE=##telephone## SIZE=51 MAXLENGTH=20 > *</td></tr>
<tr><td width=25%><font color="#164DA8"> QQ號</font></td><td><INPUT TYPE="text" NAME="QQ" VALUE=##QQ## SIZE=51 MAXLENGTH=15 > *</td></tr>
<tr><td width=25%><font color="#164DA8"> 電子郵箱</font></td><td><INPUT TYPE="text" NAME="EDRESS" VALUE=##EMAILDRESS## SIZE=51 MAXLENGTH=30 > *</td></tr>
<tr><td width=25%><font color="#164DA8"> 口令(1--8字符)</font></td><td><INPUT TYPE="password" NAME="Pw" VALUE=##pass_word## SIZE=51 MAXLENGTH=8 > *</td></tr>
<tr><td width=25%><font color="#164DA8"> 權(quán)限</font></td><td><INPUT TYPE="text" NAME="Qx" VALUE=##user_power## SIZE=51 MAXLENGTH=20 > *</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
use
cResult = cResult + cDepart + cResult1
else
use
cResult = this.dlcw()
endif
RETURN cResult
ENDFUNC
**************************************************************************************
FUNCTION ModUsrResult(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, cResult1 as String, cDepart as String, cDepart0 as String, xm
cResult = ""
cDepart = ""
cResult1 = ""
cDepart0 = ""
LenAll = 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(u1) and ALLT(pass_word)==ALLT(p1)
xm = allt(user_name)
go top
LOCATE FOR allt(user_id)==allt(Pm1)
if LenAll>0 and found()
repl 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
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -