编程论坛 → VB.NET论坛

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

Viviwei 发布于 2006-05-17 22:02， 23687 次点击

使用需知

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

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

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

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

68 回复

#2

sbudyu2006-05-20 00:09

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

#3

bobking2006-05-20 10:05

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

#4

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

#5

Viviwei2006-05-22 07:28

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

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

#6

Viviwei2006-05-22 07:35

以下是引用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编辑过]

#7

bobking2006-05-22 10:04

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

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

静侯佳音!

#8

ldd2w2006-05-22 13:20

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

#9

lemon20082006-05-25 21:11

怎么不能运行呢？呵呵

#10

心急如焚2006-05-25 21:22

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

#11

Viviwei2006-05-26 13:04

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

#12

lanbingly2006-05-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

#13

Viviwei2006-05-28 19:26

有什么错误提示吗?

#14

漫步经心2006-05-31 16:57

没代码啊

#15

Viviwei2006-05-31 22:10

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

#16

lemon20082006-06-09 09:04

等源代码

#17

mylovemin2006-06-11 09:20

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

#18

xuyanfeng2006-06-11 10:38

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

#19

Viviwei2006-06-19 10:29

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

#20

tianfeng04182006-06-19 12:22

谢谢楼主分享

#21

tianfeng04182006-06-19 12:31

如果能把查询和报表加进去对初学者来说就更完美了

#22

Viviwei2006-06-19 12:48

会考虑你的意见!~

#23

angellao2006-06-19 14:02

维维,支持你,支持你的成果!!!!! ---天使有约

#24

Viviwei2006-06-19 16:47

谢谢你的支持!~

#25

famdeng2006-07-04 01:52

请问怎样附加数据库阿？初学者不懂！

#26

guyan12202006-07-10 17:26

挺不错的一个东西值得参考一下

#27

duluck2006-10-09 17:29

谢谢！参考参考！！

#28

_羊_2006-12-05 19:30

#29

yb40337142006-12-28 21:16

kk

#30

agl2007-01-12 21:38

谢谢分享

#31

boojum2007-01-28 02:09

多谢大侠们的开源...

#32

zhoupeng1162007-04-16 11:03

斑竹,能不能做个学生自测系统,能实现登录,随机抽题和自动平分功能的

#33

Viviwei2007-04-17 10:17

回复：（zhoupeng116）斑竹,能不能做个学生自测系统,能...

没问题的啊!

#34

wenzi10112007-05-15 15:03

请问在哪边看这个程序啊,我怎么看不到

#35

cairun2007-06-12 12:16

fff

#36

dkxiaoyi2007-06-12 15:50

看不到啊～～～

#37

wly99082007-06-13 10:41

楼主，程序在哪能下载呢？
怎么看不到啊？

#38

zw1987672007-06-14 22:45

在哪下啊？

#39

zw1987672007-06-14 22:49

想借鉴下！在哪有下啊

#40

lisypro2007-06-15 08:29

从哪里下载呀

#41

liuminghui2007-06-15 14:13

楼主,你的东西找不到的啊

#42

lintianfen2007-07-02 15:07

这个怎么下载啊??

#43

lm6539472162007-08-28 16:39

版主可以传给我吗？
也在学习VB的过程中正好要做个练习想参考一下可以吗？
先谢谢啦！！

我的qq 653947216
我的邮箱是 653947216@qq.com

[此贴子已经被作者于2007-8-28 16:42:58编辑过]

#44

lm6539472162007-08-28 18:14

拜托啦呵呵可以就这几天给我吗？

#45

BAIGEZY2007-08-28 21:15

怎么没有下载地址？？？？

#46

BAIGEZY2007-08-28 21:16

EMAIL：baigezy@126.com
QQ:193498
等待你的程序

#47

adou2007-08-29 09:36

谢谢。

#48

donballking2007-09-06 12:16

怎么看不到资源，LZ能传给我一份吗？
donball520@163.com
谢谢了！

#49

float2007-09-07 14:09

下载来学学

#50

float2007-09-07 14:10

我怎么找不到下载链接啊??在哪下载啊?

#51

yz8707352007-09-18 06:52

期待

12