ứng dụng tin học trong việc tính toán quỹ thu nhập của NHNO và phát triển nông thôn quận hoàn kiếm hà nội

Chuyên đề thực tập tốt nghiệp LỜI NÓI ĐẦU Trong thời gian thực tập NHNO phát triển Nơng thơn Quận Hồn Kiếm, đƣợc bảo tận tình thầy giáo hƣớng dẫn Bùi Thế Ngũ hƣớng dẫn cô, ngân hàng giúp em hoàn thành chuyên đề thực tập tốt nghiệp Đƣợc đồng ý thầy giáo Bùi Thế Ngũ em chọn đề tài cho Luận văn Ứng dụng tin học việc tính tốn quỹ thu nhập NHNO phát triển Nông thôn Quận Hoàn Kiếm Hà Nội Hiện nay, xã hội chuyển dần sang xã hội thông tin thông tin ngày khẳng định đƣợc vai trò to lớn phát triển nhân loại Vì vậy, việc hợp lý hố cơng việc cần làm để đạt tới mục đích cách tốt công việc quan trọng.Dựa theo giai đoạn phân tích thiết kế phát triển hệ thống thơng tin dựa tình hình thực tế Ngân hàng, chuyên đề thực tập nhằm tin học hoá phần hoạt động tính quỹ thu nhập, lập bảng báo cáo nhƣ: Bảng diễn giải quỹ tiền lƣơng, bảng tính quỹ thu nhập bảng tính phí đơn vị nhận khoán ngƣợc lại Trên sở đó, chuyên đề thực tập tốt nghiệp có nội dung nhƣ sau: Chương I Những vấn đề tổng quan đề tài nhằm giới thiệu chung đề tài, nơi thực tập cấu, tổ chức chức năng, nhiệm vụ mối quan hệ Từ phát phƣơng hƣớng để phát triển đề tài Chương II Phương pháp nghiên cứu hệ thống thơng tin quản lý trình bày phƣơng pháp luận chung cho việc phát triển đề tài Chương III Chi tiết quy trình phân tích hệ thống thu-chi nội bảng, ngoại bảng tính tốn quỹ thu nhập trình bày mơ hình lơgíc, mơ hình IDF, mơ hình DFD, q trình chuẩn hố, thiết kế liệu, thiết kế giải thuật thiết kế hình giao diện Đặng Hồng Quang LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com Chuyên đề thực tập tốt nghiệp Em xin tỏ lòng biết ơn sâu sắc đến thầy giáo Bùi Thế Ngũ, NHNO Quận Hồn Kiếm giúp đỡ em hoàn thành chuyên đề thực tập tốt nghiệp Đặng Hồng Quang LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com Chuyên đề thực tập tốt nghiệp MỤC LỤC Lời nói đầu,mục lục Chƣơng I Những vấn đề tổng quan đề tài Giới thiệu chung NHNo&PTNT Quận Hoàn Kiếm 1.1.Chức chủ yếu NHNo&PTNT Quận Hoàn Kiếm 1.2 NHNo&PTNT Quận Hồn Kiếm có nhiệm vụ: 1.3 Cơ cấu tổ chức chi nhánh NHNo&PTNT Quận Hoàn Kiếm: 1.3.1 Phòng kinh doanh : 1.3.2 Phịng kế tốn-Ngân quỹ 1.3.3 Nhiệm vụ quyền hạn Giám đốc 10 1.3.4 Nhiệm vụ, quyền hạn Phó giám đốc chi nhánh: 10 1.3.5 Các mối quan hệ 11 1.3.5.1 Mối quan hệ với Ngân hàng Nhà nƣớc 11 1.3.5.2 Mối quan hệ với Ngân hàng Nông nghiệp 11 1.3.5.3 Mối quan hệ khách hàng: 11 1.3.5.6 Mối quan hệ đơn vị thành viên hạch toán 12 phụ thuộc ngân Ngân hàng Nông nghiệp Tổng quan đề tài nghiên cứu 12 2.1 Sự cần thiết đề tài nghiên cứu phƣơng hƣớng 12 phát triển đề tài 2.1.1 Sự cần thiết đề tài 12 2.1.2 Phƣơng hƣớng phát triển đề tài 13 2.2 Quy trình hạch tốn lập bảng thu nhập: 13 2.2.1 Tài khoản thu nhập phản ánh khoản 13 thu nhập NHNo &PTNT 2.2.2 Loại tài khoản chi phí phản ánh khoản 17 chi phí NHNo &PTNT: 2.2.3 Các tài khoản xác định phí điều chuyển 20 vốn nội tệ thông thƣờng 2.2.4.Quy định số 946 A khốn tài 22 ngân hàng nông nghiệp Việt Nam Chƣơng I Phƣơng pháp nghiên cứu hệ thống thông tin quản lý 23 Đặng Hồng Quang LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com Chuyên đề thực tập tốt nghiệp Tổ chức thông tin tổ chức 23 1.1.Dữ liệu thông tin 23 1.2.Tổ chức 24 1.2.1 Khái niệm: 24 1.2.1 Tổ chức thông tin 24 1.3 tính chất thông tin theo cấp định 25 Hệ thống thông tin 27 2.1 Định nghĩa phận cấu thành hệ thống thông tin 27 2.2 Phân loại hệ thống thông tin tổ chức 28 2.2.1 Phân theo mục đích phục vụ thông tin đầu 28 2.2.2 Phân loại theo phận nghiệp vụ mà hệ thống 28 thông tin phục vụ 2.3 Mơ hình biểu diễn hệ thống thơng tin 29 2.4 Tầm quan trọng hệ thống thông tin hoạt động tốt 29 Hiệu kinh tế hệ thống thông tin quản lý 30 3.1 Lợi ích kinh tế hệ thống thơng tin 30 3.1.1 Giá trị thông tin quản lý 30 3.1.2.Tính giá trị hệ thống thông tin 30 3.2 Chi phí cho hệ thống thơng tin 31 3.3 Phƣơng pháp phát triển hệ thống thông tin 31 3.3.1 Nguyên nhân dẫn tới việc phát triển hệ thống thông tin 31 3.3.2 Phƣơng pháp phát triển hệ thống thông tin 32 3.4 Các giai đoạn phát triển hệ thống 32 Phân tích thiết kế cài đặt hệ thống thơng tin 32 4.1 Đánh giá yêu cầu phát triển hệ thống thông tin 33 4.2 Phân tích chi tiết 33 4.2.1 Mục tiêu giai đoạn phân tích chi tiết 33 4.2.2 Các phƣơng pháp thu thập thông tin 33 4.2.3 Mã hóa liệu 34 4.2.4 Cơng cụ mơ hình hóa 35 4.2.4.1 Sơ đồ luồng thông tin (IFD): 35 4.2.4.2 Sơ đồ luồng liệu (DFD) 36 4.2.5 Các cơng đoạn giai đoạn phân tích chi tiết 37 4.3 Thiết kế logíc 38 4.3.1 Mục đích giai đoạn thiết kế logíc 38 4.3.2 Thiết kế sở liệu tính nhu cầu nhớ 39 Đặng Hồng Quang LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com Chuyên đề thực tập tốt nghiệp 4.3.2.1 Thiết kế sở liệu logíc từ thơng tin đầu 39 4.3.2.2 Thiết kế sở liệu phƣơng pháp mơ hình hóa 40 4.3.3 Thiết kế logíc xử lý tính khối lƣợng xử lý 41 4.3.4 Tính khối lƣợng liệu khối lƣợng xử lý tra cứu cập nhật 41 4.4 Đề xuất phƣơng án giải pháp 42 4.4.1 Mục đích 42 4.4.2 Xác định ràng buộc tin học tổ chức 42 4.4.3 Xây dựng phƣơng án giải pháp 43 4.4.4 Đánh giá phƣơng án giải pháp 43 4.5 Thiết kế vật lý 43 4.5.1 Lập kế hoạch giai đoạn thiết kế vật lý 43 4.5.2 Thiết kế chi tiết vào/ra 44 4.5.2.1 Thiết kế vật lý đầu 44 4.5.2.2 Thiết kế vào 44 4.5.3 Thiết kế cách thức giao tác với phần tin học hóa 44 4.6 Thực kỹ thuật 45 4.6.1 Mục đích cơng đoạn 46 4.6.2 Lập kế hoạch thực 47 4.6.3 Thiết kế vật lý 48 4.6.4 Lập chƣơng trình máy tính 48 4.6.5 Thử nghiệm phần mềm 49 4.6.6 Hoàn thiện tài liệu hệ thống 49 4.7 Cài đặt, bảo trì khai thác 49 CHƢƠNG III Chi tiết quy trình phân tích hệ thống thu-chi 51 nội bảng, ngoại bảng tính tốn quỹ thu nhập Mơ hình lơgíc hệ thống 1.1 Bảng tính quỹ thu nhập 51 1.1.1 Tính tổng thu-chi hạch tốn nội bảng 51 1.1.2 Tính vốn huy động sử dụng hạch toán ngoại bảng 52 1.1.3 Các tiêu khác cần đánh giá 52 1.1.4 Cách tính bảng diễn giải quỹ tiền lƣơng 53 Mơ hình IFD 55 Đặng Hồng Quang LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com Chun đề thực tập tốt nghiệp Mơ hình DFD 56 3.1 Sơ đồ khung cảnh ( DFD mức 0) 56 3.2 Sơ đồ phân rã (DFD mức 1) 56 Thiết kế liệu 57 4.1 Quá trình chuẩn hóa liệu 57 4.2 Thiết kế CSDL lơgíc từ thơng tin đầu 57 4.2.1 Xác định đầu 57 4.2.2 Các tệp cần thiết 58 4.2.2.1 Thực chuẩn hoá mức 60 4.2.2.2 Thực chuẩn hoá mức 60 4.2.2.3 Thực chuẩn hoá mức 61 4.2.2.4 Mô tả tệp 61 4.3 Tích hợp tệp để tạo sở liệu 61 4.4 Xác định khối lƣợng liệu cho tệp 62 4.5 Liên hệ logíc tệp thiết lập sơ đồ cấu trúc liệu 63 Thiết kế giải thuật 63 Thiết kế hình giao diện 66 6.1 Thiết kế hình 66 6.2 Một số mẫu báo cáo 67 Một số giao diện hình tiêu biểu 70 Kết luận 74 Tài liệu tham khảo 75 Phụ lục chƣơng trình 76 Đặng Hồng Quang LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com Chuyên đề thực tập tốt nghiệp CHƢƠNG I NHỮNG VẤN ĐỀ TỔNG QUAN VỀ ĐỀ TÀI GIỚI THIỆU CHUNG VỀ NHNo&PTNT QUẬN HOÀN KIẾM Chi nhánh ngân hàng Nông nghiệp Phát triển Nông thôn ( Viết tắt NHNo&PTNT )Quận Hoàn Kiếm đơn vị thành viên hạch tốn trực thuộc Ngân hàng Nơng nghiệp Phát triển Nông thôn Việt Nam đƣợc Tổng giám đốc Ngân hàng Nông nghiệp Phát triển Nông thơn Việt Nam định thành lập NHNo&PTNT Quận Hồn Kiếm đại diện theo ủy quyền Ngân hàng Nông nghiệp Phát triển Nông thôn Việt Nam (Thƣờng gọi Ngân hàng Nơng nghiệp) có quyền kinh doanh theo phân cấp Ngân hàng Nông nghiệp, chịu ràng buộc nghĩa vụ quyền lợi Ngân hàng Nông nghiệp 1.1 Chức chủ yếu NHNo&PTNT Quận Hoàn Kiếm * Trực tiếp kinh doanh địa bàn theo phân cấp Ngân hàng Nông nghiệp * Tổ chức điều hành kinh doanh kiểm tra, kiểm toán nội theo ủy quyền Tổng giám đốc Ngân hàng Nông nghiệp * Thực nhiệm vụ khác đƣợc giao lệnh Tổng giám đốc Ngân hàng Nơng nghiệp NHNo Quận Hồn Kiếm tổ chức tín dụng hoạt động kinh doanh tiền tệ, làm dịch vụ ngân hàng với nội dung nhận tiền gửi sử dụng tiền gửi để cấp tín dụng, cung ứng dịch vụ tốn, thực sách tiền tệ Nhà nƣớc nhằm góp phần phát triển kinh tế hàng hóa nhiều thành phần theo chế thị trƣờng có quản lý Nhà nƣớc, theo định hƣớng xã hội chủ nghĩa NHNo&PTNT Quận Hoàn Kiếm có dấu riêng, bảng cân đối tài sản, tuân thủ sách, chế độ ngành quy định pháp luật Đặng Hồng Quang LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com Chuyên đề thực tập tốt nghiệp có liên quan đến hoạt động kinh doanh ngân hàng, đảm bảo nguyên tắc tập trung, thống toàn hệ thống, đồng thời kết hợp việc phân cấp, ủy quyền, khuyến khích tính động, sáng tạo chủ động chi nhánh Ngân hàng đƣợc mở tài khoản tiền gửi Ngân hàng Nhà nƣớc tổ chức tín dụng khác Ngân hàng có nhận tiền gửi phải mở tài khoản tiền gửi Ngân hàng Nhà nƣớc trì số dƣ bình qn khơng thấp mức dự trữ bắt buộc Ngân hàng Nhà nƣớc quy định 1.2 NHNo&PTNT Quận Hồn Kiếm có nhiệm vụ: 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 nƣớc Đồng Việt Nam Ngân hàng đƣợc phép vay vốn Ngân hàng khác tổ chức tín dụng nƣớc Ngân hàng đƣợc phép vay vốn ngắn hạn Ngân hàng Nhà nƣớc dƣới hình thức tái cấp vốn 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 Ngân hàng Nông nghiệp 2) Cho vay ngắn hạn, trung hạn, dài hạn Đồng Việt Nam tổ chức kinh tế, cá nhân hộ gia đình thuộc thành phần kinh tế theo phân cấp ủy quyền Ngân hàng cho vay sở có bảo đảm tài sản cầm cố, chấp khách hàng vay, bảo lãnh bên thứ ba, không cho vay sở cầm cố cổ phiếu Ngân hàng Ngân hàng tổ chức xét duyệt cho vay theo nguyên tắc phân định khâu thẩm định định cho vay Ngân hàng kiểm tra, giám sát trình vay vốn, sử dụng vốn vay trả nợ khách hàng Ngân hàng chấm dứt việc cho vay thu hồi nợ trƣớc hạn phát khách hàng cung cấp thông tin sai thật, vi phạm hợp đồng tín dụng 3) Hướng dẫn khách hàng xây dựng dự án, thẩm định dự án tín dụng vƣợt quyền phán quyết, trình Ngân hàng Nơng nghiệp cấp định Đặng Hồng Quang LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com Chuyên đề thực tập tốt nghiệp 4) Kinh doanh nghiệp vụ ngoại hối đƣợc Tổng giám đốc Ngân hàng Nông nghiệp cho phép 5) Kinh doanh dịch vụ: Thu, chi tiền mặt,két sắt, nhận cất giữ loại giấy tờ trị giá đƣợc tiền, thẻ toán, nhận ủy thác cho vay tổ chức, cá nhân khác nƣớc, dịch vụ ngân hàng khác đƣợc Ngân hàng Nhà nƣớc, Ngân hàng Nông nghiệp quy định Ngân hàng tham gia hoạt động khác nhƣ góp vốn mua cổ phần, tham gia thị trƣơng tiền tệ Ngân hàng Nhà nƣớc tổ chức gồm thị trƣờng tín phiếu kho bạc, thị trƣờng nội tệ ngoại tệ liên hàng, thị trƣờng giấy tờ có giá trị ngắn hạn khác theo quy định pháp luật, kinh doanh ngoại hối vàng, cung ứng dịch vụ bảo hiểm, dịch vụ tƣ vấn tài chính, tiền tệ cho khách hàng, bảo quản vật quý, giấy tờ có giá 6) Làm dịch vụ cho Ngân hàng Phục vụ người nghèo 7) Thực hạch toán kinh doanh phân phối thu nhập theo định Ngân hàng Nông nghiệp 8) Thực kiểm tra, kiểm toán nội việc chấp hành thể lệ, chế độ nghiệp vụ phạm vi địa bàn theo quy định 9) Tổ chức thực việc phân tích kinh tế liên quan đến hoạt động tiền tệ, tín dụng đề kế hoạch kinh doanh phù hợp với phát triển kinh tếxã hội 10) Chấp hành đầy đủ báo cáo, thống kê theo chế độ quy định theo yêu cầu đột xuất Giám đốc chi nhánh NHNo&PTNT cấp 11) Thực nhiệm vụ khác đƣợc Giám đốc NHNo&PTNT cấp giao 1.3 Cơ cấu tổ chức chi nhánh NHNo&PTNT Quận Hồn Kiếm: Phịng kinh doanh Phịng kế tốn- Ngân quỹ Đặng Hồng Quang LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com Chuyên đề thực tập tốt nghiệp 1.3.1 Phòng kinh doanh : * Nghiên cứu xây dựng chiến lƣợc khách hàng tín dụng, phân loại khách hàng đề xuất sách ƣu đãi loại khách hàng nhằm mở rộng theo hƣớng đầu tƣ tín dụng khép kín, sản xuất, chế biến, tiêu thu, xuất gắn tín dụng sản xuất, lƣu thơng tiêu dùng * Phân tích kinh tế theo ngành, nghề kinh tế kỹ thuật, danh mục khách hàng lựa chọn biện pháp cho vay an toàn đạt hiệu cao * Thẩm định đề xuất cho vay dự án tín dụng * Thẩm định dự án, hồn thiện hồ sơ trình Ngân hàng Nơng nghiệp cấp * Tiếp nhận thực chƣơng trình, dự án thuộc nguồn vốn nƣớc, nƣớc Trực tiếp làm dịch vụ ủy thác nguồn vốn thuộc Chính phủ, ngành khác tổ chức kinh tế, cá nhân nƣớc * Xây dựng thực mơ hình tín dụng thí điểm, thử nghiệm địa bàn, đồng thời theo dõi đánh giá, sơ kết, tổng kết, đề xuất Tổng giám đốc cho phép nhân rộng * Thƣờng xuyên phân loại dƣ nợ, phân tích nợ q hạn, tìm ngun nhân đề xuất hƣớng khắc phục * Tổng hợp báo cáo kiểm tra chuyên đề theo định kỳ * Thực nhiệm vụ khác Giám đốc chi nhánh giao 1.3.2 Phịng kế tốn-Ngân quỹ * Trực tiếp hạch toán kế toán, hạch toán thống kê toán theo quy định Ngân hàng Nhà nƣớc, Ngân hàng Nông nghiệp * Xây dựng tiêu kế hoạch tài chính, tốn kế hoạch thu, chi tài chính, quỹ tiền lƣơng * Quản lý sử dụng quỹ chuyên dùng theo quy định Đặng Hồng Quang LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com Chuyên đề thực tập tốt nghiệp 70 chuyên ngành tin học kinh tế MỘT SỐ GIAO DIỆN MÀN HÌNH TIÊU BIỂU * Hệ thống gồm có menu danh mục tài khoản dùng để quản lý tài khoản xử lý chúng nhƣ thêm, xóa, Menu Tìm kiếm có tác dụng tìm kiếm nghiệp vụ phát sinh liên quan đến tài khoản loại 7, 8, theo tiêu thức tìm kiếm theo tên tài khoản, ngày phát sinh nghiệp vụ Menu tính tốn tiêu dùng để tính số hệ số bị thay đổi chế sách * Báo cáo gồm có menu Báo cáo thu nhập chi phí theo tháng, quý mẫu báo cáo tính quỹ thu nhập, diễn giải quỹ tiền lƣơng, tính phí đơn vị nhận khốn * Thơng tin thêm giới thiệu thêm chƣơng trình cách hạch tốn tài khoản liên quan Sau số giao diện tiờu biu: Đặng Hồng Quang LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com Chuyên đề thực tập tốt nghiệp 71 chuyên ngành tin học kinh tế Đặng Hồng Quang LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com Chuyên đề thực tập tốt nghiệp 72 chuyên ngành tin học kinh tế §Ỉng Hång Quang LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com Chuyên đề thực tập tốt nghiệp 73 chuyên ngành tin häc kinh tÕ GIẢI PHÁP KỸ THUẬT CHO H THNG Đặng Hồng Quang LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com Chuyên đề thực tập tốt nghiệp 74 chuyên ngành tin học kinh tế Gii phỏp v phn mềm: Chƣơng trình đƣợc cài đặt phịng kế tốn máy tính có nối mạng để cập nhật liệu nghiệp vụ phát sinh liên quan đến thu nhập, chi phí, vốn địa phƣơng sử dụng nguồn vốn tự lực địa phƣơng Chƣơng trình chạy môi trƣờng Windows 9X Công cụ thiết kế lập trình -Visual Basic 6.0 -Cơ sở liệu Microsoft Access 97 Giải pháp phần cứng: Cấu hình tối thiểu: Máy tính có tốc độ 133MHZ, 16 MB RAM, 1.7 GB HDD chạy hệ điều hành Windows 95 Đặng Hồng Quang LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com Chuyên đề thực tập tốt nghiệp 75 chuyên ngµnh tin häc kinh tÕ KẾT LUẬN: NHNO phát triển nơng thơn Quận Hồn Kiếm tổ chức tín dụng hoạt động kinh doanh địa bàn phân cấp ngân hàng Nơng nghiệp Trong q trình kinh doanh, ngân hàng phát triển không ngừng mặt nhƣ thoả mãn cách tối ƣu nhu cầu khách hàng nhiều loại hình đa dạng, nâng cao lực cán công nhân viên quan, ý cải tiến máy móc trang thiết bị nhằm thích nghi với điều kiện cạnh tranh gay gắt chế thị trƣờng Ngân hàng ý đến hiệu làm việc cán công nhân viên đặc biệt hệ thống quản trị sở liệu, chƣơng trình nhằm tăng suất lao động, đƣa báo biểu để nhận xét tình hình hoạt động Ngân hàng Những báo cáo nhƣ bảng tính quỹ thu nhập, bảng tính phí đơn vị nhận khốn, bảng diễn giải quỹ tiền lƣơng cung cấp thông tin cần thiết Trong chuyên đề thực tập tốt nghiệp đƣợc phát triển chủ yếu dựa việc phân tích thiết kế hệ thống thơng tin quản lý theo giai đoạn phát triển Từ thực tế ngân hàng giúp đỡ tận tình thầy giáo, cô quan, chuyên đề đƣợc thực góp phần nhỏ vào cơng tác kế toán, nhằm ứng dụng tin học vào việc: Tính tốn quỹ thu nhập lập bảng báo cáo cho ngân hàng với giao diện đồ hoạ thân thiện in ấn môi trƣờng Windows, in đƣợc Việt hoá nhằm tiết kiệm đƣợc tối đa công sức cho việc tạo biểu báo mà trƣớc đƣợc tạo ngơn ngữ hệ (EXCEL) Mặt khác chƣơng trình nhằm khắc phục lỗi phải chép liệu cách th cụng Đặng Hồng Quang LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com Chuyên đề thực tập tốt nghiệp 76 chuyên ngành tin học kinh tế TI LIU THAM KHO Hệ thống thông tin quản lý-Tác giả: TS Trƣơng Văn Tú-Nhà Xuất Bản khoa học kỹ thuật Các văn pháp quy hệ thống Ngân hàng Nông nghiệp Việt Nam-lƣu hành nội Kỹ lập trình Visual Basic- Tác giả: PTS Nguyễn Tiến DũngNhà xuất thống kê-1999 Văn 946A quy định tính phí đơn vị nhận khốn tổ chức tín dụng- lƣu hành nội Cơ sở liệu- Tác giả: Thầy Trần Công Uẩn- lƣu hnh ni b Đặng Hồng Quang LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com Chuyên đề thực tập tốt nghiệp 77 chuyên ngành tin học kinh tế PH LC CHNG TRÌNH FrmMain Private Sub mnusosanhQTN_Click() frmSS.Show End Sub Private Sub MnuThayDoiChiTieu_Click() frmThaydoi.Show End Sub Private Sub mnuThoat_Click() End End Sub Private Sub mnuTim_Click() frmTim.Show End Sub Private Sub mnutk_Click() frmDMTK.Show End Sub Tìm kiếm Option Explicit Dim St As String Private Sub cmdTimkiem_Click() BuildSQL DatTK.RecordSource = St txtTK.DataField = "TK" DatTK.Refresh lblLietKe.Caption = "Các nghiệp vụ tài khoản" _ + txtTK.Text + ":" End Sub Private Sub CmEXIT_Click() End §Ỉng Hång Quang LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com Chuyên đề thực tập tốt nghiệp 78 chuyên ngành tin häc kinh tÕ End Sub Private Sub Form_Load() txtTK.Text = "" txtSHTK.Text = "" lblLietKe.Caption = "" txtNgay1.Text = "" txtNgay2.Text = "" End Sub Public Sub BuildSQL() St = "SELECT [CN],[TK],[NGAY],PHIEN,NAMNO,NAMCO,[TMNO],TMCO" St = St + " FROM HSB3" St = St + " Where HSB3.TK = " + " '" & txtTK.Text & "'" End Sub FrmDMTK Option Explicit Dim TKn As DanhMucType Dim FileName As String Dim FileNum As Integer Dim Recordlen As Long Dim Current As Long Dim Last As Long Private Sub cmdAdd_Click() txtTK.SetFocus CmdSave.Enabled = True cmdDelete.Enabled = True cmdAdd.Enabled = False cmdBack.Enabled = True Last = Last + TKn.TK = "" TKn.ShieuTK = "" TKn.DGiai = "" Put #FileNum, Last, TKn Đặng Hång Quang LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com Chuyên đề thực tập tốt nghiệp 79 chuyên ngành tin häc kinh tÕ Current = Last Showcurrent End Sub Private Sub cmdBack_Click() cmdForward.Enabled = True If Current > Then Current = Current - GetRecord (Current) Else cmdBack.Enabled = False End If End Sub Private Sub cmdDelete_Click() Dim DirResult Dim TmpFileNum Dim RecNum As Long, TmpRecNum As Long Dim TmpTK As DanhMucType If MsgBox("Co muon xoa tai khoan khong ?", _ 4, "Thong bao") Then Exit Sub End If FileName = App.Path & "\Data.txt" If Dir("Data.tmp") = "Data.tmp" Then Kill "data.tmp" End If TmpFileNum = FreeFile Open "Data.tmp" For Random As TmpFileNum _ Len = Recordlen RecNum = TmpRecNum = Do While RecNum < Last + If RecNum Current Then Get #FileNum, RecNum, TmpTK Put #TmpFileNum, TmpRecNum, TmpTK Đặng Hồng Quang LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com Chuyên đề thực tập tốt nghiệp 80 chuyên ngành tin học kinh tế TmpRecNum = TmpRecNum + End If RecNum = RecNum + Loop Close FileNum Kill FileName Close TmpFileNum Name "data.tmp" As FileName FileNum = FreeFile Open FileName For Random As FileNum _ Len = Recordlen Last = Last - If Last = Then Last = End If If Current > Last Then Current = Last End If Showcurrent End Sub Private Sub cmdDong_Click() Unload frmDMTK End Sub Private Sub cmdForward_Click() cmdBack.Enabled = True If Current Last Then Current = Current + GetRecord (Current) Else cmdForward.Enabled = False End If End Sub Private Sub cmdSave_Click() §Ỉng Hång Quang LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com Chuyên đề thực tập tốt nghiệp 81 chuyên ngành tin häc kinh tÕ Save CmdSave.Enabled = False cmdAdd.Enabled = True txtTK.SetFocus Showcurrent End Sub Private Sub cmdStop_Click() Close FileNum End End Sub Private Sub Command1_Click() frmDMTK.Hide frmXem.Show End Sub Private Sub Form_Load() Recordlen = Len(TKn) FileName = App.Path & "\Data.txt" FileNum = FreeFile Open FileName For Random As FileNum _ Len = Recordlen Last = FileLen(FileName) / Recordlen If Last = Then Last = Current = Last CmdSave.Enabled = False Showcurrent End Sub Public Sub Showcurrent() Dim HP As Long Dim recnumF As Long Get #FileNum, Current, TKn txtTK.Text = Trim(TKn.TK) txtShieuTK.Text = Trim(TKn.ShieuTK) Đặng Hồng Quang LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com Chuyên đề thực tập tốt nghiệp 82 chuyên ngành tin học kinh tÕ TxtDGiai.Text = Trim(TKn.DGiai) End Sub Public Sub Save() TKn.TK = txtTK.Text TKn.ShieuTK = txtShieuTK.Text TKn.DGiai = TxtDGiai.Text Put #FileNum, Current, TKn End Sub Public Sub GetRecord(RecNum As Integer) Dim RecBuf As DanhMucType Get #1, RecNum, RecBuf txtTK = RecBuf.TK txtShieuTK = RecBuf.ShieuTK TxtDGiai = RecBuf.DGiai End Sub FrmThayDoi Option Explicit Dim HeSo As HeSoType Dim FileName As String Dim FileNum As Integer Dim Recordlen As Long Dim Current As Long Dim Last As Long Private Sub cmdAdd_Click() txtK.SetFocus CmdSave.Enabled = True cmdAdd.Enabled = False Last = Last + Put #FileNum, Last, HeSo Current = Last Showcurrent End Sub §Ỉng Hång Quang LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com Chuyên đề thực tập tốt nghiệp 83 chuyên ngành tin häc kinh tÕ Private Sub cmdDong_Click() Unload frmThaydoi End Sub Private Sub cmdSave_Click() Save CmdSave.Enabled = False cmdAdd.Enabled = True txtK.SetFocus Showcurrent End Sub Private Sub cmdStop_Click() Close FileNum End End Sub Private Sub Command1_Click() frmDMK.Hide frmXem.Show End Sub Private Sub Form_Load() Recordlen = Len(HeSo) FileName = App.Path & "\Data2.txt" FileNum = FreeFile Open FileName For Random As FileNum _ Len = Recordlen Last = FileLen(FileName) / Recordlen If Last = Then Last = Current = Last CmdSave.Enabled = False Showcurrent End Sub Public Sub Showcurrent() Đặng Hång Quang LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com Chuyên đề thực tập tốt nghiệp 84 chuyên ngành tin häc kinh tÕ Dim HP As Long Dim recnumF As Long Get #FileNum, Current, HeSo txtK.Text = Trim(HeSo.K) TxtluongCB.Text = Trim(HeSo.LuongCB) txtTongHSL.Text = Trim(HeSo.TongHSL) End Sub Public Sub Save() HeSo.K = txtK.Text HeSo.LuongCB = TxtluongCB.Text HeSo.TongHSL = txtTongHSL.Text Put #FileNum, Current, HeSo End Sub Public Sub GetRecord(RecNum As Integer) Dim RecBuf As HeSoType Get #1, RecNum, RecBuf txtK = RecBuf.K TxtluongCB = RecBuf.LuongCB txtTongHSL = RecBuf.TongHSL End Sub Đặng Hồng Quang LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com ... VỀ NHNo& PTNT QUẬN HOÀN KIẾM Chi nhánh ngân hàng Nông nghiệp Phát triển Nông thôn ( Viết tắt NHNo& PTNT )Quận Hoàn Kiếm đơn vị thành viên hạch tốn trực thu? ??c Ngân hàng Nơng nghiệp Phát triển Nông. .. Nông thôn Việt Nam đƣợc Tổng giám đốc Ngân hàng Nông nghiệp Phát triển Nông thơn Việt Nam định thành lập NHNo& PTNT Quận Hồn Kiếm đại diện theo ủy quyền Ngân hàng Nông nghiệp Phát triển Nông thôn. .. thiệu chung NHNo& PTNT Quận Hoàn Kiếm 1.1.Chức chủ yếu NHNo& PTNT Quận Hoàn Kiếm 1.2 NHNo& PTNT Quận Hồn Kiếm có nhiệm vụ: 1.3 Cơ cấu tổ chức chi nhánh NHNo& PTNT Quận Hoàn Kiếm: 1.3.1