đồ án tốt nghiệp chương trình quản lý nhân sự trong doanh nghiệp

Website: http://www.docs.vn Email : lienhe@docs.vn Tel (: 0918.775.368 PHẦN MỞ ĐẦU Chúng ta sống thời đại mà cách mạng công nghệ thông tin (CNTT) diễn mạnh mẽ khắp nơi giới “Làn sóng thứ ba” tác động tích cực đến hầu hết hoạt động kinh tế - xã hội, làm thay đổi không lối sống, phong cách làm việc tư người mà tạo thay đổi lớn phương thức điều hành, quản lý tổ chức việc sản xuất, kinh doanh doanh nghiệp Nhờ ứng dụng CNTT mà việc quản lý tổ chức, quan trở nên gọn nhẹ hiệu Hiện nay, theo xu chung giới lợi ích to lớn đem lại, không nước phát triển mà nước phát triển, công ty lớn mà tổ chức nhỏ cố gắng tự xây dựng, thuê hay mua chương trình tin học phù hợp với yêu cầu, điều kiện tổ chức Cũng theo xu chung giới, công ty lớn nhỏ Việt Nam dần đưa vào sử dụng chương trình quản lý phù hợp với cơng ty, tổ chức Đó chương trình quản lý hoạt động kinh doanh, quản lý kho bãi, quản lý khách hàng… hay chương trình quản lý hố đơn, quản lý hồ sơ …Việc sử dụng chương trình khơng đem lại lợi ích mặt kết cơng việc mà cịn giảm tối đa chi phí phát sinh, như: chi phí nhân sự, chi phí lưu trữ, chi phí thời gian… Cũng mục đích đào tạo lĩnh vực Kinh tế nên lựa chọn công ty Thông tin di động VMS MobiFone – công ty cung cấp mạng di động lớn Việt Nam để thực tập với mong muốn làm quen tìm hiểu mơi trường kinh doanh làm việc chuyên nghiệp công ty Ở đây, tạo điều kiện thuận lợi để tìm hiểu cơng ty số hệ thống quản lý công ty như: Quản lý nhân sự, quản lý tiền lương… Tôi nhận thấy rằng, VMS có nhiều hoạt động, qui trình quản lý tin học hoá Website: http://www.docs.vn Email : lienhe@docs.vn Tel (: 0918.775.368 hồn tồn có hoạt động mà nhân viên cơng ty cịn phải thực thủ cơng, kể đến hoạt động quản lý nhân sự, quản lý khách hàng… Chính mà cơng việc liên quan thực cách thủ công phân chia cho chun viên đảm nhận nhóm cơng việc riêng Là sinh viên khoa Tin học kinh tế, với mục tiêu chuyên ngành đào tạo ứng dụng tin học có hiệu vào hoạt động quản lý tác nghiệp tổ chức kinh tế - xã hội với giúp đỡ anh chị phịng Tổ chức- Hành công ty VMS, đến định xây dựng chương trình Quản lý nhân cho Trụ sở cơng ty số 216 đường Trần Duy Hưng - Hà Nội Hi vọng, chương trình tơi giúp anh chị chun viên phịng Tổ chức- Hành giải phần khối lượng công việc mà hàng ngày họ phải giải Nội dung báo cáo bao gồm: Chương 1: Tổng quan công ty VMS Chương 2: Phương pháp luận phân tích, thiết kế hệ thống thơng tin Chương 3: Phân tích, thiết kế xây dựng chương trình Quản lý nhân Do kiến thức kinh nghiệm thân hạn chế nên báo cáo tơi khơng thể tránh khỏi sai sót, mong nhận lời nhận xét góp ý thầy cô Website: http://www.docs.vn Email : lienhe@docs.vn Tel (: 0918.775.368 CHƯƠNG 1: TỔNG QUAN VỀ CÔNG TY VMS MOBIFONE I QUÁ TRÌNH HÌNH THÀNH VÀ PHÁT TRIỂN - Tên công ty: Công ty Thông tin di động VMS MobiFone - Trụ sở cơng ty: 216 Trần Duy Hưng- Hà Nội VMS doanh nghiệp Nhà nước hạng trực thuộc Tập đồn Bưu Viễn thông Việt nam (VNPT) Được thành lập vào ngày 16 tháng 04 năm 1993, VMS trở thành doanh nghiệp khai thác dịch vụ thông tin di động GSM 900/1800 với thương hiệu MobiFone, đánh dấu cho khởi đầu ngành thông tin di động Việt Nam Lĩnh vực hoạt động MobiFone tổ chức thiết kế xây dựng, phát triển mạng lưới triển khai cung cấp dịch vụ thông tin di động có cơng nghệ, kỹ thuật tiên tiến đại kinh doanh dịch vụ thông tin di động công nghệ GSM 900/1800 toàn quốc Đến nay, sau 13 năm phát triển trưởng thành, MobiFone trở thành mạng điện thoại di động lớn Việt Nam Tính đến cuối năm 2006, VMS có triệu thuê bao, 1.500 trạm phát sóng 4.200 cửa hàng, đại lý toàn quốc MobiFone cung cấp gần 40 dịch vụ giá trị gia tăng tiện ích loại Những nỗ lực cống hiến MobiFone thị trường ghi nhận MobiFone vinh dự người tiêu dùng bình chọn “Mạng điện thoại di động ưa thích nhất” năm liên tiếp 2005 2006 báo Echip tổ chức “Thương hiệu mạnh Việt Nam 2005” Thời báo Kinh tế Việt Nam tổ chức Trong thời gian tới, VMS tiếp tục mở trạm phát sóng mới, cửa hàng đại lý nhằm đáp ứng nhu cầu sử dụng di động ngày tăng người dân Website: http://www.docs.vn Email : lienhe@docs.vn Tel (: 0918.775.368 Chúng ta thấy rõ tốc độ phát triển VMS biểu đồ tăng trưởng đây: BIỂU ĐỒ TĂNG TRƯỞNG THUÊ BAO MOBIFONE TỪ 1995 ĐẾN NAY: Hiện nay, Cơng ty Thơng tin di động có bốn Trung tâm Thông tin di động trực thuộc Xí nghiệp thiết kế Trụ sở Văn phịng Công ty đặt Hà Nội Địa chỉ: Số 216 đường Trần Duy Hưng, Quận Cầu Giấy, Thành phố Hà Nội - Trung tâm Thông tin di động khu vực I có trụ sở Hà Nội, chịu trách nhiệm kinh doanh khai thác mạng thông tin di động khu vực miền Bắc (các tỉnh phía Bắc đến Hà Tĩnh): Địa chỉ: Số 811A đường Giải Phóng, Quận Hoàng Mai, Thành phố Hà Nội Website: http://www.docs.vn Email : lienhe@docs.vn Tel (: 0918.775.368 - Trung tâm Thông tin di động khu vực II có trụ sở TP Hồ Chí Minh, chịu trách nhiệm kinh doanh khai thác mạng thông tin di động khu vực miền Nam (từ tỉnh Ninh Thuận đến tỉnh miền Ðông Nam Bộ TP Hồ Chí Minh): Địa chỉ: MM18 đường Trường Sơn, Phường 14, Quận 10, Thành phố Hồ Chí Minh - Trung tâm Thơng tin di động khu vực III có trụ sở Ðà Nẵng, chịu trách nhiệm kinh doanh khai thác mạng thông tin di động khu vực miền Trung Cao Nguyên (từ tỉnh Quảng Bình đến tỉnh Khánh Hồ tỉnh Ðắc Lắc: Địa chỉ: Số 263 đường Nguyễn Văn Linh, Thành phố Đà Nẵng - Trung tâm Thông tin di động khu vực IV có trụ sở Cần Thơ, chịu trách nhiệm kinh doanh khai thác mạng thông tin di động khu vực 10 tỉnh miền Tây Nam Bộ: Địa chỉ: Số 51F đường Nguyễn Trãi, Quận Ninh Kiều, Thành phố Cần Thơ - Xí nghiệp thiết kế thành lập ngày 21 tháng năm 1997 có trụ sở Hà Nội với nhiệm vụ tư vấn, khảo sát, thiết kế xây dựng cơng trình thơng tin di động • Căn định số 596/ QĐ-TCCB ngày 11/10/1997 Tổng Cục trưởng Tổng cục Bưu điện việc thành lập DNNN công ty Thông tin di động (VMS); • Căn cư định số 253/QĐ-TCCB-HĐQT ngày 28/09/1996 Chủ tịch Hội đồng quản trị Tổng Công ty Bưu chính- Viễn thơng Việt Nam việc phê chuẩn Điều lệ Tổ chức& Hoạt động công ty Thơng tin di động • Căn vào u cầu thực tế công tác quản lý sản xuất kinh doanh • Theo đề nghị trưởng phịng TC-HC Hiện cơng ty có 12 phịng ban, cụ thể là: Phòng xét thầu Website: http://www.docs.vn Email : lienhe@docs.vn Tel (: 0918.775.368 Phòng Khách hàng-Bán hàng & Marketing Phịng Cơng nghệ phát triển mạng Phịng Chăm sóc khách hàng Phịng Đầu tư xây dựng Phịng Tin học - Cước phí Phịng Kế tốn- Thống kê- Tài Phịng Điều hành khai thác Phòng Xuất nhập 10 Phòng Tổ chức- Hành 11 Phịng Thanh tốn cước phí 12 Ban Quản lý dự án Chúng ta hình dung rõ cấu tổ chức tồn cơng ty VMS thơng qua mơ hình sau: Website: http://www.docs.vn Email : lienhe@docs.vn Tel (: 0918.775.368 Giám đốc Công ty Phó Giám đốc Phó Giám đốc P Xét thầu P KH-BH&M P CNPTM P CSKH P ĐTXD P TH-TC P KTTKTC P ĐHKT P XNK P TC-HC P TTCP Ban QLDA Trung tâm TTDĐ KV1 Trung tâm TTDĐ KV1 Trung tâm TTDĐ KV1 Trung tâm TTDĐ KV1 Trung tâm TTDĐ KV1 Website: http://www.docs.vn Email : lienhe@docs.vn Tel (: 0918.775.368 II CHỨC NĂNG, QUYÊN HẠN VÀ NHIỆM VỤ CỦA CÁC PHỊNG BAN Phịng Tổ chức- Hành (TC-HC) Phịng TC-HC phịng chức cơng ty giúp Giám đốc đạo & thực mặt công tác sau: - Xây dựng mơ hình tổ chức máy công ty - Công tác nhân đào tạo - Công tác lao động, tiền lương - Công tác hành & quản trị - Cơng tác bảo vệ, an ninh quốc phịng, tra, an tồn lao động - Công tác thi đua, khen thưởng - Công tác thơng tin nội Phịng TC-HC gồm có: Trưởng phịng, phó phịng giúp việc, chun viên nhân viên phụ trách lĩnh vực công tác phịng Phịng Kế tốn- Thống kê- Tài (KT-TK-TC) Phịng KT-TK-TC phịng chức Cơng ty giúp giám đốc đạo thực mặt công tác sau: - Tổ chức máy kế tốn tồn cơng ty - Tổ chức thực hạch tốn kế tốn - Tổ chức thực cơng tác thống kê & tài - Hướng dẫn đạo kiểm tra đơn vị sở thực đầy đủ chế độ KT-TK-TC Phòng KT-TK- TC gồm có: Trưởng phịng, phó phịng giúp việc, chun viên nhân viên phụ trách lĩnh vực công tác phòng Website: http://www.docs.vn Email : lienhe@docs.vn Tel (: 0918.775.368 Phòng Kế hoạch -Bán hàng Marketing (KH-BH&M) Phịng KH-BH&M phịng chức cơng ty giúp giám đốc đạo thực mặt công tác sau - Công tác kế hoạch - Công tác bán hang - Cơng tác Marketing Phịng KH-BH&M gồm có: Trưởng phịng, phó phịng giúp việc, chun viên nhân viên phụ trách lĩnh vực công tác phòng Phòng Quản lý đầu tư-Xây dựng (ĐT-XD) Phịng ĐT-XD phịng chun mơn, nghiệp vụ có chức tham mưu, giúp Giám đốc công ty quản lý, điều hành thừa lệnh Giám đốc công ty điều hành lĩnh vực công tác sau - Quản lý nghiệp vụ công tác ĐT-XD công ty theo quy định Nhà nước Ngành - Kiểm tra, theo dõi, giám sát đánh giá công tác ĐT-XD đơn vị tồn cơng ty Phịng ĐT-XD gồm có: Trưởng phịng, phó phịng giúp việc, chun viên nhân viên phụ trách lĩnh vực cơng tác phịng Phòng Xuất nhập (XNK) Phòng XNK phòng chuyên mơn có chức tham mưu, giup Giám đốc cơng ty quản lý, điều hành thừa lệnh Giám đốc công ty điều hành lĩnh vực công tác sau: - Công tác XNK thiết bị thông tin di động Website: http://www.docs.vn Email : lienhe@docs.vn Tel (: 0918.775.368 - Thực công tác bảo hành, sửa chữa, yêu cầu thay thiết bị, vật tư, hàng hoá - Tổ chức X-NK thiết bị, vật tư hàng hoá theo hợp đồng ký kết bàn giao cho đơn vị có liên quan để triển khai thực hiện, lắp đặt theo nội dung hợp đồng Phịng XNK gồm có: Trưởng phịng, phó phịng giúp việc, chun viên nhân viên phụ trách lĩnh vực cơng tác phịng Phịng Cơng nghệ Phát triển mạng thơng tin di động( P CNPTM) Là phịng chun mơn, nghiệp vụ có chức tham mưu, giúp Giám đốc cơng ty quản lý, điều hành thừa lệnh Giám đốc công ty điều hành lĩnh vực sau: - Nghiên cứu ứng dụng công nghệ cho mạng thông tin di động - Công tác phát triển mạng lưới thông tin di động ( bao gồm phần lõi mạng lưới dịch vụ mới) Phịng CNPTM gồm có: Trưởng phịng, phó phịng giúp việc, chun viên nhân viên phụ trách lĩnh vực công tác phịng Phịng Tin học- Tính cước (P TH-TC) Phịng TH-TC phịng chun mơn, nghiệp vụ có chức tham mưu, giúp Giám đốc quản lý, điều hành thừa lệnh Giám đốc công ty điều hành lĩnh vực công tác sau - Quản lý, điều hành việc phát triển CNTT hỗ trợ cho công tác quản lý sản xuất kinh doanh công ty 10 Website: http://www.docs.vn Email : lienhe@docs.vn Tel (: 0918.775.368 cbopb.BackColor = &H8000000F End Sub Private Sub maskngaysinh_gotfocus() maskngaysinh.BackColor = &H8000000F End Sub Private Sub cbogt1_gotfocus() Cbogt1.BackColor = &H8000000F End Sub Private Sub txtdiachi_gotfocus() txttdkt.BackColor = &H8000000F End Sub Private Sub txtqq_gotfocus() txtqq.BackColor = &H8000000F End Sub Private Sub txtdt_gotfocus() txtdt.BackColor = &H8000000F End Sub Private Sub cbodt_gotfocus() cbodt.BackColor = &H8000000F End Sub Private Sub txttg_gotfocus() txttg.BackColor = &H8000000F End Sub Private Sub txtnvao_gotfocus() txtnvao.BackColor = &H8000000F End Sub Private Sub cbohd_gotfocus() cbohd.BackColor = &H8000000F 109 Website: http://www.docs.vn Email : lienhe@docs.vn Tel (: 0918.775.368 End Sub Private Sub cbovh_gotfocus() Cbovh.BackColor = &H8000000F End Sub Private Sub cbollct_gotfocus() cbollct.BackColor = &H8000000F End Sub Private Sub cbotdcm_gotfocus() cbotdcm.BackColor = &H8000000F End Sub Private Sub cbocvda_gotfocus() cbocvda.BackColor = &H8000000F End Sub Private Sub cbocvdo_gotfocus() cbocvdo.BackColor = &H8000000F End Sub Private Sub cbocvcm_gotfocus() cbocvcm.BackColor = &H8000000F End Sub Private Sub cbotg_gotfocus() cbotg.BackColor = &H8000000F End Sub Private Sub txtdc_gotfocus() txtdc.BackColor = &H8000000F End Sub Private Sub mskngaysinh_gotfocus() 110 Website: http://www.docs.vn Email : lienhe@docs.vn Tel (: 0918.775.368 mskNgaysinh.BackColor = &H8000000F End Sub Private Sub txtnvd_gotfocus() txtnvd.BackColor = &H8000000F End Sub Private Sub txtcmnd_gotfocus() txtcmnd.BackColor = &H8000000F End Sub Private Sub cbotdvh_gotfocus() cbotdvh.BackColor = &H8000000F End Sub Tìm kiếm Private Sub cmdcv_Click(Index As Integer) frmcvcmon.Show End Sub Private Sub cmddsvh_Click() frmvhuu.Show End Sub Private Sub cmdin_Click() Dim str 'hoten If opttc(0).Value = True Then str = "select * from nhanvien where nhanvien.tennv like '%" & txttracuu.Text & "%'" End If 'gioitinh 111 Website: http://www.docs.vn Email : lienhe@docs.vn Tel (: 0918.775.368 If opttc(12).Value = True Then str = "select * from nhanvien where nhanvien.gioitinh like '%" & txttracuu.Text & "%'" End If 'ma nhan vien If opttc(1).Value = True Then str = "select * from nhanvien where nhanvien.manv like '%" & txttracuu.Text & "%'" End If 'quequan If opttc(2).Value = True Then str = "select * from nhanvien where nhanvien.quequan like '%" & txttracuu.Text & "%'" End If 'diachi If opttc(3).Value = True Then str = "select * from nhanvien where nhanvien.diachihiennay like '%" & txttracuu.Text & "%'" End If 'so dt If opttc(4).Value = True Then str = "select * from nhanvien where nhanvien.sodt like '%" & txttracuu.Text & "%'" End If 'chuc vu cmon If opttc(5).Value = True Then str = "select * from nhanvien where nhanvien.chucvucm like '%" & txttracuu.Text & "%'" End If 112 Website: http://www.docs.vn Email : lienhe@docs.vn Tel (: 0918.775.368 'tdllct If opttc(6).Value = True Then str = "select * from nhanvien where nhanvien.trinhdollct like '%" & txttracuu.Text & "%'" End If 'pban If opttc(10).Value = True Then str = "select * from nhanvien where nhanvien.mapb like '%" & txttracuu.Text & "%'" End If 'trinhdovh If opttc(4).Value = True Then str = "select * from nhanvien where nhanvien.trinhdovh like '%" & txttracuu.Text & "%'" End If ' trinhdocmnv If opttc(7).Value = True Then str = "select * from nhanvien where nhanvien.trinhdocmnv like '%" & txttracuu.Text & "%'" End If ' chucvudang If opttc(8).Value = True Then str = "select * from nhanvien where nhanvien.chucvudang like '%" & txttracuu.Text & "%'" End If 'chucvudoan If opttc(9).Value = True Then 113 Website: http://www.docs.vn Email : lienhe@docs.vn Tel (: 0918.775.368 str = "select * from nhanvien where nhanvien.chucvudoan like '%" & txttracuu.Text & "%'" End If 'loaihd If opttc(11).Value = True Then str = "select * from nhanvien where nhanvien.loaihd like '%" & txttracuu.Text & " %'" End If DE1.Commands(5).CommandText = str If DE1.rstracuu.State = Then DE1.rstracuu.Open End If DE1.rstracuu.Requery rpt_tracuu.Show End Sub Private Sub cmdpb_Click() frmphongban.Show End Sub Private Sub cmdqtct_Click() frmnhanvien.Show End Sub Private Sub cmdthoat_Click() Unload Me End Sub 114 Website: http://www.docs.vn Email : lienhe@docs.vn Tel (: 0918.775.368 Private Sub Command1_Click(Index As Integer) frmktkl.Show End Sub Private Sub Command2_Click(Index As Integer) frmbangluong.Show End Sub Private Sub mnub_Click() frmmain.Show End Sub Private Sub txttracuu_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case 13 cmdin.SetFocus End Select End Sub Báo cáo lương Option Explicit Private Declare Sub InitCommonControls Lib "comctl32" () Private Sub cmdin_Click() Me.opttc.Enabled = True Me.optn.Enabled = True Me.optt.Enabled = True Me.optpb.Enabled = True Me.cbon.Enabled = True Me.cbot.Enabled = True Me.cbopb.Enabled = True 115 Website: http://www.docs.vn Email : lienhe@docs.vn Tel (: 0918.775.368 ' Me.txttb.Enabled = True Dim str str = "select * from qluong" If Me.opttc.Value Then rpt_bangluong.Show End If If Me.optn.Value Then str = str + " where qluong.nam= '" & cbon.Text & "'" DE1.Commands.Item("command11").CommandText = str rpt_bangluong.DataMember = "command11" rpt_bangluong.Refresh DE1.rsCommand11.Close rpt_bangluong.Show End If If Me.optt.Value Then str = str + " where qluong.thang= '" & cbot.Text & "'" DE1.Commands.Item("command11").CommandText = str rpt_bangluong.DataMember = "command11" rpt_bangluong.Refresh DE1.rsCommand11.Close rpt_bangluong.Show End If If Me.optpb.Value Then str = str + " where qluong.mapb= '" & cbopb.Text & "'" DE1.Commands.Item("command11").CommandText = str rpt_bangluong.DataMember = "command11" rpt_bangluong.Refresh DE1.rsCommand11.Close 116 Website: http://www.docs.vn Email : lienhe@docs.vn Tel (: 0918.775.368 rpt_bangluong.Show End If End Sub Private Sub cmdthoat_Click() Unload Me End Sub Private Sub Command1_Click() rpt_phongban.Show End Sub Private Sub Form_Initialize() InitCommonControls End Sub Private Sub Form_Load() Call CenterMyform(frmbcl) Dim str As String Dim rs As adodb.Recordset Set conn = New adodb.Connection gConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Persist Security Info=False;" & _ "Data Source= " & App.Path & "\Data\db1.mdb" conn.CursorLocation = adUseClient conn.Open gConnectionString Set rs = New adodb.Recordset str = "select mapb from phongban" rs.Open str, conn Do While Not rs.EOF 117 Website: http://www.docs.vn Email : lienhe@docs.vn Tel (: 0918.775.368 Me.cbopb.AddItem rs("mapb") rs.MoveNext Loop 'frmbcl.txttb.Enabled = False End Sub Phân tích, thiết kế xây dựng chương trình Quản lý nhân cơng ty VMS MobiFone MỤC LỤC I QUÁ TRÌNH HÌNH THÀNH VÀ PHÁT TRIỂN II CHỨC NĂNG, QUYÊN HẠN VÀ NHIỆM VỤ CỦA CÁC PHÒNG BAN 118 ... đảm nhận Nhận thấy hạn chế việc quản lý nhân vậy, nên cách không lâu Công ty mua chương trình Quản lý nhân sự, nhiên chương trình khơng phù hợp với việc quản lý Công ty nên không sử dụng Hiện... TÍCH THIẾT KẾ VÀ XÂY DỰNG CHƯƠNG TRÌNH QUẢN LÝ NHÂN SỰ CƠNG TY VMS MOBIFONE I TỔNG QUAN VỀ VIỆC PHÂN TÍCH Khảo sát chung Để thực cho việc xây dựng chương trình Quản lý nhân sự, tơi dành tuần để khảo... tiêu chí quản lý cơng ty, giải thích thuật ngữ q trình phức tạp khác, như: vấn đề quản lý chấm công, quản lý lương…của công ty Không tuần mà thời gian thực tập, tìm hiểu kỹ việc quản lý nhân công