[VB6]Quản lý nhân sự

Bộ sưu tập mã nguồn các ứng dụng về quản lý
Đăng trả lời
Hình đại diện của thành viên
vietteiv
Quản trị
Quản trị
Bài viết: 1325
Ngày tham gia: Thứ 7 10/02/2007 12:17 am
Đến từ: Cung cấp giải pháp quản lý doanh nghiệp, dự án, tư vấn xây dựng
Has thanked: 6 times
Been thanked: 70 times
Tiếp xúc:

[VB6]Quản lý nhân sự

Gửi bài by vietteiv »

Tên chương trình: Quản lý nhân sự
Ngôn ngữ lập trình: VB6
Tác giả: Sưu tầm
Chức năng: Quản lý
Ghi chú: project chưa hoàn chỉnh, các bạn cập nhật thêm
không biết có mems nào post chưa nữa, thôi kệ dọn kho thấy nên post lên rồi xóa luôn :)
chức năng thì như tiêu đề. hình minh họa đây
Image.jpg
Tập tin đính kèm
Qlns.zip
source code
(364.53 KiB) Đã tải về 17429 lần
Hình đại diện của thành viên
truongphu
VIP
VIP
Bài viết: 4785
Ngày tham gia: Chủ nhật 04/11/2007 10:57 am
Đến từ: Cam Đức, Khánh hòa
Has thanked: 14 times
Been thanked: 530 times

Re: [VB6]Quản lý nhân sự

Gửi bài by truongphu »

File đính kèm sau đây:
1- Bổ sung msmask32.ocx
2- Điều chỉnh các lỗi trong log
3- giao diện tiếng Việt (tạm)
4- Chỉnh lại hình ảnh nhân viên
Tập tin đính kèm
Qlns Unicode.rar
(332.2 KiB) Đã tải về 10077 lần
o0o--truongphu--o0o

.........
Ghé thăm:
Chuyện Linh Tinh
Hình đại diện của thành viên
Kasper
Guru
Guru
Bài viết: 1063
Ngày tham gia: Thứ 6 16/05/2008 10:54 am
Has thanked: 2 times
Been thanked: 76 times
Tiếp xúc:

Re: [VB6]Quản lý nhân sự

Gửi bài by Kasper »

Đánh giá:
- Phần mềm còn quá đơn giản
- Giao diện còn thô sơ, trình bày gây rối mắt người dùng
- Phần danh mục theo mình nghĩ nên làm trong 1 form và sử dụng Tab control.

Tạm thời nhận xét như thế.
Lành tợ tòng, ác tợ hoa,
Nhà hòa muôn việc đều nên.
Hình đại diện của thành viên
vietteiv
Quản trị
Quản trị
Bài viết: 1325
Ngày tham gia: Thứ 7 10/02/2007 12:17 am
Đến từ: Cung cấp giải pháp quản lý doanh nghiệp, dự án, tư vấn xây dựng
Has thanked: 6 times
Been thanked: 70 times
Tiếp xúc:

Re: [VB6]Quản lý nhân sự

Gửi bài by vietteiv »

mrcoding đã viết:Phần mềm này nếu mình không nhầm thì là của thằng IBT viết ra lâu rồi. Sử dụng đường dẫn đến CSDL tĩnh. Hình như tác giả sửa rồi pos lên thì phải?
nếu bạn muốn sử dụng cái do tui viết thì thử cái này xem, code đơn giản, ai viết cũng được, tui ghi rõ tác giả là vietteiv đó. bạn xem thử tui có chỉnh sửa hay chôm của ai nữa ko nhé :P
viewtopic.php?f=40&t=5033
chipmunk
Thành viên tích cực
Thành viên tích cực
Bài viết: 125
Ngày tham gia: Thứ 2 28/03/2011 9:19 am
Has thanked: 2 times
Been thanked: 5 times

Re: [VB6]Quản lý nhân sự

Gửi bài by chipmunk »

