1 Chuyên đề tốt nghiệp NHNN&PTNT Việt Nam MỤC LỤC Trang 1.6.Lý chọn đề tài .12 KẾT LUẬN 40 Sinh viên: SENG SOPHEARUM Khoa tin học kinh tế Chuyên đề 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ựu, đổ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… loài người bước vào thời kỳ cơng nghiệp hố, dại hố, 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 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 đề 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 Đồ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 đề tốt nghiệp NHNN&PTNT Việt Nam 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 nghiệ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ố trí 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 hoàn thành giai đoạn Dự án Hiện đại hóa hệ thơng toán kế toán Sinh viên: SENG SOPHEARUM Khoa tin học kinh tế Chuyên đề tốt nghiệp NHNN&PTNT Việt Nam 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 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 hố phát triển kinh tế đất nước 1.2 Chức nhiệm vụ 1.2.1 Huy động vốn Sinh viên: SENG SOPHEARUM Khoa tin học kinh tế Chuyên đề tốt nghiệp NHNN&PTNT Việt Nam - 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 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 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 Sinh viên: SENG SOPHEARUM Khoa tin học kinh tế Chuyên đề tốt nghiệp NHNN&PTNT Việt Nam 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 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 Sinh viên: SENG SOPHEARUM Khoa tin học kinh tế Chuyên đề tốt nghiệp NHNN&PTNT Việt Nam 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 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 vng 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 Sinh viên: SENG SOPHEARUM Khoa tin học kinh tế Chuyên đề tốt nghiệp NHNN&PTNT Việt 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/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 Sinh viên: SENG SOPHEARUM Khoa tin học kinh tế 10 Chuyên đề tốt nghiệp NHNN&PTNT Việt Nam 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 vỡ 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ộ, quý trọng Chớnh vỡ 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ế, xoỏ đú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 Sinh viên: SENG SOPHEARUM Khoa tin học kinh tế 110 Chuyên đề tốt nghiệp NHNN&PTNT Việt Nam -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 CmdKhong.Visible = False CmdGhi.Visible = False CmdXoa.Visible = True Sinh viên: SENG SOPHEARUM Khoa tin học kinh tế 111 Chuyên đề tốt nghiệp NHNN&PTNT Việt Nam -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() Dim ThanhTien As New ADODB.Recordset Dim Str As String If CmbMaKHCT.Text "" Then Sinh viên: SENG SOPHEARUM Khoa tin học kinh tế 112 Chuyên đề tốt nghiệp NHNN&PTNT Việt Nam -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 Private Sub NapAdoKHVayTien() AdoKHVayTien.CommandType = adCmdText AdoKHVayTien.RecordSource = "SELECT * from TblKHVayTien order by SoVay" Sinh viên: SENG SOPHEARUM Khoa tin học kinh tế 113 Chuyên đề tốt nghiệp NHNN&PTNT Việt Nam -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" RsMaNV.Open SQL, Conn CmbMaNV.Clear Do While Not RsMaNV.EOF Sinh viên: SENG SOPHEARUM Khoa tin học kinh tế 114 Chuyên đề tốt nghiệp NHNN&PTNT Việt Nam -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 TxttrangthaiVT.Text = "DangVay" End Sub Sinh viên: SENG SOPHEARUM Khoa tin học kinh tế 115 Chuyên đề tốt nghiệp NHNN&PTNT Việt Nam -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 & "*'" End Sub  Form Báo cáo trạng thái gửi tiền khách hàng Sinh viên: SENG SOPHEARUM Khoa tin học kinh tế 116 Chuyên đề tốt nghiệp NHNN&PTNT Việt Nam -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, TblKHGuiTienCT.SoTienLinhHet,TblKHGuiTienCT.TrangThaiGT FROM TblKHGuiTienCT INNER JOIN TblKHGuiTien ON TblKHGuiTienCT.SoGui = TblKHGuiTien.SoGui WHERE Sinh viên: SENG SOPHEARUM Khoa tin học kinh tế 117 Chuyên đề tốt nghiệp NHNN&PTNT Việt Nam -(((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()) Me.LblThang = thang Me.LblNgay = Sinh viên: SENG SOPHEARUM Khoa tin học kinh tế 118 Chuyên đề tốt nghiệp NHNN&PTNT Việt Nam -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" End Sub Sinh viên: SENG SOPHEARUM Khoa tin học kinh tế 119 Chuyên đề tốt nghiệp NHNN&PTNT Việt Nam -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 MsgBox " Hello ", vbInformation Else Sinh viên: SENG SOPHEARUM Khoa tin học kinh tế 120 Chuyên đề tốt nghiệp NHNN&PTNT Việt Nam -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 End Sub Sinh viên: SENG SOPHEARUM Khoa tin học kinh tế 121 Chuyên đề tốt nghiệp NHNN&PTNT Việt Nam -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) optdgt(1).Value = False Optdrt(0).Value = True Sinh viên: SENG SOPHEARUM Khoa tin học kinh tế 122 Chuyên đề tốt nghiệp NHNN&PTNT Việt Nam -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 Sinh viên: SENG SOPHEARUM 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 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ạ CHƯƠNG MỘT SỐ PHƯƠNG PHÁP LUẬN XÂY DỰNG VÀ PHÁT TRIỂN HỆ... thông tin quản lý tiền gửi tiền vay khách hàng NHNN&PTNTVN Thông tin từ môi trường bao gồm thơng tin từ bên ngồi, với tốn quản lý tiền gửi tiền vay khách hàng, thông tin sản phẩm dịch vụ mà Ngân. .. bảng khách hàng gửi tiền khách hàng gửi tiền chi tiết 3.1.3 Yêu cầu 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 số hiệu vay tiền, mã khách hàng