[分享]简单人力资源管理系统!含原代码!(已经开源)~(页 1) - VB.NET论坛

Viviwei 发表于 2006-5-17 22:02

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

使用需知
 编程中国，中国最大的编程网站！
 本系统经规范的编写，包含了类的使用，以及各种人力管理系统的常见功能。 因为鉴于学习，先拿给大家使用，如果觉得有需要更改的地方请在论坛上留言或者QQ联系，本人将进行更改。 此系统仅用于学习。使用时请先附加数据库.mdf的文件。 从网络上下载后得到的请在论坛给我留言或者QQ联系我给我好的建议。 本系统在您使用后反馈的意见将进行一系列的更改，关于程序的原代码我将在不久后公布在论坛内，届时请及时关注我的帖子。 谢谢您的使用！！！~ 版权所有！~再次谢谢你的使用。 做个简单的调查,大家主要需要一个什么样的系统,可以说系统名称,也可以表明需要什么样的功能.到时候我做的时候再进行添加各个大家想看到的功能,尽量的满足大家所需要的看到的代码.当然,不足的地方可以直接的提出.本人感激不尽!~ 注意:因为文件上传大小有限,我将全部的文件分了3块,其中db为数据库文件,和以前的一样需要附加上去.另外,image文件请放到人力资源的根文件夹下.有什么不足的地方请提出. 声明:此系统只供参考学习!~ 
[align=right][color=#000066][此贴子已经被作者于2007-3-30 15:56:16编辑过][/color][/align]

sbudyu 发表于 2006-5-20 00:09

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

bobking 发表于 2006-5-20 10:05

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

jxzyh1 发表于 2006-5-21 20:12

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 想请教各位大哥,我怎么修改上面的数据库连接,可以达到在任何的电脑上都可以打开数据库

Viviwei 发表于 2006-5-22 07:28

<DIV class=quote>以下是引用bobking在2006-5-20 10:05:00的发言： 版主你好我觉得人事管理跟图书管理差不多是不是有些重复了能不能做个视频点播系统 </DIV>
恩,考虑一下你的要求,到时候我会进行相关的工作.收集一下所需要的材料!~ 如果可以的话我会在论坛里发布的

Viviwei 发表于 2006-5-22 07:35

<DIV class=quote>以下是引用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 想请教各位大哥,我怎么修改上面的数据库连接,可以达到在任何的电脑上都可以打开数据库</DIV>
建议以后养成一种习惯,用这样的方法去建立连接 Dim conn As New oledb.connection("Provider=Microsoft.Jet.Oledb.4.0;data source = 相对路径" 
[align=right][color=#000066][此贴子已经被作者于2006-5-22 7:39:37编辑过][/color][/align]

bobking 发表于 2006-5-22 10:04

<DIV class=quote>以下是引用Viviwei在2006-5-22 7:28:00的发言： 
恩,考虑一下你的要求,到时候我会进行相关的工作.收集一下所需要的材料!~ 如果可以的话我会在论坛里发布的</DIV>
静侯佳音!

ldd2w 发表于 2006-5-22 13:20

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

lemon2008 发表于 2006-5-25 21:11

怎么不能运行呢？呵呵

心急如焚 发表于 2006-5-25 21:22

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

Viviwei 发表于 2006-5-26 13:04

各位,我来了. 最近反馈的意见中,有很多人都说系统无法运行,请使用前先看好系统的要求!~ 不然无法使用是必然的现象!~

lanbingly 发表于 2006-5-28 10:41

斑竹帮忙看下那错了吧谢谢了偶是新手弄不清楚 Public Function excutesql(ByVal sql As String, ByVal table As String) Try adocmd = New OleDbDataAdapter(sql, "provider=SQLOLEDB; data source=(local) data base=C:\Program Files\Microsoft SQL Server\MSSQL\Data\0501127.mdf") adocmd.Fill(ds, table) mytable = ds.Tables.Item(0) rownumber = 0 myrow = mytable.Rows.Item(rownumber) Catch ex As Exception MsgBox(Err.Description)
 End Try
 End Function

Viviwei 发表于 2006-5-28 19:26

有什么错误提示吗?

漫步经心 发表于 2006-5-31 16:57

没代码啊

Viviwei 发表于 2006-5-31 22:10

这个只是测试软件,代码我不久后公布,请关注

lemon2008 发表于 2006-6-9 09:04

等源代码[em27]

mylovemin 发表于 2006-6-11 09:20

我附加了数据库都是看不到!!!!

xuyanfeng 发表于 2006-6-11 10:38

请尽快公布代码吧,数据库怎么加载啊,你的数据库是什么样的啊

Viviwei 发表于 2006-6-19 10:29

源代码已经公布,请大家关注我的下一个系统!!~ 使用前请附加数据库,谢谢您的使用!~ 声明:此系统只供学习使用!~

tianfeng0418 发表于 2006-6-19 12:22

谢谢楼主分享

页: [1] 2 3