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ạ

Tài liệu tham khảo tài chính ngân hàng 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ạ

Chuyên đề thực tập tốt nghiệp NHNN&PTNT Việt Nam - MỤC LỤC Trang 1.6 Lý chọn đề tài 13 B KẾT LUẬN 43 Sinh viên: SENG SOPHEARUM Khoa tin học kinh tế Chuyên đề thực tập tốt nghiệp NHNN&PTNT Việt Nam - 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 Sinh viên: SENG SOPHEARUM Khoa tin học kinh tế Chuyên đề thực tập tốt nghiệp NHNN&PTNT Việt Nam - 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! Sinh viên: SENG SOPHEARUM Khoa tin học kinh tế Chuyên đề thực tập tốt nghiệp NHNN&PTNT Việt Nam - 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 toàn quốc với gần 30.000 cán nhân viên Sinh viên: SENG SOPHEARUM Khoa tin học kinh tế Chuyên đề thực tập tốt nghiệp NHNN&PTNT Việt Nam - 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 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ụ tốn thẻ tín dụng quốc tế, dịch vụ ATM, dịch vụ toá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 Sinh viên: SENG SOPHEARUM Khoa tin học kinh tế Chuyên đề thực tập tốt nghiệp NHNN&PTNT Việt Nam - 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 hố, đạ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 tốn tổ chức, cá nhân thuộc thành phần kinh tế nước Việt Nam đồng ngoại tệ - 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 Sinh viên: SENG SOPHEARUM Khoa tin học kinh tế Chuyên đề thực tập tốt nghiệp NHNN&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ẻ tố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 ngồi 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 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 Sinh viên: SENG SOPHEARUM Khoa tin học kinh tế Chuyên đề thực tập tốt nghiệp NHNN&PTNT Việt Nam - 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 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 toà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 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 Sinh viên: SENG SOPHEARUM Khoa tin học kinh tế Chuyên đề thực tập tốt nghiệp NHNN&PTNT Việt Nam - 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 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/CV-TCCB 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 Sinh viên: SENG SOPHEARUM Khoa tin học kinh tế Chuyên đề thực tập tốt nghiệp NHNN&PTNT Việt Nam - độ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 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 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 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ộ, quý 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 Sinh viên: SENG SOPHEARUM 10 Khoa tin học kinh tế Chuyên đề thực tập tốt nghiệp NHNN&PTNT Việt Nam CmdThoat.Enabled = False lblTruong.Enabled = True lblTimKiem.Enabled = True CmbTimKH.Enabled = True TxtTimKiem.Enabled = True CmdTTK.Visible = True AddItem1 CmbTimKH.SetFocus End Sub Private Sub AddItem1() CmbTimKH.AddItem ("SoVay") CmbTimKH.AddItem ("MaKH") End Sub Private Sub CmdTruoc_Click() If AdoKHVayTien.Recordset.BOF Then MsgBox "Ban dang o ban ghi dau tien", vbOKOnly, "Thong bao" Else AdoKHVayTien.Recordset.MovePrevious End If End Sub Private Sub CmdTruocCT_Click() If AdoKHVayTienCT.Recordset.BOF Then MsgBox "Ban dang o ban ghi dau tien", vbOKOnly, "Thong bao" Else AdoKHVayTienCT.Recordset.MovePrevious End If End Sub Private Sub CmdTTK_Click() CmbTimKH.Clear TxtTimKiem.Text = "" CmdThem.Visible = True CmdXoa.Visible = True CmdSua.Visible = True Sinh viên: SENG SOPHEARUM 110 Khoa tin học kinh tế Chuyên đề thực tập tốt nghiệp NHNN&PTNT Việt Nam cmdTK.Visible = True CmdTTK.Visible = False CmdThoat.Enabled = True lblTruong.Enabled = False lblTimKiem.Enabled = False CmbTimKH.Enabled = False TxtTimKiem.Enabled = False End Sub Private Sub CmdXemTruoc_Click() FrmBCTTKHVayTien.Show 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 Dim KRY As Variant TraLoi = MsgBox("Ban muon xoa Ma nha cung cap " & CmbMaKH.Text & _ " (cung voi cac thong tin lien quan)?", 48 + 4, "Thong bao") KRY = TxtSoVay.Text If TraLoi = Then Set Conn = New ADODB.Connection Set rs = New ADODB.Recordset Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Data\QuanlyNH.mdb;Persist Security Info=False" Conn.Open KRY = TxtSoVay.Text strSQL = "DELETE * FROM TblKhVayTienCT WHERE SoVay ='" & KRY & "';" Conn.Execute strSQL Conn.Close AdoKHVayTien.Recordset.Delete Sinh viên: SENG SOPHEARUM 111 Khoa tin học kinh tế Chuyên đề thực tập tốt nghiệp NHNN&PTNT Việt Nam AdoKHVayTien.Recordset.Clone AdoKHVayTien.Recordset.MoveNext If AdoKHVayTien.Recordset.EOF Then AdoKHVayTien.Recordset.MoveLast End If AdoKHVayTienCT.Recordset.Filter = "SoVay = '" & TxtSoVay & "'" AdoKHVayTienCT.Recordset.Requery End If Lock_text Exit_Xoa_click: Exit Sub Err_Xoa_click: MsgBox Err.Description Resume Exit_Xoa_click End Sub Private Sub CmdXoaVay_Click() On Error GoTo Err_Xoa_click cmdThemVay.Visible = True CmdSuaVay.Visible = True CmdXoaVay.Enabled = True CmdGhiVay.Visible = False CmdKhongVay.Visible = False CmdThoat.Enabled = True Dim TraLoi Dim KRY As Variant TraLoi = MsgBox("Ban muon xoa Ma nha cung cap " & CmbMaKHCT.Text & _ " (cung voi cac thong tin lien quan)?", 48 + 4, "Thong bao") KRY = Text1.Text If TraLoi = Then Set Conn = New ADODB.Connection Set rs = New ADODB.Recordset Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Data\QuanlyNH.mdb;Persist Security Info=False" Conn.Open KRY = Text1.Text strSQL = "DELETE * FROM TblKhVayTien WHERE SoVay ='" & KRY & "';" Sinh viên: SENG SOPHEARUM 112 Khoa tin học kinh tế Chuyên đề thực tập tốt nghiệp NHNN&PTNT Việt Nam Conn.Execute strSQL Conn.Close AdoKHVayTienCT.Recordset.Delete 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 Sinh viên: SENG SOPHEARUM 113 Khoa tin học kinh tế Chuyên đề thực tập tốt nghiệp NHNN&PTNT Việt Nam Me.LblNgay = Me.LblNam = nam CmdSua.Visible = True 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 Sinh viên: SENG SOPHEARUM 114 Khoa tin học kinh tế Chuyên đề thực tập tốt nghiệp NHNN&PTNT Việt Nam - Private Sub TinhThanhTien() 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 Sinh viên: SENG SOPHEARUM 115 Khoa tin học kinh tế Chuyên đề thực tập tốt nghiệp NHNN&PTNT Việt Nam DGridVay.AllowAddNew = False End Sub 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 Sinh viên: SENG SOPHEARUM 116 Khoa tin học kinh tế Chuyên đề thực tập tốt nghiệp NHNN&PTNT Việt Nam 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 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 Sinh viên: SENG SOPHEARUM 117 Khoa tin học kinh tế Chuyên đề thực tập tốt nghiệp NHNN&PTNT Việt Nam OptDTH(1).Value = False 'Cmdclick.Enabled = False 'CmdTienGocLS.Enabled = False 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 Sinh viên: SENG SOPHEARUM 118 Khoa tin học kinh tế Chuyên đề thực tập tốt nghiệp NHNN&PTNT Việt Nam Exit Sub End If AdoKHVayTien.Recordset.Filter = CmbTimKH & " LIKE '*" & TxtTimKiem & "*'" 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() Sinh viên: SENG SOPHEARUM 119 Khoa tin học kinh tế Chuyên đề thực tập tốt nghiệp NHNN&PTNT Việt Nam 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 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 Sinh viên: SENG SOPHEARUM 120 Khoa tin học kinh tế Chuyên đề thực tập tốt nghiệp NHNN&PTNT Việt Nam thang = Month(Now()) = Day(Now()) nam = Year(Now()) 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 Sinh viên: SENG SOPHEARUM 121 Khoa tin học kinh tế Chuyên đề thực tập tốt nghiệp NHNN&PTNT Việt Nam cmdTGDLH.Enabled = False CmdRutLS.Enabled = True TxttrangthaiGT.Text = "DaRutLS" 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 Sinh viên: SENG SOPHEARUM 122 Khoa tin học kinh tế Chuyên đề thực tập tốt nghiệp NHNN&PTNT Việt Nam (((TblKHVayTienCT.MaKH)='" & CmbMaKH & " ') AND ((TblKHVayTienCT.TrangThaiVT)='" & TxttrangthaiVT & "'));" If DataEnvironment4.rsCommand1.BOF = True Then 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 Sinh viên: SENG SOPHEARUM 123 Khoa tin học kinh tế Chuyên đề thực tập tốt nghiệp NHNN&PTNT Việt Nam RptBCTienTraHetKHVT.Show vbModal DataEnvironment4.rsCommand1.Close End If 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" Sinh viên: SENG SOPHEARUM 124 Khoa tin học kinh tế ... để 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... 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 thông tin quản lý tiền gửi tiền vay khách hàng Chủ thể quản lý thu nhập thông tin từ môi trường... gửi vay tiền Vì dụ, vấn đề quản lý thông tin khách hàng đến gửi vay tiền đồng thời thông tin phải dễ dàng tìm kiếm có u cầu khách hàng đến gửi va vay tiền Quản lý tiền gửi tiền vay khách hàng