Tin học hoá công tác quản lý tiền gửi tiết kiệm cho các Ngân hàng thương Mại quốc doanh & hệ thống Ngân hàng Việt Nam (Access)

Tin học hoá công tác quản lý tiền gửi tiết kiệm cho các Ngân hàng thương Mại quốc doanh & hệ thống Ngân hàng Việt Nam (Access)

Luận văn tốt nghiệp - Chuyên ngành đào tạo: Tin học quản lý Lời nói đầu Trong thời gian thực tập vừa qua Cục công nghệ tin học Ngân hàng đợc đạo tận tình thầy giáo hớng dẫn Bùi Ngũ thầy, cô giáo khoa Toán kinh tế hớng dẫn anh, chị phòng kỹ thuật phần mềm Cục công nghệ tin học Ngân hàng Tại em đà nghiên cứu, học hỏi hoàn thành luận văn tốt nghiệp Đợc đồng ý thầy giáo Bùi Ngũ em đà chọn đề tài cho luận văn tốt nghiệp mình, đề tài: Tin học hoá công tác quản lý tiền gửi tiết kiệm cho Ngân hàng thơng mại quốc doanh hệ thống Ngân hàng Việt nam Vốn huy động tiết kiệm phận huy động vốn, góp phần tận dụng số tiền nhàn rỗi dân c tổ chức kinh tế, xà hội khác để phục vụ cho hoạt động kinh doanh Tuy không chiếm tỉ träng cao trong tỉng ngn vèn nhng nã lµ phận thiếu đợc hệ thống huy động vốn Ngoài ý nghĩa kinh tế góp phần làm thay đổi thói quen của đa phận dân c thích tích luỹ góp phần đầu t xây dựng đất nớc điều có ý nghĩa quan trọng số tiền nhàn rỗi dân c lớn (theo số thống kê năm 1999 khoảng 1,2 tỷ USD) đất nớc lại cần có vốn để phơc vơ cho ph¸t triĨn kinh tÕ x· héi Tin học hoá công tác quản lý tiền gửi tiết kiệm cho Ngân hàng thơng mại quốc doanh nói riêng cho hệ thống Ngân hàng Việt nam nói chung vấn đề đợc ngành Ngân hàng quan tâm nghiên cứu, ứng dụng, phát triển hoàn thiện nhiều năm gần đây, công tác thiếu cho Ngân hàng muốn huy động vốn đợc tốt để phục vụ cho việc kinh doanh tiền tệ Trên sở em đà hoàn thành đề tài báo cáo thực tập tốt nghiƯp víi néi dung chÝnh nh sau: Ch¬ng i : Một số phơng pháp luận nghiên cứu hệ thống thông tin Chơng có nội dung tìm hiểu cách tiếp cận, nghiên cứu phát triển hệ thống thông tin quản lý Chơng II : Công tác khảo sát số vấn đề chung đề tài Chơng chia làm hai phần Phần có nội dung giới thiệu chung tình hình ứng dụng tin học quan qua phân tích mặt đợc cha đợc hệ thống thông tin quản lý tiền gửi tiết kiệm mà quan sử dụng Chơng hai có nội dung tìm hiểu quy trình nghiệp vụ toán tin học quản lý Chơng III: phân tích thiết kế cài đặt hệ thống thông tin quản lý tiền gửi tiết kiệm Chơng có nội dung phân tích thiết kế cài đặt hệ thống thông tin, từ ta xây dựng sở liệu giải thuật cho toán Sau đó, trình bày cách thức cài đặt hệ thống thông tin quản lý phục vụ cho toán Nguyễn Tài Cờng Luận văn tốt nghiệp - Chuyên ngành đào tạo: Tin học quản lý Do thời gian nghiên cứu hạn hẹp, trình độ có hạn em không tránh khỏi thiếu sót Em mong thầy, cô rõ thiếu sót cho em, cho đề tài ngày sâu vào thực tế, khắc phục đợc thiếu sót phát huy mặt mạnh để ứng dụng vào tình hình thực tế quan tơng lai sau Em xin tỏ lòng biết ơn sâu sắc đến thầy giáo hớng dẫn Bùi Thế Ngũ thầy cô khoa Toán kinh tế anh, chị phòng kỹ thuật phần mềm Cục công nghệ tin học Ngân hàng đà giúp đỡ dìu dắt em hoàn thành Luận văn tốt nghiệp đại học Em xin chân thành cảm ơn thầy! Hà nội, ngày tháng năm 2000 Nguyễn Tài Cờng Luận văn tốt nghiệp - Chuyên ngành đào tạo: Tin học quản lý Mục lục Lời nói đầu Môc lôc Ch¬ng I Một số Phơng pháp luận nghiên cøu hƯ thèng th«ng tin I Th«ng tin hệ thống thông tin .7 Th«ng tin 1.1 Tầm quan trọng thông tin đầu thÕ kû 21 .7 1.2 Thông tin ? .7 1.3 TÝnh chÊt cđa th«ng tin 1.3.1 Độ cứng thông tin 1.3.2 §é phong phó Quản lý tổ chức dới góc độ th«ng tin 2.1 HƯ thèng qu¶n lý 2.2 Thông tin quản lý 2.2.1 Kh¸i niƯm 2.2.2 TÝnh chÊt cđa th«ng tin quản lý theo loại định 10 2.2.3 Tiêu chuẩn chất lợng thông tin qu¶n lý 10 2.2.4 Các nguồn thông tin từ với hệ thống thông tin quản lý tiết kiệm .11 Các giai đoạn ứng dụng tin học mét tæ chøc 11 Thông tin công tác quản lý 12 HƯ thèng th«ng tin (HTTT) 13 5.1 Kh¸i niƯm .13 5.2 Các yếu tố cấu thành HTTT 13 Sau mô hình yếu tố cấu thành hệ thống thông tin quản lý tiết kiệm: .13 5.3 Phân loại HTTT tæ chøc 14 5.4 Mô hình biểu diễn HTTT .14 II hệ thống thông tin quản lý 15 C¸c quan hƯ cđa thông tin quản lý 15 1.1 Th«ng tin quản lý với phận tổ chức 15 1.2 Sù phát triển thông tin quản lý 15 Đặc điểm hệ thống thông tin quản lý 16 2.1 Luồng thông tin vào 16 2.2 Luång th«ng tin 16 Giá trị hệ thống thông tin quản lý 17 3.1 Giá trị thông tin quản lý 17 3.2 Giá trị hệ thống thông tin quản lý 17 Mô hình hệ thống thông tin qu¶n lý .17 III Ph©n tÝch, thiÕt kÕ hệ thống thông tin quản lý .18 Nghiªn cøu thùc tÕ 18 X©y dùng sơ đồ 18 Hợp thức hoá .19 Xây dựng mô hình logic liệu 20 Xây dựng mô hình vật lý liệu 20 IV c¸c bíc ph¸t triĨn mét htttql 20 Lý để phát triÓn mét HTTQL 20 C¸c bíc ph¸t triÓn mét HTTTQL 20 Các phơng pháp tin häc ho¸ .22 V Mét sè phơng pháp phân tích hiệu kinh tế dự ¸n ph¸t triĨn mét HTTTQL .23 §¸nh giá đa tiêu thức .23 Phân tích chi phí - lợi ích 23 Nguyễn Tài Cờng Luận văn tốt nghiệp - Chuyên ngành đào tạo: Tin học quản lý VI tổ chức sở liệu (csdl) quản trị së d÷ liƯu (qtcsdl) 24 Cơ sở liệu 24 1.1 Kh¸i niƯm 24 1.2 Kho d÷ liƯu 24 1.3 Ngân hàng liệu 24 1.4 Quản lý liệu .25 1.5 Mô hình liệu 25 Phân tích thiết kế së d÷ liƯu .25 2.1 Yêu cầu việc phân tích thiết kế sở liệu .25 2.2 C¸c bíc thiÕt kế sở liệu .26 2.2.1 X©y dùng lợc đồ khái niệm 26 2.2.2 Xây dựng lợc đồ sở liệu 26 2.3 ThiÕt lËp m« hình liệu thực thể .27 Tªn thùc thĨ .27 2.4 Thiết lập sở liệu chứa bảng 27 2.5 Mối quan hệ bảng .28 2.5.1 Mèi quan hÖ mét - mét 28 2.5.2 Mèi quan hƯ mét - nhiỊu 28 2.5.2.1 Mô hình với mối quan hệ - nhiều 28 2.5.2.2 T¹o lập sở liệu với mối quan hệ - nhiÒu .29 2.5.3 Mèi quan hƯ nhiỊu - nhiỊu 29 2.5.3.1 Mô hình víi mèi quan hƯ nhiỊu - nhiỊu 29 2.5.3.2 Tạo lập sở d÷ liƯu víi mèi quan hƯ nhiỊu - nhiỊu 29 Hệ quản trị së d÷ liƯu .29 3.1 Kh¸i niƯm .29 3.2 Các chức cña HQTCSDL 30 HQTCSDL Microsoft Access 97 & ngôn ngữ lập trình Visual basic 6.0 30 Ch¬ng II .31 Công tác khảo sát Một số vấn đề chung đề tài 31 I hệ thống Ngân hàng việt nam .31 Giíi thiƯu chung 31 Cục công nghệ tin học Ngân hàng .32 Hệ thống Ngân hàng thơng mại quốc doanh níc ta hiƯn .32 3.1 Loại hình doanh nghiệp 32 3.2 Lĩnh vực hoạt động Ngân hàng Thơng m¹i quèc doanh 32 3.3 Cơ cấu tổ chức Ngân hàng Thơng mại quèc doanh .33 3.4 M« hình hoạt động kinh doanh Ngân hàng Thơng mại quèc doanh .33 T×nh h×nh øng dụng công nghệ thông tin Ngân hàng thơng mại quốc doanh 35 II Nghiệp vụ quản lý tiền gửi tiết kiệm Ngân hàng thơng mại quốc doanh .36 Vai trò huy động vốn tiết kiệm dân .36 Quy trình kế toán gửi hệ thống quản lý tiền gưi tiÕt kiƯm 37 2.1 Tại bàn gửi tiết kiệm .37 2.1.1 Quy trình nghiệp vụ kế toán giao dịch .37 2.1.2 Quy trình nghiệp vụ kế toán cuối ngày 39 2.1.3 Mét sè vÊn ®Ị cÇn lu ý 40 2.2 Tại phòng kÕ to¸n 40 III ph¬ng híng phát triển chơng trình quản lý tiền gửi tiết kiệm 41 NhËn xét chung chơng trình quản lý tiền gửi tiết kiệm mà Ngân hàng thơng mại quốc doanh sử dông 41 1.1 Đặc điểm chung 41 1.2.Ưu điểm 41 1.3 Nhợc điểm 41 Phơng hớng phát triển chơng trình quản lý tiền gửi tiết kiệm .42 2.1.Ph¬ng híng chung 42 2.2 Tỉ chøc hƯ thèng qu¶n lý tiỊn gưi tiÕt kiƯm míi 42 Ch¬ng III 44 Ngun Tµi Cêng Luận văn tốt nghiệp - Chuyên ngành đào tạo: Tin học quản lý hệ thống thông tin quản lý tiỊn gưi tiÕt kiƯm 44 I Ph©n tÝch hƯ thống thông tin quản lý tiền gửi tiết kiệm 44 M« hình hệ thống quản lý tiền gửi tiết kiệm Ngân hàng thơng mại quốc doanh 44 Phân tích hệ thống thông tin quản lý tiền gửi tiÕt kiÖm 45 2.1 Ph©n tÝch chung 45 2.2 Phân tích lu chuyển thông tin bàn gưi tiÕt kiƯm 45 2.2.1 Đầu ngày 45 2.2.2 Trong ngµy .46 2.2.3 Cuèi ngµy .46 2.3 Ph©n tÝch sù lu chuyển thông tin phòng kế toán 47 Các sơ đồ luồng d÷ liƯu 47 3.1 Sơ đồ khung c¶nh 48 3.2 Sơ đồ ngữ cảnh .48 3.3 Sơ đồ luång th«ng tin .49 3.4 Sơ đồ lng d÷ liƯu .50 3.4.1 Sơ đồ lng d÷ liƯu møc 50 3.4.2 Sơ đồ lng d÷ liƯu møc 51 3.5 Sơ đồ cấu trúc liệu quản lý tiết kiệm 52 II thiÕt kế, xây dựng sở liệu .53 Yêu cầu việc thiết kế sở liệu .53 Luồng liệu vào dòng thông tin 53 2.1 Luồng liệu vào 54 2.1.1 Sỉ tiÕt kiƯm cã kú h¹n 54 2.1.2 Sỉ tiÕt kiƯm kh«ng kú h¹n 55 2.2 Dòng thông tin 56 2.2.1 Mẫu báo cáo tình hình huy ®éng vèn tiÕt kiÖm 56 2.2.2 Mẫu kê chi tiết khách hàng .57 Thiết kế sở liệu 59 3.1 Bíc 59 3.2 Bíc 59 3.3.Bíc 59 3.4.Bíc vµ 60 3.5 Bíc 61 3.6 Bíc 67 III X©y dựng sơ đồ khối thuật toán tổng quát .67 Thuật toán đăng nhập mật 68 Thuật toán đổi mật .69 Thuật toán xử lý đầu ngày bàn gửi 70 3.1.ThuËt to¸n 3.1 71 Tht to¸n nhËp chøng tõ gưi tiỊn 72 4.1 ThuËt to¸n 4.1 73 Tht to¸n nhËp chøng tõ rót tiỊn: 74 5.1 ThuËt to¸n 5.1 .75 5.2 ThuËt to¸n 5.2 76 IV thiết kế chơng trình 77 Yêu cầu với hệ thống 77 Tổ chức chơng trình qu¶n lý tiỊn gưi tiÕt kiƯm 78 ThiÕt kÕ c¸c giao diƯn vµo/ra .79 3.1 HÖ thèng thùc ®¬n 79 3.1.1 Thực đơn 79 3.1.2 Thực đơn hệ thống .79 3.1.3 Thực đơn giao dịch .80 3.1.4 Thực đơn thông tin chung .80 3.1.5 Thùc đơn thông tin bàn gửi .81 3.1.6 Thực đơn in báo cáo, kê 81 Mét sè form chÝnh 82 Ngun Tµi Cờng Luận văn tốt nghiệp - Chuyên ngành đào tạo: Tin học quản lý 4.1 Form thông tin sổ tiÕt kiÖm 82 4.2 Form gưi tiÕt kiƯm .82 4.3 Form rót tiÕt kiƯm 83 Mẫu báo cáo đầu 84 5.1 B¸o c¸o tình hình huy động vốn 84 5.1 Sao kª ph¸t sinh l·i nhËp gèc 85 V Gi¶i ph¸p kü tht cho hƯ thèng 85 Giải pháp phần mềm 85 Giải pháp phần cứng 86 KÕt luËn 88 Tài liệu tham khảo 89 Phô lôc chơng trình .1 M· lƯnh Form CËp nhËt kú h¹n 10 Mà lệnh Form đăng nhập mËt khÈu 27 M· lÖnh Form cËp nhËt l·i suÊt .29 M· lÖnh Form đăng nhập thêm ngời sử dụng 32 Nguyễn Tài Cờng Luận văn tốt nghiệp - Chuyên ngành đào tạo: Tin học quản lý Chơng I Một số Phơng pháp luận nghiên cứu hệ thống thông tin I Thông tin hệ thống thông tin Thông tin 1.1 Tầm quan trọng thông tin đầu kỷ 21 Có hai nét đặc trng bật thời kỳ đầu kỷ 21: biến đổi phạm vi toàn cầu với tốc độ cao sức mạnh trỗi dậy quan thông tin Thay đổi mau chóng quan hệ quốc tế, toàn cầu hoá kinh doanh, vẽ lại biên giới trị, tạo tổ hợp thơng mại đồ sộ động lực thúc đẩy biến đổi toàn cầu Một số quan dựa thông tin thu đợc lợi nhuận cao trỗi dậy mạnh mẽ HÃng phần mềm Microsoft Bill Gate, sù thèng lÜnh thÞ trêng vi xư lý cđa h·ng Intel, cho thấy thông tin đà trở thành tảng cho lớn mạnh quan Ba giai đoạn phân biệt trình khai hoá văn minh nhân loại đà đợc xác định gần giai đoạn thứ t đợc đề cập đến sau ba giai đoạn: nông nghiệp, cách mạng công nghiệp, xà hội thông tin, mà xà hội tri thức điệp từ quan trọng đợc nhắc tới thờng xuyên Còn giai đoạn xà hội thông tin nay, tầm quan trọng thông tin ngày tăng lên văn minh nhân loại, từ hay đợc nhắc đến liệu thông tin, quan tổ chức bảo quản, xử lý truyền tin 1.2 Thông tin ? Dữ liệu thông tin hai khái niệm khác nhng thờng đợc dùng lẫn lộn §èi víi mét ngêi, mét bé phËn cđa c¬ quan hay hệ thống đó, liệu số liệu hay tài liệu cho trớc Thông tin liệu đà đợc xử lý thành dạng dễ hiểu, tiện dùng, có ý nghĩa có giá trị ngời nhận tin việc định Dữ liệu đợc ví nh nguyên liệu thô thông tin Thông tin ngời phận phát đợc ngời khác phận khác coi nh liệu để xử lý thành thông tin phục vụ cho mục đích khác Đó hai từ liệu thông tin dùng thay cho Ta hiểu cách khác, thông tin phản ánh biến phản ánh thành tri thức đối tợng đợc phản ánh tri thức chủ thể nhận phản ánh Đối t-ợng đ-ợc Đối t-ợng đ-ợc phản ánh phản ánh Nguyễn Tài Cờng Phản ¸nh Tri thøc hãa Chđ thĨ nhËn Chđ thĨ nhËn phản ánh phản ánh Luận văn tốt nghiệp - Chuyên ngành đào tạo: Tin học quản lý 1.3 Tính chất thông tin Thông tin thay đổi Hai khái niệm tiện dùng để mô tả tính chất thông tin độ cứng độ phong phú thông tin 1.3.1 Độ cứng thông tin Độ cứng thông tin: thớc đo khách quan tính xác mức độ tin cậy mẩu tin Thông tin thị trờng nh giá cổ phiếu, giá vàng, cứng chúng chúng đo lờng cách xác, công bố tài đà kiểm toán cứng Mặc dù nhà quản lý muốn dùng thông tin cứng nhng nhiều trờng hợp mà dùng, phải tìm kiếm từ nhiều nguồn khác luận giải để khẳng định lại 1.3.2 Độ phong phú Độ phong phú thông tin: thớc đo cho tính đa dạng thông tin Thông tin phong phú trao đổi mặt đối mặt, tài liệu toàn số dạng thông tin nghèo nàn Độ phong phú thông tin phụ thuộc vào thông tin liên lạc Quản lý tổ chức dới góc độ thông tin 2.1 HƯ thèng qu¶n lý Ngêi ta thêng coi bé nhí cđa c¬ quan gièng nh bé nhí cđa ngời Thông tin vào Bộ nhớ Bộ nhớ Thông tin Trao đổi Bộ nhớ Bộ nhớ Trong quan thờng có hai hệ thống phụ thuộc HT quản lý HT bị quản lý Trong hệ thống quản lý tiết kiệm mối quan hệ chúng đợc mô nh hình I.1: Nguyễn Tài Cờng Luận văn tốt nghiệp - Chuyên ngành đào tạo: Tin học quản lý Thông tin vào Thông tin Phòng kế toán Phòng kế toán Thông tin Quyết định Bàn huy động Bàn huy động vốn vốn Hình I.1: Sơ đồ luồng thông tin hệ thống quản lý tiết kiệm Mọi chức hệ thống quản lý sử dụng thông tin đa thông tin Nh thông tin quản lý đích thực.Tầm quan trọng thông tin đợc diễn đạt biểu thức: Lao động quản lý = Lao động thông tin + Lao động định Để giảm chi phí lao động quản lý nên tự động hoá lao động thông tin Từ sơ đồ trên, ngời ta thấy rằng: Lao động quản lý = Lao động thông tin + Lao động định (Làm việc có quy trình) ( Làm việc phi quy trình) chiếm 90% chiếm 10% Để giảm chi phí lao động quản lý tổ chức nên tự động hoá lao động thông tin, lao động định làm việc phi quy trình không chiếm phần quan trọng 2.2 Thông tin quản lý 2.2.1 Khái niệm Thông tin quản lý thông tin có nhà quản lý dùng có ý định dùng vào việc định quản lý ý nghĩa thông tin quản lý : + Những nhà quản lý khác cần sử dụng tập hợp thông tin quản lý khác + Trong khoảng thời gian khác tập hợp thông tin quản lý có khác tức thông tin quản lý có tính biến động Nguyễn Tài Cờng Luận văn tốt nghiệp - Chuyên ngành đào tạo: Tin học quản lý 2.2.2 Tính chất thông tin quản lý theo loại định Có cấp định: - Quyết định chiến lợc (strategic): Trả lời câu hỏi Làm ?, Mục đích ? để xác định mục tiêu, xây dựng nguồn lực hệ thống - Quyết định chiến thuật (tactic): Trả lời câu hỏi Cho ?, đâu ?, Khi ?, cụ thể hoá mục tiêu thành nhiệm vụ khai thác tối đa tối u nguồn lực - Quyết định tác nghiệp (Operational): Trả lời câu hỏi Làm nh nào? Các đặc trng thông tin quản lý cho cấp định: định Quyết Tác nghiệp Chiến thuật Chiến lợc Tính chất thông tin -Thông đặn tin -Phần lớn th- -Thông tin có tính đột xuất ờng kỳ khoảng thời gian dài có Tần suất định - Có thể dù -Cã thĨ cã mét Th«ng tin kh«ng cã trớc số nét đặc dự kiến để định Khả dự kiến thông tin biệt thông kiến tin - Thông tin -Thông tin -Chủ yếu thông tin dự Thời điểm khứ khứ đoán tơng lai Nguồn thông -100% thông -Phần lớn -Phần lớn thông tin tin thông tin (70%) tin (70%) -Tính cấu -Một số thông -Phần lớn thông tin có tính tin có tÝnh phi phi cÊu tróc TÝnh cÊu tróc tróc rÊt cao cÊu tróc -Th«ng tin -Th«ng tin cã -Th«ng tin có tính chủ xác tính tơng đối, có quan phần lớn Độ xác ý kiến chủ quan -RÊt chi tiÕt -Th«ng tin mang Th«ng tin mang tính khái tính tổng hợp quát so sánh Mức chi tiết 2.2.3 Tiêu chuẩn chất lợng thông tin quản lý Có tiêu chuẩn để đánh giá nh sau: - Độ tin cậy: thông tin phải xác, xác thùc Ngun Tµi Cêng 10 List1.Text = text1.Text End If rec.MoveNext Loop If text1.Text List1.Text Then MsgBox ("Kh«ng cã số sổ này, hÃy vào lại ") End If End If rec.MoveFirst End Sub Private Sub MaskEdBox1_GotFocus() MaskEdBox1.SelStart = MaskEdBox1.SelLength = Len(MaskEdBox1.Text) End Sub Private Sub MaskEdBox1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text1.SetFocus End If End Sub Private Sub Text1_GotFocus() Text1.SelStart = Text1.SelLength = Len(Text1.Text) End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text12.SetFocus End If End Sub Private Sub Text12_GotFocus() Text1.SelStart = Text1.SelLength = Len(Text12.Text) End Sub Private Sub Text12_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text13.SetFocus End If End Sub Private Sub Text13_GotFocus() Text1.SelStart = Text1.SelLength = Len(Text13.Text) End Sub Private Sub Text13_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text2.SetFocus End If End Sub Private Sub Text2_GotFocus() Dim dk As String Set db = OpenDatabase(Loctext + "hethong.mdb") Set rs = db.OpenRecordset("dmkh") dk = "makh='" & Text13.Text & "'" rs.FindFirst dk If rs.NoMatch = False Then Text2.Text = rs.Fields(1).Value Command1.SetFocus Else If Len(Text2.Text) = Then ttt.Show Text13.Text = ma Text2.Text = ten Text5.SetFocus End If End If rs.Close db.Close End Sub Private Sub Text2_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Command1.SetFocus End If End Sub Private Sub Text5_GotFocus() Text5.SelStart = Text5.SelLength = Len(Text5.Text) End Sub Private Sub Text5_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text6.SetFocus End If End Sub Private Sub Text6_GotFocus() Set db = OpenDatabase(Loctext + "hethong.mdb") Set rs = db.OpenRecordset("DMVT") dk = "mavt='" & Text5.Text & "'" rs.FindFirst dk If rs.NoMatch = False Then Text6.Text = rs.Fields(1).Value Text7.SetFocus Else If Len(Text5.Text) = Then tt.Show Text5.Text = ma Text6.Text = ten Text7.SetFocus End If End If rs.Close db.Close End Sub Private Sub Text6_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text17.SetFocus End If End Sub Private Sub Text7_GotFocus() Text7.SelStart = Text7.SelLength = Len(Text7.Text) End Sub Private Sub Text7_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text8.SetFocus End If End Sub Private Sub Text8_GotFocus() Text8.SelStart = Text8.SelLength = Len(Text8.Text) End Sub Private Sub Text8_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Command1.SetFocus End If End Sub ******************************************************************** ****** M· lƯnh Form CËp nhËt kú h¹n Private Sub Check1_LostFocus() Text2(1).SetFocus End Sub Private Sub Command1_Click() Check1.SetFocus End Sub Private Sub Command3_Click() Set db = OpenDatabase(Loctext + "qltk.mdb", dbOpenDynaset) Set rs = db.OpenRecordset("Ky_han") rs.MoveFirst Do Until rs.EOF If Text2(0).Text = rs.Fields(0) Then rs.Edit rs.Fields(0) = rs.Fields(0) rs.Fields(2) = Text2(1).Text If Check1.Value = Then rs.Fields(1) = True Else rs.Fields(1) = False rs.Update End If End If rs.MoveNext Loop End Sub Private Sub Command4_Click() Unload Me End Sub Private Sub Form_Load() Dim newitem As String Set db = OpenDatabase(Loctext + "qltk.mdb", dbOpenDynaset) Set rs = db.OpenRecordset("Ky_han") Command1.Enabled = False Command2.Enabled = False Command3.Enabled = False Text1.Text = "" rs.MoveFirst Do While Not rs.EOF newitem = rs.Fields("loai_kh") List1.AddItem newitem rs.MoveNext Loop rs.MoveFirst End Sub Private Sub Form_Resize() Me.Top = MDIForm1.Top + 670 Me.Left = MDIForm1.Left + 100 End Sub Private Sub List1_Click() Dim field As String Set db = OpenDatabase(Loctext + "qltk.mdb", dbOpenDynaset) 3Set rs = db.OpenRecordset("Ky_han") Command1.Enabled = True Command2.Enabled = True Command3.Enabled = True field = List1.Text rs.MoveFirst Do While Not rs.EOF If field = rs.Fields(0).Value Then For i% = To If i = Then Text2(i).Text = rs.Fields(i) If i = Then Label5.Caption = rs.Fields(i).Value If i = Then If rs.Fields(i) Then Check1.Value = Else Check1.Value = End If End If If i = Then Text2(1) = rs.Fields(i).Value Next i End If rs.MoveNext Loop rs.MoveFirst Command1.SetFocus End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) Dim i As Byte Set db = OpenDatabase(Loctext + "qltk.mdb", dbOpenDynaset) Set rs = db.OpenRecordset("ky_han") If KeyAscii = 13 Then Do While Not rs.EOF If Text1.Text = rs.Fields(0).Value Then List1.Text = Text1.Text End If rs.MoveNext Loop If Text1.Text List1.Text Then MsgBox ("Không có số sổ này, hÃy vào l¹i ") End If End If rs.MoveFirst End Sub Private Sub Text2_LostFocus(Index As Integer) If Index = Then Command3.SetFocus Else If Index = Then Check1.SetFocus End If End If End Sub ******************************************************************** ********* M· lÖnh Form cËp nhËt sỉ tiÕt kiƯm Dim kt As Boolean Public Function tim(ByVal db1 As Database, rs1 As Recordset, st As String, i, j As Integer) As String Dim Str$ With rs1 Do Until EOF If st = Fields(i).Value Then Str = Fields(j).Value tim = Str Exit Function End If MoveNext Loop End With End Function Private Sub Data1_Validate(Action As Integer, Save As Integer) Select Case Action Case vbDataActionMoveFirst kt = True Case vbDataActionMovePrevious kt = True Case vbDataActionMoveNext kt = True Case vbDataActionMoveLast kt = True Case vbDataActionAddNew kt = False Case vbDataActionUpdate kt = False Case vbDataActionDelete kt = False Case vbDataActionFind kt = False Case vbDataActionBookmark Case vbDataActionClose End Select End Sub Private Sub cboloaitien_Change() Dim st$, xau$ Set db = OpenDatabase(Loctext + "admin.mdb", dbOpenDynaset) Set rs = db.OpenRecordset("loai_tien") st = cboloaitien.Text xau = tim(db, rs, st, 0, 1) Label5.Caption = xau End Sub Private Sub cboloaitien_Click() Dim st$, xau$ Set db = OpenDatabase(Loctext + "qltk.mdb", dbOpenDynaset) Set rs = db.OpenRecordset("tien_sd") st = cboloaitien.Text xau = tim(db, rs, st, 0, 1) Label5.Caption = xau End Sub Private Sub Command1_Click() On Error GoTo loi If txt(0) = "" Or txt(1) = "" Or txt(2) = "" Or txt(3) = "" Or txt(4) = "" Or txt(5) = "" Then MsgBox ("B¹n ca nhập đầy đủ liệu, hÃy nhập lại") txt(0).SetFocus Exit Sub End If Dim i% Set db = OpenDatabase(Loctext + "qltk.mdb", dbOpenDynaset) Set rs = db.OpenRecordset("so_tkiem") rs.AddNew For i = To rs.Fields(i).Value = txt(i).Text Next rs.Fields(6).Value = txt1(0).Text rs.Fields(7) = txt1(0).Text rs.Fields(8).Value = txt1(1).Text rs.Fields(9).Value = cboloaitien.Text rs.Fields(10).Value = Val(txt1(2).Text) rs.Update Data1.Refresh rs.Close Exit Sub loi: MsgBox (Err.Description) End Sub Private Sub Data2_Reposition() On Error GoTo loi Dim i% If kt = False Then Exit Sub For i = To If Not IsNull(Data2.Recordset.Fields(i).Value) Then txt(i).Text = Data2.Recordset.Fields(i).Value Else txt(i) = "" End If Next If Not IsNull(Data2.Recordset.Fields(i + 1).Value) Then txt1(0) = Data2.Recordset.Fields(i + 1).Value Else MaskEdBox1.Text = "" End If If Not IsNull(Data2.Recordset.Fields(i + 2).Value) Then txt1(1).Text = Data2.Recordset.Fields(i + 2).Value Else txt1(1) = "" End If If Not IsNull(Data2.Recordset.Fields(i + 3).Value) Then cboloaitien.Text = Data2.Recordset.Fields(i + 3).Value Else cboloaitien = "" End If If Not IsNull(Data2.Recordset.Fields(i + 4).Value) Then txt1(2).Text = Data2.Recordset.Fields(i + 4).Value Else txt1(2) = "" End If chuyen Exit Sub loi: If Err.Number = 3021 Then Exit Sub End If End Sub Private Sub Form_Load() Set db = OpenDatabase(Loctext + "admin.mdb", dbOpenDynaset) Set rs = db.OpenRecordset("loai_tien") Data1.DatabaseName = Loctext + "admin.mdb" Data1.RecordSource = "so_tkiem" With rs Do Until EOF cboloaitien.AddItem Fields(0).Value MoveNext Loop cboloaitien.Text = cboloaitien.List(0) End With txt1(1).Text = "01" End Sub Private Sub txt1_Change(Index As Integer) Dim st$, xau$ If Index = Then Set db = OpenDatabase(Loctext + "qltk.mdb", dbOpenDynaset) Set rs = db.OpenRecordset("ky_han") st = txt1(1).Text xau = tim(db, rs, st, 0, 1) Label4.Caption = xau End If End Sub Private Sub Command1_Click() On Error Resume Next Text3(0).Text = Date For i = To Text3(i).Text = "" Next i Text3(0).SetFocus End Sub Private Sub Command3_Click() 'On Error Resume Next Dim data As Database Dim rec As Recordset Dim i As Byte Set data = OpenDatabase (Loctext + "qltk.mdb", dbOpenDynaset) Set rec = data.OpenRecordset("lai_suat") Dim field As String Label2(0).Caption = "Lần khai báo cuối :" rec.MoveLast rec.AddNew rec.Fields(0) = Item For i = To If Text3(i).Text = "" Then MsgBox ("NhËp gi¸ trÞ cđa " + rec.Fields(i).Name) Else field = Val(Text3(i).Text) rec.Fields(i + 1) = field rec.Update End If Next i End Sub Private Sub Form_Load() Set db = OpenDatabase(Loctext + "qltk.mdb", dbOpenDynaset) Set rs = db.OpenRecordset("ky_han") Dim newitem As String Command1.Enabled = False Command2.Enabled = False Command3.Enabled = False Text1.Text = "" rs.MoveFirst Do While Not rs.EOF newitem = rs.Fields("loai_kh") List1.AddItem newitem rs.MoveNext Loop rs.MoveFirst End Sub Private Sub Form_Resize() Me.Top = MDIForm1.Top + 670 Me.Left = MDIForm1.Left + 100 End Sub Private Sub List1_Click() Dim rs1 As Recordset Dim field As String Set db = OpenDatabase(Loctext + "qltk.mdb", dbOpenDynaset) Set rs = db.OpenRecordset("Ky_han query") Set rs = db.OpenRecordset("loai_tien") Command1.Enabled = True Command2.Enabled = True Command3.Enabled = True field = List1.Text rs.MoveFirst Do While Not rs.EOF If field = rs.Fields(0).Value Then For i% = To If i = Or i = Then Text2(i).Text = rs.Fields(i) If i = Then Label5.Caption = rs.Fields(i) If i = Or i = Then Text3(i - 4).Text = rs.Fields(i) If i = Then If rs.Fields(i) Then Check1.Value = Else Check1.Value = End If End If Next i End If rs.MoveNext Loop rs.MoveFirst End Sub Private Sub Text1_Change() List1.Text = Text1.Text End Sub Private Sub Data1_Validate(Action As Integer, Save As Integer) Select Case Action Case vbDataActionMoveFirst kt = True Case vbDataActionMovePrevious kt = True Case vbDataActionMoveNext kt = True Case vbDataActionMoveLast kt = True Case vbDataActionAddNew kt = False Case vbDataActionUpdate kt = False Case vbDataActionDelete kt = False Case vbDataActionFind kt = False Case vbDataActionBookmark Case vbDataActionClose End Select End Sub Private Sub Text3_LostFocus(Index As Integer) If Index = Then Command2.SetFocus Else Text3(Index + 1).SetFocus End If End Sub ******************************************************************** ****** M· lƯnh Form rót tiÕt kiÖm Option Explicit Private Sub Form_Load() Dim i As Byte Dim rec As Recordset Dim data As Database Set data = OpenDatabase(Loctext + "qltk.mdb", dbOpenDynaset) Set rec = data.OpenRecordset("so_tk") ... đặt hệ thống thông tin quản lý tiền gửi tiết kiệm I Phân tích hệ thống thông tin quản lý tiền gửi tiết kiệm Mô hình hệ thống quản lý tiền gửi tiết kiệm Ngân hàng thơng mại quốc doanh Hệ thống. .. thành công tác nghiên cứu chọn đề tài báo cáo chuyên đề thực tập tốt nghiệp Tin học hoá công tác quản lý tiền gửi tiết kiệm cho Ngân hàng thơng mại quốc doanh hệ thống Ngân hàng Việt nam Hệ thống. .. tạo: Tin học quản lý hệ thống thông tin quản lý tiền gửi tiết kiệm 44 I Phân tích hệ thống thông tin quản lý tiỊn gưi tiÕt kiƯm 44 Mô hình hệ thống quản lý tiền gửi tiết kiệm Ngân