?? employee.prg
字號:
* 員工信息管理 Start create date: 2003.9.20 Last edit date: 2003.11.1
DEFINE CLASS Employee As Session OLEPUBLIC && 指定為com類型
DataSession=2 && 使用私有工作期
**************************************************************************************************
FUNCTION dl(u1 as string, p1 as string) as String && 生成登錄后asp頁面函數
SET TEXTMERGE DELIMITERS TO "##","##" && 新的文本合并分隔符為 ## ##
SET DELETED ON
LOCAL cHtml as String, xm
LOCAL cDepart as String, cDepart0 as String, cDepart1 as String
LOCAL cName as String, cName0 as String, cPerson as String
cDepart = ""
cDepart0 = ""
cName = ""
cName0 = ""
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
Do while not EOF()
TEXT TO cName0 TEXTMERGE noshow
<option value=##user_name##>##user_name##</option>
ENDTEXT
cName = cName + cName0
skip
Enddo
use
***************************** 組合選擇部門
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 cHtml TEXTMERGE noshow
<html>
<head>
<title>員工信息管理系統</title>
</head>
<body>
<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 狐貍辦公信息管理系統(測試版)->員工信息管理系統 [當前用戶-##xm##]
</font></td></tr>
<tr bgcolor=white >
<td><a href="index.asp"><font color="#104DAD">返回到登錄網頁</font></a></td>
<td align=center> <font color="#104DAD" >請在下面選擇員工信息管理選項</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>
<form action="EmployeeInformationResult.asp" method=post>
<table cellpadding=1 cellspacing=2 border=1 bordercolor="#164DA8" width=760 align=center>
<tr valign="center" align="center">
<td width=35% bgcolor=#B5C7EF><img src="image\Employee.jpg"></td>
<td>
<table cellpadding=1 cellspacing=1 border=1 align=center width=100%>
<tr>
<td width=36%><input type="radio" checked name="SendTo" value="AllE" >
<font color="#164DA8">查詢所有員工信息</font></td>
<td>
<input type="radio" checked name="AllOrder" value="User_id">登錄名排序
<input type="radio" name="AllOrder" value="User_Name">姓名排序
<input type="radio" name="AllOrder" value="Department">部門排序
</td></tr>
<tr><td width=36%><input type="radio" name="SendTo" value="Departm" >
<font color="#164DA8">查詢部門員工信息</font></td>
<td>
<select name="DepartName" >
ENDTEXT
TEXT TO cDepart1 TEXTMERGE noshow
</select></td></tr>
<tr><td width=36%><input type="radio" name="SendTo" value="OneE" ><font color="#164DA8"> 查詢某個員工信息</font>
</td><td>
<table width=100% border=1>
<tr><td>
<input type="radio" Checked name="CheckName" value="FromList" ><font color="#164DA8">按選擇的姓名</font>
</td><td>
<select name="RoleName" >
ENDTEXT
TEXT TO cPerson TEXTMERGE noshow
</select>
</td></tr>
<tr><td>
<input type="radio" name="CheckName" value="TypeN" ><font color="#164DA8">按輸入的姓名</font>
</td>
<td>
<input type="text" Checked name="TypeName" value="">
</td></tr></table>
</td></tr>
<tr><td width=36%><input type="radio" name="SendTo" value="ModPer" >
<font color="#164DA8">修改關于我的信息</font></td><td> </td></tr>
<tr><td width=36%><input type="radio" name="SendTo" value="Sysgl" >
<font color="#164DA8">系統管理員用選項</font></td>
<td>
<input type="radio" name="SysOrder" value="User_id" checked>登錄名排序
<input type="radio" name="SysOrder" value="User_Name">姓名排序
<input type="radio" name="SysOrder" value="Department">部門排序<br>
</td>
</tr>
</table>
</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></tr></table><br></td></tr></table></form></body></html>
ENDTEXT
cHtml = cHtml + cDepart + cDepart1 + cName + cPerson
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()
cHtml = this.dlcw()
endif
use
RETURN cHtml
ENDFUNC
***********************************************************************************************************************
FUNCTION EmRs(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) as String
SET TEXTMERGE DELIMITERS TO "##","##" && 新的文本合并分隔符為 ## ##
SET DELETED ON
LOCAL cHtml as String
LOCAL xm,cHtml0 as String,cHtmlEm as String,cHtmlEm0 as String,cHtmlEm1 as String,TheMessage as String
cHtml = ""
cHtmlEm = ""
cHtmlEm0 = ""
cHtmlEm1 = ""
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
do case
case allt(Pm1) = "AllE" && 查詢全部員工信息
TheMessage0 = "查詢所有員工信息"
do case
case allt(Pm2) = "User_id"
TheMessage = "所有員工信息按【登錄名】排序如下"
case allt(Pm2) = "User_Name"
TheMessage = "所有員工信息按【姓名】排序如下"
otherwise
TheMessage = "所有員工信息按【部門】排序如下"
endcase
select * from userinfo NOCONSOLE order by &Pm2
case allt(Pm1) = "Departm" && 查詢部門員工信息
TheMessage0 = "查詢部門員工信息"
TheMessage = "查詢【"+allt(Pm3)+"】員工信息如下"
select * from userinfo NOCONSOLE where allt(Department)==allt(Pm3)
case allt(Pm1) = "OneE" && 查詢某個員工信息
TheMessage0 = "查詢某個員工信息"
if allt(Pm4) = "FromList"
TheMessage = "查詢員工【"+allt(Pm5)+"】信息如下"
select * from userinfo NOCONSOLE where allt(User_name)==allt(Pm5)
else
TheMessage = "查詢員工【"+allt(Pm6)+"】信息如下"
select * from userinfo NOCONSOLE where allt(User_name)==allt(Pm6)
endif
endcase
if allt(Pm1)="AllE" or allt(Pm1)="Departm" or allt(Pm1)="OneE"
go top
do while not eof()
TEXT TO cHtmlEm0 TEXTMERGE noshow
<tr bgcolor=white>
<td>##user_id##</td>
<td>##user_name##</td>
<td>##department##</td>
<td>##telinside##</td>
<td>##teloutside##</td>
<td>##telephone##</td>
<td><a href=mailto:##EMAILDRESS##><font face=arial>##EMAILDRESS##</font></a></td>
<td>##QQ##</td></tr>
ENDTEXT
cHtmlEm = cHtmlEm + cHtmlEm0
skip
enddo
use
TEXT TO cHtml TEXTMERGE noshow
<html>
<head>
<title>員工信息管理系統</title>
</head>
<body>
<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>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -