学习型 ASP/PHP/ASP.NET 主机 30元/年全能 ASP/PHP/ASP.NET 主机,支持月付专业 MSSQL 数据库空间,支持月付专业 MySQL 数据库空间,支持月付
发新话题
打印

[分享]简单人力资源管理系统!含原代码!(已经开源)~

[分享]简单人力资源管理系统!含原代码!(已经开源)~

使用需知

编程中国,中国最大的编程网站!


本系统经规范的编写,包含了类的使用,以及各种人力管理系统的常见功能。
因为鉴于学习,先拿给大家使用,如果觉得有需要更改的地方请在论坛上留言或者QQ联系,本人将进行更改。
此系统仅用于学习。使用时请先附加数据库.mdf的文件。
从网络上下载后得到的请在论坛给我留言或者QQ联系我给我好的建议。
本系统在您使用后反馈的意见将进行一系列的更改,关于程序的原代码我将在不久后公布在论坛内,届时请及时关注我的帖子。
谢谢您的使用!!!~
版权所有!~再次谢谢你的使用。

做个简单的调查,大家主要需要一个什么样的系统,可以说系统名称,也可以表明需要什么样的功能.到时候我做的时候再进行添加各个大家想看到的功能,尽量的满足大家所需要的看到的代码.当然,不足的地方可以直接的提出.本人感激不尽!~
注意:因为文件上传大小有限,我将全部的文件分了3块,其中db为数据库文件,和以前的一样需要附加上去.另外,image文件请放到人力资源的根文件夹下.有什么不足的地方请提出.
声明:此系统只供参考学习!~


[此贴子已经被作者于2007-3-30 15:56:16编辑过]

附件: 您所在的用户组无法下载或查看附件

TOP

个人觉得什么样的系统都无所谓
斑竹能这样为我们这些菜鸟着想
我们是感激的
希望下次能多指点一二

TOP

版主 你好 我觉得人事管理跟图书管理差不多 是不是有些重复了 能不能做个视频点播系统

TOP

Private Sub login_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim st As String

Dim filename As String = Application.ExecutablePath()
filename = filename.Substring(0, filename.LastIndexOf("\") + 1)
filename = filename & "chuzu.mdb"

st = " PageTimeout=5;FIL=MS Access;MaxBufferSize=2048;DSN=22;UID=admin;DBQ=" + filename + ";DriverId=25"
Try
cn1 = New OdbcConnection(st)
cn1.Open()
cnflag = True
' MsgBox("连接成功!!")
Catch ex As Exception
MsgBox("连接失败!!!!!!!!!!!!!")
End Try
End Sub
想请教各位大哥,我怎么修改上面的数据库连接,可以达到在任何的电脑上都可以打开数据库

TOP

以下是引用bobking在2006-5-20 10:05:00的发言:
版主 你好 我觉得人事管理跟图书管理差不多 是不是有些重复了 能不能做个视频点播系统

恩,考虑一下你的要求,到时候我会进行相关的工作.收集一下所需要的材料!~
如果可以的话我会在论坛里发布的

爱上思考,爱上编程,爱上.net!

TOP

以下是引用jxzyh1在2006-5-21 20:12:00的发言:

Private Sub login_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim st As String

Dim filename As String = Application.ExecutablePath()
filename = filename.Substring(0, filename.LastIndexOf("\") + 1)
filename = filename & "chuzu.mdb"

st = " PageTimeout=5;FIL=MS Access;MaxBufferSize=2048;DSN=22;UID=admin;DBQ=" + filename + ";DriverId=25"
Try
cn1 = New OdbcConnection(st)
cn1.Open()
cnflag = True
' MsgBox("连接成功!!")
Catch ex As Exception
MsgBox("连接失败!!!!!!!!!!!!!")
End Try
End Sub
想请教各位大哥,我怎么修改上面的数据库连接,可以达到在任何的电脑上都可以打开数据库

建议以后养成一种习惯,用这样的方法去建立连接
Dim conn As New oledb.connection("Provider=Microsoft.Jet.Oledb.4.0;data source = 相对路径"

[此贴子已经被作者于2006-5-22 7:39:37编辑过]

爱上思考,爱上编程,爱上.net!

TOP

以下是引用Viviwei在2006-5-22 7:28:00的发言:

恩,考虑一下你的要求,到时候我会进行相关的工作.收集一下所需要的材料!~
如果可以的话我会在论坛里发布的

静侯佳音!

TOP

版主什么时候开源呢
静侯!

TOP

怎么不能运行呢?呵呵

花开花落,去留无意

TOP

斑竹,文档管理系统,急需要啊!斑竹~!

TOP

发新话题