Đồ án tốt nghiệp quản lý nhân sự của ngân hàng chính sách xã hội 45

LỜI NÓI ĐẦU Yếu tố nhân định tồn phát triển tổ chức nào,ngay doanh nghiệp thế, việc tổ chức nhân quản lý nhân để mang lại hiệu toán mà lãnh đạo doanh nghiệp quan tâm cần hỗ trợ giải Ngày nay, với phát triển vũ bão công nghệ thông tin giúp cho việc quản lý nhân ngày hiệu đáp ứng nhanh chóng yêu cầu mà ngành công nghiệp đề , với trợ giúp phần mềm chuyên dụng Với suy nghĩ vậy, em mạnh dạn trình bày đề tài: “Chương trình quản lý nhân Ngân hàng sách xã hội Huyện Ngọc Lặc Tỉnh Thanh Hóa” Trong khuôn khổ thời gian cho phép để làm đề tài tốt nghiệp em chưa hồn tất đầy đủ chức , tính linh hoạt phổ biến hệ thống Sau điều kiện cho phép ,đề tài phát triển rộng quy mơ hoạt động cho hồn chỉnh phù hợp với thực tế Em xin chân thành cảm ơn cô Nguyễn Thị Tuyển trực tiếp hướng dẫn em giúp đỡ em hoàn thành đề tài Đồng thời em xin chân thành cảm ơn thầy giáo mơn Khoa học máy tính giúp đỡ em hồn thành nhiệm vụ Em xin chân thành cảm ơn! Thái Nguyên, tháng năm Sinh viên : MỤC LỤC CHƯƠNG KHẢO SÁT HỆ THỐNG QUẢN LÝ NHÂN SỰ TẠI NGÂN HÀNG CHÍNH SÁCH XÃ HỘI HUYỆN NGỌC LẶC TỈNH THANH HĨA 1.1 Tìm hiểu cấu tổ chức nhân ngân hàng CSXH 1.1.1 Cơ cấu tổ chức 1.1.2 Chức nhiệm vụ .6 1.1.4 Quá trình hoạt động .9 1.1.5 Đối tượng phục vụ Ngân hàng CSXH .11 1.1.6 Một số biểu mẫu báo cáo Ngân hàng CSXH huyện Ngọc Lặc Tỉnh Thanh Hóa .13 1.2 Hệ thống quản lý nhân Ngân hàng CSXH huyện Ngọc Lặc Tỉnh Thanh Hóa 25 1.2.1 Sự hạn chế hệ thống quản lý cũ .25 1.2.2 Đề xuất hệ thống quản lý .26 1.2.3 Ưu điểm hệ thống quản lý nhân 27 CHƯƠNG 28 PHÂN TÍCH THIẾT KẾ HỆ THỐNG 28 2.1 Phân tích hệ thống 28 2.1.1 Thông tin đầu vào 28 2.1.2 Thông tin đầu 28 2.1.3 Mục tiêu quản lý 29 2.1.4 Biểu đồ phân cấp chức (BFD) 29 2.1.5 Biểu đồ luồng liệu khung cảnh 30 2.1.6 Biểu đồ luồng liệu mức đỉnh 30 2.1.7 Biểu đồ luồng liệu mức đỉnh (Cập nhật nhân sự) .31 2.1.8 Biểu đồ luồng liệu mức đỉnh (Tìm kiếm) 32 2.1.9 Sơ đồ luồng liệu mức đỉnh (Thống kê báo cáo) 33 2.2 Thiết kế hệ thống liệu .34 2.2.1 Các thực thể thuộc tính 34 2.2.2 Sơ đồ liên kết thực thể .38 CHƯƠNG 39 XÂY DỰNG CƠ SỞ DỮ LIỆU VÀ CÀI ĐẶT HỆ THỐNG 39 3.1 Cơ sở lý thuyết 39 3.1.1 Tổng quan Hệ quản trị sở liệu Microsoft Access 2003 .39 3.1.2 Tổng quan vể ngơn ngữ lập trình Microsoft Visual Basic 6.0 39 Một số kiểu liệu 40 Các cấu trúc điều khiển 43 3.2 Cơ sở liệu ACCESS .48 3.3 Thiết kế FORM chương trình 52 3.3.1 Các chức hệ thống: .52 3.3.2 Các vấn đề thực chương trình: 53 3.3.3 Giới thiệu số Form chương trình: 54 PHỤ LỤC: MÃ NGUỒN CỦA MỘT SỐ FORM CHÍNH 68 Mã nguồn Form Cập nhật: 68 Mã nguồn Form Tìm kiếm: 73 KẾT LUẬN 75 TÀI LIỆU THAM KHẢO 76 NHẬN XÉT CỦA GIÁO VIÊN 77 CHƯƠNG KHẢO SÁT HỆ THỐNG QUẢN LÝ NHÂN SỰ TẠI NGÂN HÀNG CHÍNH SÁCH XÃ HỘI HUYỆN NGỌC LẶC TỈNH THANH HĨA 1.1 Tìm hiểu cấu tổ chức nhân ngân hàng CSXH 1.1.1 Cơ cấu tổ chức Ngân hàng Chính sách xã hội, viết tắt NHCSXH thành lập theo Quyết định 131/2002/QĐ-TTg ngày tháng 10 năm 2002 Thủ tướng Chính phủ sở tổ chức lại Ngân hàng Phục vụ người nghèo Việc xây dựng Ngân hàng Chính sách xã hội điều kiện để mở rộng thêm đối tượng phục vụ hộ nghèo, học sinh, sinh viên có hồn cảnh khó khăn, đối tượng sách cần vay vốn để giải việc làm, lao động có thời hạn nước tổ chức kinh tế, cá nhân hộ sản xuất, kinh doanh thuộc xã đặc biệt khó khăn, miền núi, vùng sâu, vùng xa,khu vực II III Ngân hàng Chính sách xã hội có máy quản lý điều hành thống phạm vi nước, với vốn điều lệ ban đầu nghìn tỷ đồng cấp bổ sung phù hợp với yêu cầu hoạt động thời kỳ Thời hạn hoạt động Ngân hàng Chính sách xã hội 99 năm NHCSXH hoạt động khơng mục đích lợi nhuận, nhà nước bảo đảm khả toán;tỷ lệ dự trữ bắt buộc 0%(không phần trăm;không phải tham gia bảo hiểm tiền gửi;được miễn thuế khoản phải nộp ngân sách nhà nước => phục vụ người nghèo đối tượng sách khác Bộ máy quản trị Ngân hàng Chính sách xã hội bao gồm: Hội đồng quản trị Trung ương, 63 Ban đại diện Hội đồng quản trị cấp tỉnh, thành phố 660 Ban đại diện Hội đồng quản trị cấp quận, huyện Ngân hàng sách xã hội Việt Nam (NHCSXH) thành lập nhằm tách tín dụng sách khỏi tín dụng thương mại sở tổ chức lại Ngân hàng phục vụ người nghèo Đây nỗ lực lớn Chính phủ Việt Nam việc cấu lại hệ thống ngân hàng nhằm thực chương trình mục tiêu quốc gia cam kết trước cộng đồng quốc tế “xoá đói giảm nghèo” nhằm thực chương trình mục tiêu quốc gia cam kết trước cộng đồng quốc tế “ xố đói giảm nghèo” Hoạt động NHCSXH khơng mục tiêu lợi nhuận Sự đời NHCSXH có vai trị quan trọng cầu nối đưa sách tín dụng ưu đãi Chính phủ đến với hộ nghèo đối tượng sách khác; tạo điều kiện cho người nghèo tiếp cận chủ trương, sách Đảng Nhà nước; hộ nghèo, hộ sách có điều kiện gần gũi với quan công quyền địa phương Ngân hàng sách xã hội huyện Ngọc Lặc Tỉnh Thanh Hóa chi nhánh tuyến huyện trực thuộc tỉnh Thanh Hóa Ngân Hàng sách xã hội Việt Nam Mọi hoạt động cấu tổ chức Ngân hàng thuộc quan lý chi nhánh Ngân hàng tỉnh Thanh Hóa Trụ sở Chi nhánh đặt trung tâm Thành Phố Thanh Hóa Hiện quan có 15 phịng ban chia làm khối có mơ hình phân cấp máy tổ chức quản lý sau: Giám Đốc Các phó Giám đốc Khối QHKH Khối tổng hợp Khối tác nghiệp Khối hỗ trợ KT P QHKH cá nhân P Kế hoạch P Dịch vụ KH cá nhân P Hành P QHKH doanh nghiệp P Tín dụng Đầu tư P Dịch vụ KH tổ chức P Nhân P QH định chế tài P Kế tốn - Tài P Xử lý chứng từ P Pháp chế P Quản lý rủi P Ngân quỹ P Công nghệ thông tin 1.1.2 Chức nhiệm vụ - Tổ chức huy động vốn nước có trả lãi tổ chức tầng lớp dân cư bao gồm tiền gửi có kỳ hạn, khơng kỳ hạn; tổ chức huy động tiết kiệm cộng đồng người nghèo - Phát hành trái phiếu Chính phủ bảo lãnh, chứng tiền gửi giấy tờ có giá khác; vay tổ chức tài chính, tín dụng ngồi nước; vay tiết kiệm Bưu điện, Bảo hiểm xã hội Việt Nam; vay Ngân hàng Nhà nước - Được nhận nguồn vốn đóng góp tự nguyện khơng có lãi khơng hồn trả gốc cá nhân, tổ chức kinh tế, tổ chức tài chính, tín dụng tổ chức trị - xã hội, hiệp hội, tổ chức phi Chính phủ nước nước ngồi - Mở tài khoản tiền gửi toán cho tất khách hàng ngồi nước - NHCSXH có hệ thống toán nội tham gia hệ thống liên ngân hàng nước - NHCSXH thực dịch vụ ngân hàng toán ngân quỹ:  Cung ứng phương tiện toán  Thực dịch vụ toán nước  Thực dịch vụ thu hộ, chi hộ tiền mặt không tiền mặt  Các dịch vụ khác theo quy định Thống đốc Ngân hàng Nhà nước - Cho vay ngắn hạn, trung hạn dài hạn phục vụ cho sản xuất kinh doanh, tạo việc làm, cải thiện đời sống; góp phần thực chương trình mục tiêu quốc gia xố đói giảm nghèo, ổn định xã hội - Nhận làm dịch vụ uỷ thác cho vay từ tổ chức quốc tế, quốc gia, cá nhân nước, nước theo hợp đồng uỷ thác 1.1.3 Các dịch vụ truyền thông ngân hàng Thực trao đổi ngoại tệ Lịch sử cho thấy dịch vụ ngân hàng thực trao đổi ngoại tệ - nhà ngân hàng đứng mua, bán loại tiền này, chẳng hạn USD lấy lại tiền khác, chẳng hạn Franc hay Pesos hưởng phí dịch vụ Sự trao đổi quan trọng khách du lịch họ cảm thấy thuận tiện thoải mái có tay đồng tệ quốc gia hay thành phố họ đến Trong thị trường tài ngày nay, mua bán ngoại tệ thường ngân hàng lớn thực giao dịch có mức độ rủi ro cao, đồng thời yêu cầu phải có trình độ chun mơn cao Chiết khấu thương phiếu cho vay thương mại Ngay thời kỳ đầu, ngân hàng chiết khấu thương phiếu mà thực tế cho vay doanh nhân địa phương người bán khoản nợ (khoản phải thu) khách hàng cho ngân hàng để lấy tiền mặt Đó bược chuyển tiếp từ chiết thương phiếu sang cho vay trực tiếp khách hàng, giúp họ có vốn để mua hàng dự trữ xây dựng văn phòng thiết bị sản xuất Nhận tiền gửi Cho vay coi hoạt động sinh lời cao, ngân hàng tìm kiếm cách để huy động nguồn vốn cho vay Một nguồn vốn quan trọng khoản tiền gửi tiết kiệm gửi tiết kiệm khách hàng – quỹ sinhlợi gửi ngân hàng khoảng thời gian nhiều tuần, nhiều tháng, nhiều năm, hưởng mức lãi suất tương đối cao Trong lịch sử có kỷ lục lãi suất, chẳng hạn ngân hàng Hy Lạp trả lãi suất 16% năm để thu hút khoản tiết kiệm nhằm mục đích cho vay chủ tàu Địa Trung Hải với lãi suất gấp đôi hay gấp ba lãi suất tiết kiệm Bảo quản vật có giá trị: Ngay từ thời Trung Cổ, ngân hàng bắt đầu thực việc lưu giữ vàng vật có giá khác cho khách hàng kho bảo quản Một điều hấp hẫn giấy chứng nhận ngân hàng ký phát cho khách hàng (ghi nhận tài sản lưu giữ) lưu hành tiền – hình thức séc thẻ tín dụng Ngày nay, nghiệp vụ bảo quản vật có giá trị cho khách hàng thường phòng “Bảo quản” ngân hàng thực Tài trợ hoạt động Chính phủ Trong thời kỳ Trung Cổ vào năm đầu cách mạng Công nghiệp, khả huy động cho vay với khối lượng lớn ngân hàng trở thành trọng tâm ý Chính phủ Âu – Mỹ Thông thường, ngân hàng đượccấp giấy phép thành lập với điều kiện họ phải mua trái phiếu Chính phủ theo tỷ lệ định tổng lượng tiền gửi mà ngân hàng huy động Các ngân hàng cam kết cho Chính phủ Mỹ vay thời kỳ chiến tranh Ngân hàng Bank of North America Quốc hội cho phép thành lập năm 1781, ngân hàng thành lập để tài trợ cho đấu tranh xóa bỏ hộ nước Anh đưa Mỹ trở thành quốc gia có chủ quyền Cũng vậy, thời kỳ nội chiến, Quốc hội lập hệ thống ngân hàng liên bang mới, chấp nhận ngân hàng quốc gia tiểu bang miễn ngân hàng phải lập Quỹ phục vụ chiến tranh Cung cấp tài khoản giao dịch Cuộc cách mạng công nghiệp Châu Âu Châu Mỹ đánh dấu đời hoạt động dịch vụ ngân hàng Một dịch vụ mới, quan phát triển thời kỳ tài khoản tiền gửi giao dịch (demand deposit) – tài khoản tiền gửi cho phép người gửi tiền viết séc toán cho việc mua hàng hóa dịch vụ Việc đưa loại tài khỏan tiền gửi xem bước quan trọng công nghiệp ngân hàng cải thiện đáng kể hiệu q trình tốn, làm cho giao dịch kinh doanh trở nên dễ dàng hơn, nhanh chóng an toàn Cung cấp dịch vụ ủy thác Từ nhiều năm nay, ngân hàng thực việc quản lý tài sản quản lý hoạt động tài cho cá nhân doanh nghiệp thương mại Theo ngân hàng thu phí sở giá trị tài sản hay quy mô họ quản lý Chức quản lý tài sản gọi dịch vụ ủy thác (trust service) Hầu hết ngân hàng cung cấp hai loại: dịch vụ ủy thác thơng thường cho cá nhân, hộ gia đình; ủy thác thương mại cho doanh nghiệp Thông qua phịng Ủy thác cá nhân, khách hàng tiết kiệm khoản tiền học Ngân hàng quản lý đầu tư khỏan tiền khách hàng cần Thậm chí phổ biến hơn, ngân hàng đóng vai trị người ủy thác di chúc quản lý tài sản cho khách hàng qua đời cách công bố tài sản, bảo quản tài sản có giá, đầu tư có hiệu quả, đảm bảo cho người thừa kế hợp pháp việc nhận khoản thừa kế Tron gphòng ủy thác thương mại, ngân hàng quản lý danh mục đầu tư chứng khoán kế hoạch tiền lương cho cơng ty kinh doanh Ngân hàng đóng vai trị người đại lý cho cơng ty hoạt động phát hành cổ phiếu, trái phiếu Điều đòi hỏi phòng ủy thác trả lãi cổ tức cho chứng khốn cơng ty, thu hồi chứng khoán đến hạn cách toán tồn cho người nắm giữ chứng khốn 1.1.4 Q trình hoạt động Tổng dư nợ Ngân hàng Chính sách xã hội năm 2005 đạt 18.426 tỷ đồng, tăng 28,8% so với năm 2004 tăng gấp 3,9 lần so với năm 2000 Tốc độ tăng trưởng dư nợ bình quân năm (giai đoạn 2000 - 2005) đạt 31,9%/năm Dư nợ cho vay hộ nghèo 14.891 tỷ đồng, chiếm tỷ trọng 80,82%; Dư nợ cho vay giải việc làm 2.569 tỷ đồng, chiếm tỷ trọng 13,94%; Dư nợ cho vay học sinh, sinh viên 157 tỷ đồng, chiếm tỷ trọng 0,85%; Dư nợ cho vay xuất lao động 252 tỷ đồng, chiếm tỷ trọng 1,37%; Dư nợ cho vay nước vệ sinh môi trường nông thôn 328 tỷ đồng, chiếm tỷ trọng 1,78%; Dư nợ cho vay mua trả chậm nhà 178 tỷ đồng, chiếm tỷ trọng 0,97%; Dư nợ cho vay doanh nghiệp vừa nhỏ 30 tỷ đồng, chiếm tỷ trọng 0,16%; Dư nợ cho vay phát triển ngành lâm nghiệp 0,03%; Dư nợ cho vay khác 21 tỷ đồng, chiếm tỷ trọng 0,08% Nguồn vốn Ngân hàng Chính sách xã hội giai đoạn 1998 - 2005 tăng trưởng tốt, tốc độ tăng trưởng bình quân giai đoạn 29,5%/năm Đến thời điểm 31/12/2005, tổng nguồn vốn Ngân hàng Chính sách xã hội 20.219 tỷ đồng, tăng 92,1% so với 31/12/2003 5,91 lần nguồn vốn năm 1998 Cơ cấu nguồn vốn năm 2005 Ngân hàng Chính sách xã hội sau: Vốn từ Ngân sách Nhà nước 5.977 tỷ đồng, chiếm tỷ trọng 29,6% tổng nguồn vốn, đó: - Vốn điều lệ: 3.197 tỷ đồng, chiếm tỷ trọng 15,8% tổng nguồn vốn; - Vốn nhận từ chương trình: cho vay giải việc làm, học sinh, sinh viên cho vay nhà trả chậm vùng Đồng sông Cửu Long là: 2.780 tỷ đồng Vốn vay 1.715 tỷ đồng, chiếm tỷ trọng 8,5% tổng nguồn vốn, đó: - Vay Ngân hàng Nhà nước: 1.511 tỷ đồng - Vay nước ngoài: 204 tỷ đồng Vốn huy động 11.288 tỷ đồng, chiếm tỷ trọng 55,8% tổng nguồn vốn, đó: - Huy động thị trường 6.592 tỷ đồng; - Nhận tiền gửi 2% tổ chức tín dụng Nhà nước 4.696 tỷ đồng Vốn nhận tài trợ, uỷ thác đầu tư từ quyền địa phương 927 tỷ đồng, chiếm tỷ trọng 4,6% tổng nguồn vốn Vốn khác 312 tỷ đồng, chiếm tỷ trọng 1,5% tổng nguồn vốn 10 Form Báo cáo Danh sách lao động khen thưởng: Khi người dùng muốn in danh sách nhân viên khen thưởng chọn vào Menu THỐNG KÊ BÁO CÁO->Khen thưởng kỷ luật ->Khen thưởng Form Báo cáo Danh sách lao động bị kỷ luật:Tương tự người dùng muốn in danh sách nhân viên bị kỷ luật 64 Form Báo cáo Danh sách lao động theo khối: In danh sách nhân viên thuộc khối định Form Báo cáo Bảng chấm công tổng hợp: In tất thông tin ngày công tất nhân viên 65 Form Báo cáo Bảng lương tổng hợp: Tương tự in thông tin Lương tất nhân viên Báo cáo chấm công: Form giúp người sử dụng lựa chọn tháng cần in báo cáo chấm cơng cách chọn tháng cần in in hết mà không cần chọn tháng 66 Bảng chấm công theo tháng: Khi người dùng chọn tháng cần in nhân nút IN Fom báo cáo châm công in chi tiết ngày công nhân viên Tháng chọn Báo cáo Lương: Form giúp người sử dụng lựa chọn tháng cần in báo cáo Lương cách chọn tháng cần in in hết mà khơng cần chọn tháng 67 Bảng lương theo tháng: Khi người dùng chọn tháng cần in nhân nút IN Fom báo cáo Lương in chi tiết Lương nhân viên Tháng chọn Form Trợ giúp: Chứa thông tin hướng dẫn sử dụng người dùng cách đăng nhập hệ thống hay cách cài đặt Font không hiển thị Font tiếng Việt 68 PHỤ LỤC: MÃ NGUỒN CỦA MỘT SỐ FORM CHÍNH Mã nguồn Form Cập nhật: Dưới mã nguồn Form Cập nhật hồ sơ nhân viên, nhìn chung tất Form cập nhật phải có chức Thêm, Sửa, Xóa Vì thủ tục Thêm(), Sửa(), Xóa() Form tương tự Dim conn As ADODB.Connection Dim strconn As String Dim rs As ADODB.Recordset Dim strsql As String Dim addnewflag, b As Boolean ' Biến có giá trị True nhấn nút Thêm Private Sub Form_Load() Me.Command6.Enabled = True Me.l3.Visible = False addnewflag = False 'Giá tị mặc định biến False Setbuttons (False) lockedControls (True) End Sub Private Sub Setbuttons(bval As Boolean) cmddongy.Enabled = bval cmdhuybo.Enabled = bval cmdnoicap.Enabled = bval cmdselectcv.Enabled = bval cmdselectpb.Enabled = bval cmdselecttd.Enabled = bval cmdthem.Enabled = Not bval cmdsua.Enabled = Not bval cmdxoa.Enabled = Not bval End Sub Private Sub lockedControls(bval As Boolean) txtmanv.Locked = bval txthoten.Locked = bval txtngaysinh.Locked = bval txtgioitinh.Locked = bval txtsocmt.Locked = bval txtngaycap.Locked = bval txtnoicap.Locked = bval txtngayvaodang.Locked = bval txthotenbo.Locked = bval txtnghenghiepbo.Locked = bval txthotenme.Locked = bval 69 txtnghenghiepme.Locked = bval txthktt.Locked = bval txtnguyenquan.Locked = bval txtchuyenmon.Locked = bval txttencv.Locked = bval txttenpb.Locked = bval txttentd.Locked = bval End Sub Private Sub clearall() txtmanv.Text = "" txthoten.Text = "" txtngaysinh.Text = "" txtgioitinh.Text = "" txtchuyenmon.Text = "" txtngayvaodang.Text = "" txtnguyenquan.Text = "" txthktt.Text = "" txtsocmt.Text = "" txtngaycap.Text = "" txtnoicap.Text = "" txthotenbo.Text = "" txtnghenghiepbo.Text = "" txthotenme.Text = "" txtnghenghiepme.Text = "" txttenpb.Text = "" txttencv.Text = "" txttentd.Text = "" End Sub Private Sub cmdthem_click() addnewflag = True Adodc1.Recordset.AddNew clearall Setbuttons (True) lockedControls (False) Me.cmdhuybo.Enabled = False Me.l3.Visible = True Me.Command1.Enabled = False Me.Command2.Enabled = False Me.Command3.Enabled = False Me.Command4.Enabled = False Me.Command6.Enabled = False End Sub Private Sub cmdsua_click() addnewflag = False 70 Setbuttons (True) lockedControls (False) Me.txtmanv.Locked = True Me.l3.Visible = False End Sub Private Sub cmddongy_Click() If addnewflag = True Then Set rs = New ADODB.Recordset Set conn = New ADODB.Connection strconn = "provider=microsoft.jet.oledb.4.0;data source= " & App.Path & "\qlns.mdb" conn.CursorLocation = adUseClient conn.Open strconn strsql = "select * from nhanvien, chucvu, phongban,trinhdovh where nhanvien.macv=chucvu.macv and nhanvien.mapb=phongban.mapb and nhanvien.matd=trinhdovh.matd and nhanvien.manv='" & Me.txtmanv & "'" rs.Open strsql, conn If Not rs.EOF Then MsgBox "Ban nhap trung ma nhan vien!", vbOKOnly + vbInformation, "Thong Bao" Setbuttons (True) lockedControls (False) Else If txtmanv.Text = "" Then MsgBox "Ban chua nhap ma nhan vien!", vbOKOnly + vbInformation, "Thong Bao" Exit Sub Setbuttons (True) lockedControls (False) Else Adodc1.Recordset.Fields("manv") = txtmanv.Text If txthoten.Text "" Then Adodc1.Recordset.Fields("hoten") = txthoten.Text Else MsgBox "Ban chua nhap ho ten" Exit Sub Setbuttons (True) lockedControls (False) End If If txttencv.Text "" Then Adodc1.Recordset.Fields("macv") = txttencv.Text Else MsgBox "Ban chua chon Chuc vu " Exit Sub 71 Setbuttons (True) lockedControls (False) End If If txttenpb.Text "" Then Adodc1.Recordset.Fields("mapb") = txttenpb.Text Else MsgBox "Ban chua chon Phong ban " Exit Sub Setbuttons (True) lockedControls (False) End If If txttentd.Text "" Then Adodc1.Recordset.Fields("matd") = txttentd.Text Else MsgBox "Ban chua chon Trinh van hoa " Exit Sub Setbuttons (True) lockedControls (False) End If If txtngaysinh.Text "" Then Adodc1.Recordset.Fields("ngaysinh") = txtngaysinh.Text End If If txtgioitinh.Text "" Then Adodc1.Recordset.Fields("gioitinh") = txtgioitinh.Text End If If txtchuyenmon.Text "" Then Adodc1.Recordset.Fields("chuyenmon") = txtchuyenmon.Text End If If txtngayvaodang.Text "" Then Adodc1.Recordset.Fields("ngayvaodang") = txtngayvaodang.Text End If If txtnguyenquan.Text "" Then Adodc1.Recordset.Fields("nguyenquan") = txtnguyenquan.Text End If If txthktt.Text "" Then Adodc1.Recordset.Fields("hokhauthuongtru") = txthktt.Text End If If txtsocmt.Text "" Then Adodc1.Recordset.Fields("socmtnd") = txtsocmt.Text End If If IsNumeric(Me.txtsocmt.Text) = False Then MsgBox "Nhap lai so CMT " Exit Sub Setbuttons (True) 72 lockedControls (False) Else If txtngaycap.Text "" Then Adodc1.Recordset.Fields("ngaycap") = txtngaycap.Text End If If txtnoicap.Text "" Then Adodc1.Recordset.Fields("noicap") = txtnoicap.Text End If If txthotenbo.Text "" Then Adodc1.Recordset.Fields("hotenbo") = txthotenbo.Text End If If txtnghenghiepbo.Text "" Then Adodc1.Recordset.Fields("nghenghiepbo") = txtnghenghiepbo.Text End If If txthotenme.Text "" Then Adodc1.Recordset.Fields("hotenme") = txthotenme.Text End If If txtnghenghiepme.Text "" Then Adodc1.Recordset.Fields("nghenghiepme") = txtnghenghiepme.Text End If MsgBox " Ban da them ban ghi moi " Setbuttons (False) lockedControls (True) Adodc1.Recordset.Update End If End If End If End If Setbuttons (False) lockedControls (True) Adodc1.Recordset.Update End Sub Private Sub cmdhuybo_click() addnewflag = False If addnewflag = False Then Adodc1.Recordset.CancelUpdate End If lockedControls (True) Setbuttons (False) Me.Command1.Enabled = True Me.Command2.Enabled = True Me.Command3.Enabled = True Me.Command4.Enabled = True Me.Command6.Enabled = True 73 End Sub Private Sub cmdxoa_click() addnewflag = False On Error GoTo deleteerr If (Adodc1.Recordset.BOF = False And Adodc1.Recordset.EOF = False) Then returnvalue = MsgBox(" Ban muon xoa ban ghi ? ", vbOKCancel + vbQuestion, "Notice") If returnvalue = vbOK Then Adodc1.Recordset.Delete Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast End If Exit Sub End If deleteerr: MsgBox Err.Description End Sub Private Sub form_unload(cancel As Integer) addnewflag = False End Sub Mã nguồn Form Tìm kiếm: Dim conn As ADODB.Connection Dim rs As ADODB.Recordset Dim strconn As String Private Sub cmdtimkiem_Click() Dim strsql As String Dim strhoten As String Set rs = New ADODB.Recordset Set conn = New ADODB.Connection strconn = "provider=microsoft.jet.oledb.4.0;data source=" & App.Path & "\qlns.mdb" conn.CursorLocation = adUseClient conn.Open strconn strhoten = Trim(Me.txthoten.Text) If strhoten "" Then strsql = "SELECT nhanvien.manv,nhanvien.hoten,phongban.tenpb,chucvu.tencv,nhanvien.gioitinh,n hanvien.ngaysinh,nhanvien.chuyenmon,nhanvien.hokhauthuongtru from nhanvien,phongban,chucvu where nhanvien.mapb=phongban.mapb and nhanvien.macv=chucvu.macv and nhanvien.hoten like '%" & strhoten & "%'" rs.Open strsql, conn, 1, 74 Set Me.grid.DataSource = rs Else MsgBox "Ban chua nhap ten can tim !" Exit Sub End If End Sub Private Sub txthoten_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Me.cmdtimkiem.SetFocus End If End Sub Private Sub CmdExit_Click() Unload Me End Sub 75 KẾT LUẬN Sau hoàn thành đề tài em thấy ngơn ngữ Visual Basic 6.0 có ứng dụng thực tiễn cao, giúp xây dựng Hệ thống quản lý áp dụng cho trường học, doanh nghiệp, bệnh viện, khách sạn… Là sinh viên học Công nghệ thông tin, việc học tập, trang bị tiếp thu kiến thức tin học từ thực tế tìm hiểu công tác quản lý điều cần thiết Khi làm tập Quản lý sở liệu giúp em có hội vận dụng kiến thức vừa học vào thực tế Dưới hướng dẫn giáo em tìm hiểu Visual Basic - phần mềm quản lý hoàn thành báo cáo tạo form, liên kết form, nhập liệu cho bảng, tạo liên kết sở liệu cho bảng,… từ tạo Menu giao diện cho chương trình Chương trình thực số chức việc cập nhật sở liệu như: thêm, sửa, xoá, Sau làm xong báo cáo em có thêm kinh nghiệm xây dựng thiết kế toán quản lý Trong làm chắn có nhiều thiếu sót, chưa hồn thiện chưa đáp ứng nhu cầu thực tế đòi hỏi em mong đóng góp ý kiến giáo bạn để em làm tốt phát triển ứng dụng sau Một lần em xin cảm ơn cô giáo bạn! Thái nguyên, Tháng 05 năm 2011 Sinh Viên Trần Thị Thu Hương 76 TÀI LIỆU THAM KHẢO [1] Nguyễn Văn Ba, Phân tích thiết kế hệ thống thông tin, NXB ĐHQG HN, 2000 [2] Microsoft Visual Basic & Lập trình sở liệu 6.0, NXB Lao động – xã hội [3] Lập trình Visual Basic 6.0, NXB trẻ [4] Elicom, Microsoft Office 2000 thơng qua hình ảnh, NXB THỐNG KÊ 77 NHẬN XÉT CỦA GIÁO VIÊN ……………………………………………………………………………………… ……………………………………………………………………………………… ……………………………………………………………………………………… ……………………………………………………………………………………… ……………………………………………………………………………………… ……………………………………………………………………………………… ……………………………………………………………………………………… ……………………………………………………………………………………… ……………………………………………………………………………………… ……………………………………………………………………………………… ……………………………………………………………………………………… ……………………………………………………………………………………… ……………………………………………………………………………………… ……………………………………………………………………………………… ……………………………………………………………………………………… ……………………………………………………………………………………… ……………………………………………………………………………………… ……………………………………………………………………………………… ……………………………………………………………………………………… ……………………………………………………………………………………… ……………………………………………………………………………………… ……………………………………………………………………………………… Giáo viên hướng dẫn: Nguyễn Thị Tuyển 78 ... SÁT HỆ THỐNG QUẢN LÝ NHÂN SỰ TẠI NGÂN HÀNG CHÍNH SÁCH XÃ HỘI HUYỆN NGỌC LẶC TỈNH THANH HĨA 1.1 Tìm hiểu cấu tổ chức nhân ngân hàng CSXH 1.1.1 Cơ cấu tổ chức Ngân hàng Chính sách xã hội, viết tắt... khoản phải nộp ngân sách nhà nước => phục vụ người nghèo đối tượng sách khác Bộ máy quản trị Ngân hàng Chính sách xã hội bao gồm: Hội đồng quản trị Trung ương, 63 Ban đại diện Hội đồng quản trị cấp... thống quản lý nhân Ngân hàng CSXH huyện Ngọc Lặc Tỉnh Thanh Hóa 1.2.1 Sự hạn chế hệ thống quản lý cũ Việc quản lý Nhân tồn chi nhánh phịng Nhân quản lý Do quan ngày phát triển, số lượng nhân viên