及时送上了计算机毕业设计相关资源 合意的换请采纳一下,大家顺遍点下赞吧
网站的建设创新互联专注网站定制,经验丰富,不做模板,主营网站定制开发.小程序定制开发,H5页面制作!给你焕然一新的设计体验!已为成都纯水机等企业提供专业服务。
在线考试制卷系统(任务书,论文,源码)
net小型证券术语解释及翻译系统的设计与开发(源码,论文)
原创vf员工培训管理系统(任务书,论文)
asp科研信息管理系统(任务书,开题,论文,源码)
android小型企业工资管理系统(源码,论文)
asp出租车管理系统(任务书,论文,源码)
vb.net实验室计算机的ip地址自动设置程序——服务器端(任务书,论文,源码)
rsa可视化算法程序的实现与研究(任务书,论文)
j2ee数控加工技术教学素材资源库的构建(任务书,论文,源码)
eims系统-oa子系统的设计与开发(任务书,开题,论文,源码)
jsp网上购书(任务书,论文)
vb图书管理系统(任务书,论文)
vc户籍管理系统(任务书,论文,源码)
php基于bs结构的工艺品销售系统的实现(源码,论文)
net模块化动态电子商务网站的开发(任务书,论文,源码)
pb电信人事管理系统设计(任务书,论文)
vb成本费用计算系统(源码,论文)
jsp出租车管理系统(任务书,开题,论文,源码)
asp.net求职招聘网站设计(源码,论文)
vb.net机房监控系统(全套)
vf学生办证管理系统(任务书,开题,论文,源码)
jsp基于网络超市商品销售管理系统(任务书,论文,源码)
jsp团员管理
asp.net一个动态文学网站
vf基于jme平台的掌上网络商店－服务器端的开发
c#报警系统
net(vc)办公自动化管理系统
jsp计算机等级考试查询系统jdbc
vb.net商品配送中心库存仿真软件设计
jsp网络购物
net在线英语自学系统——知识库管理的设计
jsp企业进销存管理系统
php某公司进销存信息管理系统
pb干部档案管理系统
delphi学生信息管理系统毕业设计
asp学生信息管理系统
asj2eetoc电子商务网站
delphi图书管理系统（毕业程序翻译%通过）
jsp网上商城系统
jsp客户关系管理系统
jsp企业人事管理系统
c#办公管理系统
jsp搜索引擎的研究与实现
jsp网络房产信息超市
php会员管理系统
j2ee基于usbkey的文件加密工具—-客户端的实现
net网上图书订阅系统的设计
php网站流量统计
asp.net团员管理
android文件传输
delphi并行接口器件功能演示的可视化设计学位
php房屋租赁管理信息系统jdbc
数据采集电路pcb的设计与制作
androidsmart系统-考试监控及阅卷模块的设计与开发
java流动资金贷款业务系统
asp电脑配机
vf物流管理系统--仓储管理子系统的实现
简化的cpu逻辑功能的仿真实现
net网上教材管理系统
net高校学生宿舍管理系统
vc药品公司进销售存管理系统
基于des加密算法的word加密插件的实现
asp.net基于asp.net的房产中介系统
c#简单图片转化
asp基于asp的反垃圾邮件管理系统的设计
delphi航空客运订票系统
c#windows简单防火墙设计与实现
j2ee车间调度系统
php《信息论与编码》在线考试系统
vb.net基于角色访问控制的oa系统
asp某小型数字图书馆
vb图形识别和编辑
pb电脑公司财务管理系统
asp网上购书
android光盘信息管理系统
php新闻网程序
php购物系统
vb.net考试系统vb.net
java学生管理系统
基于apriori算法的关联规则挖掘系统
vf布匹出口管理系统
c#会计电算化系统——财务管理子系统
php毕业生信息管理系统
pb酒店客房餐饮管理系统
vf库存管理
asp.net药品销售数据管理系统
asp.net网上论坛
基于linux的远程控制技术服务端实现
php网络商城
文件压缩与解压缩实践
asp学生管理系统
php科研项目网上申报管理系统
vb.net图片文件中的信息隐藏和还原的设计
asp销售供应链管理系统的设计与开发
asp基于asp技术的猎头公司管理软件的设计和实现——内部事务部分
网络求职招聘系统
neterp系统(毕业设计
php基于web的商场管理系统
vb电脑公司财务管理系统
delphi客户管理系统
net图书馆管理信息系统
java超市商品管理系统
pb在线考试
java原创库存管理系统可执行程序
c语言文件系统设计
基于webservice的数据库同步系统
vb.net考勤管理系统vb.net
vb简单几何图形的识别和编辑系统
net某公司员工管理系统
vf酒店客房管理系统
vf商场管理系统
vb.net开发在windows下的串口异步通信程序
asp一个小型搜索引擎
j2ee高速公路票据管理系统
vb小区物业管理系统
php酒店房间预约系统设计
asp《信息论与编码》在线考试系统
vf宿舍管理系统
android基于局域网的文件传输系统
asp学生网上选课系统
php校园学生信息在线管理系统
asp基于web的商场管理系统
net基于web的订餐系统
jsp仓储管理系统
简易网络存储系统
javaftp客户端
jsp公交查询系统
java人才管理系统
net企业投资价值分析系统
asp基于bbs的bbs系统设计(structmy)好
android通用图书馆管理系统
asp网上选课系统
最新asp网上论坛
vc网络爬虫程序
net考勤系统(net)
net交通信息网上查询系统
美食网站
pb企业物料需求计划管理系统
delphi公交车查询系统delphi源
asp.net网络招聘系统
asp视频点播系统
vf学生学籍管理
android毕业管理系统
简易网络存储系统
vb.net一种基于cc模式的网上购物系统
asp.net网络文件管理系统
asp.net学生信息管理系统
j2ee城市公交查询系统
j2ee人机接口设备—示波器的仿真实现
jsp网络商城
net基于bs的图书销售管理系统
net基于net的公司网站
j2ee汽车零件销售管理系统
vf图片文件中的信息隐藏和还原的设计
vf医药管理系统
net技术的猎头公司管理软件——内部事务部分
最新net高校学生宿舍管理系统
vb局域网抓包软件
asp.net企业物流平台
asp.net学生排课管理系统
vb.net网络数据包捕获工具
android企业考勤
c#在线考试
j2eealendar的跨平台系统的设计
vf书店辅助进书系统
asp仓库即时查询系统
asp作业提交与批改系统
vb开发在windows下的串口异步通信程序
javaac自动组卷系统
asp网上体育用品商店
jsp华夏文化交流平台
delphi采购管理
php校园新闻发布管理系统
vb.net成绩管理系统vb.net
delphi五子棋游戏（网络版）的设计与开发
最新net网上图书订阅系统的设计
vb教学辅助系统vb
android试题库自动组卷系统
vc试题库自动组卷系统（vc）cym
asp.net基于bs的家教交流平台的实现
vf学生成绩管理系统vf
asp.net楼宇专业网站毕业设计
net多语种网络硬盘系统的设计
vf考试系统vf
端口信息工具
vf物业管理
net公交车管理系统的实现与设计
pb基于半打开的端口扫描技术及其实现
j2ee水费管理系统
vf用遗传算法解决车辆优化调度问题任务书
jsp办公自动化管理系统
jsp基于android的在线购物系统
asp.net车辆调度管理系统
pb线程插入木马
delphi基于delphi的串口通信服务的开发
asp药店管理系统
jsp实验室设备管理系统
kasumi算法的研究与j2ee实现
net基于.net的城市公交查询系统
jsp基于web的subversion用户管理系统phb
delphivbd租赁管理系统
linux下的网络层加密解密的实现
android药品公司进销售存管理系统
asp服装销售系统
j2ee电信人事管理系统设计
jsp员工信息管理系统
android考勤管理系统android
vf基于.net的网上购物系统
vb.net财务管理系统
vc题库管理系统
delphi基于webcam的人脸检测技术
php在线学习系统
最新php团员管理
vb原创图书管理系统)毕业设计
net某企业信息管理系统
asvbtoc电子商务网站
vf火车站售票管理系统
asp科研信息管理系统
net某企业信息管理系统
vb基于usbkey的文件加密工具—-客户端的实现
net基于.net企业订单管理系统的开发
net房地产评估系统
net作业在线提交系统
vc多线程与线程安全实践-基于http协议的断点续传
vf地税局工资管理系统
delphi科研管理系统
delphi烟花爆竹经销管理系统
面向internet上的cscw的共享白板
php网络招聘系统
php网上求职与招聘系统
vb.net机房监控系统
asp.net考试报名信息处理系统
j2ee医院病房管理系统
基于进程和通信隐藏的木马设计与实现
net息加密与隐藏工具
c#汽车销售系统
jsp原创教师信息管理系统
android简易web服务器研究
asp科研项目网上申报管理系统
asp基于asp的论坛
php计算机组成原理教学网站
android超市销售系统
c#网络流量监控及分析工具
delphi电子邮件客户端软件
android排课系统程序
jsp网上拍卖平台系统)
j2ee某百货店pos积分管理系统-积分添加和通票回收
j2ee教务管理系统j2ee
vf银行代扣代发工资系统
php学生学籍管理系统
基于webservice的异构数据库检索系统的设计
android长途汽车信息管理系统
net系办办公自动化系统
c#网络计时管理系统
net网络商店销售管理系统
原创net高校学生宿舍管理系统
asp网络教学评判系统
net客户关系管理系统的实现
c语言遗传算法在求解tsp问题毕业
asp.net网上教学资源共享系统
基于icmp模拟网络控制软件的开发——控制管理模块
vb车间调度系统
net动态口令认证的网上选课系统
asp.net图书馆管理系统
asp企业公告及资料发布系统
pb原创图书管理系统)毕业设计
vf基于cs结构的企业人事管理系统
网络嗅探器
jsp网上书店售书系统
asp.net网上选课系统
asp酒店客房管理系统
asp.net自动排课系统
net信息安全研究所设备管理系统
最新net基于bs的图书销售管理系统
java药品销售系统
java简单小游戏设计
jsp基于web的旅游网站建设
android库存管理
php淘宝店主交易管理系统
net频点播系统
pb大型机房学生上机管理系统
jsp基于bs结构的工厂设备管理系统的设计与开发
web的入侵防御系统
最新php基于bbs的bbs系统设计(structmy)好
asp教师信息管理系统
net课件发布系统
j2ee在线英语自学系统——课程及自测管理的设计
asp网上二手商品交易管理系统
原创asp.net购物系统
pb小说租阅管理系统
人机接口设备—开关类部件的仿真实现
net校园新闻发布系统
php基于linux的远程管理系统客户端的实现
php在线exam
delphi物质管理系统
vb.net电信人事管理系统设计
android试题库自动组卷系统（android）cym
j2ee学生档案管理
net基于.net的内部邮件系统实现
asp.net学科建设
asp某公司进销存信息管理系统
java企业投资价值分析系统
java大随机数生成器算法的研究与实现
jsp某高校工资管理系统
vb在线英语自学系统——课程及自测管理的设计
net某店pos积分管理系统-清除履历表、日志表、月购买额
asp会员管理系统
原创美食网站
vs家庭理财系统
局域网监听系统
vc房屋租凭管理系统
jsp在线二手交易系统
vb.net模拟器件测试平台的设计与开发
原创net考勤系统(net)
java酒店管理信息系统
原创网络求职招聘系统
vf高校教务排课系统
c#rsa密码体制的实现
端口扫描与检测技术的实现
delphi猜数游戏的设计与开发
php宿舍管理系统设计
j2eeac自动组卷系统
原创php网络购物
android物质管理系统
php实验室设备管理系统
asp求职招聘网站设计
androidsc结构服装专卖店
net电子购物商城系统
java自动排课系统
java职员信息管理系统
vb书店辅助进书系统
android教师管理系统
jsp基于bs模式的中小企业人事管理系统
vc物质管理系统
最新简易网络存储系统
android并行接口器件功能演示的可视化设计学位
原创基于des加密算法的word加密插件的实现
net频点播系统
asp.net网络旅游信息系统
原创asp计算机组成原理教学网站
jsp车辆调度管理系统
asp.net基于bs的工艺品展示系统
基于纠错码的容错技术的研究——x码
asp电子商务系统
pb原创库存管理系统可执行程序
c#企业往来账务管理系统
vc超市售货管理系统
原创net网上图书订阅系统的设计
android人事管理系统
原创php在线学习系统
vf桌面日历系统
java商业汇票(支票管理)
asp聊天室
java计科教务管理系统
vb.net物业管理系统
asp公共课平时成绩查询系统asp
最新asp会员管理系统
vc书店管理系统
win平台下的pe文件病毒的研究及实现
j2ee电子邮件客户端软件
asp.net基于asp.net的学生信息管理系统
vf企业人事工资管理系统
vbrsa密码体制的实现
java基于bs方式的即时通讯软件
vf煤气站管理系统dpac
pb多媒体教学控制系统-网络通讯平台的设计
delphi酒店管理系统
jsp基于bs结构的工厂设备管理系统的设计与开发
jsp企业人力资源管理系统的设计
java课程设计医药管理系统（java)应要求源文件代码打包上传
j2ee实验室仪器管理系统
pb网吧管理系统
pb车队综合业务管理系统
最新php网络商城
c#大随机数生成器算法的研究与实现
asp基于bs结构的二手交易系统
javad的网络三维技术
最新net考勤系统(net)
jsp基于web的信息处理系统
net小型门户网自助建站系统
社区论坛
asp公交查询系统
java文档资料管理系统
php红旗汽车修理厂物资流通管理系统
校园网络工程综合布线方案
vc高校缴费系统
php格式化系统——前台
原创asp网上选课系统
最新asp校园学生信息在线管理系统
android基于特征的入侵检测系统
vb人事管理系统
vb.net图书管理系统
java简易web服务器研究
jsp基于jsp学生成绩管理系统软件的开发
net模块化动态电子商务网站的开发
delphi中大迅通合同统计系统
linux下的简单网络管理控制系统的设计与开发
vf航空售票模拟系统
vb通用销售管理系统
c#教学信息管理系统毕业
vc企业投资价值分析系统
j2ee基于bs方式的即时通讯软件
asp.net科研信息管理系统
vb.net软件项目开发管理系统vb.net
android可视化图像处理系统
c#高校题库管理系统附原代码程序万字
net基于.net电子相册的开发
pb商品配送中心库存仿真软件设计
android成本费用计算系统
asp.net旅游信息管理系统
j2ee宿舍管理系统
vb.net气象信息服务系统
net基于tcp协议的简单即时通信软件
原创vb职员信息管理系统
php小型企业网上订单系统
android人事管理
vb.net汽车销售系统
最新美食网站
最新简化的cpu逻辑功能的仿真实现
vb光盘信息管理系统
深水蓝文学网站
vb列车时刻查询决策系统
vc毕业管理系统
android商品交易系统
delphi列车时刻查询决策系统课程设计
java图书管理系统带
java基于jee的公交查询系统
net《数据库原理及应用技术》课程指导平台的开发
原创net某企业信息管理系统
delphi局域网的语音通信
vc家庭财务管理系统
android人脸识别系统设计.
php软件信息发布系统
社区论坛
net网上办公系统——公文流程管理设计与实现
原创delphi学生档案管理
delphi干部档案管理系统
asp基于bs的人才交流网站
asp.net酒店房间预约系统
java网络流量监控及分析工具
asp在线教学质量评价系统
php网络购物
快速加密解密芯片中kasumi算法的实现
asp.net网络购物系统
最新php科研项目网上申报管理系统
j2ee打字系统
基于ajaxlucene构建搜索引擎的设计和实现
pb超市配送运输管理系统
vf医疗纠纷检索系统
pb图书管理系统（毕业程序翻译%通过）
原创美食网站
vb网络在线考试系统原码
vb.net邮件收发系统的设计
jsp科研处管理信息系统
vcaccti电话语音应答系统
vc用遗传算法解决车辆优化调度问题任务书
delphi多媒体教学控制系统-网络通讯平台的设计
vc试卷生成系统
java气象信息服务系统
asp局域网文件共享及检索系统的设计与开发
php音乐网站
c内存映射文件在进程共享中的应用研究
php基于web的办公自动化管理系统可执行
php基于网络环境的库存管理系统
jsp在线直销商城
vb排课管理系统
最新简易网络存储系统
jsp基于jsp的网上考试系统_
第二代木马的研究与实现
vb.netjpeg编码优化
java基于java的五子棋游戏软件的设计与开发
java绩效评价系统
vc仓库管理系统
j2ee图书馆书库管理系统
php学生成绩查询
java基于windows入侵检测系统的研究与设计——检测模块设计
android象棋程序
vf网吧计费系统
c#smart系统-考试监控及阅卷模块的设计与开发
android某医疗部门总务信息管理系统
vb.net图书馆全开架借阅管理系统
vf电子通讯录（带系统托盘）
android指纹识别系统
android设备保养管理系统
android基于局域网的信息收发系统
android办公用品管理系统
pb企业考勤管理系统
pb药品公司进销售存管理系统
c#光盘管理系统
php服装销售系统
原创asp.net网上选课系统
net仪器设备管理系统设计与实现
j2ee基于特征的入侵检测系统
最新net基于net的公司网站
vb教学设备管理系统
net(java)办公自动化管理系统
c#企业人事管理系统
asp.net校友录server
android邮政编码系统
最新asjavatoc电子商务网站
原创基于icmp模拟网络控制软件的开发——控制管理模块
asp计算机组成原理教学网站
j2ee考试分析评价系统
net基于bs的计算机等级考试系统
端口扫描与检测技术的实现
vb.net题库管理系统
原创php基于php的论坛
文学网站
php网上体育用品商店
asp网上书店
php博客网站
php施甸县旅游咨询网
原创net客户关系管理系统的实现
vf木马检测工具的实现
vb社区人口资源管理系统设计与实现
vbd的网络三维技术
基于net教学辅助系统设计与实现
c局域网即时聊天程序
delphi象棋程序
jsp基于网络超市商品销售管理系统
c#计算机机房管理系统
asp网络教学平台
asp图书馆管理系统
pbsmart系统-公共资源模块的设计与开发--代码
asp助学贷款管理系统
j2ee学生档案管理系统
php网上购物系统答辩
net门诊就诊系统
php某小型数字图书馆
asp.net网上家电销售管理系统
asp.net网上商城系统
net中小企业oa系统
vb.net房屋销售管理信息系统
最新面向internet上的cscw的共享白板
php同学录系统
iptables图形管理工具
asjavatoc电子商务网站
vc考试系统vc
最新asvftoc电子商务网站
实验室计算机的ip地址自动设置程序——客户端
asp.net网络教学评判系统
asp.net基于asp.net的笔记本销售网站
php药品销售数据管理系统
android自动出题题库系统
原创j2ee电脑公司财务管理系统
数据库连接池的研究与实现
jsp课程设计
java上机考试系统
原创基于net教学辅助系统设计与实现
php科研信息管理系统
eims系统-oa子系统的设计与开发
net基于.net的工资绩效管理系统的开发
pb基于工作流引擎的系统框架设计开发
asp.net网上日记本
c#员工管理系统
基于rsa的数字签名
php企业人力资源管理系统的设计
原创asp《信息论与编码》在线考试系统
j2ee扫雷游戏的设计与开发
jsp网上考试系统
vb学生管理系统
c#基于c#的飞行模拟游戏的设计及实现
php求职招聘网站设计
jsp科研处管理信息系统
net基于svg的自动站雨量分析系统
asp.net文章在线发布系统
vb流动资金贷款业务系统
net网络考试系统.net
jsp聊天室
vb.net基于vb.net的两个通用安全模块
net小型证券术语解释及翻译系统的设计与开发
android电脑销售系统
j2ee自动点歌系统
net小型酒店管理系统的设计
vf办公自动化系统
java商业汇票(支票管理)
asp.net课程设计
pb银行设备管理
jsp企业网站设计
网络数据包的协议分析程序的设计开发
java网络多人聊天系统
android停车场管理系统
_基于.net的驾校理论考试模拟系统
jsp基于bs结构的工艺品销售系统的实现
asp.net格式化系统——前台
asp个人网站
c#兼职中介管理系统
jsp基于jsp的人事管理系统
最新基于des加密算法的word加密插件的实现
asp.net网络实验教学网站
asp网络招聘系统
vb.net煤气站管理系统dpac
asp仓储管理系统
android图书销售信息系统
asp.netcd销售管理系统
php学生信息管理系统
android图像处理工具
pb学生办证管理系统
j2ee党员管理系统
asp.net机房自由上机收费管理软件
vf网络计时管理系统
java基于java的五子棋游戏软件的设计与开发
c#中介管理系统
php酒店客房管理系统
c#图书馆管理系统
pb科研项目管理系统
jsp学生管理
jsp学生考试成绩分析（带饼状态图，柱状图)
asp课程设计
asp.netc语言试题生成与考试系统
vb.net教学信息管理系统
vb局域网的数据包监听及数据分析
vb高校题库管理系统附原代码程序万字
php视频点播系统
vb企业档案管理系统简单版
vb学生宿舍管理系统
net房地产管理系统
c#物业管理
vb音像店管理系统
javasmart系统-公共资源模块的设计与开发--代码
java基于ftp协议的文件访问系统
最新基于des加密算法的word加密插件的实现
vf绩效评价系统
asp操作系统课程教学网站
pb旅游资源及线路管理系统
vb.net计科教务管理系统
最新php客户关系管理系统
j2ee病房管理系统
php原创交友网设计
最新net频点播系统
php基于php学生成绩管理系统软件的开发
最新neterp系统(毕业设计
原创vc基于bs方式的即时通讯软件
基于lotus的故障报修系统
vf超市配送运输管理系统
vb.net试卷生成系统
原创文件压缩与解压缩实践
php教师档案管理系统
原创jsp《信息论与编码》在线考试系统
android网络数据包捕获工具
jsp药品销售数据管理系统
asp在线学习系统
j2ee考勤管理系统j2ee
asp网络商城
c局域网即时聊天程序
c#健身中心会员管理系统
vf客房管理信息系统
java基于采集
netxx职业中学图书管理系统的设计
基于caché的实验室资源管理系统的设计
最新基于net教学辅助系统设计与实现
vb.net学生管理系统
c内存映射文件在进程共享中的应用研究
vf中国象棋游戏
vbsmart系统-题库及试卷管理模块的设计与开发
win平台下的pe文件病毒的研究及实现
net基于手机短信平台聊天程序
jsp网上图书销售系统
原创web的入侵防御系统
vc干部档案管理系统
最新web的入侵防御系统
vf基于misty算法的加密软件的实现
vb.net数据结构辅助教学
php个人日志系统
asp.net论坛程序设计(万字功能强大)
asp网页设计辅导系统
最新net动态口令认证的网上选课系统
net基于.net电子相册的开发
j2ee学生信息管理系统万字
pb网上交易系统pb
vf超市进销存管理系统vf报稿
asp留言板
c#模拟atm机系统软件的设计与开发c#
asp交友录
pb车辆
刚好做过这个论文，给你回答啦~~独家哦，分数要给偶~~
1） 系统意义
随着计算机应用的日益普及，各企事业在人事方面实现规范化、计算机自动化管理势在必行，是提高科学管理水平的重要手段，是提高工作效率的可靠途径。
2） 系统特点
1 将人事信息实现自动化管理；
2 提供各种查询、修改、删除、插入人才信息功能；
3 提供各种信息统计功能。
3） 系统设计环境
1 Windows 2000 Server 或 Windows XP；
2 SQL Server 2000数据库管理系统；
3 VB 6.0。
二 系统需求分析
1） 系统设计目标
1 在人事管理过程中，实现信息自动化管理。
2 实现各种信息的修改、删除、插入功能。
3 实现对各种信息的查询、统计。
4 按年份月份统计某个职工的出勤情况信息。
5 按某年某月某日统计查询某部门的迟到和早退人数。
6 按月统计每个人的加班天数。
7 按年统计调入调出人数信息。
2） 系统需求分析
1. 信息需求分析
通过对人事信息系统的分析，此系统需要包含如下信息（数据字典）：
1）人事档案基本信息：
编号、姓名、性别、出生日期、工作年限、电话、地址、E-mail、学历、专业、进入本单位时间（编号要求：长度为6的数字字符组成）
2）人事调动信息：
原部门、新部门、原职务、新职务、调出时间、调入时间
3）人事考勤信息：
上下班时间、迟到次数、早退次数、请假天数、加班天数、加班日期
4）系统用户管理信息：
用户帐号、密码（由6个数字组成）、记录用户最近一次登录信息：年月日
2.功能需求分析
1）人事档案基本信息的录入、更新、删除、查询；
2）人事调动信息的录入、更新、删除、查询；
3）人事考勤信息的录入、更新、删除、查询；
3. 概念结构设计
系统的E-R图如图1.1所示：
1）数据库设计
1 逻辑结构设计
人事基本信息（编号，姓名，出生日期，工作年限，电话，E-mail，学历，进单位时间）；
人事调动信息（编号，原部门，新部门，原职务，新职务，调出时间，调入时间）；
人事考勤信息（编号，上下班时间，迟到次数，早退次数，请假天数，加班天数，加班日期）。
2 各数据表结构
根据实体间E – R模型的需求分析,本系统需要4个数据表分别来存放人是基本信息，调动信息，考勤信息和系统管理员帐号信息，具体如下：
人事基本信息表
字段名 数据类型 长度 是否为空 说明
bh char 10 Not null 编号
name varchar 8 Not null 姓名
sex varChar 3 Not null 性别
gznx varchar 10 null 工作年限
birth Datetime 10 null 出生日期
email Varchar 20 null E-mail
dh Varchar 20 null 电话
xl Varchar 10 null 学历
jdwsj Datetime 10 null 进单位时间
人事调动表
字段名 数据类型 长度 是否为空 说明
ybm varchar 12 Not null 原部门
xbm varchar 12 Not null 新部门
yzw varChar 12 Not null 原职务
xzw varchar 12 null 新职务
dcsj Datetime 10 null 调出时间
drsj Datetime 10 null 调入时间
人事考勤表
字段名 数据类型 长度 是否为空 说明
sxb varchar 10 Not null 上下班时间
cd varchar 5 Not null 迟到次数
zt varChar 5 Not null 早退次数
qj varchar 5 null 请假天数
jbts Datetime 5 null 加班天数
jbrq Datetime 10 null 加班日期
管理员表
字段名 数据类型 长度 是否为空 说明
name char 20 Not null 用户名
password char 8 Not null 密码
人事基本信息模块代码
Option Explicit
Dim mblchange As Boolean
Public txtSQL As String
Public msgtext As String
Dim mrc As ADODB.Recordset
Private Sub cmdcancle_Click()
Unload Me
End Sub
Private Sub cmdOK_Click()
Dim intCount As Integer
Dim txtSQL As String
Dim MsgString As String
Dim sMeg As String
Dim i As Integer
For intCount = 0 To 1
If Trim(Text1(intCount) "") = "" Then
Select Case intCount
Case 0
sMeg = "编号"
Case 1
sMeg = "姓名"
End Select
sMeg = sMeg "不能为空"
MsgBox sMeg, vbOKOnly + vbExclamation, "警告"
Text1(intCount).SetFocus
Exit Sub
End If
Next intCount
If Trim(Text1(3) "") = "" Then
MsgBox "出生日期不能为空", vbOKOnly + vbExclamation, "警告"
End If
If Trim(Text1(3) "") "" Then
If Not IsDate(Text1(3)) Then
MsgBox "出生日期应为(yyyy-mm-dd)!", vbOKOnly + vbExclamation, "警告"
Text1(3).SetFocus
Exit Sub
Else
Text1(3) = Format(Text1(3), "yyyy-mm-dd")
End If
End If
If Trim(Text1(2) "") = "" Then
MsgBox "年龄不能为空", vbOKOnly + vbExclamation, "警告"
Exit Sub
End If
If gintMode = 1 Then
txtSQL = "select * from dangan where ygid='" Trim(Text1(0)) "'"
Set mrc = ExecuteSQL(txtSQL, msgtext)
If mrc.EOF = False Then
MsgBox "有重复记录", vbOKOnly + vbExclamation, "警告"
Text1(0).SetFocus
End If
mrc.Close
txtSQL = "delete * from dangan where ygid='" Trim(Text1(0)) "'"
Set mrc = ExecuteSQL(txtSQL, msgtext)
txtSQL = "select * from dangan"
Set mrc = ExecuteSQL(txtSQL, msgtext)
mrc.AddNew
For intCount = 0 To 1
mrc.Fields(intCount) = Trim(Text1(intCount))
Next intCount
For intCount = 2 To 5
mrc.Fields(intCount) = Trim(Text1(intCount))
Next intCount
For intCount = 6 To 10
mrc.Fields(intCount) = Trim(Text1(intCount))
Next intCount
mrc.Fields(11) = Trim(Combo1.Text)
mrc.Update
If gintMode = 1 Then
MsgBox "添加记录成功", vbOKOnly, "提示"
For i = 0 To 10
Text1(i).Text = ""
Next i
frmyuangong.Show
frmyuangong.ZOrder 0
frmmanrecord.ShowTitle
frmmanrecord.ShowData
frmmanrecord.ZOrder 1
End If
ElseIf gintMode = 2 Then
txtSQL = "select * from dangan where ygid='" Trim(Text1(0).Text) "'"
Set mrc = ExecuteSQL(txtSQL, msgtext)
For intCount = 0 To 10
mrc.Fields(intCount) = Trim(Text1(intCount))
Next intCount
mrc.Fields(11) = Trim(Combo1.Text)
mrc.Update
MsgBox "修改成功", vbOKOnly, "提示"
Unload Me
frmmanrecord.ShowTitle
frmmanrecord.ShowData
frmmanrecord.ZOrder 0
End If
gintMode = 0
End Sub
Private Sub Form_Load()
Dim msgtext As String
Dim intCount As Integer
With Combo1
.AddItem "男"
.AddItem "女"
End With
If gintMode = 1 Then
Me.Caption = Me.Caption "添加"
Combo1.ListIndex = 0
ElseIf gintMode = 2 Then
Set mrc = ExecuteSQL(txtSQL, msgtext)
If mrc.EOF = False Then
With mrc
For intCount = 0 To 10
Text1(intCount) = .Fields(intCount)
Next intCount
If Not IsNull(!sex) Then
Combo1 = !sex
End If
mrc.Close
Me.Caption = Me.Caption "修改"
End With
End If
End If
mblchange = False
End Sub
Option Explicit
Public sQSql As String
Public mrc As ADODB.Recordset
Public txtSQL As String
Public msgtext As String
Private Sub Check1_Click(Index As Integer)
If Index = 0 Then
Text1(Index).SetFocus
End If
If Index = 1 Then
Text1(Index).SetFocus
Else
Text1(Index).SetFocus
End If
End Sub
Private Sub cmdcancel_Click()
Unload Me
End Sub
Private Sub cmdOK_Click()
If Check1(0).Value = vbChecked Then
sQSql = "ygname='" Trim(Text1(0) "") "'"
End If
If Check1(1).Value = vbChecked Then
If Trim(sQSql " ") = "" Then
sQSql = "ygid='" Trim(Text1(1) "") "'"
Else
sQSql = sQSql "and ygid='" Trim(Text1(1) "") "'"
End If
End If
If Check1(2).Value = vbChecked Then
If Trim(sQSql " ") = "" Then
sQSql = "ygdept='" Trim(Text1(2) "") ""
Else
sQSql = sQSql "and ygdept='" Trim(Text1(2) "") "'"
End If
End If
If Trim(sQSql " ") = "" Then
frmmanrecord.txtSQL = "select * from dangan"
flagEdit = True
frmmanrecord.ShowTitle
frmmanrecord.ShowData
frmmanrecord.Show
Else
frmmanrecord.txtSQL = "select * from dangan where " sQSql
flagEdit = True
frmmanrecord.ShowTitle
frmmanrecord.ShowData
frmmanrecord.Show
End If
Me.Hide
End Sub
Private Sub Form_Load()
Dim i As Integer
For i = 0 To 2
Text1(i) = ""
Next
End Sub
人事考勤模块代码
Option Explicit
Dim mblchange As Boolean
Dim mrc As ADODB.Recordset
Public txtSQL As String
Private Sub cboItem_Click(Index As Integer)
Dim msgtext As String
txtSQL = "select ygid,ygname from dangan where ygdept='" Trim(DataCombo1) "'"
Set mrc = ExecuteSQL(txtSQL, msgtext)
mrc.MoveFirst
mrc.Move cboItem(1).ListIndex
txtid = Trim(mrc!ygid)
End Sub
Private Sub cboItem_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)
EnterToTab KeyCode
End Sub
Private Sub cboMonth_Click()
Dim dateTemp As Date
dateTemp = DateAdd("d", -1, DateAdd("m", 1, DateSerial(CInt(cboYear), CInt(cboMonth), 1)))
txtItem(0) = Day(dateTemp)
End Sub
Private Sub cboYear_Click()
Dim dateTemp As Date
If Trim(cboMonth " ") "" Then
dateTemp = DateAdd("d", -1, DateAdd("m", 1, DateSerial(CInt(cboYear), CInt(cboMonth), 1)))
txtItem(0) = Day(dateTemp)
End If
End Sub
Private Sub cmdExit_Click()
If mblchange And gintMode 3 And cmdSave.Enabled Then
If MsgBox("保存当前记录的变化吗？", vbOKCancel + vbExclamation, "警告") = vbOK Then
Call cmdSave_Click
End If
End If
Unload Me
End Sub
Private Sub cmdSave_Click()
Dim intCount As Integer
Dim sMeg As String
Dim rectemp As Recordset
Dim sSql As String
Dim msgtext As String
For intCount = 0 To 3
If Trim(txtItem(intCount) " ") = "" Then
Select Case intCount
Case 0
sMeg = "本月天数"
Case 2
sMeg = "应出勤天数"
Case 3
sMeg = "出勤"
End Select
If intCount 1 Then
sMeg = sMeg "不能为空！"
MsgBox sMeg, vbOKOnly + vbExclamation, "警告"
txtItem(intCount).SetFocus
Exit Sub
End If
End If
Next intCount
If gintMode = 1 Then
txtSQL = "select * from checkin where kqid='" Trim(txtid) "' and kqdate= '" Format(cboYear.Text "-" cboMonth.Text "-01", "yyyy-mm-dd") "'"
Set mrc = ExecuteSQL(txtSQL, msgtext)
If mrc.EOF = False Then
MsgBox "已经存在该员工在该月的考勤记录！", vbOKOnly + vbExclamation, "警告"
cboMonth.SetFocus
Exit Sub
End If
mrc.Close
txtSQL = "delete from checkin where kqid='" Trim(txtid) "' and kqdate='" Format(cboYear "-" cboMonth "-01", "yyyy-mm-dd") "'"
Set mrc = ExecuteSQL(txtSQL, msgtext)
txtSQL = "select * from checkin"
Set mrc = ExecuteSQL(txtSQL, msgtext)
mrc.AddNew
mrc.Fields(0) = Trim(txtid)
mrc.Fields(1) = Trim(cboItem(1))
mrc.Fields(2) = Format(cboYear "-" cboMonth "-01", "yyyy-mm-dd")
For intCount = 0 To 15
mrc.Fields(intCount + 3) = Trim(txtItem(intCount).Text)
Next intCount
For intCount = 16 To 17
mrc.Fields(intCount + 3) = Trim(txtItem(intCount).Text)
Next intCount
mrc.Update
MsgBox "记录添加成功！", vbOKOnly + vbExclamation, "警告"
For intCount = 0 To 17
txtItem(intCount) = ""
Next intCount
mblchange = False
ElseIf gintMode = 2 Then
txtSQL = "select kqid,kqname,kqdays,kqrday,kqtday,kqwork,kqabsent,kqrest,kqleave,kqlate,kqearly,kqforget,kqover1,kqvoer2,kqfill,kqgo,kqpay,kqdeduct,kqother,kqremark from checkin where kqid='" Trim(txtid) "'"
Set mrc = ExecuteSQL(txtSQL, msgtext)
mrc.Fields(0) = Trim(txtid)
mrc.Fields(1) = Trim(cboItem(1))
For intCount = 0 To 15
mrc.Fields(intCount + 2) = Trim(txtItem(intCount).Text)
Next intCount
For intCount = 16 To 17
mrc.Fields(intCount + 2) = Trim(txtItem(intCount).Text)
Next intCount
mrc.Update
MsgBox "记录修改成功!", vbOKOnly, "提示"
mrc.Close
Unload Me
frmCheck.ShowTitle
frmCheck.ShowData
frmCheck.ZOrder 0
End If
gintMode = 0
End Sub
Private Sub DataCombo1_Click(Area As Integer)
Dim sSql As String
Dim msgtext As String
txtSQL = "select ygid,ygname from dangan where ygdept='" Trim(DataCombo1) "'"
Set mrc = ExecuteSQL(txtSQL, msgtext)
cboItem(1).Clear
If Not mrc.EOF Then
With cboItem(1)
Do While Not mrc.EOF
.AddItem Trim(mrc!ygname)
mrc.MoveNext
Loop
.ListIndex = 0
End With
cmdSave.Enabled = True
Else
MsgBox "请先建立员工档案！", vbOKOnly + vbExclamation, "警告"
cmdSave.Enabled = False
Exit Sub
End If
End Sub
Private Sub Form_Load()
Dim intCount As Integer
Dim dateTemp As Date
Dim msgtext As String
Adodc1.Visible = False
cboYear.AddItem Year(Now)
cboYear.AddItem Year(Now) - 1
cboYear.ListIndex = 0
For intCount = 1 To 12
cboMonth.AddItem intCount
Next intCount
cboMonth = Month(Now)
If gintMode = 1 Then
Me.Caption = Me.Caption "添加"
'初始化部门名称
txtSQL = "select DISTINCT ygdept from dangan"
Set mrc = ExecuteSQL(txtSQL, msgtext)
If mrc.EOF Then
MsgBox "请先进行员工档案登记！", vbOKOnly + vbExclamation, "警告"
cmdSave.Enabled = False
Exit Sub
End If
'初始化本月天数
dateTemp = DateAdd("d", -1, DateAdd("m", 1, DateSerial(CInt(cboYear), CInt(cboMonth), 1)))
txtItem(0) = Day(dateTemp)
mrc.Close
ElseIf gintMode = 2 Then
Set mrc = ExecuteSQL(txtSQL, msgtext)
If mrc.EOF = False Then
With mrc
cboItem(1).AddItem .Fields(1)
cboItem(1).ListIndex = 0
For intCount = 2 To 19
If Not IsNull(.Fields(intCount)) Then
txtItem(intCount - 2) = .Fields(intCount)
End If
Next intCount
txtid = .Fields(0)
End With
End If
mrc.Close
Me.Caption = Me.Caption "修改"
End If
mblchange = False
End Sub
人事调动模块代码
Option Explicit
Dim mblchange As Boolean
Public txtSQL As String
Public msgtext As String
Dim mrc As ADODB.Recordset
Dim mybookmark As Variant
Private Sub cmdcancel_Click()
Unload Me
End Sub
Private Sub cmdchange_Click()
cmdchange.Enabled = False
Command1.Enabled = False
cmddelete.Enabled = False
gintMode = 2
End Sub
Private Sub cmddelete_Click()
Dim st As String
mybookmark = mrc.Bookmark
st = MsgBox("是否删除当前记录?", vbOKCancel, "提示")
If st = vbOK Then
mrc.MoveNext
If mrc.EOF Then
mrc.MoveFirst
mybookmark = mrc.Bookmark
mrc.MoveLast
mrc.Delete
mybookmark = mrc.Bookmark
Call viewdata
Else
mybookmark = mrc.Bookmark
mrc.MovePrevious
mrc.Delete
mrc.Bookmark = mybookmark
Call viewdata
End If
Else
mrc.Bookmark = mybookmark
Call viewdata
End If
End Sub
Private Sub cmdOK_Click()
Dim intCount As Integer
Dim txtSQL As String
Dim MsgString As String
If Text(0) = "" Then
MsgBox "编号不能为空!", vbOKOnly + vbExclamation, "警告"
Text(0).SetFocus
End If
If Text(1) = "" Then
MsgBox "事件不能为空!", vbOKOnly + vbExclamation, "警告"
Text(1).SetFocus
End If
If gintMode = 1 Then
txtSQL = "select * from renshi1 where id='" Trim(Text(0)) "'"
Set mrc = ExecuteSQL(txtSQL, msgtext)
If mrc.EOF = False Then
MsgBox "己存在此编号的记录,请重新输入!", vbOKOnly + vbExclamation, "警告"
Text(0).SetFocus
Exit Sub
End If
mrc.Close
txtSQL = "delete * from renshi1 where id='" Trim(Text(0)) "'"
Set mrc = ExecuteSQL(txtSQL, msgtext)
txtSQL = "select * from renshi1"
Set mrc = ExecuteSQL(txtSQL, msgtext)
mrc.AddNew
For intCount = 0 To 2
mrc.Fields(intCount) = Trim(Text(intCount))
Next intCount
mrc.Update
MsgBox "添加记录成功!", vbOKOnly, "提示"
frmrenshi.ZOrder 1
frmrenshi.Show
Command1.Enabled = True
cmdchange.Enabled = True
cmddelete.Enabled = True
first.Enabled = True
previous.Enabled = True
next1.Enabled = True
last.Enabled = True
End If
If gintMode = 2 Then
txtSQL = "select * from renshi1"
Set mrc = ExecuteSQL(txtSQL, msgtext)
For intCount = 0 To 2
mrc.Fields(intCount) = Text(intCount).Text
Next intCount
mrc.Update
MsgBox "记录修改成功!", vbOKOnly, "提示"
cmdchange.Enabled = True
Command1.Enabled = True
cmddelete.Enabled = True
End If
gintMode = 0
End Sub
Private Sub Command1_Click()
Dim i As Integer
For i = 0 To 2
Text(i).Text = ""
Next i
Command1.Enabled = False
cmdchange.Enabled = False
cmddelete.Enabled = False
first.Enabled = False
previous.Enabled = False
next1.Enabled = False
last.Enabled = False
gintMode = 1
End Sub
Private Sub first_Click()
mrc.MoveFirst
Call viewdata
End Sub
Private Sub Form_Load()
Dim txtSQL As String
Dim msgtext As String
Dim i As Integer
txtSQL = "select * from renshi1 "
Set mrc = ExecuteSQL(txtSQL, msgtext)
If mrc.EOF = True Then
MsgBox "没有任何记录,请添加!", vbOKOnly, "提示"
Else
mrc.MoveFirst
Call viewdata
mybookmark = mrc.Bookmark
mblchange = True
End If
mblchange = True
End Sub
Private Sub next1_Click()
mrc.MoveNext
If mrc.EOF Then
mrc.MoveFirst
End If
Call viewdata
End Sub
Private Sub previous_Click()
mrc.MovePrevious
If mrc.BOF Then
mrc.MoveLast
End If
Call viewdata
End Sub
Public Sub viewdata()
Dim intCount As Integer
For intCount = 0 To 2
Text(intCount) = mrc.Fields(intCount)
Next intCount
End Sub
需要硬件厂商提供SDK（Software Development Kit）,一般都有例子程序（vb.net,C#,C++,vb6.0等），然后根据说明书和例子二次开发就可以了，一般要主动找厂商要SDK
你应该在调试的时候在你的把一条带入了参数值的insert语句弄来看看，就能很快看出问题在哪里。另外[date]字段（这个地方最好用个中括号扩起来，敏感字符串哟！
如果实在不好弄写各存储过程吧。在Acess里面写一个添加查询吧。用
