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ạ

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

Website: http://www.docs.vn Email : lienhe@docs.vn Tel (: 0918.775.368 MỤC LỤC Trang 1.6 Lý chọn đề tài 12 B KẾT LUẬN 40 Website: http://www.docs.vn Email : lienhe@docs.vn Tel (: 0918.775.368 Website: http://www.docs.vn Email : lienhe@docs.vn Tel (: 0918.775.368 LỜI MỞ ĐẦU Sự đời phát triển công nghệ thông tin thành vĩ đại người Nhịp độ phát triển công nghệ thông tin vấn đề ngành khoa học giáo dục kinh tế… quan tâm Nó hữu với tầm vóc mạnh mẽ to lớn ngày lớn mạnh thêm Ngày thành tự, đổi công nghệ, quản lý ngân hàng, quản lý kinh doanh, lĩnh vực giáo dục… có góp phần quan trọng tin học Vai trò tin học to lớn, đa dạng vơ tận… lồi người bước vào thời kỳ cơng nghiệp hố, dại hoá, tin học thực trở thành ngành khoa học công nghệ mũi nhọn Trong hoạt động quản lý ngân hàng nay, việc tin học hoá hoạt động gửi vay tiền ngân hàng cần thiết Một ngân hàng muốn phát triển khả tiếp cận thông tin khả đáp ứng nhu cầu khách hàng đối tác cách hiệu khơng thể thiếu hệ thống thông tin hỗ trợ Việc ứng dụng vào lĩnh vực để đạt cách có hiệu quả, lựa chọn vận dụng phần mềm cho phù hợp đạt kết tốt câu hỏi đặt nhà quản lý Ngày phần mềm ứng dụng phát triển rộng rãi hầu hết ngân hàng Thế yêu cầu người sử dụng phần mềm ngày đa dạng nhiều tính Do dó u cầu người làm phần mềm phải đáp ứng yêu cầu Website: http://www.docs.vn Email : lienhe@docs.vn Tel (: 0918.775.368 Website: http://www.docs.vn Email : lienhe@docs.vn Tel (: 0918.775.368 Cũng nhằm mục đích nói mà đề tài “Xây dựng phát triển hệ thông thông tin quản lý tiền gửi tiền vay khách hàng Ngân hàng Nông nghiệp Phát triển Nông thôn – Chi nhánh Láng Hạ ” đời Qua em xin chân thành cảm ơn quan tâm giúp đỡ tận tình GV Đoàn Quốc Tuấn Người trực tiếp hướng dẫn em hoàn thành đề tài Em xin chân thành cảm ơn! Website: http://www.docs.vn Email : lienhe@docs.vn Tel (: 0918.775.368 Website: http://www.docs.vn Email : lienhe@docs.vn Tel (: 0918.775.368 A Nội dung CHƯƠNG 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 Ngân hàng nông ngiệp phát triển nông thôn Việt nam, Chi nhánh Láng Hạ Tháng năm 2007, UNDP công bố danh sách TOP 200 DN Việt Nam, Ngân Hàng NN&PTNT UNDP đánh giá 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 Tổ chức Tín dụng Việt Nam, đến Ngân hàng Nông nghiệp Phát triển Nông thôn Việt Nam (AGRIBANK) Ngân hàng thương mại hàng đầu giữ vai trò chủ đạo chủ lực đầu tư vốn phát triển kinh tế nông nghiệp, nông thôn lĩnh vực khác kinh tế Việt Nam AGRIBANK ngân hàng lớn Việt Nam vốn, tài sản, đội ngũ CBNV, màng lưới hoạt động số lượng khách hàng Đến tháng 3/2007, vị dẫn đầu AGRIBANK khẳng định với 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ế 1,9% AGRIBANK có 2200 chi nhánh điểm giao dịch bố chí rộng khắp tồn quốc với gần 30.000 cán nhân viên Là ngân hàng trọng đầu tư đổi ứ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 phát triển màng lưới dịch vụ ngân hàng tiên tiến AGRIBANK ngân hàng hồn thành giai đoạn Dự án Hiện đại hóa hệ thơng tốn kế tốn khách hàng (IPCAS) Ngân hàng Thế giới tài trợ tích cực triển khai giai đoạn II dự án Hiện AGRIBANK vi tính hố hoạt động kinh Website: http://www.docs.vn Email : lienhe@docs.vn Tel (: 0918.775.368 Website: http://www.docs.vn Email : lienhe@docs.vn Tel (: 0918.775.368 doanh từ Trụ sở đến hầu hết chi nhánh toàn quốc; hệ thống dịch vụ ngân hàng gồm dịch vụ chuyển tiền điện tử, dịch vụ toán thẻ tín dụng quốc tế, dịch vụ ATM, dịch vụ tốn quốc tế qua mạng SWIFT Đến nay, AGRIBANK hồn tồn có đủ lực cung ứng sản phẩm, dịch vụ ngân hàng đại, tiên tiến, tiện ích cho đối tượng khách hàng nước Là số ngân hàng có quan hệ ngân hàng đại lý lớn Việt Nam với 979 ngân hàng đại lý 113 quốc gia 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) 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 Hội nghị FAO năm 1991, Hội nghị APRACA năm 1996 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 thủy sản năm 2002 Là ngân hàng hàng đầu Việt Nam việc tiếp nhận triển khai dự án nước ngoài, đặc biệt dự án WB, ADB, AFD Các dự án nước tiếp nhận triển khai đến cuối tháng 2/2007 103 dự án với tổng số vốn 3,6 tỷ USD, số vốn qua NHNo 2,7 tỷ USD, giải ngân 1,1 tỷ USD Với vị ngân hàng thương mại hàng đầu Việt nam, AGRIBANK nỗ lực hết mình, đạt nhiều thành tựu đáng khích lệ, đóng góp to lớn vào nghiệp cơng nghiệp hoá, đại hoá phát triển kinh tế đất nước 1.2 Chức nhiệm vụ 1.2.1 Huy động vốn - Khai thác nhận tiền gửi tiết kiệm khơng kỳ hạn, có kỳ hạn, tiền gửi toán tổ chức, cá nhân thuộc thành phần kinh tế nước Việt Nam đồng ngoại tệ Website: http://www.docs.vn Email : lienhe@docs.vn Tel (: 0918.775.368 Website: http://www.docs.vn Email : lienhe@docs.vn Tel (: 0918.775.368 - Phát hành chứng tiền gửi, trái phiếu, kỳ phiếu ngân hàng thực hình thức huy động vốn khác theo quy định NHNo - Tiếp nhận nguồn vốn tài trợ, vốn ủy thác Chính phủ, Chính quyền địa phương tổ chức kinh tế, cá nhân nước theo quy định NHNo - Được phép vay vốn tổ chức tài tín dụng nước 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 VND ngoại tệ tổ chức kinh tế - Cho vay ngắn hạn, trung hạn, dài hạn VND cá nhân hộ gia đình thuộc 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ệ, toán quốc tế dịch vụ khác ngoại hối theo sách quản lý ngoại hối 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 loại giấy tờ có giá, thẻ toán, nhận ủy thác cho vay tổ chức tài chính, tín dụng, tổ chức, cá nhân nước, dịch vụ khác NHNN NHNo cho phép 1.2.5 Thực đầu tư hình thức : hùn vốn liên doanh, mua cổ phần hình thức đầu tư khác với doanh nghiệp, tổ chức kinh tế khác NHNo cho phép 1.3 Quá trình hình thành phát triển Năm 1988: Ngân hàng Phát triển Nông nghiệp Việt Nam thành lập theo Nghị định số 53/HĐBT ngày 26/3/1988 Hội đồng Bộ trưởng (nay Website: http://www.docs.vn Email : lienhe@docs.vn Tel (: 0918.775.368 Website: http://www.docs.vn Email : lienhe@docs.vn Tel (: 0918.775.368 Chính phủ) việc thành lập ngân hàng chuyên doanh, có Ngân hàng Phát triển Nông nghiệp Việt Nam hoạt động 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 sở tiếp nhận từ Ngân hàng Nhà nước: tất 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 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 hình thành sở tiếp nhận Vụ Tín dụng Nơng nghiệp Ngân hàng Nhà nước số cán Vụ Tín dụng Thương nghiệp, Ngân hàng Đầu tư Xây dựng, Vụ Kế toán 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 so với Ngân hàng thương mại khác Cơ sở vật chất, công cụ làm việc nghèo nàn lạc hậu 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 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 địa điểm vốn kho ấn 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ầng 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 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 xuống cấp, nhiều nơi cịn nhà cấp 4, mái tranh, vách đất • Từ tháng 3/1988: chi nhánh tỉnh , huyện chuyển từ Ngân hàng Nhà nước 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 hình thành để điều hành hoạt động tồn hệ thống Ngay ngày đầu, bên cạnh việc thành lập 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ị Tổng Giám đốc Ngân hàng Phát triển Nông nghiệp Việt Nam, Ngân Website: http://www.docs.vn Email : lienhe@docs.vn Tel (: 0918.775.368 Website: http://www.docs.vn Email : lienhe@docs.vn Tel (: 0918.775.368 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 Sông Cửu Long Sau đó, nhu cầu việc thu mua, xuất phân phối lương thực, Ngân hàng Nhà nước chấp nhận đề nghị 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 Tp Hồ Chí Minh Đây hai Ngân hàng chuyên doanh nằm 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 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 Ngân hàng Phát triển Nông nghiệp Việt Nam Ngân hàng Nông nghiệp Ngân hàng thương mại đa năng, hoạt động chủ yếu lĩnh vực nông nghiệp, nông thôn, pháp nhân, hạch toán kinh tế độc lập, tự chủ, tự chịu trách nhiệm hoạt động 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 lựa chọn mẫu biểu trưng lôgô với hạt lúa vàng uốn cong theo hình đất nước chữ S khung vuông hai màu xanh mầu nâu đất với dòng chữ viền cạnh: Ngân hàng Nông nghiệp Việt Nam Nghị kỳ họp lần thứ XXIV Hội đồng Quản trị NHNo & PTNT VN cơng bố thức việc lựa chọn lơgơ kể biểu trưng Ngân hàng No & PTNT Việt Nam nước 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Đ việc thành lập chi nhánh Ngân hàng Nông nghiệp tỉnh thành phố trực thuộc Ngân hàng Nông nghiệp gồm có Sở giao dịch (Sở giao dịch I Hà Nội Sở giao dịch II Văn phòng đại diện khu vực miền Nam Sở giao dịch Văn phòng miền Trung) 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 Website: http://www.docs.vn Email : lienhe@docs.vn Tel (: 0918.775.368 Website: http://www.docs.vn Email : lienhe@docs.vn Tel (: 0918.775.368 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 Thành phố Hồ Chí Minh ngày 24/6/1994, Thống đốc có văn số 439/CVTCCB chấp thuận cho Ngân hàng nơng nghiệp thành lập văn phịng miền Trung Thành phố Quy Nhơn - tỉnh Bình Định Ngày 30/7/1994 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 hệ thống quản lý Ngân hàng nông nghiệp Việt Nam, sở đó, Tổng giám đốc Ngân hàng Nơng nghiệp Việt Nam cụ thể hóa vă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ó cấp: Cấp tham mưu Cấp trực tiếp kinh doanh Đây thực bước ngoặt tổ chức máy Ngân hàng nông nghiệp Việt Nam tảng cho hoạt động kinh doanh Ngân hàng Nông nghiệp Phát triển nông thôn Việt Nam sau Trên sở kết tốt đẹp 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, Chính phủ, Ngân hàng Nhà nước ủng hộ, dư luận 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 tổ chức tín dụng Nhà nước hoạt động phạm vi 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ó dấu, trụ sở đặt Thành phố Hà Nội Vốn hoạt động ban đầu 400 tỷ đồng 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 Ngân hàng Nhà nước 100 tỷ đồng Website: http://www.docs.vn Email : lienhe@docs.vn Tel (: 0918.775.368 Website: http://www.docs.vn Email : lienhe@docs.vn Tel (: 0918.775.368 Hoạt động Ngân hàng Phục vụ người nghèo mục tiêu xóa đói giảm nghèo, khơng mục đích lợi nhuận, thực bảo tồ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 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 phận tác nghiệp Ngân hàng Nông nghiệp Việt Nam tồn 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 ngồi nước, Tổ chức quốc tế đánh giá cao đặc biệt tầng lớn nhân dân ửng hộ, q trọng Chính kết vậy, ngày 04/10/2002, Thủ tướng 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 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 người đề xuất thành lập, thực bảo trợ Ngân hàng phục vụ người nghèo tiền thân Ngân hàng sách xã hội - Đây niềm tự hào to lớn Ngân hàng Nông nghiệp Phát triển Nông thôn Việt Nam nghiệp phát triển kinh tế, xố đói giảm nghèo 1.4 Định hướng phát triển Với phương châm thịnh vượng phát triển bền vững khách hàng ngân hàng, mục tiêu AGRIBANK 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 khu vực có uy tín cao 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ấu Kiện toàn bước tổ chức máy cán theo hướng: giảm cầu cấp trung gian; cải cách khâu kế toán; nâng cao Website: http://www.docs.vn Email : lienhe@docs.vn Tel (: 0918.775.368 Website: http://www.docs.vn Email : lienhe@docs.vn Tel (: 0918.775.368 AdoKHVayTienCT.Recordset.Clone AdoKHVayTienCT.Recordset.MoveNext If AdoKHVayTienCT.Recordset.EOF Then AdoKHVayTienCT.Recordset.MoveLast End If AdoKHVayTien.Recordset.Filter = "SoVay = '" & TxtSoVay & "'" AdoKHVayTien.Recordset.Requery End If Lock_textCT Exit_Xoa_click: Exit Sub Err_Xoa_click: MsgBox "Khong the xoa ban ghi !" Resume Exit_Xoa_click End Sub Private Sub Command1_Click() If xThem Then AdoKHVayTienCT.Recordset.Delete AdoKHVayTienCT.Recordset.MoveNext If AdoKHVayTienCT.Recordset.EOF Then AdoKHVayTienCT.Recordset.MoveLast End If End If AdoKHVayTienCT.Refresh Lock_textCT End Sub Private Sub Form_Load() Dim so As Integer, ngay, thang, nam thang = Month(Now()) = Day(Now()) nam = Year(Now()) Me.LblThang = thang Me.LblNgay = Me.LblNam = nam CmdSua.Visible = True Website: http://www.docs.vn Email : lienhe@docs.vn Tel (: 0918.775.368 Website: http://www.docs.vn Email : lienhe@docs.vn Tel (: 0918.775.368 CmdKhong.Visible = False CmdGhi.Visible = False CmdXoa.Visible = True CmdThem.Visible = True AdoKHVayTien.Visible = False AdoKHVayTien.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Data\QuanlyNH.mdb;Persist Security Info=False" AdoKHVayTienCT.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Data\QuanlyNH.mdb;Persist Security Info=False" 'Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Data\QuanlyNH.mdb;Persist Security Info=False" Lock_text Lock_textCT TxtSoKHVT.locked = True Cmdclick.Enabled = False CmdTienGocLS.Enabled = False NapAdoKHVayTien NapAdoKHVayTienCT NapCmbMaKH NapCmbMaNV NapCmbMaKHCT NapCmbHTVT NapCmbTongCong End Sub Private Sub Set_time() If Month(Now()) = Me.LblThang Then Me.TxtNgayBDVay.Text = Format(Now(), "dd//mm//yy") End If End Sub Private Sub Set_timeCT() If Month(Now()) = Me.LblThang Then Me.TxtNgayTraTien.Text = Format(Now(), "dd//mm//yy") End If End Sub Private Sub TinhThanhTien() Website: http://www.docs.vn Email : lienhe@docs.vn Tel (: 0918.775.368 Website: http://www.docs.vn Email : lienhe@docs.vn Tel (: 0918.775.368 Dim ThanhTien As New ADODB.Recordset Dim Str As String If CmbMaKHCT.Text "" Then Str = "SELECT SUM(SoTienKHTra) AS Tong From TblKHVayTienCT GROUP BY MaKH AND MaKH='" & CmbMaKHCT.Text & "'" ThanhTien.Open Str, Conn TxtTongCongRT.Text = ThanhTien!Tong ThanhTien.Close End If End Sub Private Sub Unlock_text() CmbMaKH.locked = False CmbMaNV.locked = False TxtSoVay.locked = False TxtNgayBDVay.locked = False DGridVay.AllowUpdate = False DGridVay.AllowDelete = False DGridVay.AllowAddNew = False End Sub Private Sub Lock_text() CmbMaKH.locked = True TxtTenKH.locked = True txtTel.locked = True txtEmail.locked = True txtDiaChi.locked = True CmbMaNV.locked = True TxtTenNV.locked = True TxtSoVay.locked = True TxtNgayBDVay.locked = True CmbHTVT.locked = True DGridVay.AllowUpdate = False DGridVay.AllowDelete = False DGridVay.AllowAddNew = False End Sub Website: http://www.docs.vn Email : lienhe@docs.vn Tel (: 0918.775.368 Website: http://www.docs.vn Email : lienhe@docs.vn Tel (: 0918.775.368 Private Sub NapAdoKHVayTien() AdoKHVayTien.CommandType = adCmdText AdoKHVayTien.RecordSource = "SELECT * from TblKHVayTien order by SoVay" AdoKHVayTien.Refresh End Sub Private Sub NapAdoKHVayTienCT() AdoKHVayTienCT.CommandType = adCmdText AdoKHVayTienCT.RecordSource = "SELECT * from TblKHVayTienCT order by SoVay" AdoKHVayTienCT.Refresh End Sub Private Sub NapCmbMaKH() Dim SQL As String SQL = " Select MaKH From TblDMKHVay Order by MaKH" RsMaKH.Open SQL, Conn CmbMaKH.Clear Do While Not RsMaKH.EOF CmbMaKH.AddItem RsMaKH!MaKH RsMaKH.MoveNext Loop RsMaKH.Close End Sub Private Sub NapCmbHTVT() Dim SQL As String SQL = " Select LoaiHTVT From TblLoaiLSVay Order by LoaiHTVT" RsHTVT.Open SQL, Conn CmbHTVT.Clear Do While Not RsHTVT.EOF CmbHTVT.AddItem RsHTVT!LoaiHTVT RsHTVT.MoveNext Loop RsHTVT.Close End Sub Private Sub NapCmbMaNV() Dim SQL As String SQL = " Select MaNV From TblDMNV Order by MaNV" Website: http://www.docs.vn Email : lienhe@docs.vn Tel (: 0918.775.368 Website: http://www.docs.vn Email : lienhe@docs.vn Tel (: 0918.775.368 RsMaNV.Open SQL, Conn CmbMaNV.Clear Do While Not RsMaNV.EOF CmbMaNV.AddItem RsMaNV!MaNV RsMaNV.MoveNext Loop RsMaNV.Close End Sub Private Sub NapCmbMaKHCT() Dim SQL As String SQL = " Select MaKH From TblDMKHVay Order by MaKH" RsMaKHCT.Open SQL, Conn CmbMaKHCT.Clear Do While Not RsMaKHCT.EOF CmbMaKHCT.AddItem RsMaKHCT!MaKH RsMaKHCT.MoveNext Loop RsMaKHCT.Close End Sub Private Sub NapCmbTongCong() Dim SQL As String SQL = " Select MaKH From TblDMKHVay Order by MaKH" RsTongCong.Open SQL, Conn CmbTongCong.Clear Do While Not RsTongCong.EOF CmbTongCong.AddItem RsTongCong!MaKH RsTongCong.MoveNext Loop RsTongCong.Close End Sub Private Sub optdgt_Click(Index As Integer) optdgt(1).Value = True Optdrt(0).Value = False OptDTH(1).Value = False 'Cmdclick.Enabled = False 'CmdTienGocLS.Enabled = False Website: http://www.docs.vn Email : lienhe@docs.vn Tel (: 0918.775.368 Website: http://www.docs.vn Email : lienhe@docs.vn Tel (: 0918.775.368 TxttrangthaiVT.Text = "DangVay" End Sub Private Sub Optdrt_Click(Index As Integer) optdgt(1).Value = False Optdrt(0).Value = True OptDTH(1).Value = False 'Cmdclick.Enabled = False 'CmdTienGocLS.Enabled = False TxttrangthaiVT.Text = "DaTraLS" End Sub Private Sub OptDTH_Click(Index As Integer) optdgt(1).Value = False Optdrt(0).Value = False OptDTH(1).Value = True 'Cmdclick.Enabled = False 'CmdTienGocLS.Enabled = False TxttrangthaiVT.Text = "DaTraHet" End Sub Private Sub txtFind_Change() If CmbField.Text = "" Or txtFind = "" Then AdoKHVayTienCT.Recordset.Filter = "" AdoKHVayTienCT.Refresh Exit Sub End If AdoKHVayTienCT.Recordset.Filter = CmbField & " LIKE '*" & txtFind & "*'" End Sub Private Sub TxtTimKiem_Change() If CmbTimKH.Text = "" Or TxtTimKiem = "" Then AdoKHVayTien.Recordset.Filter = "" AdoKHVayTien.Refresh Exit Sub End If AdoKHVayTien.Recordset.Filter = CmbTimKH & " LIKE '*" & TxtTimKiem & "*'" Website: http://www.docs.vn Email : lienhe@docs.vn Tel (: 0918.775.368 Website: http://www.docs.vn Email : lienhe@docs.vn Tel (: 0918.775.368 End Sub  Form Báo cáo trạng thái gửi tiền khách hàng Dim RsMaKH As New ADODB.Recordset Private Sub CmbMaKH_Click() Set Conn = New ADODB.Connection Set NapTuDong = New ADODB.Recordset Dim Str As String Str = "SELECT * FROM TblDMKH WHERE TblDMKH.MaKH='" & CmbMaKH.Text & "'" Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Data\QuanLyNH.mdb;Persist Security Info=False" Conn.Open NapTuDong.Open Str, Conn TxtTenKH.Text = NapTuDong!TenKH NapTuDong.Close End Sub Private Sub CmdRutLS_Click() DataEnvironment3.rsCommand1.Open"SELECT TblKHGuiTienCT.SoGui, TblKHGuiTien.NgayBDGui,TblKHGuiTienCT.NgayRutLS, TblKHGuiTienCT.TenKH,TblKHGuiTienCT.HinhThucGT, TblKHGuiTienCT.SoTienGui, TblKHGuiTienCT.SoTienLS, TblKHGuiTienCT.SoTienLinhHet,TblKHGuiTienCT.TrangThaiGT FROM TblKHGuiTienCT INNER JOIN TblKHGuiTien ON TblKHGuiTienCT.SoGui = TblKHGuiTien.SoGui WHERE (((TblKHGuiTienCT.TenKH) = '" & TxtTenKH & " ') AND((TblKHGuiTienCT.TrangThaiGT) = '" & TxttrangthaiGT & " '));" If DataEnvironment3.rsCommand1.BOF = True Then MsgBox " Hello ", vbInformation Else RptBCTienLSKHGT.Show vbModal DataEnvironment3.rsCommand1.Close End If End Sub Private Sub cmdTGDLH_Click() DataEnvironment3.rsCommand1.Open "SELECT TblKHGuiTienCT.SoGui, TblKHGuiTien.NgayBDGui, TblKHGuiTienCT.NgayRutLS, TblKHGuiTienCT.TenKH,TblKHGuiTienCT.HinhThucGT, TblKHGuiTienCT.SoTienGui, TblKHGuiTienCT.SoTienLS, Website: http://www.docs.vn Email : lienhe@docs.vn Tel (: 0918.775.368 Website: http://www.docs.vn Email : lienhe@docs.vn Tel (: 0918.775.368 TblKHGuiTienCT.SoTienLinhHet,TblKHGuiTienCT.TrangThaiGT FROM TblKHGuiTienCT INNER JOIN TblKHGuiTien ON TblKHGuiTienCT.SoGui = TblKHGuiTien.SoGui WHERE (((TblKHGuiTienCT.TenKH) = '" & TxtTenKH & " ') AND((TblKHGuiTienCT.TrangThaiGT) = '" & TxttrangthaiGT & " '));" If DataEnvironment3.rsCommand1.BOF = True Then MsgBox " Hello ", vbInformation Else RptBCTienLinhHetKHGT.Show vbModal DataEnvironment3.rsCommand1.Close End If End Sub Private Sub CmdTienGui_Click() DataEnvironment3.rsCommand1.Open "SELECT TblKHGuiTienCT.SoGui, TblKHGuiTien.NgayBDGui, TblKHGuiTienCT.NgayRutLS, TblKHGuiTienCT.TenKH,TblKHGuiTienCT.HinhThucGT, TblKHGuiTienCT.SoTienGui, TblKHGuiTienCT.SoTienLS, TblKHGuiTienCT.SoTienLinhHet,TblKHGuiTienCT.TrangThaiGT FROM TblKHGuiTienCT INNER JOIN TblKHGuiTien ON TblKHGuiTienCT.SoGui = TblKHGuiTien.SoGui WHERE (((TblKHGuiTienCT.TenKH) = '" & TxtTenKH & " ') AND((TblKHGuiTienCT.TrangThaiGT) = '" & TxttrangthaiGT & " '));" If DataEnvironment3.rsCommand1.BOF = True Then MsgBox " Hello ", vbInformation Else RptBCTienGuiKHGT.Show vbModal DataEnvironment3.rsCommand1.Close End If End Sub Private Sub Command1_Click() Unload Me End Sub Private Sub Form_Load() Dim so As Integer, ngay, thang, nam thang = Month(Now()) = Day(Now()) nam = Year(Now()) Website: http://www.docs.vn Email : lienhe@docs.vn Tel (: 0918.775.368 Website: http://www.docs.vn Email : lienhe@docs.vn Tel (: 0918.775.368 Me.LblThang = thang Me.LblNgay = Me.LblNam = nam AdoDMKH.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Data\QuanlyNH.mdb;Persist Security Info=False" NapCmbMaKH End Sub Private Sub NapCmbMaKH() Dim SQL As String SQL = " Select MaKH From TblDMKH Order by MaKH" RsMaKH.Open SQL, Conn CmbMaKH.Clear Do While Not RsMaKH.EOF CmbMaKH.AddItem RsMaKH!MaKH RsMaKH.MoveNext Loop RsMaKH.Close End Sub Private Sub optdgt_Click(Index As Integer) optdgt(1).Value = True Optdrt(0).Value = False Optdrtgls(1).Value = False CmdTienGui.Enabled = True cmdTGDLH.Enabled = False CmdRutLS.Enabled = False TxttrangthaiGT.Text = "Dang Gui" End Sub Private Sub Optdrt_Click(Index As Integer) optdgt(1).Value = False Optdrt(0).Value = True Optdrtgls(1).Value = False CmdTienGui.Enabled = False cmdTGDLH.Enabled = False CmdRutLS.Enabled = True TxttrangthaiGT.Text = "DaRutLS" Website: http://www.docs.vn Email : lienhe@docs.vn Tel (: 0918.775.368 Website: http://www.docs.vn Email : lienhe@docs.vn Tel (: 0918.775.368 End Sub Private Sub Optdrtgls_Click(Index As Integer) optdgt(1).Value = False Optdrt(0).Value = False Optdrtgls(1).Value = True CmdTienGui.Enabled = False cmdTGDLH.Enabled = True CmdRutLS.Enabled = False TxttrangthaiGT.Text = "DaLinhHet" End Sub  Form Báo cáo trạng thái vay tiền khách hàng Dim RsMaKH As New ADODB.Recordset Private Sub CmbMaKH_Click() Set Conn = New ADODB.Connection Set NapTuDong = New ADODB.Recordset Dim Str As String Str = "SELECT * FROM TblDMKHVay WHERE TblDMKHVay.MaKH='" & CmbMaKH.Text & "'" Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Data\QuanLyNH.mdb;Persist Security Info=False" Conn.Open NapTuDong.Open Str, Conn TxtTenKH.Text = NapTuDong!TenKH NapTuDong.Close End Sub Private Sub CmdTienVay_Click() DataEnvironment4.rsCommand1.Open "SELECT TblKHVayTienCT.SoVay, TblKHVayTien.NgayBDVay, TblKHVayTienCT.NgayTraTV, TblKHVayTienCT.MaKH, TblKHVayTienCT.TenKH, TblKHVayTienCT.HinhThucVT, TblKHVayTienCT.SoTienVay, TblKHVayTienCT.SoTienLS, TblKHVayTienCT.SoTienTraHet, TblKHVayTienCT.TrangThaiVT FROM TblKHVayTien INNER JOIN TblKHVayTienCT ON TblKHVayTien.SoVay = TblKHVayTienCT.SoVay WHERE (((TblKHVayTienCT.MaKH)='" & CmbMaKH & " ') AND ((TblKHVayTienCT.TrangThaiVT)='" & TxttrangthaiVT & "'));" If DataEnvironment4.rsCommand1.BOF = True Then Website: http://www.docs.vn Email : lienhe@docs.vn Tel (: 0918.775.368 Website: http://www.docs.vn Email : lienhe@docs.vn Tel (: 0918.775.368 MsgBox " Hello ", vbInformation Else RptBCTienVayKHVT.Show vbModal DataEnvironment4.rsCommand1.Close End If End Sub Private Sub CmdTraLS_Click() DataEnvironment4.rsCommand1.Open "SELECT TblKHVayTienCT.SoVay, TblKHVayTien.NgayBDVay, TblKHVayTienCT.NgayTraTV, TblKHVayTienCT.MaKH, TblKHVayTienCT.TenKH, TblKHVayTienCT.HinhThucVT, TblKHVayTienCT.SoTienVay, TblKHVayTienCT.SoTienLS, TblKHVayTienCT.SoTienTraHet, TblKHVayTienCT.TrangThaiVT FROM TblKHVayTien INNER JOIN TblKHVayTienCT ON TblKHVayTien.SoVay = TblKHVayTienCT.SoVay WHERE (((TblKHVayTienCT.MaKH)='" & CmbMaKH & " ') AND ((TblKHVayTienCT.TrangThaiVT)='" & TxttrangthaiVT & "'));" If DataEnvironment4.rsCommand1.BOF = True Then MsgBox " Hello ", vbInformation Else RptBCTienLSKHVT.Show vbModal DataEnvironment4.rsCommand1.Close End If End Sub Private Sub cmdTTraHet_Click() DataEnvironment4.rsCommand1.Open "SELECT TblKHVayTienCT.SoVay, TblKHVayTien.NgayBDVay, TblKHVayTienCT.NgayTraTV, TblKHVayTienCT.MaKH, TblKHVayTienCT.TenKH, TblKHVayTienCT.HinhThucVT, TblKHVayTienCT.SoTienVay, TblKHVayTienCT.SoTienLS, TblKHVayTienCT.SoTienTraHet, TblKHVayTienCT.TrangThaiVT FROM TblKHVayTien INNER JOIN TblKHVayTienCT ON TblKHVayTien.SoVay = TblKHVayTienCT.SoVay WHERE (((TblKHVayTienCT.MaKH)='" & CmbMaKH & " ') AND ((TblKHVayTienCT.TrangThaiVT)='" & TxttrangthaiVT & "'));" If DataEnvironment4.rsCommand1.BOF = True Then MsgBox " Hello ", vbInformation Else RptBCTienTraHetKHVT.Show vbModal DataEnvironment4.rsCommand1.Close End If Website: http://www.docs.vn Email : lienhe@docs.vn Tel (: 0918.775.368 Website: http://www.docs.vn Email : lienhe@docs.vn Tel (: 0918.775.368 End Sub Private Sub Form_Load() Dim so As Integer, ngay, thang, nam thang = Month(Now()) = Day(Now()) nam = Year(Now()) Me.LblThang = thang Me.LblNgay = Me.LblNam = nam AdoDMKHVay.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Data\QuanlyNH.mdb;Persist Security Info=False" NapCmbMaKH End Sub Private Sub NapCmbMaKH() Dim SQL As String SQL = " Select MaKH From TblDMKHVAY Order by MaKH" RsMaKH.Open SQL, Conn CmbMaKH.Clear Do While Not RsMaKH.EOF CmbMaKH.AddItem RsMaKH!MaKH RsMaKH.MoveNext Loop RsMaKH.Close End Sub Private Sub optdgt_Click(Index As Integer) optdgt(1).Value = True Optdrt(0).Value = False OptDTH(1).Value = False CmdTienVay.Enabled = True CmdTraLS.Enabled = False cmdTTraHet.Enabled = False TxttrangthaiVT.Text = "DangVay" End Sub Private Sub Optdrt_Click(Index As Integer) Website: http://www.docs.vn Email : lienhe@docs.vn Tel (: 0918.775.368 Website: http://www.docs.vn Email : lienhe@docs.vn Tel (: 0918.775.368 optdgt(1).Value = False Optdrt(0).Value = True OptDTH(1).Value = False CmdTienVay.Enabled = False CmdTraLS.Enabled = True cmdTTraHet.Enabled = False TxttrangthaiVT.Text = "DaTraLS" End Sub Private Sub OptDTH_Click(Index As Integer) optdgt(1).Value = False Optdrt(0).Value = False OptDTH(1).Value = True CmdTienVay.Enabled = False CmdTraLS.Enabled = False cmdTTraHet.Enabled = True TxttrangthaiVT.Text = "DaTraHet" End Sub Website: http://www.docs.vn Email : lienhe@docs.vn Tel (: 0918.775.368 ... để xây dựng phát triển hệ thống thông tin quản lý tiền giử tiền vay khách hàng Ngân hàng Nông nghiệp Phát triển nông thôn, Chi nhánh Láng Hạ CHƯƠNG MỘT SỐ PHƯƠNG PHÁP LUẬN XÂY DỰNG VÀ PHÁT TRIỂN... nhằm mục đích nói mà đề tài ? ?Xây dựng phát triển hệ thông thông tin quản lý tiền gửi tiền vay khách hàng Ngân hàng Nông nghiệp Phát triển Nông thôn – Chi nhánh Láng Hạ ” đời Qua em xin chân thành... chọn đề tài ? ?Xây dựng phát triển hệ thống thông tin quản lý tiền giửi tiền vay khách hàng Ngân hàng Nông ngiệp 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 thực Website: