đồ án tốt nghiệp chương trình quản lý nhân sự cho trụ sở chính của công ty tại số 216 đường trần duy hưng- hà nội

Website: http://www.docs.vn Email : lienhe@docs.vn Tel : 0918.775.368 CH sè 11 - B1 - ĐH KTQD Chuyên Photocopy - Đánh máy - In Luận văn, Tiểu luận : 6.280.688 PHN 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 Website: http://www.docs.vn Email : lienhe@docs.vn Tel : 0918.775.368 CH sè 11 - B1 - ĐH KTQD Chuyên Photocopy - Đánh máy - In Luận văn, Tiểu luận : 6.280.688 lng Tụi nhn thy rng, VMS có nhiều hoạt động, qui trình quản lý tin học hố 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, tơi đế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ô Qua xin chân thành cảm ơn hướng dẫn tận tuỵ thầy giáo hướng dẫn TS Trương Văn Tú anh chị phịng Tổ chức- Hành cơng ty Thông tin di động VMS MobiFone giúp đỡ, tạo điều kiện tốt cho tơi hồn thành tốt suốt trình thực tập Website: http://www.docs.vn Email : lienhe@docs.vn Tel : 0918.775.368 CH sè 11 - B1 - ĐH KTQD Chuyên Photocopy - Đánh máy - In Luận văn, Tiểu luận : 6.280.688 CHNG 1: TNG QUAN V CƠNG TY VMS MOBIFONE I Q 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 đoà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 tồ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 Website: http://www.docs.vn Email : lienhe@docs.vn Tel : 0918.775.368 CH sè 11 - B1 - ĐH KTQD Chuyên Photocopy - Đánh máy - In Luận văn, Tiểu luận : 6.280.688 Trong thi 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 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 Website: http://www.docs.vn Email : lienhe@docs.vn Tel : 0918.775.368 CH sè 11 - B1 - §H KTQD Chuyên Photocopy - Đánh máy - In Luận văn, TiĨu ln : 6.280.688 - 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 Hồng Mai, Thành phố Hà Nội - 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 Hoà 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 Website: http://www.docs.vn Email : lienhe@docs.vn Tel : 0918.775.368 CH sè 11 - B1 - ĐH KTQD Chuyên Photocopy - Đánh máy - In Luận văn, Tiểu luận : 6.280.688 ã Cn c quyt đị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 yê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 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í Website: http://www.docs.vn Email : lienhe@docs.vn Tel : 0918.775.368 CH số 11 - B1 - ĐH KTQD Chuyên Photocopy - Đánh máy - In Luận văn, Tiểu luận : 6.280.688 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: 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 Website: http://www.docs.vn Email : lienhe@docs.vn Tel : 0918.775.368 CH sè 11 - B1 - ĐH KTQD Chuyên Photocopy - Đánh máy - In Luận văn, Tiểu luận : 6.280.688 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 CH sè 11 - B1 - ĐH KTQD Chuyên Photocopy - Đánh máy - In Luận văn, Tiểu luận : 6.280.688 II CHC NNG, 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, chuyên 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 toán kế toá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 Website: http://www.docs.vn Email : lienhe@docs.vn Tel : 0918.775.368 CH sè 11 - B1 - §H KTQD Chuyên Photocopy - Đánh máy - In Luận văn, Tiểu ln : 6.280.688 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 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, chuyên 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) 10 Website: http://www.docs.vn Email : lienhe@docs.vn Tel : 0918.775.368 CH sè 11 - B1 - §H KTQD Chuyên Photocopy - Đánh máy - In Luận văn, Tiểu luËn : 6.280.688 Case 13 txttennv.SetFocus End Select End Sub Private Sub mnuback_Click() frmmain.Show End Sub Private Sub txttennv_keypress(KeyAscii As Integer) Select Case KeyAscii Case 13 cbopb.SetFocus End Select End Sub Private Sub cmdmoi_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case 13 txtmanv.SetFocus End Select End Sub 117 Website: http://www.docs.vn Email : lienhe@docs.vn Tel : 0918.775.368 CH sè 11 - B1 - ĐH KTQD Chuyên Photocopy - Đánh máy - In Luận văn, Tiểu luận : 6.280.688 Private Sub txtmanv_GotFocus() txtmanv.BackColor = &H8000000F End Sub Private Sub txttennv_gotfocus() txttennv.BackColor = &H8000000F End Sub Private Sub txtmanv_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case 13 txttennv.SetFocus End Select End Sub Private Sub cbopb_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case 13 mskNgaysinh.SetFocus End Select End Sub Private Sub mskngaysinh_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case 13 Cbogt1.SetFocus End Select End Sub 118 Website: http://www.docs.vn Email : lienhe@docs.vn Tel : 0918.775.368 CH sè 11 - B1 - ĐH KTQD Chuyên Photocopy - Đánh máy - In Luận văn, Tiểu luận : 6.280.688 Private Sub cbogt1_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case 13 cbodt.SetFocus End Select End Sub Private Sub cbodt_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case 13 cbotg.SetFocus End Select End Sub Private Sub cbotg_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case 13 txtdc.SetFocus End Select End Sub Private Sub txtdc_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case 13 txtqq.SetFocus End Select End Sub 119 Website: http://www.docs.vn Email : lienhe@docs.vn Tel : 0918.775.368 CH sè 11 - B1 - ĐH KTQD Chuyên Photocopy - Đánh máy - In Luận văn, Tiểu luận : 6.280.688 Private Sub txtqq_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case 13 txtdt.SetFocus End Select End Sub Private Sub txtdt_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case 13 txtnvd.SetFocus End Select End Sub Private Sub txtnvd_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case 13 txtcmnd.SetFocus End Select End Sub Private Sub txtcmnd_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case 13 txtnvao.SetFocus End Select End Sub Private Sub txtnvao_KeyPress(KeyAscii As Integer) Select Case KeyAscii 120 Website: http://www.docs.vn Email : lienhe@docs.vn Tel : 0918.775.368 CH sè 11 - B1 - ĐH KTQD Chuyên Photocopy - Đánh máy - In Luận văn, Tiểu luận : 6.280.688 Case 13 cbohd.SetFocus End Select End Sub Private Sub cbohd_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case 13 cbotdcm.SetFocus End Select End Sub Private Sub cbotdcm_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case 13 cbotdvh.SetFocus End Select End Sub Private Sub cbotdvh_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case 13 cbollct.SetFocus End Select End Sub Private Sub cbollct_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case 13 cboda.SetFocus 121 Website: http://www.docs.vn Email : lienhe@docs.vn Tel : 0918.775.368 CH sè 11 - B1 - ĐH KTQD Chuyên Photocopy - Đánh máy - In Luận văn, Tiểu luận : 6.280.688 End Select End Sub Private Sub cboda_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case 13 cbodo.SetFocus End Select End Sub Private Sub cbodo_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case 13 cbocvcm.SetFocus End Select End Sub Private Sub cboda_gotfocus() cboda.BackColor = &H8000000F End Sub Private Sub cbopb_gotfocus() cbopb.BackColor = &H8000000F End Sub Private Sub maskngaysinh_gotfocus() maskngaysinh.BackColor = &H8000000F End Sub Private Sub cbogt1_gotfocus() Cbogt1.BackColor = &H8000000F End Sub 122 Website: http://www.docs.vn Email : lienhe@docs.vn Tel : 0918.775.368 CH sè 11 - B1 - §H KTQD Chuyên Photocopy - Đánh máy - In Luận văn, TiÓu luËn : 6.280.688 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 End Sub Private Sub cbovh_gotfocus() Cbovh.BackColor = &H8000000F End Sub Private Sub cbollct_gotfocus() cbollct.BackColor = &H8000000F 123 Website: http://www.docs.vn Email : lienhe@docs.vn Tel : 0918.775.368 CH sè 11 - B1 - §H KTQD Chuyên Photocopy - Đánh máy - In Luận văn, TiÓu luËn : 6.280.688 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() mskNgaysinh.BackColor = &H8000000F End Sub Private Sub txtnvd_gotfocus() txtnvd.BackColor = &H8000000F 124 Website: http://www.docs.vn Email : lienhe@docs.vn Tel : 0918.775.368 CH sè 11 - B1 - ĐH KTQD Chuyên Photocopy - Đánh máy - In Luận văn, Tiểu luận : 6.280.688 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 If opttc(12).Value = True Then 125 Website: http://www.docs.vn Email : lienhe@docs.vn Tel : 0918.775.368 CH sè 11 - B1 - ĐH KTQD Chuyên Photocopy - Đánh máy - In Luận văn, Tiểu luận : 6.280.688 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 & "%'" 126 Website: http://www.docs.vn Email : lienhe@docs.vn Tel : 0918.775.368 CH sè 11 - B1 - ĐH KTQD Chuyên Photocopy - Đánh máy - In Luận văn, Tiểu luận : 6.280.688 End If '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 127 Website: http://www.docs.vn Email : lienhe@docs.vn Tel : 0918.775.368 CH sè 11 - B1 - ĐH KTQD Chuyên Photocopy - Đánh máy - In Luận văn, Tiểu luận : 6.280.688 'chucvudoan If opttc(9).Value = True Then 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 128 Website: http://www.docs.vn Email : lienhe@docs.vn Tel : 0918.775.368 CH số 11 - B1 - ĐH KTQD Chuyên Photocopy - Đánh máy - In Luận văn, Tiểu luận : 6.280.688 Private Sub cmdthoat_Click() Unload Me End Sub 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 129 Website: http://www.docs.vn Email : lienhe@docs.vn Tel : 0918.775.368 CH sè 11 - B1 - ĐH KTQD Chuyên Photocopy - Đánh máy - In Luận văn, Tiểu luận : 6.280.688 Me.optn.Enabled = True Me.optt.Enabled = True Me.optpb.Enabled = True Me.cbon.Enabled = True Me.cbot.Enabled = True Me.cbopb.Enabled = True ' 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 130 Website: http://www.docs.vn Email : lienhe@docs.vn Tel : 0918.775.368 CH số 11 - B1 - ĐH KTQD Chuyên Photocopy - Đánh máy - In Luận văn, Tiểu luận : 6.280.688 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 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 131 ... độ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, tơi đế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-. .. 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 nay,... 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: - Quản lý, điều hành việc phát triển hệ thống TTCP cho công tác quản lý