• Vui lòng đọc nội qui diễn đàn để tránh bị xóa bài viết
  • Tìm kiếm trước khi đặt câu hỏi

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

Bộ sưu tập mã nguồn các ứng dụng về quản lý
Hình đại diện của người dùng
vietteiv
Quản trị
Quản trị
Bài viết: 1318
Ngày tham gia: T.Bảy 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 time
Been thanked: 69 time
Liên hệ:

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

Gửi bàigửi bởi vietteiv » CN 01/03/2009 8:54 am

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 16982 lần



Hình đại diện của người dùng
truongphu
VIP
VIP
Bài viết: 4756
Ngày tham gia: CN 04/11/2007 10:57 am
Đến từ: Cam Đức, Khánh hòa
Has thanked: 14 time
Been thanked: 509 time

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

Gửi bàigửi bởi truongphu » T.Hai 02/03/2009 11:01 am

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 9521 lần
o0o--truongphu--o0o

.........
Ghé thăm:
Chuyện Linh Tinh

Hình đại diện của người dùng
Kasper
Guru
Guru
Bài viết: 1062
Ngày tham gia: T.Sáu 16/05/2008 10:54 am
Has thanked: 2 time
Been thanked: 76 time
Liên hệ:

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

Gửi bàigửi bởi Kasper » T.Ba 03/03/2009 10:49 am

Đá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 người dùng
vietteiv
Quản trị
Quản trị
Bài viết: 1318
Ngày tham gia: T.Bảy 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 time
Been thanked: 69 time
Liên hệ:

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

Gửi bàigửi bởi vietteiv » T.Tư 25/03/2009 10:04 am

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: T.Hai 28/03/2011 9:19 am
Has thanked: 2 time
Been thanked: 5 time

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

Gửi bàigửi bởi chipmunk » T.Hai 04/04/2011 9:32 am

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: T.Tư 04/05/2011 12:05 pm
Been thanked: 1 time

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

Gửi bàigửi bởi ChoThueXe » T.Năm 14/07/2011 10:52 am

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: T.Bảy 19/05/2012 10:54 am
Đến từ: HỒ CHÍ MINH
Has thanked: 10 time

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

Gửi bàigửi bởi ducngoan » T.Tư 30/05/2012 3:59 pm

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 hết

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 473 lần

namht3
Bài viết: 1
Ngày tham gia: CN 03/04/2016 10:22 am

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

Gửi bàigửi bởi namht3 » CN 03/04/2016 10:26 am

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


Quay về “[VB] Mã nguồn chương trình quản lý”

Đang trực tuyến

Đang xem chuyên mục này: Không có thành viên nào trực tuyến.1 khách