这个是我毕业设计得内容，这个代码小弟不会写，希望各位可以帮我一下

fengling1016 2004-05-08 12:57:17

我想完成一个关于出勤得统计，我的想法是这样得：一天中如果职工出勤得话，就在那一项上划一个钩，（我在各个项上用了复选按钮）希望在我的库里面显示是1或者是0，我的各个项有加班，事假，病假，

...全文

50 7 打赏收藏转发到动态举报

写回复

用AI写文章

7 条回复

切换为时间正序

请发表友善的回复…

发表回复

huidan 2004-05-08

打赏
举报

思路应该是可以的，不过好象烦琐了一点，
应该有更好点的方法，比如用ONCLICK事件，每点一次就提交了

500sea 2004-05-08

打赏
举报

友情

U U PPPPP !!
U U P P !!
U U PPPPP !!
U U P
UUUU P !!

U U PPPPP !!
U U P P !!
U U PPPPP !!
U U P
UUUU P !!

alpga 2004-05-08

打赏
举报

首先建立一个出勤表chuqin，结构如下：
字段名类型大小备注
id int 4 自动编号
name varchar 50 员工姓名
rq datetime 8 考勤时间
zc int 4 正常为1，默认为0
cd int 4 迟到为1，默认为0
jb int 4 加班为1，默认为0
sj int 4 事假为1，默认为0
bj int 4 病假为1，默认为0

<%
'文件名： yglist.asp
'实现功能：员工的考勤
'程序编号：lxx_@163.com
'创建时间：2004年05月08日晚9点
'通过调用员工基础表，将员工的姓名列出来，每一个员工后面都有一个出勤类别
'迟到，事假，病假，加班等，用复选框进行选择
%>

<%
'部分代码如下：
%>
<html>
<head>
<title>员工考勤</title>
</head>
<body>
<form name="form1" method="post" action="kaoqin.asp">
<table>
<tr>
<td> 姓名</td>
<td> 正常</td>
<td> 迟到</td>
<td> 加班</td>
<td> 事假</td>
<td> 病假</td>
</tr>
<%
set conn=server.createobject("adodb.connection")
conn.open strconn ''connstr是你的数据库连接字符串

set rs=server.createobject("adodb.recordset")
sql="select*from XXX" 'XXX为员工基础表
rs.open sql,conn,2,3

do while not rs.eof
%>
<tr>
<td> <%=rs("name")%>
</td>
<td>
<%
'name为员工的姓名
%>
<input type="checkbox" name="zc" value="<%=rs("name")%>">正常
</td>
<td>
<input type="checkbox" name="cd" value="<%=rs("name")%>">迟到
</td>
<td>
<input type="checkbox" name="jb" value="<%=rs("name")%>">加班
</td>
<td>
<input type="checkbox" name="sj" value="<%=rs("name")%>">事假
</td>
<td>
<input type="checkbox" name="bj" value="<%=rs("name")%>">病假
</td>
</tr>
<%

rs.movenext
loop
%>
<tr>
<td> <input type="submit" value="提交"></td>
</tr>
</table>
</form>

</body>
</html>

<%
'文件名：kaoqin.asp
'实现功能：将考勤信息记录到数据库中
'程序编写：lxx_@163.com
'创建霎时间：2004年05月08日晚9点
%>

<html>
<head>
<title>实现考勤</title>
</head>
<body>
<%
'一般连接数据库作为一个头文件
set conn=server.createobject("adodb.connection")
conn.open connstr
zc=split(zc,", ") '正常出勤的员工
cd=split(cd,", ") '迟到的员工
sj=split(sj,", ") '请事假的员工
bj=split(bj,", ") '请病假的员工
jb=split(jb,", ") '加班的员工

for i=0 to Ubound(zc)
if zc(i)<>"" then
sql="insert into chuqin (name,rq,zc) values ('"&zc(i)&"','"&date()&"',1)"
cn.execute(sql)
end if
next

for i=0 to Ubound(cd)
if cd(i)<>"" then
sql="insert into chuqin (name,rq,cd) values ('"&cd(i)&"','"&date()&"',1)"
cn.execute(sql)
end if
next

for i=0 to Ubound(jb)
if jb(i)<>"" then
sql="insert into chuqin (name,rq,jb) values ('"&jb(i)&"','"&date()&"',1)"
cn.execute(sql)
end if
next

for i=0 to Ubound(sj)
if sj(i)<>"" then
sql="insert into chuqin (name,rq,zc) values ('"&sj(i)&"','"&date()&"',1)"
cn.execute(sql)
end if
next

for i=0 to Ubound(bj)
if bj(i)<>"" then
sql="insert into chuqin (name,rq,zc) values ('"&bj(i)&"','"&date()&"',1)"
cn.execute(sql)
end if
next

conn.close
set conn=nothing
response.redirect("yglist.asp")'返回到员工考勤员面
%>
</body>
</html>

说明：本程序没有经过测试，只是一个设计思路，可能存在很多问题
请大家多多指教!!

zean 2004-05-08