Xây dựng và phát triển hệ thông thông tin quản lý tiền gửi và tiền vay của khách hàng tại Ngân hàng nông nghiệp và phát triển nông thôn (AgriBank) - Chi nhánh Láng Hạ

MỤC LỤC Trang LỜI MỞ ĐẦU Sự ra đời và phát triển của công nghệ thông tin là một trong những thành quả vĩ đại nhất của con người. Nhịp độ phát triển của công nghệ thông tin đang là vấn đề rất được các ngành khoa học giáo dục kinh tế… quan tâm. Nó hiện hữu với một tầm vóc hết sức mạnh mẽ to lớn và ngày đang một lớn mạnh thêm. Ngày nay những thành tự, những đổi mới trong công nghệ, trong quản lý ngân hàng, trong quản lý kinh doanh, trong lĩnh vực giáo dục… đều có sự góp phần quan trọng của ti

doc124 trang | Chia sẻ: huyen82 | Lượt xem: 1473 | Lượt tải: 1download
Tóm tắt tài liệu Xây dựng và phát triển hệ thông thông tin quản lý tiền gửi và tiền vay của khách hàng tại Ngân hàng nông nghiệp và phát triển nông thôn (AgriBank) - Chi nhánh Láng Hạ, để xem tài liệu hoàn chỉnh bạn click vào nút DOWNLOAD ở trên
n học. Vai trò của tin học rất to lớn, đa dạng vô tận… bởi vậy khi loài người đang bước vào thời kỳ công nghiệp hoá, hiện dại hoá, tin học đã thực sự trở thành một ngành khoa học công nghệ mũi nhọn. Trong hoạt động quản lý trong ngân hàng như hiện nay, việc tin học hoá các hoạt động gửi và vay tiền tại ngân hàng là rất cần thiết. Một ngân hàng muốn phát triển khả năng tiếp cận thông tin và khả năng đáp ứng nhu cầu của khách hàng cũng như của đối tác một cách hiệu quả nhất thì không thể thiếu một hệ thống thông tin hỗ trợ. Việc ứng dụng vào các lĩnh vực làm sao để đạt được một cách có hiệu quả, sự lựa chọn và vận dụng những phần mềm sao cho phù hợp và đạt được kết quả tốt là câu hỏi luôn đặt ra đối với các nhà quản lý. Ngày nay các phần mềm cơ bản đó được ứng dụng và phát triển rộng rãi trong hầu hết mọi ngân hàng. Thế nhưng yêu cầu của người sử dụng phần mềm ngày càng đa dạng và nhiều tính năng hơn. Do dó yêu cầu người làm phần mềm phải đáp ứng được các yêu cầu trên. Cũng nhằm mục đích nói trên mà đề tài “Xây dựng và phát triển hệ thông thông tin quản lý tiền gửi và tiền vay của khách hàng tại Ngân hàng Nông nghiệp và Phát triển Nông thôn – Chi nhánh Láng Hạ ” ra đời. Qua đây em xin chân thành cảm ơn sự quan tâm giúp đỡ tận tình của GV. Đoàn Quốc Tuấn. Người đã trực tiếp hướng dẫn em hoàn thành đề tài này. Em xin chân thành cảm ơn! Nội dung CHƯƠNG 1 TỔNG QUAN VỀ NGÂN HÀNG NÔNG NGHIỆP VÀ PHÁT TRIỂN NÔNG THÔN VIỆT NAM CHI NHÁNH – LÁNG HẠ 1.1. Giới thiệu tổng quan về Ngân hàng nông ngiệp và phát triển nông thôn Việt nam, Chi nhánh Láng Hạ Tháng 9 năm 2007, UNDP công bố danh sách TOP 200 DN Việt Nam, Ngân Hàng NN&PTNT đã được UNDP đánh giá là tổ chức kinh tế hàng đầu Việt nam. Thành lập ngày 26/3/1988, hoạt động theo Luật các Tổ chức Tín dụng Việt Nam, đến nay Ngân hàng Nông nghiệp và Phát triển Nông thôn Việt Nam (AGRIBANK) hiện là Ngân hàng thương mại hàng đầu giữ vai trò chủ đạo và chủ lực trong đầu tư vốn phát triển kinh tế nông nghiệp, nông thôn cũng như đối với các lĩnh vực khác của nền kinh tế Việt Nam. AGRIBANK là ngân hàng lớn nhất Việt Nam cả về vốn, tài sản, đội ngũ CBNV, màng lưới hoạt động và số lượng khách hàng. Đến tháng 3/2007, vị thế dẫn đầu của AGRIBANK vẫn được khẳng định với trên nhiều phương diện: Tổng nguồn vốn đạt gần 267.000 tỷ đồng, vốn tự có gần 15.000 tỷ đồng; Tổng dư nợ đạt gần 239.000 tỷ đồng, tỷ lệ nợ xấu theo chuẩn mực mới, phù hợp với tiêu chuẩn quốc tế là 1,9%. AGRIBANK hiện có hơn 2200 chi nhánh và điểm giao dịch được bố chí rộng khắp trên toàn quốc với gần 30.000 cán bộ nhân viên Là ngân hàng luôn chú trọng đầu tư đổi mới và ứng dụng công nghệ ngân hàng phục vụ đắc lực cho công tác quản trị kinh doanh và phát triển màng lưới dịch vụ ngân hàng tiên tiến. AGRIBANK là ngân hàng đầu tiên hoàn thành giai đoạn 1 Dự án Hiện đại hóa hệ thông thanh toán và kế toán khách hàng (IPCAS) do Ngân hàng Thế giới tài trợ và đang tích cực triển khai giai đoạn II của dự án này. Hiện AGRIBANK đã vi tính hoá hoạt động kinh doanh từ Trụ sở chính đến hầu hết các chi nhánh trong toàn quốc; và một hệ thống các dịch vụ ngân hàng gồm dịch vụ chuyển tiền điện tử, dịch vụ thanh toán thẻ tín dụng quốc tế, dịch vụ ATM, dịch vụ thanh toán quốc tế qua mạng SWIFT. Đến nay, AGRIBANK hoàn toàn có đủ năng lực cung ứng các sản phẩm, dịch vụ ngân hàng hiện đại, tiên tiến, tiện ích cho mọi đối tượng khách hàng trong và ngoài nước Là một trong số ngân hàng có quan hệ ngân hàng đại lý lớn nhất Việt Nam với trên 979 ngân hàng đại lý tại 113 quốc gia và vùng lãnh thổ tính đến tháng 2/2007. Là thành viên Hiệp hội Tín dụng Nông nghiệp Nông thôn Châu Á Thái Bình Dương (APRACA), Hiệp hội Tín dụng Nông nghiệp Quốc tế (CICA) và Hiệp hội Ngân hàng Châu Á (ABA); đã đăng cai tổ chức nhiều hội nghị quốc tế lớn như Hội nghị FAO năm 1991, Hội nghị APRACA năm 1996 và năm 2004, Hội nghị tín dụng nông nghiệp quốc tế CICA năm 2001, Hội nghị APRACA về thủy sản năm 2002. Là ngân hàng hàng đầu tại Việt Nam trong việc tiếp nhận và triển khai các dự án nước ngoài, đặc biệt là các dự án của WB, ADB, AFD. Các dự án nước ngoài đã tiếp nhận và triển khai đến cuối tháng 2/2007 là 103 dự án với tổng số vốn trên 3,6 tỷ USD, số vốn qua NHNo là 2,7 tỷ USD, đã giải ngân được 1,1 tỷ USD Với vị thế là ngân hàng thương mại hàng đầu Việt nam, AGRIBANK đã nỗ lực hết mình, đạt được nhiều thành tựu đáng khích lệ, đóng góp to lớn vào sự nghiệp công nghiệp hoá, hiện đại hoá và phát triển kinh tế của đất nước. 1.2. Chức năng nhiệm vụ 1.2.1. Huy động vốn - Khai thác và nhận tiền gửi tiết kiệm không kỳ hạn, có kỳ hạn, tiền gửi thanh toán của các tổ chức, cá nhân thuộc mọi thành phần kinh tế và nước ngoài bằng Việt Nam đồng và ngoại tệ. - Phát hành chứng chỉ tiền gửi, trái phiếu, kỳ phiếu ngân hàng và thực hiện các hình thức huy động vốn khác theo quy định của NHNo. - Tiếp nhận các nguồn vốn tài trợ, vốn ủy thác của Chính phủ, Chính quyền địa phương và các tổ chức kinh tế, cá nhân trong và ngoài nước theo quy định của NHNo. - Được phép vay vốn các tổ chức tài chính tín dụng trong nước khi Tổng giám đốc NHNo cho phép. 1.2.2. Cho vay - Cho vay ngắn hạn, trung hạn, dài hạn bằng VND và ngoại tệ đối với các tổ chức kinh tế. - Cho vay ngắn hạn, trung hạn, dài hạn bằng VND đối với cá nhân và hộ gia đình thuộc mọi thành phần kinh tế. 1.2.3. Kinh doanh ngoại hối : huy động vốn, cho vay, mua bán ngoại tệ, thanh toán quốc tế và các dịch vụ khác về ngoại hối theo chính sách quản lý ngoại hối của Chính phủ, NHNo & PTNT Việt Nam. 1.2.4. Kinh doanh dịch vụ : thu, chi tiền mặt, mua bán vàng bạc, máy rút tiền tự động, dịch vụ thẻ tín dụng, két sắt, nhận cất giữ, chiết khấu các loại giấy tờ có giá, thẻ thanh toán, nhận ủy thác cho vay của tổ chức tài chính, tín dụng, tổ chức, cá nhân trong và ngoài nước, các dịch vụ khác được NHNN và NHNo cho phép. 1.2.5. Thực hiện đầu tư dưới các hình thức : hùn vốn liên doanh, mua cổ phần và các hình thức đầu tư khác với các doanh nghiệp, tổ chức kinh tế khác khi được NHNo cho phép. 1.3. Quá trình hình thành và phát triển Năm 1988: Ngân hàng Phát triển Nông nghiệp Việt Nam được thành lập theo Nghị định số 53/HĐBT ngày 26/3/1988 của Hội đồng Bộ trưởng (nay là Chính phủ) về việc thành lập các ngân hàng chuyên doanh, trong đó có Ngân hàng Phát triển Nông nghiệp Việt Nam hoạt động trong lĩnh vực nông nghiệp, nông thôn. Ngân hàng Phát triển Nông nghiệp hình thành trên cơ sở tiếp nhận từ Ngân hàng Nhà nước: tất cả các chi nhánh Ngân hàng Nhà nước huyện, Phòng Tín dụng Nông nghiệp, quỹ tiết kiệm tại các chi nhánh Ngân hàng Nhà nước tỉnh, thành phố. Ngân hàng Phát triển Nông nghiệp TW được hình thành trên cơ sở tiếp nhận Vụ Tín dụng Nông nghiệp Ngân hàng Nhà nước và một số cán bộ của Vụ Tín dụng Thương nghiệp, Ngân hàng Đầu tư và Xây dựng, Vụ Kế toán và một số đơn vị. Khi thành lập Ngân hàng Phát triển Nông nghiệp Việt Nam đã có nhiều khó khăn hơn so với các Ngân hàng thương mại khác. Cơ sở vật chất, công cụ làm việc rất nghèo nàn lạc hậu. ở các tỉnh, thành phố, Trụ sở Ngân hàng Phát triển Nông nghiệp Việt Nam thường phải ở các vị trí xa trung tâm, nhà cửa chật chội. Chi nhánh Ngân hàng Phát triển Nông nghiệp Hà Nội phải làm việc tại địa điểm vốn là kho ấn chỉ của Ngân hàng Nhà nước ở Vĩnh Tuy; Chi nhánh Ngân hàng Phát triển Nông nghiệp thành phố Hồ Chí Minh làm việc tại tầng trệt ở 50 Bến Chương Dương; Chi nhánh Ngân hàng Phát triển Nông nghiệp Hải Phòng phải làm việc tại trụ sở tạm ở Cầu Rào, ngoại thành Hải Phòng. Phần lớn trụ sở chi nhánh ngân hàng huyện lúc đó đều xuống cấp, nhiều nơi còn là nhà cấp 4, mái tranh, vách đất. • Từ tháng 3/1988: các chi nhánh tỉnh , huyện lần lượt chuyển từ Ngân hàng Nhà nước về Ngân hàng Phát triển Nông nghiệp Việt Nam. §ến tháng 7/1988, Trung tâm §iều hành Ngân hàng Phát triển Nông nghiệp Việt Nam được hình thành để điều hành hoạt động của toàn hệ thống.   Ngay trong những ngày đầu, bên cạnh việc thành lập các chi nhánh Ngân hàng Phát triển Nông nghiệp tỉnh, thành phố, ngày 6/10/1988, theo đề nghị của Tổng Giám đốc Ngân hàng Phát triển Nông nghiệp Việt Nam, Ngân hàng Nhà nước đã cho phép thành lập chi nhánh Ngân hàng Phát triển Nông nghiệp Đồng bằng Sông Cửu Long. Sau đó, do nhu cầu của việc thu mua, xuất khẩu và phân phối lương thực, Ngân hàng Nhà nước chấp nhận đề nghị của Tổng Giám đốc Ngân hàng Phát triển Nông nghiệp Việt Nam thành lập Chi nhánh Ngân hàng Lương thực tại Tp. Hồ Chí Minh. Đây là hai Ngân hàng chuyên doanh đầu tiên nằm trong hệ thống Ngân hàng Phát triển Nông nghiệp Việt Nam. • Ngày 14/11/1990, Chủ tịch Hội đồng Bộ trưởng (nay là Thủ tướng Chính phủ) ký Quyết định số 400/CT thành lập Ngân hàng Nông nghiệp Việt Nam thay thế Ngân hàng Phát triển Nông nghiệp Việt Nam. Ngân hàng Nông nghiệp là Ngân hàng thương mại đa năng, hoạt động chủ yếu trên lĩnh vực nông nghiệp, nông thôn, là một pháp nhân, hạch toán kinh tế độc lập, tự chủ, tự chịu trách nhiệm về hoạt động của mình trước pháp luật. Tháng 8/1990, Ban lãnh đạo Ngân hàng Phát triển Nông nghiệp Việt Nam đã xét duyệt và lựa chọn mẫu biểu trưng lôgô với 9 hạt lúa vàng uốn cong theo hình đất nước chữ S trên nền khung vuông hai màu xanh lá cây và mầu nâu đất với dòng chữ viền 2 cạnh: Ngân hàng Nông nghiệp Việt Nam. Nghị quyết kỳ họp lần thứ XXIV Hội đồng Quản trị NHNo & PTNT VN đã công bố chính thức việc lựa chọn lôgô kể trên là biểu trưng của Ngân hàng No & PTNT Việt Nam trong nước và quốc tế. Ngày 22/12/1992, Thống đốc Ngân hàng Nhà nước có Quyết định số 603/NH-QĐ về việc thành lập chi nhánh Ngân hàng Nông nghiệp các tỉnh thành phố trực thuộc Ngân hàng Nông nghiệp gồm có 3 Sở giao dịch (Sở giao dịch I tại Hà Nội và Sở giao dịch II tại Văn phòng đại diện khu vực miền Nam và Sở giao dịch 3 tại Văn phòng miền Trung) và 43 chi nhánh ngân hàng nông nghiệp tỉnh, thành phố. Chi nhánh Ngân hàng Nông nghiệp quận, huyện, thị xã có 475 chi nhánh. Ngày 01/03/1991 Thống đốc Ngân hàng Nhà nước có Quyết định số 18/NH-QĐ thành lập Văn phòng đại diện Ngân hàng Nông nghiệp tại Thành phố Hồ Chí Minh và ngày 24/6/1994, Thống đốc có văn bản số 439/CV-TCCB chấp thuận cho Ngân hàng nông nghiệp được thành lập văn phòng miền Trung tại Thành phố Quy Nhơn - tỉnh Bình Định.   Ngày 30/7/1994 tại Quyết định số 160/QĐ-NHN9, Thống đốc Ngân hàng Nhà nước chấp thuận mô hình đổi mới hệ thống quản lý của Ngân hàng nông nghiệp Việt Nam, trên cơ sở đó, Tổng giám đốc Ngân hàng Nông nghiệp Việt Nam cụ thể hóa bằng văn bản số 927/TCCB/Ngân hàng Nông nghiệp ngày 16/08/1994 xác định: Ngân hàng Nông nghiệp Việt Nam có 2 cấp: Cấp tham mưu và Cấp trực tiếp kinh doanh. Đây thực sự là bước ngoặt về tổ chức bộ máy của Ngân hàng nông nghiệp Việt Nam và cũng là nền tảng cho hoạt động kinh doanh của Ngân hàng Nông nghiệp và Phát triển nông thôn Việt Nam sau này.   Trên cơ sở những kết quả tốt đẹp của Quỹ cho vay ưu đãi hộ nghèo, Ngân hàng Nông nghiệp tiếp tục đề xuất kiến nghị lập Ngân hàng phục vụ người nghèo, được Chính phủ, Ngân hàng Nhà nước ủng hộ, dư luận rất hoan nghênh. Ngày 31/08/1995, Thủ tướng Chính phủ ban hành Quyết định số 525/TTg thành lập Ngân hàng phục vụ người nghèo.   Ngân hàng phục vụ người nghèo là một tổ chức tín dụng của Nhà nước hoạt động trong phạm vi cả nước, có tư cách pháp nhân, có vốn điều lệ, có tài sản, bảng cân đối, có con dấu, trụ sở chính đặt tại Thành phố Hà Nội.   Vốn hoạt động ban đầu là 400 tỷ đồng do Ngân hàng Nông nghiệp Việt Nam góp 200 tỷ đồng, Ngân hàng Ngoại thương 100 tỷ đồng và Ngân hàng Nhà nước 100 tỷ đồng.   Hoạt động của Ngân hàng Phục vụ người nghèo vì mục tiêu xóa đói giảm nghèo, không vì mục đích lợi nhuận, thực hiện bảo toàn vốn ban đầu, phát triển vốn, bù đắp chi phí.   Bà Hà Thị Hạnh - Phó Tổng giám đốc Ngân hàng Nông nghiệp Việt Nam được kiêm Tổng giám đốc Ngân hàng Phục vụ Người nghèo. Ngân hàng Phục vụ Người nghèo - thực chất là bộ phận tác nghiệp của Ngân hàng Nông nghiệp Việt Nam tồn tại và phát triển mạnh. Tới tháng 09/2002, dư nợ đã lên tới 6.694 tỷ, có uy tín cả trong và ngoài nước, được các Tổ chức quốc tế đánh giá cao và đặc biệt được mọi tầng lớn nhân dân ửng hộ, quý trọng. Chính vì những kết quả như vậy, ngày 04/10/2002, Thủ tướng chính phủ đã ban hành Quyết định số 131/2002/QĐ-TTg thành lập Ngân hàng Chính sách xã hội trên cơ sở Ngân hàng Phục vụ Người nghèo - Từ 01/01/2003 Ngân hàng Phục vụ Người nghèo đã chuyển thành NH Chính sách xã hội. Ngân hàng Nông nghiệp chính là người đề xuất thành lập, thực hiện và bảo trợ Ngân hàng phục vụ người nghèo tiền thân của Ngân hàng chính sách xã hội - Đây là một niềm tự hào to lớn của Ngân hàng Nông nghiệp và Phát triển Nông thôn Việt Nam trong sự nghiệp phát triển kinh tế, xoá đói giảm nghèo. 1.4. Định hướng phát triển Với phương châm vì sự thịnh vượng và phát triển bền vững của khách hàng và ngân hàng, mục tiêu của AGRIBANK là tiếp tục giữ vững vị trí ngân hàng thương mại hàng đầu Việt Nam tiên tiến trong khu vực và có uy tín cao trên trường quốc tế.   AGRIBANK kiên trì với định hướng chiến lược phát triển là: Tiếp tục triển khai mạnh mẽ đề án tái cơ cấu. Kiện toàn một bước về tổ chức bộ máy và cán bộ theo hướng: giảm cầu cấp trung gian; cải cách khâu kế toán; nâng cao chất lượng cán bộ tham mưu tại Trụ sở chính; tập trung đào tạo lại tay nghề cho đội ngũ CBNV; đẩy nhanh ứng dụng công nghệ tin học; tăng cường công tác kiểm tra, kiểm toán nội bộ; rà soát, bổ sung quy chế điều hành ở các cấp ngân hàng vừa đảm bảo thưck hiện đúng quy trình tác nghiệp, vừa xác định rõ công việc và trách nhiệm của mỗi cán bộ, nhân viên. Đảm bảo đẩy nhanh tiến trình hội nhập khu vực và quốc tế, tăng cường hợp tác, tranh thủ tối đa sự hỗ trợ về tài chính, kỹ thuật, công nghệ tiên tiến của các nước, các tổ chức tài chính-ngân hàng quốc tế đảm bảo hoạt động đạt hiệu quả cao, ổn định và phát triển bền vững. Giai đoạn 2002 - 2005 phấn đấu hoàn thành việc tạo lập những tiền đề quan trọng cho sự phát triển của các năm tiếp theo.   Đến năm 2005, phấn đấu tăng tổng nguồn vốn từ 25-28%/năm, tổng dư nợ từ 20-25 %/năm, trong đó tỷ trọng tín dụng trung dài hạn tối đa chiếm 45 % tổng dư nợ trên cơ sở cân đối nguồn vốn cho phép; nợ quá hạn dưới 1 % tổng dư nợ; lợi nhuận tối thiểu tăng 10%.   Coi trọng công tác huy động vốn, đặc biệt nguồn vốn huy động từ dân cư, nguồn vốn trungvà dài hạn để tạo thế ổn định. Đồng thời đẩy mạnh quan hệ đối ngoại nhằm thu hút nguồn vốn uỷ thác đầu tư, đáp ứng nhu cầu phát triển của nền kinh tế. Chú trọng đầu tư theo hướng chuyển dịch cơ cấu kinh tế. Coi trọng ứng dụng tin học vào hoạt động ngân hàng. Tập trung đào tạo và đào tạo lại đội ngũ cán bộ.   Thực hiện đa dạng hoá các sản phẩm tín dụng và dịch vụ ngân hàng cũng như các đối tượng khách hàng để nâng cao tỷ trọng thu nhập từ dịch vụ. Tập trung nâng cao chất lượng tín dụng, có chính sách thích hợp nhằm ngăn chặn rủi ro tín dụng. Tăng cường năng lực tài chính thông qua thực hiện cơ chế lãi suất thực dương và thực hiện chỉ huy lãi suất tập trung tại Trụ sở chính. Áp dụng lãi suất huy động và cho vay tại các vùng có cạnh tranh cao. Kiện toàn cơ chế khoán tài chính đến từng người lao động. 1.5. Sơ đồ tổ chức 1.6. Lý do chọn đề tài Trong thời gian thực tập tại Ngân hàng Nông nghiệp và phát triển nông thông ,Chi nhánh Láng Hạ, đối với số lượng khách hàng ngày càng nhièu, em nhận thấy việc quản lý tiền giử và tiền vay của cán bộ tại ngân hàng ngày càng phức tạp hơn , ứng dụng hiện thời trên Microsoft Excel còn nhiều hạn chế, chưa đáp ứng được yêu cầu quản lý của lãnh đạo. Mặt khác, các cán bộ nhân viên cũng biết sử dụng ứng dụng Microsoft Access nhưng chưa đủ sức tự làm phần mềm quản lý tiền giửi và tiền vay được. Theo yêu cầu của cán bộ nơi thực tập, được sự đồng ý của giáo viên hướng dẫn, em quyết định chọn đề tài “Xây dựng và phát triển hệ thống thông tin quản lý tiền giửi và tiền vay của khách hàng tại Ngân hàng Nông ngiệp và phát triển nông thôn, Chi nhánh Láng Hạ”. Việc xây dựng hệ thống thông tin này có thể được thực hiện bởi các ngôn ngữ lập trình khác nhau như Visual Fox, Visual Basic, Microsoft Access ... v.v. Tuy nhiên để phù hợp với trình độ các cán bộ nhân viện, em quyết đinh chọn Microsoft Access và Visual Basic để xây dựng và phát triển hệ thống thông tin quản lý tiền giử và tiền vay của khách hàng tại Ngân hàng Nông nghiệp và Phát triển nông thôn, Chi nhánh Láng Hạ. CHƯƠNG 2 MỘT SỐ PHƯƠNG PHÁP LUẬN XÂY DỰNG VÀ PHÁT TRIỂN HỆ THỐNG THÔNG TIN QUẢN LÝ TIỀN GỬI VÀ TIỀN VAY CỦA KHÁCH HÀNG 2.1. Tầm quan trọng của thông tin trong quản lý tiền gửi và tiền vay của khách hàng Chủ thể quản lý thu nhập thông tin từ môi trường và từ chính đối tượng quản lý của mình mà xây dựng mục tiêu, thiết lập kế hoạch, bố trí cán bộ, chỉ huy, kiểm tra và kiểm soát sự hoạt động của toàn bộ tổ chức. Kết quả lao động của cán bộ quản lý chủ yếu là các quyết định tác động vào đối tượng quản lý nhằm đạt được mục tiêu đã đề ra. Có thể nói thông tin vừa là nguyên liệu đầu vào vừa là sản phẩm đầu ra có hệ thống quản lý. Thông tin là thể nền của quản lý cũng giống như năng lượng là thể nền của mọi hoạt động. Không có thông tin thì không có hoạt động quản lý đích thực. Thông tin ra môi trường Thông tin từ môi trường Hệ thống quản lý tiền gửi và tiền vay Thông tin quyết định Thông tin tác nghiệp Đối tượng quản lý Hình 2.1. Hệ thống thông tin quản lý tiền gửi và tiền vay khách hàng tại NHNN&PTNTVN Thông tin từ môi trường bao gồm thông tin từ bên ngoài, với bài toán quản lý tiền gửi và tiền vay khách hàng đó là thông tin về các sản phẩm dịch vụ mà ngân hàng Nông Nghiệp và phát triển Nông thôn Việt Nam cung cấp, lịch sử phát triển của ngân háng và định hướng phát triển của ngân hàng trong xu thế cạnh tranh với các ngân hàng khác. Tiếp đó thông tin từ môi trường gồm thông tin tổ chức đó là xem xét các lĩnh vực hoạt động và số lượng khách hàng đến gửi và vay tiền. Đến cuối năm 2003, vốn tự có của AGRIBANK là 5200 tỷ VNĐ. Tổng tài sản có trên 120 nghìn tỷ VNĐ. 1800 chi nhánh được bố trí rộng khắp trên toàn quốc với 28000 cán bộ công nhân viên. Là một trong số ngân hàng có quan hệ ngân hàng đại lý lớn nhất Việt Nam với trên 800 ngân hàng đại lý tại 110 quốc gia và vùng lãnh thổ tính đến cuối 2003. Ngân hàng nông nghiệp và phát triển nông thôn Việt Nam là ngân hàng luôn chú trọng đầu tư đổi mới và ứng dụng công nghệ ngân hàng phục vụ đắc lực cho công tác quản trị kinh doanh và phát triển mạng lưới dịch vụ ngân hàng tiên tiến. Đến nay, AGRIBANK hoàn toàn có đủ năng lực cung ứng các sản phẩm, dịch vụ ngân hàng hiện đại, tiên tiến, lợi ích cho mọi đối tượng khách hàng trong và ngoài nước. 2.2. Các phương pháp xây dựng hệ thống thông tin quản lý tiền gửi và tiền vay của khách hàng. Mục tiêu của dự án phát triển một hệ thống thông tin là có được một sản phẩm đáp ứng nhu cầu của người sử dụng mà nó được hoà hợp vào trong các hoạt động của tổ chức, chính xác về mặt kỹ thuật, tuân thủ các giới hạn về tài chính và thời gian định trước. Một HTTT là một đối tượng phức tạp, vận động trong một môi trường cũng rất phức tạp, để làm chủ sự phức tạp đó, phân tích viên cần phải có một cách tiến hành nghiêm túc, một phương pháp. Một phương pháp được định nghĩa như một tập hợp các bước các công cụ cho phép tiến hành một quá trình phát triển hệ thống chặt chẽ nhưng dễ quản lý hơn. Phương pháp được đề nghị ở đây dựa vào 3 nguyên tắc cơ sở chung của nhiều phương pháp hiện đại có cấu trúc để phát triển hệ thống thông tin. Ba nguyên tắc đó là: Nguyên tắc 1: Sử dụng các mô hình, đó là mô hình logic, mô hình vật lý trong. Nguyên tắc 2: Chuyển từ cái chung sang cái riêng. Nguyên tắc này là một nguyên tắc của sự đơn giản để hiểu tốt một HTTT. Nguyên tắc 3: Chuyển từ mô hình vật lý sang mô hình logic khi phân tích và từ mô hình logic sang mô hình vật lý khi thiết kế. 2.3. Các công đoạn của phát triển hệ thống Phương pháp được trình bày ở đây có 7 giai đoạn. Mỗi giai đoạn là phải kèm theo việc ra quyết định về việc tiếp tục hay chấm dứt sự phát triển hệ thống. Quyết định này được trợ giúp dựa vào nội dung báo cáo mà phân tích viên hoặc nhóm phân tích trình bày cho các nhà sử dụng. Phát triển hệ thống là một quá trình lặp, tuỳ theo kết quả của một giai đoạn có thể, và đôi khi là cần thiết, phải quay về giai đoạn trước để tìm cách khắc phục những sai sót. Một số nhiệm vụ được thực hiện trong suốt quá trình; đó là việc lập kế hoạch cho giai đoạn tới, kiểm soát những nhiệm vụ đã hoàn thành, đánh giá dự án và lập tài liệu về hệ thống và về dự án. Sau đây là mô tả sơ lược các giai đoạn của việc phát triển hệ thống thông tin được biểu hiện trong bảng như sau: Giai đoạn 1: Đánh giá yêu cầu 1.1 Lập kế hoạch đánh giá yêu cầu 1.2 Làm rõ yêu cầu 1.3 Đánh giá khả năng thực thi 1.4 Chuẩn bị và trình bày báo cáo đánh giá yêu cầu Giai đoạn 2: Phân tích chi tiết 2.1 Lập kế hoạch phân tích chi tiết 2.2 Nghiên cứu môi trường của hệ thống đang tồn tại 2.3 Nghiên cứu hệ thống thực tại 2.4 Đưa ra chẩn đoán và xác định các yếu tố giải pháp 2.5 Đánh giá lại tính khả thi 2.6 Thay đổi đề xuất của dự án 2.7 Chuẩn bị và trình bày báo cáo phân tích chi tiết Giai đoạn 3: Thiết kế lô gíc 3.1 Thiết kế cơ sở dữ liệu 3.2 Thiết kế xử lý 3.3 Thiết kế các luồng dữ liệu vào 3.4 Chỉnh sửa lại tài liệu cho mức lô gíc 3.5 Hợp thức hoá mô hình lô gíc Giai đoạn 4: Đề xuất các phương án của giải pháp 4.1 Xác định các ràng buộc tin học và ràng buộc tổ chức 4.2 Xây dựng các phương án của giải pháp 4.3 Đánh giá các phương án của giải pháp 4.4 Chuẩn bị và trình bày báo cáo của giai đoạn đề xuất các phương án giải pháp Giai đoạn 5: Thiết kế vật lý ngoài 5.1 Lập kế hoạch thiết kế vật lý ngoài 5.2 Thiết kế chi tiết các giao diện (vào/ra) 5.3 Thiết kế cách thức tương tác với phần tin học hoá 5.4 Thiết kế các thủ tục thủ công 5.5 Chuẩn bị và trình bày báo cáo về thiết kế vật lý ngoài Giai đoạn 6: Triển khai kỹ thuật hệ thống 6.1 Lập kế hoạch thực hiện kỹ thuật 6.2 Thiết kế vật lý trong 6.3 Lập trình 6.4 Thử nghiệm hệ thống 6.5 Chuẩn bị các tài liệu cho hệ thống Giai đoạn 7: Cài đặt và khai thác 7.1 Lập kế hoạch cài đặt 7.2 Chuyển đổi 7.3 Khai thác và bảo trì 7.4 Đánh giá 2.4. Công cụ thực hiện đề tài 2.4.1. Hệ quản trị cơ sở dữ liệu Microsoft access 2003 Để tạo lập cơ sở dữ liệu ta sử dụng hệ quản trị cơ sở dữ liệu Microsoft Access 2003, hệ quản trị cơ sở dữ liệu này phổ biến, rất thân thiện với người sử dụng, dễ sử dụng và nó có độ tương thích cao với ngôn ngữ lập trình Visual Basic 6.0. Ngôn ngữ lập trình Visual Basic 6.0 Để viết Code của chương trình em lựa chọn ngôn ngữ Visual Basic 6.0. Đây là một ngôn ngữ lập trình hướng sự kiện và cho phép lập trình hướng đối tượng để xây dựng chương trình trong môi trường Windows.Hơn nữa Visual Basic 6.0 là ngôn ngữ lập trình với tính trực quan cao: việc sử dụng công cụ Toolbox để thiết kế giúp người lập trình thiết kế một cách dễ dàng. Visual Basic cung cấp nhiều công cụ để cho phép kết nối và khai thác dữ liệu ở nhiều hệ quản trị cơ sở dữ liệu khác nhau. Ngoài ra ngôn ngữ lập trình này có chế độ bảo mật an toàn dữ liệu khá tốt, dễ sử dụng và được sử dụng rất phổ biến trong thông tin quản lý. Công cụ làm báo cáo Crystal Report Khi xây dựng một chương trình với mục đích ứng dụng thực tiễn thì kết quả cuối cùng là dữ liệu phải được kết xuất và có thể xuất ra các thiết bị như máy in hay các chương trình hỗ trợ khác cho phép người dùng in hay trích dữ liệu sang các chương trình tương thích khác. Crystal Report là một công cụ chuẩn cho phép thiết kế các báo cáo trên ứng dụng Visual Basic. Ngoài ra có thể tạo báo cáo trên ứng dụng và Web, sau đó thiết lập như một dịch vụ trên trình chủ tệp tin dạng Crystal Report có tên mở rộng “.rpt”. Để tạo báo cáo bằng Crystal Report trong Visual Basic chúng ta sẽ kết nối với cơ sở dữ liệu, có thể là Microsoft Access hay SQL Server 2000. Trong phần mềm này sẽ sử dụng hệ quản trị cơ sở dữ liệu Microsoft Access 2003. CHƯƠNG 3 XÂY DỰNG HỆ THỐNG THÔNG TIN QUẢN LÝ TIỀN GỬI VÀ TIỀN VAY CỦA KHÁCH HÀNG Phân tích yêu cầu Yêu cầu chung Trên các Form nhập dữ liệu phải được bố trí thuận tiện, dễ sử dụng. Đây là một yêu cầu mang tính trừu tượng bởi lẽ mức độ thuận tiện, dễ sử dụng phụ thuộc vào cách đánh giá khác nhau của từng người sử dụng. Tuy nhiên việc thiết kế giao diện phải đảm bảo một số yêu cầu sau: Màu sắc trên from phải hài hoà không có quá nhiều màu sắc song cũng cần phải làm nổi bật một số trường quan trọng như mã hàng, mã khách hàng, mã nhà cung cấp… Dùng phím Tab để thay đổi vị trí trường nhập theo một thứ tự từ trên xuống dưới, từ trái qua phải hay thay đổi từ form chính sang form con. Hiển thị các thực đơn cùng với hướng dẫn sử dụng phím tắt… Trên các Form phải sử dụng các từ ngữ dễ hiểu, thân thiện với người sử dụng. Giảm thiểu tối đa việc nhập liệu bằng tay và nên sử dụng các Combo Box để người sử dụng chọn các giá trị chuẩn có sẵn. Điều này sẽ giúp người sử dụng tiết kiệm thời gian và tăng độ chính xác của thông tin. Dựa vào các quy tắc đã được chấp nhận về đồ hoạ để minh họa thông tin trên màn hình giao diện: ví dụ dùng biểu tượng máy in để mô tả nút có chức năng in văn bản, sử dụng biểu tượng của đĩa mềm để mô tả chức năng lưu văn bản,… Phải có dấu hiệu cho biết người sử dụng đang thao tác với thực đơn nào: ví dụ khi người sử dụng đang nhập danh mục khách hàng gửi tiền thì trên thanh tiêu đề của form phải hiển thị chữ Danh mục khách hàng gửi tiền… Khi người sử dụng tiến hành một số thao tác làm thay đổi dữ liệu hệ thống cần phải có câu hỏi xác nhận nhằm tránh những mất mát đáng tiếc có thể xảy ra: ví dụ khi người sử dụng ấn vào nút xoá trong Form phiếu khách hàng gửi tiền, chương trình phải hiện một Message box xác nhận lại xem có muốn xoá thật không. Các phím nóng phải được sử dụng thống nhất trong toàn hệ thống, tiện lợi cho người sử dụng Yêu cầu đối với nghiệp vụ nhập khách hàng gửi tiền Phiếu khách hàng gửi tiền phải hiển thị đầy đủ các trường: Số hiệu gửi tiền, mã khách hàng gửi tiền, tên khách hàng gửi tiền, ngày bắt đầu gửi tiền, số tiền phải gửi, lãi suất, số kỳ hạn khách hàng gửi tiền……. Khi nhân viên nhấn nút lưu phiếu khách hàng gửi tiền thì chương trình phải tự động cập nhật số liệu liên quan đến khách hàng gửi tiền vừa nhập vào bảng khách hàng gửi tiền và khách hàng gửi tiền chi tiết. Yêu cầu đối với nghiệp vụ khách hàng vay tiền Phiếu khách hàng vay tiền phải hiển thị đầy đủ thông tin cần thiết về số hiệu vay tiền, mã khách hàng vay tiền, tên khách hàng vay tiền, ngày bắt đầu vay tiền, sô tiền muôn vay, lãi suất, số kỳ hạn khách hàng trả tiền vay….. Khi nhân viên lưu phiếu khách hàng vay tiền thì dữ liệu phải được cập nhật vào bảng khách hàng vay tiền và khách hàng vay tiền chi tiết…… Yêu cầu đối với nghiệp vụ lập báo cáo Do là một Ngân hàng phục vụ nhiều khách hàng gửi và vay tiền nên Ngân hàng NN&PTNT- Chí nhánh Láng Hạ, phải lên nhiều loại báo cáo như: báo cáo liệt kê các khách hàng gửi tiền, báo cáo liệt kê các khách hàng vay tiền, báo cáo số tiền gửi, số tiền lãi suất và số tiền khách hàng đã rút hết theo khách hàng gửi tiền, báo cáo số tiền vay, số tiền lãi suất và số tiền khách hàng đã trả hết theo khách hàng vay tiền … Phải thiết kế các form có giao diện phù hợp với từng loại báo cáo theo yêu cầu của từng cấp quản lý. Sử dụng công cụ làm báo cáo Crystal Report để làm các báo cáo này. Các báo cáo phải hiển thị đầy đủ thông tin cần thiết theo từng loại báo cáo. Các yêu cầu khác Yêu cầu về bảo mật và an toàn dữ liệu: Chương trình phải đảm bảo tương đối tốt về bảo mật và an toàn dữ liệu, có thể khôi phục dữ liệu đầy đủ và tin cậy. Yêu cầu về tính mở: Hệ thống phải dễ dàng mở rộng và nâng cấp trong tương lai. Yêu cầu về tính hiệu quả: Hệ thống cần tối ưu hoá năng lực xử lý thông tin, có các công cụ tìm kiếm nhanh và hợp lý. 3.2. Mô tả bài toán quản lý tiền giử và tiền vay của khách hàng Bài toán quản lý tiền gửi và tiền vay của khách hàng là một bài toán không mới, nhưng đối với bất kì một ngân hàng nào thì đây là một vấn đề vô cùng quan trọng đặc biệt với Ngân hàng Nông nghiệp và Phát triển Nông thông Việt Nam hàng ngày có một số lượng lớn các khách hàng đến gửi và vay tiền. Vì dụ, vấn đề quản lý được các thông tin của khách hàng đến gửi và vay tiền đồng thời các thông tin này phải dễ dàng tìm kiếm khi có yêu cầu của khách hàng đến gửi va vay tiền. Quản lý tiền gửi và tiền vay của khách hàng gồm các thức năng chính như sau: Quản trị hệ thống gồm có đăng nhập, đổi mật khẩu, cấp lại mật khẩu, tạo quyền người sử dụng. Quản lý thông tin khách hàng gửi và vay tiền, nhân viên phụ trách… Cập nhật, tìm kiếm thông tin khách hàng đã gửi và vay tiền, sửa đổi các thông tin về khách hàng đó. Lập báo cáo gồm báo cáo về số tiền khách hàng đến gửi và vay tiền hàng ngày, báo cáo về số tiền lãi suất khách hàng đã rút và phải trả hàng ngày, báo cáo về số tiền khách hàng đã rút và trả hết hàng ngày……. 3.3. Mô hình hóa hê thống 3.3.1. Sơ đồ chức năng quản lý tiền giử và tiền vay của khách hàng Quản lý TG & TV Quản lý tiền gửi Quản lý tiền vay Yêu cầu gửi tiền Yêu cầu rút lãi suất Yêu cầu rút tiền hết Yêu cầu vay tiền Yêu cầu trả lãi suất Yêu cầu trả tiền hết Viết phiếu gửi tiền Lập báo cáo gửi tiền Nhận đơn gửi tiền Kiểm trả ngày BĐ Gửi Tìm kiếm Tính Lãi suất Viết phiếu rút LS Lập báo cáo rút lãi suất Nhận đơn gửi tiền Kiểm trả ngày BĐ Gửi Tìm kiếm Tính Lãi suất Tính số tiền phải rút hết Viết phiếu rút tiền hết Lập báo cáo rút tiền hết Viết phiếu vay tiền Lập báo cáo vay tiền Nhận đơn vay tiền Kiểm trả ngày BĐ vay Tìm kiếm Tính Lãi suất Viết phiếu trả LS Lập báo cáo trả lãi suất Nhận đơn vay tiền Kiểm trả ngày BĐ vay Tìm kiếm Tính Lãi suất Tính số tiền phải trả hết Viết phiếu trả tiền hết Lập báo cáo trả tiền hết 3.3.2. Sơ đồ luồng thôg tin IFD cập nhật yêu cầu khách khàng đến gửi hoặc vay tiền Thời điểm Khách hàng Nhân viên quản lý Các phòng ban Hàng ngày Cuối tháng hoặc khi có yêu cầu Yêu cầu khách hàng Cập nhật yêu cầu khách hàng Lưu trữ yêu Cầu khách hàng Lựa chọn hình thức báo cáo In báo cáo Yêu cầu đã kiếm trả Báo cáo theo yêu cầu khách hàng 3.3.3. Sơ đồ luồng dữ liệu DFD 3.3.3.1. Sơ đồ ngữ cảnh Quản lý tiền gửi và tiền vay Khách hàng Giám đốc Đến g._.ửi ,vay tiền Phiếu Số sách gửi,vay tiền Báo cáo 3.3.3.2. Sơ đồ DFD mức 0 Khách hàng 1.0 Cập nhập yêu cầu gửi, vay tiền 2.0 Cập nhập yêu cầu LS cần rút, trả 3.0 Cập nhập yêu tiền cần rút,trả hết Giám đốc Số sách gửi,vay tiền Số sách LS cần rút, trả Số sách tiền cần rút,trả hết Cần gửi,vay tiền Cần rút,trả lãi suất Cần rút,trả tiền hết Báo cáo Phiếu 3.3.3.3. Sơ đồ DFD mức 1 Sơ đồ DFD mức 1 khi khách hàng đến gửi hoặc vay tiền Khách hàng 1.1 Viết phiếu gửi, vay tiền Giám đốc Số sách gửi,vay tiền Đến gửi,vay tiền phiếu gửi,vay tiền Sơ đồ DFD mức 1 khi khách hàng đến rút hoặc trả lãi suất Khách hàng 2.1 Nhận đơn gửi,vay tiền 2.2 Kiếm trả NgàyBĐ gửi,vay tiền 2.3 Tìm kiếm 2.4 Tính lãi suất gửi,vay 2.5 Viết phiếu LS đã rút,trả Giám đốc Đến rút,trả lãi suất Số sách gửi,vay tiền Số sách ngày BĐ gửi,vay Số sách tìm kiếm Số sách lãi suất Số sách gửi,vay tiền phiếu lãi suất đã rút,trả Báo cáo Sơ đồ DFD mức 1 khi khách hàng đến rút hoặc trả tiền hết Khách hàng 3.1 Nhận đơn gửi,vay tiền 3.2 Kiếm trả NgàyBĐ gửi,vay tiền 3.3 Tìm kiếm 3.4 Tính lãi suất gửi,vay 3.6 Viết phiếu gửi tiền đã rút,trả hết Giám đốc 3.5 Tính số tiền phải rút,trả hết Đến rút,trả lãi suất Số sách gửi,vay tiền Số sách ngày BĐ gửi,vay Số sách tìm kiếm Số sách lãi suất Số sách gửi,vay tiền Số sách tiền đã rút,trả hết phiếu tiền đã rút,trả hết Báo cáo 3.4. Thiết kế cơ sở dữ liệu quản lý tiền giử và tiền vay của khách hàng 3.4.1. Tạo bảng trong cơ sơ dữ liêu Table TblDMKH (Bảng Danh mục khách hàng gửi tiền) Field Name Data type Field size Description MaKH Text 10 Mã khách hàng gửi TenKH Text 30 Tên khách hàng gửi DiaChi Text 50 Địa chỉ của khách hàng đến gửi tiền Tel Text 20 Điện thoạt Email Text 25 E_mail Table TblDMKHVAY (Bảng Danh mục khách hàng vay tiền) Field Name Data type Field size Description MaKH Text 10 Mã khách hàng vay TenKH Text 30 Tên khách hàng vay DiaChi Text 50 Địa chỉ của khách hàng đến vay tiền Tel Text 20 Điện thoạt Email Text 25 E_mail Table TblDMNV ( Bảng danh mục nhân viên quản lý) Field Name Type Field size Description MaNV Text 10 Mã số nhân viên TenNV Text 30 Tên nhân viên Chucvu Text 20 Chức vụ Diachi Text 50 Địa chỉ Tel Text 20 Điện thoại Email Text 30 Email MatKhau Text 15 Mật khẩu người sử dụng Table TblKHGuiTien ( Bảng khách hàng đến gửi tiền) Field Name Type Field size Description SoGui Text 10 Mã số gửi tiền NgayBDGui Date Ngày bắt đầu gửi tiền MaKH Text 10 Mã khách hàng gửi tiền TenKH Text 30 Tên khách hàng gửi tiền DiaChi Text 50 Địa chỉ KH gửi tiền Tel Text 20 Điện thoại KH gửi tiền Email Text 30 Email KH gửi tiền MaNV Text 10 Mã nhân viên quản lý TênNV Text 30 Tên nhân viên quản lý Table TblKHVayTien ( Bảng khách hàng đến vay tiền) Field Name Type Field size Description SoVay Text 10 Mã số vay tiền NgayBDVay Date Ngày bắt đầu vay tiền MaKH Text 10 Mã khách hàng vay tiền TenKH Text 30 Tên khách hàng vay tiền DiaChi Text 50 Địa chỉ KH vay tiền Tel Text 20 Điện thoại KH vay tiền Email Text 30 Email KH vay tiền MaNV Text 10 Mã nhân viên quản lý TênNV Text 30 Tên nhân viên quản lý Table TblKHGuiTienCT ( Bảng khách hàng đến gửi tiền chi tiết) Field Name Type Field size Description SoGui Text 10 Mã số gửi tiền NgayRutLS Date Ngày rút lãi suất MaKH Text 10 Mã khách hàng gửi tiền TenKH Text 30 Tên khách hàng gửi tiền HinhThucGT Text 30 Hình thức gửi tiền SoTienGui Number Số tiền KH đến gửi LaiSuat Namber Lãi suất gửi tiền SoKyHanGT Number Số kỳ hạn KH đã gửi SoTienLS Number Số tiền LS KH thu được SoTienLinhHet Number Số tiền KH đã lĩnh hết TrangThaiGT Text 20 Trạng thái KH gửi tiền Table TblKHVayTienCT ( Bảng khách hàng đến vay tiền chi tiết) Field Name Type Field size Description SoVay Text 10 Mã số vay tiền NgayTraLS Date Ngày trả lãi suất MaKH Text 10 Mã khách hàng vay tiền TenKH Text 30 Tên khách hàng vay tiền HinhThucVT Text 30 Hình thức vay tiền SoTienVay Number Số tiền KH đến vay LaiSuat Namber Lãi suất vay tiền SoKyHanVT Number Số kỳ hạn KH đã vay SoTienLS Number Số tiền LS KH phải trả SoTienTraHet Number Số tiền KH đã trả hết TrangThaiVT Text 20 Trạng thái KH vay tiền Table TblLoạiLS ( Bảng loại lãi suât khi khách hàng đến gửi tiền) Field Name Type Field size Description LoaiHTGT Text 30 Loại hình thức KH gửi tiền TLLaiSuat Number Tỷ lệ lãi suất gửi SoKyHanGT Number Số kỳ hạn gửi tiền Table TblLoạiLS ( Bảng loại lãi suât khi khách hàng đến gửi tiền) Field Name Type Field size Description LoaiHTVT Text 30 Loại hình thức KH vay tiền TLLaiSuat Number Tỷ lệ lãi suât vay 3.4.2. Tạo mối quan hệ giữa các bảng 3.4.3. Thiết kế giao diện cập nhật dữ liệu 3.4.3.1. Thiết kế Form Đăng nhập hệ thông của chương trình 3.4.3.2. Thiết kế Form chính của chương trình 3.4.3.3. Thiết kế Form Danh mục khách hàng đến gửi tiền 3.4.3.4. Thiết kế Form Danh mục khách hàng đến vay tiền 3.4.3.5. Thiết kế Form Danh mục nhân viên quản lý chương trình 3.4.3.6. Thiết kế Form Phiếu khách hàng đến gửi tiền 3.4.3.7. Thiết kế Form Phiếu khách hàng đến vay tiền 3.4.3.8. Thiết kế Form Báo cáo trạng thái gửi tiền của khách hàng 3.4.3.9. Thiết kế Form Báo cáo trạng thái vay tiền của khách hàng 3.5. Thiết kế báo cáo của chương trình 3.5.1. Thiết kế báo cáo trạng thái gửi tiền của khách hàng 3.5.1.1. Báo cáo tiền gửi theo khách hàng đang gửi Báo cáo tiền lãi suất theo khách hàng đã rút Báo cáo tiền khách hàng đã lĩnh hết Thiết kế báo cáo trạng thái vay tiền của khách hàng 3.5.2.1. Báo cáo tiền vay theo khách hàng đang vay Báo cáo tiền lãi suất theo khách hàng đã trả Báo cáo tiền khách hàng đã trả hết B. KẾT LUẬN rs Trong thời gian thực tập tại Ngân hàng Nông nghiệp và Phát triển Nông thôn Việt Nam-Chi nhánh Láng Hạ, dưới sự hướng dẫn tận tình của GV. Đoàn Quốc Tuấn và các nhân viên, cán bộ tại nơi thực tập đã giúp em tìm hiểu và hiểu biết thêm rất nhiều về các vấn đề thực tế cuộc sống nói chung cũng như về công tác quản lý tiền gửi và tiền vay của khách hàng tại Ngân hàng Nông nghiệp và Phát triển Nông thôn. Đặc biệt là trong thời gian thực tập này, đã giúp cho em hiểu biết rất nhiều thứ hơn như sau: Nắm bắt được rõ hơn quá trình xây dựng một hệ thống thông tin và được áp dụng giải quyết trong một bài toán cụ thể là “Quản lý tiền gửi và tiền vay của khách hàng”. Xây dựng được một phần mềm quản lý bằng MS Access và Visual Basic 6.0. Từ đó, giúp em nắm bắt được ngôn ngữ lập trình của MS Acces, Visual Basic 6.0 và những điểm yếu và mạnh của nó. Tự mình tìm hiểu, nghiên cứu và kết hợp với kiến thức đã có khai thác, phát triển để giải quyết bài toán thực tế. Do thời gian thực hiện có hạn và trình độ còn hạn chế, đặc biệt do sự hạn chế về ngôn ngữ tiếng Việt cho nên đề tài này không thể tránh khỏi những thiếu sót. Em rất mong nhận được sự góp ý của các thầy cô để em có thể hoàn thiện tốt hơn nữa. Em xin đặc biệt cảm ơn GV. Đoàn Quốc Tuấn đã tận tình hướng dẫn em hoàn thành đề tài này. C. TÀI LIỆU THAM KHẢO rs [1] TS. Trương Văn Tú và TS. Trần Thị Song Minh - Giao trình Hệ thống thông tin quản lý. NXB thống kê, Hà nội 2000. [2] Trần Công Uẩn - Giáo trình cơ sở dữ liệu 1. NXB thống kê, Hà nội 2005. [3] Trần Công Uẩn - Giáo trình cơ sở dữ liệu 2. NXB thống kê, Hà nội 2005 [4]Tổng hợp và Biên soạn KS. ĐịNH XUÂN LÂM- Kế toán doanh nghiệp với Visual Basic, NXB thống Kê, 2004 [5] Báo cáo nghiên cứu khoa học www.agribank.com.vn Code của chương trình Form Đăng nhập hệ thông của chương trình Dim RsMaNV As New ADODB.Recordset Dim NapTuDong As New ADODB.Recordset Dim RsTimMatKhau As New ADODB.Recordset Private Sub CmbMaNV_Click() Dim Str As String Str = "SELECT TenNV, MatKhau FROM TblDMNV WHERE MaNV ='" & CmbMaNV.Text & "'" NapTuDong.Open Str, Conn TxtTenNV.Text = NapTuDong!TenNV NapTuDong.Close TxtMatKhau.SetFocus TxtMatKhau.Text = "" gsUsername = TxtTenNV.Text End Sub Private Sub CmdDangNhap_Click() Dim SQL As String SQL = " SELECT MatKhau FROM TblDMNV WHERE MaNV= '" & CmbMaNV.Text & "'" RsTimMatKhau.Open SQL, Conn, adOpenKeyset, adLockPessimistic If TxtMatKhau.Text = RsTimMatKhau!MatKhau Then FrmMain.Show Unload Me Else MsgBox "Bạn Nhập Sai Mật Khẩu ! ", vbInformation + vbOKOnly, "Ngân hàng nông nhiêp và phát triển nông thôn " TxtMatKhau.Text = "" TxtMatKhau.SetFocus End If RsTimMatKhau.Close End Sub Private Sub CmdVeMain_Click() Unload Me End Sub Private Sub Form_Load() AdoNhanVien.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Data\QuanlyNH.mdb;Persist Security Info=False" NapAdoNhanVien NapCmbMaNV End Sub Private Sub NapAdoNhanVien() AdoNhanVien.CommandType = adCmdText AdoNhanVien.RecordSource = " SELECT * FROM TblDMNV" AdoNhanVien.Refresh End Sub Private Sub NapCmbMaNV() Dim SQL As String SQL = " Select MaNV From TblDMNV Order by MaNV" RsMaNV.Open SQL, Conn CmbMaNV.Clear Do While Not RsMaNV.EOF CmbMaNV.AddItem RsMaNV!MaNV RsMaNV.MoveNext Loop RsMaNV.Close End Sub Form chính của chương trình Private Sub MBCDSGui_Click() RptDMKHGT.Show End Sub Private Sub MBCDSVay_Click() RptDMKHVT.Show End Sub Private Sub MBCGui_Click() FrmBCTTKHGT.Show End Sub Private Sub MBCvay_Click() FrmBCTTKHVayTien.Show End Sub Private Sub MDangNhap_Click() FrmDangNHap.Show End Sub Private Sub MDIForm_Activate() SB.Panels(1).Text = "Logon :" & (gsUsername) End Sub Private Sub MDIForm_Load() Timer1.Interval = 250 Timer2.Interval = 250 End Sub Private Sub MGuiTien_Click() FrmDMKHGuiTien.Show End Sub Private Sub MNhanVien_Click() FrmDMNV.Show End Sub Private Sub MPTienGuiKH_Click() FrmGuiTien.Show End Sub Private Sub MPTienVayKH_Click() FrmVayTien.Show End Sub Private Sub MThoat_Click() Unload Me End Sub Private Sub MVayTien_Click() FrmDMKHVay.Show End Sub Private Sub Timer1_Timer() Dim X As String Dim Y As String X = Left(FrmMain.Caption, 1) Y = Right(FrmMain.Caption, Len(FrmMain.Caption) - 1) FrmMain.Caption = Y + X End Sub Form Danh mục khách hàng đến gửi tiền Private Sub AdoKH_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset) lblResult.Caption = "Khách hàng hiện tại có " & AdoKH.Recordset.RecordCount txtSoKH.Text = "Khách hàng " & AdoKH.Recordset.AbsolutePosition & _ " trong " & AdoKH.Recordset.RecordCount End Sub Private Sub CmdCuoi_Click() On Error GoTo Err_Cuoi_Click If AdoKH.Recordset.EOF Then MsgBox "Ban dang o ban ghi cuoi", vbOKOnly, "Thong bao" Else AdoKH.Recordset.MoveLast End If Exit_Cuoi_Click: Exit Sub Err_Cuoi_Click: MsgBox Err.Description Resume Exit_Cuoi_Click End Sub Private Sub CmdDau_Click() On Error GoTo Err_Dau_Click If AdoKH.Recordset.BOF Then MsgBox "Ban dang o ban ghi dau tien", vbOKOnly, "Thong bao" Else AdoKH.Recordset.MoveFirst End If Exit_Dau_Click: Exit Sub Err_Dau_Click: MsgBox Err.Description Resume Exit_Dau_Click End Sub Private Sub CmdGhi_Click() On Error GoTo Err_ghi_click CmdThem.Visible = True CmdSua.Visible = True CmdXoa.Enabled = True CmdGhi.Visible = False CmdKhong.Visible = False CmdThoat.Enabled = True AdoKH.Recordset.UpdateBatch adAffectAll locked xThem = False Exit_ghi_click: DGridKH.SetFocus Exit Sub Err_ghi_click: MsgBox "Data is invalid." Resume Exit_ghi_click End Sub Private Sub CmdKhong_Click() On Error GoTo Err_Khong_Click CmdThem.Visible = True CmdSua.Visible = True CmdXoa.Enabled = True CmdGhi.Visible = False CmdKhong.Visible = False CmdThoat.Enabled = True AdoKH.Refresh AdoKH.Recordset.Clone AdoKH.Recordset.MoveLast locked CmdThem.SetFocus xThem = False Exit_Khong_Click: DGridKH.SetFocus Exit Sub Err_Khong_Click: MsgBox "Data is invalid!" Resume Exit_Khong_Click End Sub Private Sub CmdSau_Click() If AdoKH.Recordset.EOF Then MsgBox "ban dang o ban ghi cuoi", vbOKOnly, "Thong bao" Else AdoKH.Recordset.MoveNext End If End Sub Private Sub CmdSearch_Click() Unlocked CmdGhi.Visible = True CmdSua.Visible = True CmdXoa.Visible = True CmdThem.Visible = False CmdSearch.Visible = False CmdStop.Visible = True CmdThoat.Enabled = False AddItem CmbField.SetFocus End Sub Private Sub Unlocked() txtMaKH.locked = False TxtTenKH.locked = False txtDiaChi.locked = False txtTel.locked = False txtEmail.locked = False lblTruong.Enabled = True lblTimKiem.Enabled = True CmbField.Enabled = True txtFind.Enabled = True DGridKH.AllowDelete = False DGridKH.AllowUpdate = False DGridKH.AllowRowSizing = False DGridKH.AllowArrows = False End Sub Private Sub AddItem() CmbField.AddItem ("MaKH") CmbField.AddItem ("TenKH") CmbField.AddItem ("DiaChi") CmbField.AddItem ("Tel") CmbField.AddItem ("Email") End Sub Private Sub CmdStop_Click() CmdThem.Visible = True CmdXoa.Visible = True CmdSua.Visible = True CmdSearch.Visible = True CmdStop.Visible = False CmdThoat.Enabled = True CmbField.Clear txtFind.Text = "" locked End Sub Private Sub CmdSua_Click() On Error GoTo Err_Sua_click CmdThem.Visible = False CmdSua.Visible = False CmdXoa.Enabled = False CmdGhi.Visible = True CmdKhong.Visible = True CmdThoat.Enabled = False recnum = AdoKH.Recordset.Bookmark xThem = False txtMaKH.SetFocus Unlocked Exit_Sua_click: Exit Sub Err_Sua_click: MsgBox Err.Description Resume Exit_Sua_click End Sub Private Sub CmdThem_Click() On Error GoTo Err_Them_click CmdThem.Visible = False CmdSua.Visible = False CmdXoa.Enabled = False CmdGhi.Visible = True CmdKhong.Visible = True CmdThoat.Enabled = False AdoKH.Recordset.AddNew txtMaKH.SetFocus Unlocked xThem = True Exit_Them_click: Exit Sub Err_Them_click: MsgBox Err.Description Resume Exit_Them_click End Sub Private Sub CmdThoat_Click() Unload Me End Sub Private Sub CmdTruoc_Click() If AdoKH.Recordset.BOF Then MsgBox "Ban dang o ban ghi dau tien", vbOKOnly, "Thong bao" Else AdoKH.Recordset.MovePrevious End If End Sub Private Sub CmdXoa_Click() On Error GoTo Err_Xoa_click CmdThem.Visible = True CmdSua.Visible = True CmdXoa.Enabled = True CmdGhi.Visible = False CmdKhong.Visible = False CmdThoat.Enabled = True Dim TraLoi TraLoi = MsgBox("Ban muon xoa Ma khach hang " & _ AdoKH.Recordset.Fields("TenKH") & " (cung voi cac thong tin lien quan)?" _ , vbYesNo, "Thong bao") If TraLoi = 6 Then AdoKH.Recordset.Delete AdoKH.Recordset.MoveNext AdoKH.Recordset.Clone ' If AdoKH.Recordset.EOF Then ' AdoKH.Recordset.MoveLast 'End If End If locked Exit_Xoa_click: Exit Sub Err_Xoa_click: MsgBox "Khong the xoa ban ghi nay!" Resume Exit_Xoa_click End Sub Private Sub Form_Load() Dim so As Integer, ngay, thang, nam thang = Month(Now()) ngay = Day(Now()) nam = Year(Now()) Me.LblThang = thang Me.LblNgay = ngay Me.LblNam = nam CmdThoat.Visible = True CmdSua.Visible = True CmdKhong.Visible = False CmdGhi.Visible = False CmdXoa.Visible = True CmdThem.Visible = True AdoKH.Visible = False DGridKH.AllowDelete = False DGridKH.AllowUpdate = False DGridKH.AllowRowSizing = False DGridKH.AllowArrows = False locked AdoKH.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Data\QuanlyNH.mdb;Persist Security Info=False" NapAdoKH End Sub Private Sub locked() txtMaKH.locked = True TxtTenKH.locked = True txtDiaChi.locked = True txtTel.locked = True txtEmail.locked = True lblTruong.Enabled = False lblTimKiem.Enabled = False CmbField.Enabled = False txtFind.Enabled = False DGridKH.AllowDelete = False DGridKH.AllowUpdate = False DGridKH.AllowRowSizing = False DGridKH.AllowArrows = False End Sub Private Sub NapAdoKH() AdoKH.CommandType = adCmdText AdoKH.RecordSource = "SELECT * from TblDMKH order by MaKH" AdoKH.Refresh End Sub Private Sub txtFind_Change() If CmbField.Text = "" Or txtFind = "" Then AdoKH.Recordset.Filter = "" AdoKH.Refresh Exit Sub End If AdoKH.Recordset.Filter = CmbField & " LIKE '*" & txtFind & "*'" End Sub Form Danh mục khách hàng đến vay tiền Private Sub AdoKHVay_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset) lblResult.Caption = "Khách hàng hiện tại có" & AdoKHVay.Recordset.RecordCount txtSoKH.Text = "Khách hàng " & AdoKHVay.Recordset.AbsolutePosition & _ " trong " & AdoKHVay.Recordset.RecordCount End Sub Private Sub CmdCuoi_Click() On Error GoTo Err_Cuoi_Click If AdoKHVay.Recordset.EOF Then MsgBox "Ban dang o ban ghi cuoi", vbOKOnly, "Thong bao" Else AdoKHVay.Recordset.MoveLast End If Exit_Cuoi_Click: Exit Sub Err_Cuoi_Click: MsgBox Err.Description Resume Exit_Cuoi_Click End Sub Private Sub CmdDau_Click() On Error GoTo Err_Dau_Click If AdoKHVay.Recordset.BOF Then MsgBox "Ban dang o ban ghi dau tien", vbOKOnly, "Thong bao" Else AdoKHVay.Recordset.MoveFirst End If Exit_Dau_Click: Exit Sub Err_Dau_Click: MsgBox Err.Description Resume Exit_Dau_Click End Sub Private Sub CmdGhi_Click() On Error GoTo Err_ghi_click CmdThem.Visible = True CmdSua.Visible = True CmdXoa.Enabled = True CmdGhi.Visible = False CmdKhong.Visible = False CmdThoat.Enabled = True AdoKHVay.Recordset.UpdateBatch adAffectAll locked xThem = False Exit_ghi_click: DGridKH.SetFocus Exit Sub Err_ghi_click: MsgBox "Data is invalid." Resume Exit_ghi_click End Sub Private Sub CmdKhong_Click() On Error GoTo Err_Khong_Click CmdThem.Visible = True CmdSua.Visible = True CmdXoa.Enabled = True CmdGhi.Visible = False CmdKhong.Visible = False CmdThoat.Enabled = True AdoKHVay.Refresh AdoKHVay.Recordset.Clone AdoKHVay.Recordset.MoveLast locked CmdThem.SetFocus xThem = False Exit_Khong_Click: DGridKH.SetFocus Exit Sub Err_Khong_Click: MsgBox "Data is invalid!" Resume Exit_Khong_Click End Sub Private Sub CmdSau_Click() If AdoKHVay.Recordset.EOF Then MsgBox "ban dang o ban ghi cuoi", vbOKOnly, "Thong bao" Else AdoKHVay.Recordset.MoveNext End If End Sub Private Sub CmdSearch_Click() CmdGhi.Visible = True CmdSua.Visible = True CmdXoa.Visible = True CmdThem.Visible = False CmdSearch.Visible = False CmdStop.Visible = True CmdThoat.Enabled = False Unlocked AddItem CmbField.SetFocus End Sub Private Sub Unlocked() txtMaKH.locked = False TxtTenKH.locked = False txtDiaChi.locked = False txtTel.locked = False txtEmail.locked = False lblTruong.Enabled = True lblTimKiem.Enabled = True CmbField.Enabled = True txtFind.Enabled = True DGridKH.AllowDelete = False DGridKH.AllowUpdate = False DGridKH.AllowRowSizing = False DGridKH.AllowArrows = False End Sub Private Sub AddItem() CmbField.AddItem ("MaKH") CmbField.AddItem ("TenKH") CmbField.AddItem ("DiaChi") CmbField.AddItem ("Tel") CmbField.AddItem ("Email") End Sub Private Sub CmdStop_Click() CmdThem.Visible = True CmdXoa.Visible = True CmdSua.Visible = True CmdSearch.Visible = True CmdStop.Visible = False CmbField.Clear CmdThoat.Enabled = True txtFind.Text = "" locked End Sub Private Sub CmdSua_Click() On Error GoTo Err_Sua_click CmdThem.Visible = False CmdSua.Visible = False CmdXoa.Enabled = False CmdGhi.Visible = True CmdKhong.Visible = True CmdThoat.Enabled = False recnum = AdoKHVay.Recordset.Bookmark Unlocked xThem = False Exit_Sua_click: Exit Sub Err_Sua_click: MsgBox Err.Description Resume Exit_Sua_click End Sub Private Sub CmdThem_Click() On Error GoTo Err_Them_click CmdThem.Visible = False CmdSua.Visible = False CmdXoa.Enabled = False CmdGhi.Visible = True CmdKhong.Visible = True CmdThoat.Enabled = False AdoKHVay.Recordset.AddNew DGridKH.SetFocus Unlocked xThem = True Exit_Them_click: Exit Sub Err_Them_click: MsgBox Err.Description Resume Exit_Them_click End Sub Private Sub CmdThoat_Click() Unload Me End Sub Private Sub CmdTruoc_Click() If AdoKHVay.Recordset.BOF Then MsgBox "Ban dang o ban ghi dau tien", vbOKOnly, "Thong bao" Else AdoKHVay.Recordset.MovePrevious End If End Sub Private Sub CmdXoa_Click() On Error GoTo Err_Xoa_click CmdThem.Visible = True CmdSua.Visible = True CmdXoa.Enabled = True CmdGhi.Visible = False CmdKhong.Visible = False CmdThoat.Enabled = True Dim TraLoi TraLoi = MsgBox("Ban muon xoa Ma khach hang " & _ AdoKHVay.Recordset.Fields("TenKH") & " (cung voi cac thong tin lien quan)?" _ , vbYesNo, "Thong bao") If TraLoi = 6 Then AdoKHVay.Recordset.Delete AdoKHVay.Recordset.MoveNext AdoKHVay.Recordset.Clone 'If AdoKHVay.Recordset.EOF Then ' AdoKHVay.Recordset.MoveLast 'End If End If locked Exit_Xoa_click: Exit Sub Err_Xoa_click: MsgBox "Khong the xoa ban ghi nay!" Resume Exit_Xoa_click End Sub Private Sub Form_Load() Dim so As Integer, ngay, thang, nam thang = Month(Now()) ngay = Day(Now()) nam = Year(Now()) Me.LblThang = thang Me.LblNgay = ngay Me.LblNam = nam locked AdoKHVay.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Data\QuanlyNH.mdb;Persist Security Info=False" NapAdoKHVay End Sub Private Sub locked() txtMaKH.locked = True TxtTenKH.locked = True txtDiaChi.locked = True txtTel.locked = True txtEmail.locked = True lblTruong.Enabled = False lblTimKiem.Enabled = False CmbField.Enabled = False txtFind.Enabled = False DGridKH.AllowDelete = False DGridKH.AllowUpdate = False DGridKH.AllowRowSizing = False DGridKH.AllowArrows = False End Sub Private Sub NapAdoKHVay() AdoKHVay.CommandType = adCmdText AdoKHVay.RecordSource = "SELECT * from TblDMKHVay order by MaKH" AdoKHVay.Refresh End Sub Private Sub txtFind_Change() If CmbField.Text = "" Or txtFind = "" Then AdoKHVay.Recordset.Filter = "" AdoKHVay.Refresh Exit Sub End If AdoKHVay.Recordset.Filter = CmbField & " LIKE '*" & txtFind & "*'" End Sub Form Danh mục nhân viên quản lý chương trình Private Sub AdoNV_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset) lblResult.Caption = "Nhân viên hiện tại có " & AdoNV.Recordset.RecordCount txtSoNV.Text = "Nhân viên " & AdoNV.Recordset.AbsolutePosition & _ " trong " & AdoNV.Recordset.RecordCount End Sub Private Sub CmdCuoi_Click() On Error GoTo Err_Cuoi_Click If AdoNV.Recordset.EOF Then MsgBox "Ban dang o ban ghi cuoi", vbOKOnly, "Thong bao" Else AdoNV.Recordset.MoveLast End If Exit_Cuoi_Click: Exit Sub Err_Cuoi_Click: MsgBox Err.Description Resume Exit_Cuoi_Click End Sub Private Sub CmdDau_Click() On Error GoTo Err_Dau_Click If AdoNV.Recordset.BOF Then MsgBox "Ban dang o ban ghi dau tien", vbOKOnly, "Thong bao" Else AdoNV.Recordset.MoveFirst End If Exit_Dau_Click: Exit Sub Err_Dau_Click: MsgBox Err.Description Resume Exit_Dau_Click End Sub Private Sub CmdGhi_Click() On Error GoTo Err_ghi_click CmdThem.Visible = True CmdSua.Visible = True CmdXoa.Enabled = True CmdGhi.Visible = False CmdKhong.Visible = False CmdThoat.Enabled = True AdoNV.Recordset.UpdateBatch adAffectAll CmdThoat.Visible = True CmdSua.Visible = True CmdKhong.Visible = False CmdGhi.Visible = False CmdXoa.Visible = True CmdThem.Visible = True CmdThem.SetFocus xThem = False locked Exit_ghi_click: DGridDMNV.SetFocus Exit Sub Err_ghi_click: MsgBox "Data is invalid." Resume Exit_ghi_click End Sub Private Sub CmdKhong_Click() CmdThem.Visible = True CmdSua.Visible = True CmdXoa.Enabled = True CmdGhi.Visible = False CmdKhong.Visible = False CmdThoat.Enabled = True AdoNV.Refresh AdoNV.Recordset.Clone AdoNV.Recordset.MoveLast CmdThoat.Visible = True CmdSua.Visible = True CmdKhong.Visible = False CmdGhi.Visible = False CmdXoa.Visible = True CmdThem.Visible = True CmdThem.SetFocus xThem = False locked Exit_Khong_Click: DGridDMNV.SetFocus Exit Sub Err_Khong_Click: MsgBox "Data is invalid!" Resume Exit_Khong_Click End Sub Private Sub CmdSau_Click() If AdoNV.Recordset.EOF Then MsgBox "ban dang o ban ghi cuoi", vbOKOnly, "Thong bao" Else AdoNV.Recordset.MoveNext End If End Sub Private Sub CmdSearch_Click() CmdGhi.Visible = True CmdSua.Visible = True CmdXoa.Visible = True CmdThem.Visible = False CmdSearch.Visible = False CmdStop.Visible = True CmdThoat.Enabled = False Unlocked AddItem CmbField.SetFocus End Sub Private Sub Unlocked() txtMaNV.locked = False TxtTenNV.locked = False txtChucvu.locked = False txtDiaChi.locked = False txtTel.locked = False txtEmail.locked = False TxtMatKhau.locked = False lblTruong.Enabled = True lblTimKiem.Enabled = True CmbField.Enabled = True txtFind.Enabled = True DGridDMNV.AllowAddNew = False DGridDMNV.AllowDelete = False DGridDMNV.AllowUpdate = False End Sub Private Sub AddItem() CmbField.AddItem ("MaNV") CmbField.AddItem ("TenNV") CmbField.AddItem ("ChucVu") CmbField.AddItem ("DiaChi") CmbField.AddItem ("Tel") CmbField.AddItem ("Email") End Sub Private Sub CmdStop_Click() CmdThem.Visible = True CmdXoa.Visible = True CmdSua.Visible = True CmdSearch.Visible = True CmdStop.Visible = False CmdThoat.Enabled = True CmbField.Clear txtFind.Text = "" locked End Sub Private Sub CmdSua_Click() On Error GoTo Err_Sua_click CmdThem.Visible = False CmdSua.Visible = False CmdXoa.Enabled = False CmdGhi.Visible = True CmdKhong.Visible = True CmdThoat.Enabled = False recnum = AdoNV.Recordset.Bookmark xThem = False DGridDMNV.AllowDelete = True DGridDMNV.AllowUpdate = True Unlocked Exit_Sua_click: Exit Sub Err_Sua_click: MsgBox Err.Description Resume Exit_Sua_click End Sub Private Sub CmdThem_Click() On Error GoTo Err_Them_click CmdThem.Visible = False CmdSua.Visible = False CmdXoa.Enabled = False CmdGhi.Visible = True CmdKhong.Visible = True CmdThoat.Enabled = False DGridDMNV.AllowDelete = True DGridDMNV.AllowUpdate = True AdoNV.Recordset.AddNew DGridDMNV.SetFocus Unlocked xThem = True Exit_Them_click: Exit Sub Err_Them_click: MsgBox Err.Description Resume Exit_Them_click End Sub Private Sub CmdThoat_Click() Unload Me End Sub Private Sub CmdTruoc_Click() If AdoNV.Recordset.BOF Then MsgBox "Ban dang o ban ghi dau tien", vbOKOnly, "Thong bao" Else AdoNV.Recordset.MovePrevious End If End Sub Private Sub CmdXoa_Click() On Error GoTo Err_Xoa_click CmdThem.Visible = True CmdSua.Visible = True CmdXoa.Enabled = True CmdGhi.Visible = False CmdKhong.Visible = False CmdThoat.Enabled = True Dim TraLoi TraLoi = MsgBox("Do you want to delete Nhan vien : " & _ AdoNV.Recordset.Fields("TenNV") & " (with other information)?" _ , vbYesNo, "Information") If TraLoi = 6 Then AdoNV.Recordset.Delete AdoNV.Recordset.MoveNext AdoNV.Recordset.Clone 'If AdoNV.Recordset.EOF Then ' AdoNV.Recordset.MoveLast 'End If End If locked Exit_Xoa_click: Exit Sub Err_Xoa_click: MsgBox "Can not delete this record" Resume Exit_Xoa_click End Sub Private Sub Form_Load() Dim so As Integer, ngay, thang, nam thang = Month(Now()) ngay = Day(Now()) nam = Year(Now()) Me.LblThang = thang Me.LblNgay = ngay Me.LblNam = nam CmdThoat.Visible = True CmdSua.Visible = True CmdKhong.Visible = False CmdGhi.Visible = False CmdXoa.Visible = True CmdThem.Visible = True AdoNV.Visible = False DGridDMNV.AllowDelete = False DGridDMNV.AllowUpdate = False DGridDMNV.AllowRowSizing = False DGridDMNV.AllowArrows = False locked AdoNV.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Data\QuanlyNH.mdb;Persist Security Info=False" NapAdoNV End Sub Private Sub NapAdoNV() AdoNV.CommandType = adCmdText AdoNV.RecordSource = "SELECT * from TblDMNV order by MaNV" AdoNV.Refresh End Sub Private Sub locked() txtMaNV.locked = True TxtTenNV.locked = True txtChucvu.locked = True txtDiaChi.locked = True txtTel.locked = True txtEmail.locked = True TxtMatKhau.locked = True CmdThem.Enabled = True CmdSua.Enabled = True CmdXoa.Enabled = True lblTruong.Enabled = False lblTimKiem.Enabled = False CmbField.Enabled = False txtFind.Enabled = False DGridDMNV.AllowAddNew = False DGridDMNV.AllowDelete = False DGridDMNV.AllowUpdate = False End Sub Private Sub txtFind_Change() If CmbField.Text = "" Or txtFind = "" Then AdoNV.Recordset.Filter = "" AdoNV.Refresh Exit Sub End If AdoNV.Recordset.Filter = CmbField & " LIKE '*" & txtFind & "*'" End Sub Form Phiếu khách hàng đến gửi tiền 'Dim Conn As New ADODB.Connection 'Dim NapTudong As New ADODB.Recordset Dim RsMaNV As New ADODB.Recordset Dim RsMaKH As New ADODB.Recordset Dim RsMaKHCT As New ADODB.Recordset Dim RsHTGT As New ADODB.Recordset Dim RsTongCong As New ADODB.Recordset Dim Txtc As TextBox Dim xThem, xsua, recnum Private Sub AdoKHGuiTien_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset) lblResult.Caption = "Khách hàng hiện tại có" & AdoKHGuiTien.Recordset.RecordCount txtSoKH1.Text = "Khách hàng " & AdoKHGuiTien.Recordset.AbsolutePosition & _ " trong " & AdoKHGuiTien.Recordset.RecordCount End Sub Private Sub AdoKHGuiTien_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset) lblResult.Caption = "Khách hàng hiện tại có" & AdoKHGuiTienCT.Recordset.RecordCount txtSoKH.Text = "Khách hàng " & AdoKHGuiTienCT.Reco._.

Các file đính kèm theo tài liệu này:

  • doc33029.doc
Tài liệu liên quan