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
124 trang |
Chia sẻ: huyen82 | Lượt xem: 1457 | Lượt tải: 1
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:
- 33029.doc