使用需知

编程中国，中国最大的编程网站！

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

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

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

odKUm8ao.rar (601.6 KB) [分享]简单人力资源管理系统!含原代码!~

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

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

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

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

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编辑过]

静侯佳音!

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

怎么不能运行呢？呵呵