📄 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 + -