Xã hội ngày càng phát triển, thông tin ngày càng trở nên phong phú, đa dạng và phức tạp. Sự bùng nổ thông tin đã thực sự trở nên một vấn đề cấp thiết cần giải quyết. Công nghệ thông tin (CNTT) ra đời và phát triển nhằm xử lý những vấn đề cấp thiết đó. Ngày nay thật khó hình dung một ngành nghề hay một lĩnh vực nào mà CNTT không thâm nhập vào. Một trong lĩnh vực mà tin học thâm nhập vào sâu và thu được những thành tựu to lớn, đó là lĩnh vực quản lý. Các phần mềm nối tiếp ra đời nhằm quản lý các vấn đề như kế hoạch, nhân sự, kế toán, tài vụ, quản lý hàng hoá đến việc bán hàng... Tin học trong lĩnh vực này đã góp phần đáng kể làm giảm nhẹ công sức, tiền bạc, giúp cho các nhà lãnh đạo đưa ra những quyết định đúng đắn ở tầm vĩ mô cũng như vi mô. Nước ta trong những năm gần đây, lĩnh vực quản lý này đã được nhiều công ty phần mềm quan tâm giải quyết như phần mềm kế toán ACCNET của công ty Lạc Việt, phần mềm quản lý khách sạn, kho của công ty FPT... Đối với các công ty, các trường đại học, các phần mềm viết riêng cho mình để quản lý phù hợp với đặc trưng riêng cũng là một nhu cầu không thể thiếu được. Để đáp ứng nhu cầu nên em xây dựng chương trình quản lý nhân sự nhằm tự động hoá các công việc trên giúp cho việc quản lý nhanh chóng và thuận tiện. Hệ chương trình Quản lý nhân sự em đã đề cập và giải quyết những vấn đề sau: + Quản lý các thông tin về hồ sơ (Tên, tuổi...) + Quản lý thông tin về danh mục (Ngoại ngữ, dân tộc...) + Đưa ra các thông tin cần tra cứu + Đưa ra các báo cáo lương, hồ sơ nhân viên. Trong bản luận văn này, em xin giới thiệu một chương trình được xây dựng bằng phần mềm VisualBasic 6.0(VB6.0). VB6.0 được chọn vì có thể tạo ra những giao diện đẹp trên môi trường Windows, thân thiện với người sử dụng đồng thời dễ dàng tạo các hàm, các thủ tục thoả mãn được các yêu cầu mềm dẻo, linh hoạt. Mặc dù rất cố gắng, nhưng do hạn chế về mặt thời gian, vừa khai thác phần mềm VB6.0, lại vừa xây dựng ứng dụng của mình, phần mềm VB6.0 là phần mềm khá mới mẻ mà em được học ở trường, những kiến thức còn non yếu về chuyên ngành quản lý nhân sự nên bản luận văn này chắc chắn còn nhiều thiếu sót. Rất mong được sự góp ý của thầy cô , các bạn để điều chỉnh và hoàn thiện chương trình.
Chơng trình Quản Lý Nhân Sự TGHD: Thạc sỹ Đoàn Hữu V ợng lời Mở đầu Xã hội ngày phát triển, thông tin ngày trở nên phong phú, đa dạng phức tạp Sự bùng nổ thông tin thực trở nên vấn đề cấp thiết cần giải Công nghệ thông tin (CNTT) đời phát triển nhằm xử lý vấn đề cấp thiết Ngày thật khó hình dung ngành nghề hay lĩnh vực mà CNTT không thâm nhập vào Một lĩnh vực mà tin học thâm nhập vào sâu thu đợc thành tựu to lớn, lĩnh vực quản lý Các phần mềm nối tiếp đời nhằm quản lý vấn đề nh kế hoạch, nhân sự, kế toán, tài vụ, quản lý hàng hoá đến việc bán hàng Tin học lĩnh vực góp phần đáng kể làm giảm nhẹ công sức, tiền bạc, giúp cho nhà lãnh đạo đa định đắn tầm vĩ mô nh vi mô Nớc ta năm gần đây, lĩnh vực quản lý đợc nhiều công ty phần mềm quan tâm giải nh phần mềm kế toán ACCNET công ty Lạc Việt, phần mềm quản lý khách sạn, kho công ty FPT Đối với công ty, trờng đại học, phần mềm viết riêng cho để quản lý phù hợp với đặc trng riêng nhu cầu thiếu đợc Để đáp ứng nhu cầu nên em xây dựng chơng trình quản lý nhân nhằm tự động hoá công việc giúp cho việc quản lý nhanh chóng thuận tiện Hệ chơng trình Quản lý nhân em đề cập giải vấn đề sau: + Quản lý thông tin hồ sơ (Tên, tuổi ) + Quản lý thông tin danh mục (Ngoại ngữ, dân tộc ) + Đa thông tin cần tra cứu + Đa báo cáo lơng, hồ sơ nhân viên Nguyễn Phơng Giang Kinh Doanh Hà Nội Lớp Tin Tin học Quản Lý ĐH Quản Lý Chơng trình Quản Lý Nhân Sự TGHD: Thạc sỹ Đoàn Hữu V ợng Trong luận văn này, em xin giới thiệu chơng trình đợc xây dựng phần mềm VisualBasic 6.0(VB6.0) VB6.0 đợc chọn tạo giao diện đẹp môi trờng Windows, thân thiện với ngời sử dụng đồng thời dễ dàng tạo hàm, thủ tục thoả mãn đợc yêu cầu mềm dẻo, linh hoạt Mặc dù cố gắng, nhng hạn chế mặt thời gian, vừa khai thác phần mềm VB6.0, lại vừa xây dựng ứng dụng mình, phần mềm VB6.0 phần mềm mẻ mà em đợc học trờng, kiến thức non yếu chuyên ngành quản lý nhân nên luận văn chắn nhiều thiếu sót Rất mong đợc góp ý thầy cô , bạn để điều chỉnh hoàn thiện chơng trình Nguyễn Phơng Giang Kinh Doanh Hà Nội Lớp Tin Tin học Quản Lý ĐH Quản Lý Chơng trình Quản Lý Nhân Sự TGHD: Thạc sỹ Đoàn Hữu V ợng PHần i: Tổng quan Đề tài I Một số khái niệm quản lý: Quản lý khái niệm chung dùng để việc điều hành hoạt động tổ chức quan nhà máy xí nghiệp Nó đóng vai trò quan trọng nhân tố định tồn phát triển quan, xí nghiệp Với trào lu chung giới nay, phát triển không ngừng kinh tế thị trờng làm cho luồng khối lợng thông tin trở nên lớn Điều làm cho công tác quản lý trở nên khó khăn phức tạp phơng diện Theo truyền thống việc giải nhiệm vụ quản lý thờng dựa kinh nghiệm trực giác ngời lãnh đạo quản lý Nhng ngày đứng trớc nhiệm vụ đầy khó khăn phức tạp công tác quản lý với phơng pháp cổ truyền giải kịp công việc hàng ngày theo ý muốn chiếm nhiều thời gian Đó nguyên nhân gây lên kìm hãm phát triển tài sáng tạo nhà quản lý Trói buộc họ vào công việc nhàm chán Trong thực tế nay, để hoàn thành đợc nhiệm vụ trị kinh doanh đòi hỏi phải đáp ứng kịp thời thông tin phải đủ xác Điều cho thấy có phơng tiện máy tính trợ giúp nhà quản lý cần thiết ii mục đích đề tài: Việc xây dựng chơng trình quản lý nhân nhằm mục đích nh sau: - Quản lý hồ sơ cán - Cung cấp hệ thống thông tin phản ánh có hệ thống, khái quát chi tiết vấn đề có liên quan đến đội ngũ nhân phòng ban Trên sở thông tin nhân phòng ban, cán quản lý thực công việc sau: Nguyễn Phơng Giang Kinh Doanh Hà Nội Lớp Tin Tin học Quản Lý ĐH Quản Lý Chơng trình Quản Lý Nhân Sự TGHD: Thạc sỹ Đoàn Hữu V ợng + Xây dựng hệ thống chơng trình lu trữ, tra cứu nhanh thông tin với độ xác, tin cậy cao thời gian nhanh + Cung cấp nhanh chóng, đầy đủ xác thông tin theo yêu cầu cán quản lý, cấp lãnh đạo có liên quan + Xem hình biểu mẫu báo cáo tổng quát hay chi tiết theo chức vụ + Hệ thống xử lý in báo cáo nhanh chóng Do mục đích đề tài xây dựng sở liệu thống cho việc quản lý lu trữ thông tin cán bộ, giúp cho việc tra cứu thông tin cách nhanh chóng xác Chơng trình cho phép lu trữ, thống kê tra cứu, in báo cáo theo yêu cầu cán quản lý iii Cơ sở đề tài: Dựa sở chủ yếu sau: - Những yêu cầu cụ thể công việc ngời quản lý phòng ban - Những góp ý đề nghị thêm thân để làm cho việc quản lý nhân đợc gần gũi với tin học IV Biện pháp thực hiện: Xây dựng hệ thống thông tin quản lý hoàn chỉnh việc làm khó khăn chiếm nhiều thời gian công sức nh tài Thông thờng việc áp dụng tin học hoá việc quản lý phải dẫn tới đòi hỏi thực hàng loạt biện pháp to lớn tổ chức nh thay đổi hình thức tài liệu, bảng biểu, thay đổi cấu quan chức năng, cách thức kiểm tra không riêng phận mà tất phận có liên quan Chơng trình đợc thiết kế môi trờng Visual Basic 6.0, ngôn ngữ lập trình phổ biến Với mặt mạnh so với phần mềm khác có nhiều u điểm vợt trội: Đa dạng, phong phú đặc biệt tốn kém, phù hợp với điều kiện kinh tế quan hành có kinh tế eo hẹp, phù hợp với nghiệp vụ công tác hồ sơ Nguyễn Phơng Giang Kinh Doanh Hà Nội Lớp Tin Tin học Quản Lý ĐH Quản Lý Chơng trình Quản Lý Nhân Sự TGHD: Thạc sỹ Đoàn Hữu V ợng V Giới thiệu ngôn ngữ Visual Basic Ta biết móng office 97/2000 Visual Basic Thật vậy, Visual Basic công cụ phát triển phần mềm phổ biến Bill Gate mô tả Visual Basic nh công cụ vừa dễ lại vừa mạnh để phát triển ứng dụng môi trờng Windows cách hoàn hảo Các phiên 1.0,2.0, 6.0 lần lợt đời khiến Visual Basic trở nên mạnh trôi chảy Visual Basic ngôn ngữ đồ họa với đối tợng Form, công cụ, nút điều khiển, hộp text box Mỗi lập chơng trình cho đối tợng lại có hộp với kiện đơn giản tơng ứng nh click, Tất đối tợng nhỏ nằm hộp text box nằm Form Visual Basic có biến, hàm, thủ tục, nhiều thứ khác nh ngôn ngữ khác khoảng 14 biến Nguyễn Phơng Giang Kinh Doanh Hà Nội Lớp Tin Tin học Quản Lý ĐH Quản Lý Chơng trình Quản Lý Nhân Sự TGHD: Thạc sỹ Đoàn Hữu V ợng Phần II Chơng trình Quản Lý Nhân Sự Bắt đầu vào chơng trình có Form chơng trình nh sau: Mục Quản lý có mục nhỏ là: - Hồ sơ nhân viên - Danh mục - Tìm kiếm - Thoát Trong Danh mục lại có phần nhỏ nh: phòng ban, dân tộc, tôn giáo nhân viên Từ Quản lý, nháy vào Hồ sơ nhân viên, Form mục hồ sơ nhân viên chứa số liệu nhân viên sửa, xóa nút Nguyễn Phơng Giang Kinh Doanh Hà Nội Lớp Tin Tin học Quản Lý ĐH Quản Lý Chơng trình Quản Lý Nhân Sự TGHD: Thạc sỹ Đoàn Hữu V ợng Ta xem Hồ sơ lẫn lý lịch nhân viên nhờ phần kích tơng ứng Nguyễn Phơng Giang Kinh Doanh Hà Nội Lớp Tin Tin học Quản Lý ĐH Quản Lý Chơng trình Quản Lý Nhân Sự TGHD: Thạc sỹ Đoàn Hữu V ợng Và in báo cáo tơng ứng nhấn nút in: Trong Quản lý nhấn vào Danh mục chọn danh mục tơng ứng ta xem thông tin danh mục dân tộc hay trình độ thêm, sửa, xóa - Danh mục Dân tộc: Nguyễn Phơng Giang Kinh Doanh Hà Nội Lớp Tin Tin học Quản Lý ĐH Quản Lý Chơng trình Quản Lý Nhân Sự TGHD: Thạc sỹ Đoàn Hữu V ợng Danh mục đơn vị: Nguyễn Phơng Giang Kinh Doanh Hà Nội Lớp Tin Tin học Quản Lý ĐH Quản Lý Chơng trình Quản Lý Nhân Sự TGHD: Thạc sỹ Đoàn Hữu V ợng Danh mục tôn giáo: Nguyễn Phơng Giang Kinh Doanh Hà Nội 10 Lớp Tin Tin học Quản Lý ĐH Quản Lý Chơng trình Quản Lý Nhân Sự TGHD: Thạc sỹ Đoàn Hữu V ợng End Sub Private Sub txtthuetn_Change() Dim yt, xh yt = (Val(txtHsBhyt.Text) * Val(lblHsMalcb.Caption)) / 100 xh = (Val(txtHsBhxh.Text) * Val(lblHsMalcb.Caption)) / 100 txtHsLuong.Text = Val(lblHsMalcb.Caption) - yt - xh + Val(txtthuetn.Text) End Sub Form Công tác: Dim St Private Sub cmdDong_Click() Unload frmCongtac End Sub Public Sub SQL1(maso, Phongban, Chucvu) St = "" câu lệnh SQL St = St + " Delete *" St = St + " From Quatrinhct" St = St + " Where Manv = " + """" + maso + """" St = St + " And Phongban = " + """" + Phongban + """" St = St + " And Chucvu = " + """" + Chucvu + """" End Sub Private Sub cmdInan_Click() Devm.Qnvcongtac (txtManv.Text) rptQtctac.Show End Sub Nguyễn Phơng Giang Kinh Doanh Hà Nội 37 Lớp Tin Tin học Quản Lý ĐH Quản Lý Chơng trình Quản Lý Nhân Sự TGHD: Thạc sỹ Đoàn Hữu V ợng Private Sub cmdXoa_Click() Dim Mydb As Database Set Mydb = OpenDatabase(DCongtac.DatabaseName) SQL1 txtManv.Text, DataGrid1.Columns.Item(0), DataGrid1.Columns.Item(1) Mydb.Execute St Mydb.Close DCongtac.Refresh Devm.rsQQtcongtac.Close DataGrid1.DataMember = "" Devm.Commands.Item("QQtcongtac").CommandText = "Select * From QuatrinhCT Where Manv = " + """" + txtManv.Text + """" DataGrid1.DataMember = "QQtcongtac" DataGrid1.Refresh End Sub Private Sub Form_Load() Devm.QQtcongtac (frmHoso.txtHsMaso.Text) DataGrid1.DataMember = "QQtcongtac" End Sub Private Sub Form_Unload(Cancel As Integer) thủ tục nạp form Devm.rsQQtcongtac.Close End Sub Form DMCM: Private Sub cmdDong_Click() Unload frmDmCm End Sub Nguyễn Phơng Giang Kinh Doanh Hà Nội 38 Lớp Tin Tin học Quản Lý ĐH Quản Lý Chơng trình Quản Lý Nhân Sự TGHD: Thạc sỹ Đoàn Hữu V ợng Private Sub cmdSua_Click() grdLietke.AllowUpdate = True giá trị cho phép cập nhật grdLietke.SetFocus End Sub Private Sub cmdThem_Click() Devm.rsTB_ChuyenMon.AddNew grdLietke.AllowUpdate = True grdLietke.AllowArrows = True grdLietke.SetFocus End Sub Private Sub cmdXoa_Click() If MsgBox("Bạn có muốn xoá mẩu tin không ?", vbYesNo, "Xoá Dữ Liệu", 0, 0) = vbYes Then Devm.rsTB_ChuyenMon.Delete End If End Sub Private Sub Form_Load() grdLietke.AllowAddNew = False grdLietke.AllowUpdate = False End Sub Private Sub grdLietke_AfterUpdate() grdLietke.AllowAddNew = False grdLietke.AllowUpdate = False End Sub Nguyễn Phơng Giang Kinh Doanh Hà Nội 39 Lớp Tin Tin học Quản Lý ĐH Quản Lý Chơng trình Quản Lý Nhân Sự TGHD: Thạc sỹ Đoàn Hữu V ợng Private Sub grdLietke_BeforeUpdate(Cancel As Integer) grdLietke.AllowAddNew = False grdLietke.AllowUpdate = False End Sub Form DMCV: Private Sub cmdDong_Click() Unload frmDmCv End Sub Private Sub cmdSua_Click() grdLietke.AllowUpdate = True grdLietke.SetFocus End Sub Private Sub cmdThem_Click() Devm.rsTB_ChucVu.AddNew grdLietke.AllowUpdate = True grdLietke.AllowArrows = True grdLietke.SetFocus End Sub Private Sub cmdXoa_Click() If MsgBox("Bạn có muốn xoá mẩu tin không ?", vbYesNo, "Xóa Dữ Liệu", 0, 0) = vbYes Then Devm.rsTB_ChucVu.Delete End If End Sub Private Sub Form_Load() Nguyễn Phơng Giang Kinh Doanh Hà Nội 40 Lớp Tin Tin học Quản Lý ĐH Quản Lý Chơng trình Quản Lý Nhân Sự TGHD: Thạc sỹ Đoàn Hữu V ợng grdLietke.AllowAddNew = False grdLietke.AllowUpdate = False End Sub Private Sub grdLietke_AfterUpdate() grdLietke.AllowAddNew = False grdLietke.AllowUpdate = False End Sub Private Sub grdLietke_BeforeUpdate(Cancel As Integer) grdLietke.AllowAddNew = False grdLietke.AllowUpdate = False End Sub Form DMDT: Option Explicit Private Sub cmdDong_Click() Unload frmDmDt End Sub Private Sub cmdSua_Click() grdLietke.AllowUpdate = True grdLietke.SetFocus End Sub Private Sub cmdThem_Click() Devm.rsTB_DanToc.AddNew grdLietke.AllowUpdate = True grdLietke.AllowArrows = True Nguyễn Phơng Giang Kinh Doanh Hà Nội 41 Lớp Tin Tin học Quản Lý ĐH Quản Lý Chơng trình Quản Lý Nhân Sự TGHD: Thạc sỹ Đoàn Hữu V ợng grdLietke.SetFocus End Sub Private Sub cmdXoa_Click() If MsgBox("Bạn có muốn xoá mẩu tin không ?", vbYesNo, "Xóa Dữ Liệu", 0, 0) = vbYes Then Devm.rsTB_DanToc.Delete End If End Sub Private Sub Form_Load() grdLietke.AllowAddNew = False grdLietke.AllowUpdate = False End Sub Private Sub grdLietke_AfterUpdate() grdLietke.AllowAddNew = False grdLietke.AllowUpdate = False End Sub Private Sub grdLietke_BeforeUpdate(Cancel As Integer) grdLietke.AllowAddNew = False grdLietke.AllowUpdate = False End Sub Form DMDVI: Private Sub cmdDong_Click() Unload frmDmDvi End Sub Private Sub cmdSua_Click() Nguyễn Phơng Giang Kinh Doanh Hà Nội 42 Lớp Tin Tin học Quản Lý ĐH Quản Lý Chơng trình Quản Lý Nhân Sự TGHD: Thạc sỹ Đoàn Hữu V ợng grdLietke.AllowUpdate = True grdLietke.SetFocus End Sub Private Sub cmdThem_Click() Devm.rsTB_DonVi.AddNew grdLietke.AllowUpdate = True grdLietke.AllowArrows = True grdLietke.SetFocus End Sub Private Sub cmdXoa_Click() If MsgBox("Bạn có muốn xoá mẩu tin không ?", vbYesNo, "Xóa Dữ Liệu", 0, 0) = vbYes Then Devm.rsTB_DonVi.Delete End If End Sub Private Sub Form_Load() cmdSua.Enabled = True grdLietke.AllowAddNew = False grdLietke.AllowUpdate = False End Sub Private Sub grdLietke_AfterUpdate() grdLietke.AllowAddNew = False grdLietke.AllowUpdate = False End Sub Nguyễn Phơng Giang Kinh Doanh Hà Nội 43 Lớp Tin Tin học Quản Lý ĐH Quản Lý Chơng trình Quản Lý Nhân Sự TGHD: Thạc sỹ Đoàn Hữu V ợng Private Sub grdLietke_BeforeUpdate(Cancel As Integer) grdLietke.AllowAddNew = False grdLietke.AllowUpdate = False End Sub Form DMHV: Private Sub cmdDong_Click() Unload frmDmHv End Sub Private Sub cmdSua_Click() grdLietke.AllowUpdate = True grdLietke.SetFocus End Sub Private Sub cmdThem_Click() Devm.rsTB_HocVan.AddNew grdLietke.AllowUpdate = True grdLietke.AllowArrows = True grdLietke.SetFocus End Sub Private Sub cmdXoa_Click() If MsgBox("Bạn có muốn xoá mẩu tin không ?", vbYesNo, "Xóa Dữ Liệu", 0, 0) = vbYes Then Devm.rsTB_HocVan.Delete End If End Sub Nguyễn Phơng Giang Kinh Doanh Hà Nội 44 Lớp Tin Tin học Quản Lý ĐH Quản Lý Chơng trình Quản Lý Nhân Sự TGHD: Thạc sỹ Đoàn Hữu V ợng Private Sub Form_Load() grdLietke.AllowAddNew = False grdLietke.AllowUpdate = False End Sub Private Sub grdLietke_AfterUpdate() grdLietke.AllowAddNew = False grdLietke.AllowUpdate = False End Sub Private Sub grdLietke_BeforeUpdate(Cancel As Integer) grdLietke.AllowAddNew = False grdLietke.AllowUpdate = False End Sub Form DMNDT: Option Explicit Private Sub cmdDong_Click() Unload frmDmNdt End Sub Private Sub cmdSua_Click() grdLietke.AllowUpdate = True grdLietke.SetFocus End Sub Private Sub cmdThem_Click() Nguyễn Phơng Giang Kinh Doanh Hà Nội 45 Lớp Tin Tin học Quản Lý ĐH Quản Lý Chơng trình Quản Lý Nhân Sự TGHD: Thạc sỹ Đoàn Hữu V ợng Devm.rsTB_HeDaoTao.AddNew grdLietke.AllowUpdate = True grdLietke.AllowArrows = True grdLietke.SetFocus End Sub Private Sub cmdXoa_Click() If MsgBox("Bạn có muốn xoá mẩu tin không ?", vbYesNo, "Xóa Dữ Liệu", 0, 0) = vbYes Then Devm.rsTB_HeDaoTao.Delete End If End Sub Private Sub Form_Load() grdLietke.AllowAddNew = False grdLietke.AllowUpdate = False End Sub Form DMNN: Private Sub cmdDong_Click() Unload frmDmNn End Sub Private Sub cmdSua_Click() grdLietke.AllowUpdate = True grdLietke.SetFocus End Sub Private Sub cmdThem_Click() Devm.rsTB_NgoaiNgu.AddNew Nguyễn Phơng Giang Kinh Doanh Hà Nội 46 Lớp Tin Tin học Quản Lý ĐH Quản Lý Chơng trình Quản Lý Nhân Sự TGHD: Thạc sỹ Đoàn Hữu V ợng grdLietke.AllowUpdate = True grdLietke.AllowArrows = True grdLietke.SetFocus End Sub Private Sub cmdXoa_Click() If MsgBox("Bạn có muốn xóa mẩu tin không ?", vbYesNo, "Xóa Dữ Liệu", 0, 0) = vbYes Then Devm.rsTB_NgoaiNgu.Delete End If End Sub Private Sub Form_Load() grdLietke.AllowAddNew = False grdLietke.AllowUpdate = False End Sub Private Sub grdLietke_AfterUpdate() grdLietke.AllowAddNew = False grdLietke.AllowUpdate = False End Sub Private Sub grdLietke_BeforeUpdate(Cancel As Integer) grdLietke.AllowAddNew = False grdLietke.AllowUpdate = False End Sub Form DMTG: Option Explicit Nguyễn Phơng Giang Kinh Doanh Hà Nội 47 Lớp Tin Tin học Quản Lý ĐH Quản Lý Chơng trình Quản Lý Nhân Sự TGHD: Thạc sỹ Đoàn Hữu V ợng Private Sub cmdDong_Click() Unload frmDmTg End Sub Private Sub cmdSua_Click() grdLietke.AllowUpdate = True grdLietke.SetFocus End Sub Private Sub cmdThem_Click() Devm.rsTB_TonGiao.AddNew grdLietke.AllowUpdate = True grdLietke.AllowArrows = True grdLietke.SetFocus End Sub Private Sub cmdXoa_Click() If MsgBox("Bạn có muốn xoá mẩu tin không ?", vbYesNo, "Xóa Dữ Liệu", 0, 0) = vbYes Then Devm.rsTB_TonGiao.Delete End If End Sub Private Sub Form_Load() grdLietke.AllowAddNew = False grdLietke.AllowUpdate = False End Sub Private Sub grdLietke_AfterUpdate() Nguyễn Phơng Giang Kinh Doanh Hà Nội 48 Lớp Tin Tin học Quản Lý ĐH Quản Lý Chơng trình Quản Lý Nhân Sự TGHD: Thạc sỹ Đoàn Hữu V ợng grdLietke.AllowAddNew = False grdLietke.AllowUpdate = False End Sub Private Sub grdLietke_BeforeUpdate(Cancel As Integer) grdLietke.AllowAddNew = False grdLietke.AllowUpdate = False End Sub Form Tìm kiếm: Option Explicit Dim St As String Private Sub cmdClear_Click() txtMaso.Text = " " txtHoten.Text = " " txtChucvu.Text = " " txtPhongban.Text = " " txtMaso.SetFocus End Sub Private Sub cmdTimkiem_Click() Dim maso, ten, Donvi, Cviec khai báo biến maso = "%" + txtMaso.Text + "%" giá trị biến ten = "%" + txtHoten.Text + "%" Donvi = "%" + txtChucvu.Text + "%" Cviec = "%" + txtPhongban.Txt "%" SQL1 maso, ten, Donvi, Cviec Devm.Commands.Item("QTimkiem").CommandText = St Nguyễn Phơng Giang Kinh Doanh Hà Nội 49 Lớp Tin Tin học Quản Lý ĐH Quản Lý Chơng trình Quản Lý Nhân Sự TGHD: Thạc sỹ Đoàn Hữu V ợng dgrdLke.DataMember = "QTimkiem" If Devm.rsQTimkiem.RecordCount = Then MsgBox "Không có mẩu tin này!", vbOK, "Tìm kiếm", 0, End If Devm.rsQTimkiem.Close End Sub Public Sub SQL1(maso, ten, Donvi, Cviec) St = "" St = St + "Select *" St = St + " From HosoNV" St = St + " Where Manv Like " + """" + maso + """" St = St + " and Hoten Like " + """" + ten + """" St = St + " and TenDv Like " + """" + Donvi + """" St = St + " and Tencv Like " + """" + Cviec + """" End Sub Private Sub cmdDong_Click() Unload frmTimkiem End Sub Nguyễn Phơng Giang Kinh Doanh Hà Nội 50 Lớp Tin Tin học Quản Lý ĐH Quản Lý Chơng trình Quản Lý Nhân Sự TGHD: Thạc sỹ Đoàn Hữu V ợng mục lục Mục Phần I I II III IV V Phần II Phần III Nội dung Lời mở đầu Tổng quan đề tài Một số khái niệm quản lý Mục đích đề tài Cơ sở đề tài Biện pháp thực Giới thiệu ngôn ngữ Visual Basic Chơng trình quản lý nhân Mã chơng trình Nguyễn Phơng Giang Kinh Doanh Hà Nội 51 Trang 3 4 18 Lớp Tin Tin học Quản Lý ĐH Quản Lý [...]... học Quản Lý ĐH Quản Lý và Chơng trình Quản Lý Nhân Sự TGHD: Thạc sỹ Đoàn Hữu V ợng Danh mục hệ đào tạo: Nguyễn Phơng Giang Kinh Doanh Hà Nội 14 Lớp Tin 4 Tin học Quản Lý ĐH Quản Lý và Chơng trình Quản Lý Nhân Sự TGHD: Thạc sỹ Đoàn Hữu V ợng Danh mục chuyên môn: Nguyễn Phơng Giang Kinh Doanh Hà Nội 15 Lớp Tin 4 Tin học Quản Lý ĐH Quản Lý và Chơng trình Quản Lý Nhân Sự TGHD: Thạc sỹ Đoàn Hữu V ợng Từ Quản. ..Chơng trình Quản Lý Nhân Sự TGHD: Thạc sỹ Đoàn Hữu V ợng Danh mục ngoại ngữ: Nguyễn Phơng Giang Kinh Doanh Hà Nội 11 Lớp Tin 4 Tin học Quản Lý ĐH Quản Lý và Chơng trình Quản Lý Nhân Sự Nguyễn Phơng Giang Kinh Doanh Hà Nội TGHD: Thạc sỹ Đoàn Hữu V ợng 12 Lớp Tin 4 Tin học Quản Lý ĐH Quản Lý và Chơng trình Quản Lý Nhân Sự TGHD: Thạc sỹ Đoàn Hữu V ợng Danh mục học... 17 Lớp Tin 4 Tin học Quản Lý ĐH Quản Lý và Chơng trình Quản Lý Nhân Sự TGHD: Thạc sỹ Đoàn Hữu V ợng Nếu muốn in nháy biểu tợng máy in chọn OK Trong Giúp đỡ có Giới thiệu, muốn xem nháy vào Giới thiệu Nguyễn Phơng Giang Kinh Doanh Hà Nội 18 Lớp Tin 4 Tin học Quản Lý ĐH Quản Lý và Chơng trình Quản Lý Nhân Sự TGHD: Thạc sỹ Đoàn Hữu V ợng phần: iii Mã Chơng Trình Form Main( Chơng trình) : Option Explicit... Thạc sỹ Đoàn Hữu V ợng Từ Quản lý nháy vào Tìm kiếm, màn hình hiện ra giúp tìm kiếm thông tin theo những tiêu chuẩn nh Mã nhân viên, Tên Nguyễn Phơng Giang Kinh Doanh Hà Nội 16 Lớp Tin 4 Tin học Quản Lý ĐH Quản Lý và Chơng trình Quản Lý Nhân Sự TGHD: Thạc sỹ Đoàn Hữu V ợng Khi muốn thoát chơng trình từ Quản lý nháy Thoát Trong Báo cáo có 2 mục con là Hồ sơ nhân viên và Lơng nhân viên, nếu muốn xem báo... rptLilichcn.Show hiện báo cáo lý lịch theo mã số End Sub Private Sub cmdHsKetiep_Click() cmdHsQuaylai.Enabled = True If Not (DHoso.Recordset.EOF) Then nếu phải bản ghi cuối cùng thì di chuyển tới bản ghi kế tiếp DHoso.Recordset.MoveNext Else cmdHsKetiep.Enabled = False End If Nguyễn Phơng Giang Kinh Doanh Hà Nội 23 Lớp Tin 4 Tin học Quản Lý ĐH Quản Lý và Chơng trình Quản Lý Nhân Sự TGHD: Thạc sỹ Đoàn Hữu... frmDmNdt.Show End Sub Private Sub mnuDmNN_Click() frmDmNn.Show End Sub Private Sub mnuDmPb_Click() frmDmDvi.Show End Sub Nguyễn Phơng Giang Kinh Doanh Hà Nội 20 Lớp Tin 4 Tin học Quản Lý ĐH Quản Lý và Chơng trình Quản Lý Nhân Sự TGHD: Thạc sỹ Đoàn Hữu V ợng Private Sub mnuDmTg_Click() frmDmTg.Show End Sub Private Sub mnuGioithieu_Click() frmGthieu.Show End Sub Private Sub mnuHoso_Click() frmHoso.Show... End Sub Private Sub mnuTimkiem_Click() frmTimkiem.Show End Sub Form Hồ Sơ: Dim BtClick gắn giá trị cho biến Dim oldMaso Nguyễn Phơng Giang Kinh Doanh Hà Nội 21 Lớp Tin 4 Tin học Quản Lý ĐH Quản Lý và Chơng trình Quản Lý Nhân Sự TGHD: Thạc sỹ Đoàn Hữu V ợng Dim oldChucvu Dim oldLuong Dim oldDonvi Dim St Private Sub Cmdcancel_Click() Frame2.Enabled = False giá trị các đối tợng Frame3.Enabled = False... dbcboHsTencv.Text oldLuong = dbcboHsLuongcb.Text oldDonvi = dbcboHsTenpb.Text cmdHsLuuhoso.Enabled = True Nguyễn Phơng Giang Kinh Doanh Hà Nội Giá trị của các đối tợng 22 Lớp Tin 4 Tin học Quản Lý ĐH Quản Lý và Chơng trình Quản Lý Nhân Sự TGHD: Thạc sỹ Đoàn Hữu V ợng Frame2.Enabled = True Frame3.Enabled = True Frame4.Enabled = True cmdHsThemnv.Enabled = False cmdHsInhoso.Enabled = False cmdHsQuaylai.Enabled =... thủ tục cho các menu rptHosoNV.Show lệnh hiển thị form End Sub Private Sub mnuCongtac_Click() frmCongtac.Show End Sub Nguyễn Phơng Giang Kinh Doanh Hà Nội 19 Lớp Tin 4 Tin học Quản Lý ĐH Quản Lý và Chơng trình Quản Lý Nhân Sự TGHD: Thạc sỹ Đoàn Hữu V ợng Private Sub mnuDmCm_Click() frmDmCm.Show End Sub Private Sub mnuDmCv_Click() frmDmCv.Show End Sub Private Sub mnuDmDt_Click() frmDmDt.Show End Sub... txtLlDthoai.Text Fields("SoCMND") = txtLlSoCMND.Text Fields("noicap") = cbonoicap.Text If txtLlNgaycap.Text "" Then Nguyễn Phơng Giang Kinh Doanh Hà Nội 24 Lớp Tin 4 Tin học Quản Lý ĐH Quản Lý và Chơng trình Quản Lý Nhân Sự TGHD: Thạc sỹ Đoàn Hữu V ợng Fields("Ngaycap") = txtLlNgaycap.Text End If Fields("TDhocvan") = cboLlHocvan.Text Fields("NNChmon") = cboLlChmon.Text Fields("Ngngu") = cboLlNgngu.Text