CHưa thử nhưng thất cũng khá đầy đủ, nên bổ sung thêm truy vấn nhân viên theo thông tin
ChoThueXe
Bài viết: 2
Ngày tham gia: Thứ 4 04/05/2011 12:05 pm
Been thanked: 1 time

Re: [VB6]Quản lý nhân sự

Gửi bài by ChoThueXe »

Tên chương trình: Quản lý nhân sự
Ngôn ngữ lập trình: VB6 + Access
Tác giả: Của tớ + Tham khảo bài của nhiều ACE khác. @@
Chức năng: Quản lý

Link: http://www.mediafire.com/?s39qfo8qn5sslsw
Pass: phamngoctham
ducngoan
Thành viên chính thức
Thành viên chính thức
Bài viết: 22
Ngày tham gia: Thứ 7 19/05/2012 10:54 am
Đến từ: HỒ CHÍ MINH
Has thanked: 10 times

Re: [VB6]Quản lý nhân sự

Gửi bài by ducngoan »

giúp mình sửa lỗi bên dưới với khi nhấn luu thì debug chỗ con3.ConnectionString = " provider = microsoft.jet.oledb.4.0; Data Soure = " & App.Path & "\QLNS.mdb" Run Time error '3705' Operation is not allowed when the object is open
bên dưới có hình mình đính kèm lỗi

Mã: Chọn tất cả

Private Sub Cmd_luu_Click()
Set objConnection = CreateObject("ADODB.Connection")
objConnection.Open "Provider = Microsoft.Jet.OLEDB.4.0;  Data Source =  " & App.Path & "\QLNS.mdb"
con3.CursorLocation = adUseClient
con3.ConnectionString = " provider = microsoft.jet.oledb.4.0; Data Soure = " & App.Path & "\QLNS.mdb"
con3.Open
rs3.ActiveConnection = con3
rs3.Open "select*from THONGTIN", con3, adOpenStatic, adLockOptimistic
If capnhat = True Then
checkloi
If kiemtra = True Then
Do Until BOF
    'perform action on the data or read values from fields
    rs3.MoveNext
Loop
rs3.AddNew
rs3![MNV] = Txtmanhanvien.Text
rs3![HOTEN] = txtHOTEN.Text
rs3![CHUCVU] = TxtChucvu.Text
rs3![BIDANH] = txtBIDANH.Text
rs3![CMND] = txtCMND.Text
rs3![DIENTHOAI] = txtDIENTHOAI.Text
rs3![EMAIL] = txtEMAIL.Text
rs3![QUEQUAN] = txtQUEQUAN.Text
rs3![DIACHI] = txtDIACHI.Text
rs3![mathe] = TxtMathe.Text
rs3![khoa] = Chkkhoa.Value
rs3![NGAYSINH] = Format(DTPngaysinh.Value, "dd/MM/yyy")
If cbgioitinh.List(cbgioitinh.ListIndex) = "Nam" Then
rs3![GIOITINH] = True
Else
rs3![GIOITINH] = False
End If
rs3.Fields("ANH").Value = anh3.Read
rs3.Update
MsgBox " ban da them moi thanh cong"
trangtrang
Else
MsgBox " kiem tra lai"
End If
Else
'MsgBox " xin vui long cap nhat"
Exit Sub
End If

End Sub
Tập tin đính kèm
3705.rar
(206.05 KiB) Đã tải về 677 lần
namht3
Bài viết: 1
Ngày tham gia: Chủ nhật 03/04/2016 10:22 am

Re: [VB6]Quản lý nhân sự

Gửi bài by namht3 »

Tên chương trình: Quản lý nhân sự
Ngôn ngữ lập trình: VB6 + Access
Tác giả: Mrcoding
Chức năng: Quản lý

Link: http://adf.ly/1Z1w1K

Phù hợp cho các bạn sinh viên tham khảo làm đồ án tốt nghiệp
Đăng trả lời

Quay về