Chuyên đề Xây dựng chương trình quản lý thẻ ATM của Ngân hàng VIBank chi nhánh Quang Trung, Hà Nội

ông việc và kết quả. Sự kiện là khi nó làm khởi sinh sự thực hiện của một hoặc nhiều việc khác. Đồng bộ: một điều kiện logic kết hợp các sự kiện, thể hiện các quy tắc quản lý mà HTTT phải kiểm tra để khởi sinh các công việc. Công việc là một tập hợp các xử lý có thể thực hiện có chung các sự kiện khởi sinh. Quy tắc ra: điều kiện thể hiện các quy tắc quản lý, quy định việc cho ra kết quả của một công việc. Kết quả: sản phẩm của việc thực hiện một công việc. Về mặt logic thì một HTTT bao gồm các xử lý liên quan tới ba loại hoạt động: thực hiện các tra cứu thông tin, cập nhật dữ liệu vào các tệp và hợp lệ hóa dữ liệu. Những xử lý tra cứu và cập nhật có liên quan tới các thiết bị nhớ ngoài, do đó mô hình biểu diễn chúng còn được gọi là những mô hình ngoài. Trong giai đoạn thiết kế logic người ta chỉ quan tâm xem: hệ thống làm gì, để làm gì. Do đó phần thiết kế xử lý logic chỉ bàn đến các mô hình ngoài. Thiết kế các luồng dữ liệu vào Là thiết kế các thủ tục nhập dữ liệu có hiệu quả và giảm thiểu các sai sót. Thiết kế vào bao gồm lựa chọn phương tiện , thiết kế khuôn dạng cho thông tin nhập. Chỉnh sửa tài liệu cho mức logic Hợp thức hóa mô hình logic Xác định các kỹ thuật hợp lệ hóa dữ liệu nhập vào hệ thống Có hướng dẫn nhập liệu. Kiểm soát quy cách. Miền giá trị. Phân nhóm ký tự dữ liệu nhập. Kiểm tra logic nội tại. Lấy từ một danh sách có sẵn. Dùng số liệu thống kê để thông báo. Hợp lý về mặt văn cảnh. Xác thực tài liệu gốc. In ra, kiểm tra xác nhận sự thống nhất dữ liệu đã nhập vào dữ liệu in ra. Hợp lệ hóa mô hình logic Chuẩn bị và trình bày báo cáo về mô hình logic. Quyết định thông báo mô hình logic: sản phẩm của giai đoạn thiết kế logic. Sơ đồ DSD tổng thể cho HTTT. Kết quả phân tích tra cứu cho tất cả các đầu ra của HTTT. Bảng sự kiện cập nhật. Bảng báo cáo về mô hình này. Quyết định chấp nhận mô hình logic đã đưa ra. Đề xuất các phương án của giải pháp a. Mục đích Dự án sau khi đã được chấp nhận , phân tích viên phải trình bày một số phương án để nhà quản lý lựa chọn sao cho tính đến việc tối ưu hệ thống theo thời gian. Đồng thời phác họa HTTT nhìn thấy được. b. Cách thức xây dựng phương án Xác định các ràng buộc Ràng buộc về mặt tổ chức. Về mặt tài chính: cần xem xét khả năng chi cho việc phát triển hệ thống và chi cho việc vận hành hệ thống. Nhân lực của tổ chức: số lượng người sử dụng là bao nhiêu và trình độ tin học của người sử dụng đến đâu. Địa bàn hoạt động của tổ chức. Thiên hướng của lãnh đạo. Ràng buộc về mặt kỹ thuật tin học Phần cứng. Phần mềm. Ràng buộc lý tính. Các bước xây dựng phương án Bước 1: xác định biên giới cho phần tin học hóa của HTTT. Sử dụng sơ đồ DFD (mức 1 hoặc mức 2). Với các đường biên giới khác nhau có phương án ban đầu khác nhau. Bước 2: xác định phương thức xử lý. Sau khi phân tích viên xác định cách thức xử lý nghĩa là phải lựa chọn cách thức xử lý theo lô, thời gian thực hay hỗn hợp. Đồng thời phân tích viên phải quyết định lựa chọn các thiết bị ngoại vi để nhập dữ liệu và đưa kết quả ra, quyết định về mức tập trung của xử lý. Bước 3: viết chi tiết dự án cho từng phương án c. Đánh giá các phương án của giải pháp Phân tích chi phí/lợi ích: chi phí /lợi ích có thể phân loại theo những cách sau Trực tiếp hoặc gián tiếp. Biến động hoặc cố định. Hữu hình hoặc vô hình. Phân tích đa tiêu chuẩn: phương pháp phân tích đa tiêu chuẩn được thực hiện như sau Xác đinh tất cả các tiêu chuẩn cần xem xét. Cho mỗi tiêu chuẩn một trọng số. Đối với mỗi phương án đánh giá xem từng tiêu chuẩn đạt đến mức nào. Tính điểm cho từng tiêu chuẩn bằng cách nhân trọng số với mức đánh giá. Cộng tổng điểm cho mỗi phương án. Tổng điểm của từng phương án là chỉ tiêu tổng hợp dùng để so sánh đánh giá các phương án vơi nhau. Thiết kế vật lý ngoài a. Mục tiêu Mô tả chi tiết các yếu tố nhìn thấy được của HTTT như phần cứng, giao diện, báo cáo… Tăng độ sử dụng, dễ hiểu. Giảm sự mệt mỏi khi thao tác với hệ thống. b. Lập kế hoạch thiết kế vật lý ngoài Phân tích viên phải lựa chọn phương tiện, khuôn dạng của các dòng vào/ra, xác định cách thức hội thoại với phần tin học hóa của hệ thống và cách thức thực hiện các thủ tục thủ công. Phân bố thời gian và lập danh mục các sản phẩm. Nguyên tắc thực hiện: Đảm bảo rằng người sử dụng luôn đang kiểm soát hệ thống. Thiết kế hệ thống theo thói quen và kinh nghiệm của người sử dụng. Gắn chặt với các thuật ngữ, dạng thức và các thủ tục đã được dùng. Che khuất những bộ phận bên trong của các phần mềm và phần cứng tạo thành hệ thống. Cung cấp thông tin tư liệu trên màn hình. Giảm tới mức tối thiểu lượng thông tin mà người sử dụng phải nhớ trong khi sử dụng hệ thống. Dựa vào những quy tắc đã được chấp nhận về đồ họa, ký họa khi thể hiện thông tin trên màn hình hoặc trên giấy. c. Thiết kế chi tiết vào/ra Thiết kế vật lý các đầu ra Thiết kế vật lý các đầu ra có hai nhiệm vụ: lựa chọn vật mang tin và sắp đặt các thông tin trên đầu ra. Lựa chọn vật mang tin: có 4 vật mang tin chính được sử dụng để trình bày thông tin đó là giấy, màn hình, tiếng nói và các thiết bị nhớ. Bố trí thông tin trên vật mang: sau khi xác định được vật mang, thiết kế viên phải lựa chọn cách bố trí thông tin sao cho nó thể hiện tốt nhất nội dung của thông tin vì khuôn dạng của thông tin phụ thuộc vào vật mang. Việc tạo ra một đầu ra vừa ý và giúp đỡ người sử dụng hoàn thành công việc của họ một cách có hiệu quả là một công việc mang tính nghệ thuật nhiều hơn là khoa học. Tuy nhiên vẫn có những quy tắc cơ bản cho việc phân bố thông tin trên các đầu ra. Thiết kế vào Phương tiện nhập Nhập từ văn bản gốc qua bàn phím và màn hình. Nhập trực tiếp qua bàn phím màn hình. Thiết bị tự động. Nguyên tắc Nếu nhập tài liệu từ tài liệu gốc thì giống như tài liệu gốc. Trật tự hợp lý. Không nhập những thông tin có thể tính toán được. Đối với ô nhập hoặc trường nhập, tên của trường nhập phải ở bên trái hoặc ở bên trên. Giá trị ngầm định của trường nhập phải được sự đồng ý của nhà quản lý hoặc người sử dụng. Phải làm rõ việc chuyển trường, xuống dòng. Thiết kế cách thức giao tác với phần tin học hóa Thiết kê giao tác thông qua lệnh. Thiết kế giao tác thông qua các phím đặc biệt. Thiết kế giao tác thông qua thực đơn. Thiết kế giao tác thông qua biểu tượng. Triển khai kỹ thuật hệ thống a. Mục tiêu: xây dựng một hệ thống hoạt động tốt. b. Lập kế hoạch thực hiện Lựa chọn các công cụ cho hoạt động thiết kế vật lý trong cũng như những hoạt động lập trình sau này. Phân phối công việc cho các thành viên, xây dựng tiến trình thực hiện và chi phí cũng như yêu cầu vật tư kỹ thuật cho giai đoạn triển khai hệ thống. c. Thiết kế vật lý trong Thiết kế CDSL vật lý trong CSDL đủ đảm bảo cho các thông tin đầu ra của hệ thống. CSDL đảm bảo tốc độ cung cấp thông tin. CSDL xem xét vấn đề lưu trữ trên bộ nhớ của hệ thống. CSDL tận dụng hê thống Thiết kế sơ đồ liên kết module lập trình: module lập trình là phần chương trình máy tính mà chúng ta thiết kế để cho người lập trình bắt đầu thực hiện bằng viết lệnh. d. Lập trình Lập trình là quá trình chuyển đổi các đặc tả thiết kế vật lý của các nhà phân tích thành phần mềm máy tính do các lập trình viên đảm nhận. e. Thử nghiệm phần mềm Phân loại theo cách thử nghiệm: gồm có kỹ thuật thử nghiệm tĩnh và kỹ thuật thử nghiệm động. Phân loại theo công cụ thử nghiệm: gồm có kỹ thuật thủ công và kỹ thuật tự động. Một số kỹ thuật thử nghiệm chương trình Rà soát lỗi đặc trưng. Kỹ thuật kiểm tra logic. Kỹ thuật thử nghiệm thủ công. Kỹ thuật kiểm tra cú pháp bằng máy tính. Kỹ thuật thử nghiệm module. Kỹ thuật tích hợp. Thử nghiệm hệ thống. Kỹ thuật thử stub. f. Hoàn thiện tài liệu hệ thống Giới thiệu hệ thống. Hồ sơ thiết kế hệ thống. Tài liệu phần mềm, nguồn. Hướng dẫn sử dụng. Tra cứu. Sửa chữa hỏng hóc. Kế hoạch đào tạo người sử dụng. Các module đào tạo và kế hoạch hỗ trợ người sử dụng. Cài đặt và khai thác a. Các phương pháp cài đặt hệ thống Cài đặt trực tiếp: theo phương pháp này, người ta dừng hoạt động của hệ thống cũ và đưa hệ thống mới vào sử dụng. Cài đặt song song: với phương pháp này thì cả hai hệ thống mới và cũ đều cùng hoạt động, cho tới khi có thể quyết định dừng hệ thống cũ lại. Cài đặt thí điểm cục bộ: đây là phương pháp dung hòa giữa cài đặt trực tiếp và cài đặt song song. Cài đặt cục bộ chỉ thực hiện chuyển đổi từ hệ thống cũ sang hệ thống mới cục bộ tại một hoặc một vài bộ phận. Chuyển đổi theo giai đoạn : đây là phương pháp chuyển đổi từ HTTT cũ sang hệ thống mới một cách dần dần, bắt đầu bằng một hay một vài modul và sau đó là mở rộng dần việc chuyển đổi sang toàn bộ hệ thống mới. b. Lập kế hoạch chuyển đổi Trình bày lý do lựa chọn phương pháp áp dụng. Lập kế hoạch chi tiết. Thông qua lãnh đạo. c. Chuyển đổi dữ liệu Các kho dữ liệu cần thiết đã có theo đúng các đặc trưng thiết kế, không cần phải chuẩn bị gì. Các kho dữ liệu đã tồn tại nhưng không đầy đủ và cấu trúc chưa phù hợp phải nhập thêm những dữ liệu mới chưa có trên máy và trích các dữ liệu có cấu trúc chưa phù hợp từ các tệp hay từ các CSDL, sửa và ghi lại vào CSDL của hệ thống. Các kho dữ liệu hoàn toàn chưa tồn tại thì phải tạo ra. d. Đào tạo và hỗ trợ người sử dụng Đào tạo người sử dụng HTTT. Hỗ trợ người sử dụng HTTT. e. Bảo trì HTTT Quy trình bảo trì Thu nhận yêu cầu bảo trì: qua thư từ, đi thăm khách hàng. Chuyển đổi yêu cầu. Thiết kế. Triển khai thay đổi. Bốn cấp bảo trì Hiệu chỉnh. Thích nghi. Hoàn thiện. Dự phòng. Ước tính chi phí bảo trì Sự ổn định của nền kinh tế. Quy mô của hệ thống. Chất lượng phân tích và thiết kế. Chất lượng đội ngũ cán bộ bảo trì và hỗ trợ hệ thống. Thời gian bảo trì. Quản lý bảo trì Về quản trị nhân sự: có nhiều kiểu cấu trúc tổ chức bảo trì khác nhau. Nhóm bảo trì làm việc tách rời nhóm phát triển hệ thống. Nhóm xây dựng hệ thống cũng đảm đương luôn chức năng bảo trì. Người sử dụng cuối cùng tại các bộ phận chức năng sẽ đảm đương chức năng bảo trì. Về đo lường hiệu quả bảo trì hệ thống: cần phải đo những yếu tố sau số lượng lỗi, khoảng thời gian giữa các lỗi và kiểu lỗi. Về kiểm soát các yêu cầu bảo trì: cần xác định loại bảo trì. Về quản trị cấu hình: đảm bảo những thay đổi đã qua thẩm định mới được phép triển khai đối với hệ thống. f. Đánh giá sau cài đặt Đánh giá dự án: so sánh thời gian thực sự để có được hệ thống mới với thời gian dự kiến và xác định xem dự án có tuân thủ ngân sách đã xác định hay không. Việc này nhằm hai mục đích: quản lý nhân sự và rút kinh nghiệm cho việc quản lý các dự án thông tin về sau. Đánh giá hệ thống: xem xét hệ thống có đạt được các mục tiêu đã đề ra hay không. Điều này không thể thực hiện ngay sau khi cài đặt mà phải sau một thời gian khai thác nhất định. CHƯƠNG III PHÂN TÍCH, THIẾT KẾ HỆ THỐNG THÔNG TIN QUẢN LÝ THẺ TẠI NGÂN HÀNG VIBank 1. Thực trạng của công tác quản lý tại ngân hàng hiện nay 1.1 Các hoạt động chủ yếu của phòng đại lý phát triển thẻ Đại lý thanh toán thẻ  Dịch vụ Thanh toán thẻ là dịch vụ cho phép chủ thẻ sử dụng thẻ để thanh toán khi mua sắm hàng hoá hoặc tiêu dùng dịch vụ tại các điểm thanh tóan chấp nhận thẻ. Hiện nay dịch vụ thanh toán thẻ của VIB Bank chấp nhận thanh toán các thẻ sau:thẻ Mastercard, Visa, Diner, JCB, Amex, thẻ VIB Values, Connect 24 và các thẻ của các ngân hàng thuộc liên minh Vietcombank. Quy trình triển khai bao gồm: Đơn vị kinh doanh có nhu cầu được cung cấp dịch vụ thanh toán thẻ sẽ tiến hành các thủ tục đăng ký và ký hợp đồng dịch vụ với VIB Bank. VIB Bank sẽ tiến hành thẩm định và lắp đặt, hướng dẫn sử dụng thiết bị thanh toán thẻ tại các Đơn vị kinh doanh. Khách hàng đến mua sắm hàng hoá hoặc tiêu dùng dịch vụ tại Đơn vị kinh doanh sẽ xuất trình thẻ để thanh toán. Đơn vị kinh doanh tiến hành kiểm tra thẻ và quẹt thẻ thực hiện giao dịch thanh toán qua thẻ, sau đó sẽ giao hàng hoá - dịch vụ, hoá đơn và trả thẻ cho khách hàng. VIB Bank sẽ đối chiếu các giao dịch thanh toán tại Đơn vị kinh doanh (thông tin giao dịch truyền qua thiết bị đọc thẻ và các chứng từ hoá đơn giao dịch) với Ngân hàng phát hành và các Hiệp hội thẻ Quốc tế rồi tiến hành hạch toán số tiền giao dịch vào Tài khoản của Đơn vị mở tại VIB Bank sau khi trừ đi các khoản phí dịch vụ và thuế. Đại lý tư vấn thẻ Hoạt động kinh doanh thông qua đại lý cá nhân bắt đầu từ tháng 5 năm 2006, cho đến nay đã có hơn 400 người tham gia. Hoạt động trong lĩnh vực kinh doanh dịch vụ thẻ của Ngân hàng Quốc Tế  Đối tượng tham gia: từ sinh viên năm thứ 2 trở lên, mới tốt nghiệp hoặc người đã có nhiều kinh nghiệm. Đây là những cá nhân năng động, nhiệt tình, ham học hỏi, yêu thích công việc nhiều thử thách và có thể chịu được áp lực.  Các hoạt động tập thể: mỗi tháng một lần, Ngân hàng tổ chức tổng kết hoạt động kinh doanh của đại lý trong tháng, tuyên dương, trao bằng khen và khen thưởng đối với các cá nhân và nhóm xuất sắc. Các hoạt động này không chỉ giúp các đại lý gắn bó, đoàn kết hơn mà còn thể hiện sự quan tâm của Ngân hàng đến hoạt động đại lý. Đối với cá nhân mỗi đại lý, hoạt động này chính là những cột mốc trong tiến trình phát triển nghề nghiệp. 1.2 Thực trạng tin học hóa tại Ngân hàng VIBank Tin học hóa là đang là một điều kiện tất yếu để tồn tại và phát triển đối với mỗi ngân hàng trong nền kinh tế hiện nay. Trước đây, khi quy mô kinh doanh còn nhỏ hẹp thì việc sử dụng tin học hóa trong kinh doanh là chưa cần thiết. Hiện nay, quy mô kinh doanh tăng lên rất nhiều lần với số lượng khách hàng đông đảo, số thẻ ATM được phát hành và sử dụng đã tăng lên rất nhiều. Vì thế, tại ngân hàng VIBank đã có sự tin học hóa mạnh mẽ trong kinh doanh. Mỗi phòng ban đều có hệ thống máy vi tính hiện đại, hệ thống được bảo mật đối với những người không phải là nhân viên. Tin học hóa còn được ứng dụng trong việc sản xuất và cung cấp các sản phẩm thẻ như: thẻ ghi nợ VIB Values với độ an toàn cao với logo của Ngân hàng Quốc Tế được in chìm và có thể nhìn thấy khi chiếu tia UV. Đặc biệt, VIB Bank là một trong số ít ngân hàng đầu tiên sử dụng hologram trên thẻ (chi tiết nhận dạng) do nhà sản xuất hàng đầu thế giới De La Rue cung cấp với đặc tính chống giả mạo thông thường chỉ áp dụng đối với các loại thẻ Visa, MasterCard… 2. Phân tích Hệ thống thông tin cho Ngân hàng VIBank 2.1 Những yêu cầu chính của chương trình Chưong trình quản lý thẻ ATM phải đáp ứng được những yêu cầu của việc phát hành và quản lý thẻ tại ngân hàng như: Chương trình phải quản lý được từng người sử dụng: mật khẩu đăng nhập, khả năng thay đổi mật khẩu và lịch sử truy cập của người dùng. Chương trình cho phép thực hiện đầy đủ các nghiệp vụ về quản lý thẻ như: Cập nhật các giao dịch liên quan đến thẻ ATM như rút tiền, gửi tiền, số lần giao dịch trong ngày,… Các danh mục Cho phép tìm kiếm một cách nhanh chóng và dễ dàng như nhân viên, số tài khoản, khách hàng. Kết xuất ra các báo cáo cụ thể phục vụ cho việc phân tích tình hình kinh doanh. 2.2 Phân tích sơ đồ luồng thông tin (IFD) a. Sơ đồ IFD đăng nhập hê thống (trang sau) b. Sơ đồ IFD cập nhật dữ liệu hệ thống c. Sơ đồ IFD thực hiện tìm kiếm dữ liệu d. Sơ đồ IFD làm báo cáo 2.3 Phân tích sơ đồ luồng dữ liệu (DFD) a. Sơ đồ ngữ cảnh Các báo cáo Yêu cầu được chuyển HỆ THỐNG THÔNG TIN QUẢN LÝ THẺ ATM Ngân hàng khác Lãnh đạo Ngân hàng khác Khách hàng tiền vào tài khoản ngân hàng Yêu cầu báo cáo Ngân hàng chấp nhận Yêu cầu giao dịch Kết quả giao dịch Yêu cầu được chuyển tiền từ tài khoản ngân hàng sang Yêu cầu được chấp nhận Sơ đồ luồng dữ liệu mức 0 Yêu cầu tìm kiếm Hồ sơ tổng hợp Kết quả tìm kiếm 1.0 Quản lý DMTĐ 4.0 Báo cáo 3.0 Tìm kiếm Khách hàng Lãnh đạo 2.0 Xử lý giao dịch Ngân hàng khác Các thông tin quản lý chung Yêu cầu giao dịch Chấp nhận giao dịch Kết quả giao dịch Yêu cầu giao dịch Các thông tin cần thiết Yêu cầu báo cáo Các báo cáo c. Sơ đồ luồng dữ liệu mức 1 Sơ đồ luồng dữ liệu mức 1 của xử lý giao dịch Hồ sơ chưa kiêm tra Yêu cầu giao dịch Khách hàng 2.1 Xử lý giao dịch 2.2 Kiểm duyệt Hồ Sơ 2.3 Lưu thông tin khách hàng 2.4 Lưu thông tin tài khoản Lãnhđạo 4.0 Kết quả giao dịch Hồ sơ đã kiêm tra CSDL Hệ thống Tổng hợp báocáo Báo cáo thống kê Sơ đồ luồng dữ liệu mức 1 báo cáo Yêu cầu báo cáo Lãnh đạo 3.1 Truy xuất dữ liệu 3.2 Tính toán tổng hợp 3.3 Lên báo cáo Hồ sơ khách hàng Báo cáo Sơ đồ luồng dữ liệu mức 1 tìm kiếm Tiêu chí tìm kiếm Yêu cầu tìm kiếm Kết quả tìm kiếm Kết quả tìm kiếm 3.0 Tìm kiếm Khách hàng Lãnh đạo 3. Thiết kế Hệ thống thông tin quản lý thẻ cho Ngân hàng VIBank 3.1 Thiết kế cơ sở dữ liệu 3.1.1 Thiết kế các bảng Bảng danh mục chi nhánh Tên trường Kiểu dữ liệu Mô tả Kiểu khóa machinhanh text Mã chi nhánh Khóa chính kihieu text Kí hiệu tenchinhanh text Tên chi nhánh diachi text Địa chỉ dienthoai text Điện thoại Bảng danh mục công an Tên trường Kiểu dữ liệu Mô tả Kiểu khóa Maca Text mã của công an tỉnh thành phố Khóa chính tenca Text tên công an tỉnh thành phố Bảng danh mục công ty liên kết sử dụng thẻ Tên trường Kiểu dữ liệu Mô tả Kiểu khóa macongty Text Mã công ty Khóa chính tencongty Text Tên công ty diachi Text Địa chỉ dienthoai Text Điện thoại email Text Email diengiai Text Diễn giải tinhtrang Text Tình trạng soluongnhanviensudungthe Text Số lượng nhân viên sử dụng thẻ sotaikhoan Text Số tài khoản taikhoanthanhtoan Text Tài khoản thanh toán taikhoan Text Tài khoản Bảng danh mục dân tộc Tên trường Kiểu dữ liệu Mô tả Kiểu khóa madantoc Text Mã dân tộc Khóa chính tendantoc Text Tên dân tộc Bảng danh mục giới hạn Tên trường Kiểu dữ liệu Mô tả Kiểu khóa magioihan Text Mã giới hạn Khóa chính solanrut Number Số lần rút sotienrut Number Số tiền rút tongtienrut Number Tổng tiền rút ngayapdung Date/Time Ngày áp dụng Bảng danh mục hôn nhân Tên trường Kiểu dữ liệu Mô tả Kiểu khóa matthonnhan Text Mã tình trạng hôn nhân Khóa chính tentthonnhan Text Tên tình trạng hôn nhân Bảng danh mục kiểu thẻ Tên trường Kiểu dữ liệu Mô tả Kiểu khóa makieuthe Text Mã kiểu thẻ Khóa chính tenkieuthe Text Tên kiểu thẻ ghichu Text Ghi chú Bảng danh mục lãi suất Tên trường Kiểu dữ liệu Mô tả Kiểu khóa malaisuat Text Mã lãi suất Khóa chính tenlaisuat Text Tên lãi suất giatrilaisuat Text Gía trị lãi suất Bảng danh mục loại khách hàng Tên trường Kiểu dữ liệu Mô tả Kiểu khóa maloaikhachhang Text Mã loại khách hàng khóa chính tenloaikhachhang Text Tên loại khách hàng chugiai Text Chú giải Bảng danh mục ngân hàng Tên trường Kiểu dữ liệu Mô tả Kiểu khóa tennganhang Text Tên ngân hàng Khóa chính diachi Text Địa chỉ Bảng danh mục người sử dụng Tên trường Kiểu dữ liệu Mô tả Kiểu khóa User Text Người dùng Khóa chính Password Text Mật khẩu name Text Tên type Text Kiểu Bảng danh mục nhân viên Tên trường Kiểu dữ liệu Mô tả Kiểu khóa manhanvien Text Mã nhân viên Khóa chính tennhanvien Text Tên nhân viên gioitinh Text Giới tính ngaysinh Date/Time Ngày sinh diachi Text Địa chỉ dienthoai Text Điện thoại user Text Người dùng taikhoan Text Tài khoản Bảng danh mục tiền tệ và tỉ giá Tên trường Kiểu dữ liệu Mô tả Kiểu khóa matiente Text Mã tiền tệ Khóa chính kihieu Currency Kí hiệu tenloaitien Text Tên loại tiền tigia Number Tỉ giá Bảng danh mục tôn giáo Tên trường Kiểu dữ liệu Mô tả Kiểu khóa matongiao Text Mã tôn giáo Khóa chính tentongiao Text Tên tôn giáo Bảng danh mục văn hóa Tên trường Kiểu dữ liệu Mô tả Kiểu khóa matdvanhoa Text Mã trình độ văn hóa Khóa chính tentdvanhoa Text Tên trình độ văn hóa Bảng khách hàng Tên trường Kiểu dữ liệu Mô tả Kiểu khóa makh Text mã khách hàng Khóa chính hoten Text tên khách hàng ngaysinh Date/Time ngày sinh gioitinh Text giới tính socmt Text số chứng minh thư ngaycap Date/Time ngày cấp maca Text mã công an diachi Text địa chỉ dienthoai Number điện thoại madantoc Text mã dân tộc matongiao Text mã tôn giáo matdvanhoa Text mã trình độ văn hoá matthonnhan Text mã tình trạng hôn nhân maloaikhachhang Text Mã loại khách hàng macongty Text Mã công ty Bảng loại phát hành Tên trường Kiểu dữ liệu Mô tả Kiểu khóa loaiphathanh Text Loại phát hành Khóa chính lephi Number Lệ phí ngayapdung Date/Time Ngày áp dụng Bảng lịch sử đăng nhập Tên trường Kiểu dữ liệu Mô tả Kiểu khóa thutusudung AutoNumber Thứ tự sử dụng Khóa chính tennguoisudung Text Tên người sử dụng thoidiem Date/Time Thời điểm Bảng phiếu lĩnh tiền Tên trường Kiểu dữ liệu Mô tả Kiểu khóa sopl Text Số phiếu lĩnh Khóa chính ngaylinh Date/Time Ngày lĩnh makh Text Mã khách hàng diachi Text Địa chỉ taikhoan Text Tài khoản sotien Number Số tiền diengiai Text Diễn giải manhanvien Text Mã nhân viên tongsolinh Number Tổng số lĩnh Bảng phiếu nộp tiền Tên trường Kiểu dữ liệu Mô tả Kiểu khóa sopnt Text số phiếu thu Khóa chính ngaynop Date/Time ngày viết phiếu lĩnh tiền makh Text người nộp tiền vào tài khoản diachi Text địa chỉ người nộp taikhoan Text tài khoản nộp tiền sotien Number số tiền nộp diengiai Text chú thích khoản nộp manhanvien Text nhân viên giao dịch tongsolinh Number Tổng số lĩnh Bảng tài khoản Tên trường Kiểu dữ liệu Mô tả Kiểu khóa taikhoan Text tài khoản Khóa chính makh Text mã khách hàng ngaymo Date/Time ngày mở tài khoản matiengui Text tên loại tiền gửi malaisuat Text loại tiền gửi sodu Number số dư trong tài khoản hiện tại Bảng tệp tiền gửi Tên trường Kiểu dữ liệu Mô tả Kiểu khóa matiengui Text Mã tiền gửi Khóa chính tentiengui Text Tên tiền gửi matiente Text Mã tiền tệ Bảng thẻ ATM Tên trường Kiểu dữ liệu Mô tả Kiểu khóa sothe Text số thẻ Khóa chính taikhoan Text tài khoản loaiphathanh Text loại phát hành makieuthe Text kiểu thẻ ngaynopdon Date/Time ngày đề nghị phat hành ngayhieuluc Date/Time ngày thẻ có hiệu lực ngayhuy Date/Time ngày thẻ hết hạn sử dụng matkhau Text mật khẩu của thẻ xacnhanlaimatkhau Text xác nhận lại mật khẩu của thẻ themat/trom Yes/No báo thẻ mất trộm thetamngung Yes/No thẻ tạm ngưng magiohan Text mã giới hạn rút tiền makh Text mã khách hàng của thẻ machinhanh Text Mã chi nhánh 3.1.2 Sơ đồ mối quan hệ 3.2 Đề xuất các giải thuật 3.1.1 Thuật toán nhập dữ liệu Mở tệp dữ liệu Tạo một bản ghi trắng Sửa dữ liệu? Nhập tiếp? Nhập dữ liệu Đóng tệp Kết thúc có có Bắt đầu không không 3.1.2 Thuật toán xóa dữ liệu Chọn dữ liệu cần xóa Xóa bản ghi Kiểm tra dữ liệu? Hiện bản ghi cần xóa Xóa tiếp Đóng tệp Kết thúc có không có không Bắt đầu 3.1.3 Thuật toán sửa dữ liệu Nhập mã cần sửa Sửa bản ghi Kiểm tra dữ liệu? Hiện bản ghi cần sửa Sửa tiếp Đóng tệp Kết thúc có không có không Bắt đầu 3.1.4 Thuật toán tìm kiếm Nhập điều kiện tìm kiếm Hiện thông báo Kiểm tra dữ liệu? Hiện bản ghi cần tìm Tìm tiếp Đóng tệp Kết thúc có không có không Bắt đầu 3.3 Thiết kế các giao diện a. kiến trúc chương trình CHƯƠNG TRÌNH QUẢN LÝ THẺ ATM Hệ Thống Quản Lý chung Tìm Kiếm Báo cáo Trợ Giúp Thay đổi người sử dụng Thay đổi mật khẩu Thông tin ngân hàng Lịch sử đăng nhập Quản lý người dùng Thoát Danh mục người dùng Hồ sơ Giao dịch Danh mục Tìm kiếm nhân viên Tìm kiếm tài khoản Tìm kiếm khách hàng Giới thiệu chương trình Tác giả Hồ sơ tài khoản Hồ sơ thẻ Danh mục nhân viên Danh mục khách hàng Các giao diện Form chính Form đăng nhập hệ thống Form thay đổi mật khẩu Form thông tin ngân hàng Form lịch sử đăng nhập Form quản lý người dùng Form hồ sơ thẻ ATM Form hồ sơ khách hàng Form hồ sơ nhân viên Form tài khoản Form danh mục dân tộc Form danh mục lãi suất Form danh mục loại khách hàng Form danh mục tệp tiền gửi Form danh mục tiền tệ Form danh mục văn hóa Form danh mục công an Form danh mục công ty liên kết Form danh mục kiểu thẻ Form danh mục tôn giáo Form tìm kiếm nhân viên Form tìm kiếm tài khoản Form tìm kiếm khách hàng Form tác giả Báo cáo danh sách nhân viên Báo cáo trình độ văn hóa KẾT LUẬN Qua quá trình nghiên cứu đề tài, phân tích, thiết kế và xây dựng chương trình “Quản lý thẻ ATM”, chương trình đã đạt được các kết quả sau: Đáp ứng được yêu cầu về việc cập nhật nhanh chóng và chính xác các giao dịch thẻ ATM.. Đáp ứng được các yêu cầu nghiệp vụ đề ra: lập mới hồ sơ, chuyển giao hồ sơ, chỉnh sửa hồ sơ, báo cáo giao dịch,… Chương trình có giao diện rõ ràng, dễ sử dụng. Chương trình cho phép dễ dàng tìm kiếm hồ sơ nhân viên, số tài khoản, khách hàng theo nhiều điều kiện lọc tìm. Chương trình cho phép dễ dàng cập nhật các danh mục từ điển hệ thống, … Chương trình cho phép in các báo cáo cơ bản: báo cáo giao dịch,… Tuy nhiên, nghiên cứu đề tài có hạn và trình độ bản thân còn nhiều hạn chế nên chương trình không thể tránh khỏi những thiếu sót. Trong thời gian tới, hướng phát triển của đề tài như sau: Các giao dịch sẽ được cập nhật cụ thể cho từng máy ATM. Xây dựng ngôn ngữ mới như tiếng Anh để phù hợp với nhiều người sử dụng hơn. Chương trình sẽ bổ sung thêm các báo cáo chi tiết hơn để tiện cho quá trình phân tích kinh doanh. Trên đây là những gì đạt được của đề tài và những đề xuất phát triển chương trình trong thời gian tới. Em rất mong được sự hướng dẫn, chỉ bảo của các thầy, các cô và tất cả các bạn để đề tài có thể ứng dụng tốt hơn nữa trong thực tế. Cuối cùng, em xin được cảm ơn thầy giáo hướng dẫn GVC Đoàn Quốc Tuấn, cán bộ Nguyễn Chí Ánh Hoạt-trưởng phòng phát triển đại lý Ngân hàng Vibank chi nhánh Quang Trung, Hà Nội cùng toàn thể các anh chị trong ngân hàng đã tận tình hướng dẫn, giúp đỡ em trong quá trình nghiên cứu và thực hiện đề tài. Em xin chân thành cảm ơn Một số phụ lục chương trình TS Trương Văn Tú – TS Trần Thị Song Minh (2000), “ Giáo trình Hệ thống thông tin quản lý “, NXB Thống Kê, Hà Nôi. ThS Trần Công Uẩn (2005), “ Giáo trình Cơ sở dữ liệu 1, 2 “, NXB Thống Kê, Hà Nội. KS Đinh Xuân Lâm (2004), “ Những bài thực hành cơ sở dữ liệu Visual Basic cơ bản”, NXB Thống Kê, Hà Nội. Nguyễn Thị Ngọc Mai (2002), “ Microsoft Visual Basic 6.0 và lập trình cơ sở dữ liệu “, NXB Thống Kê, Hà Nội. Một số code chương trình Form main Option Explicit Private Sub Form_Activate() If FirstTime = True Then FirstTime = False frmSplash.Show vbModal frmLogin.Show vbModal End If End Sub Private Sub Form_Initialize() FirstTime = True End Sub Private Sub Form_Load() Set Conn = New ADODB.Connection gConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source = " & App.Path & "\data\thang.mdb;" & _ "Persist Security Info = False" Conn.CursorLocation = adUseClient Conn.Open gConnectionString mnuChucvu.Enabled = False mnuGiaovien.Enabled = False mnuGiaovien1.Enabled = False mnuHelp.Enabled = True mnuHethong.Enabled = True mnuHethong1.Enabled = False mnuHethong2.Enabled = False mnuHethong3.Enabled = True mnuHethong4.Enabled = False mnuHethong5.Enabled = False mnuHocsinh.Enabled = False mnuHocsinh1.Enabled = False mnuHsktkl.Enabled = False mnuKTKL111.Enabled = False mnuQlchung.Enabled = True mnuQlchung1.Enabled = False mnuQlchung2.Enabled = False mnuQlchung3.Enabled = False mnuTacgia.Enabled = True mnuThoat.Enabled = True mnuTimkiem.Enabled = True mnuTimkiemGV.Enabled = False mnuTimkiemHS.Enabled = False mnuTrinhdo.Enabled = False Toolbar1.Buttons.Item(4).Enabled = False Toolbar1.Buttons.Item(6).Enabled = False tentruong = GetFieldValues("Select tennganhang from danhmucnganhang") frmMain.Caption = tentruong & " - " & "Chuong trinh quan ly the ATM" WindowsXPC1.InitSubClassing End Sub Private Sub mnuChucvu_Click() frmcongan.Show vbModal End Sub Private Sub mnudanhmucchinhanh_Click() frmchinhanh.Show vbModal End Sub Private Sub mnudanhmuccongan_Click() frmcongan.Show vbModal End Sub Private Sub mnudanhmuccongtylienket_Click() frmdanhmuccongtylienketsudungthe.Show vbModal End Sub Private Sub mnudanhmucdantoc_Click() frmdantoc.Show vbModal End Sub Private Sub mnudanhmuckieuthe_Click() frmdanhmuckieuthe.Show vbModal End Sub Private Sub mnudanhmuclaisuat_Click() frmlaisuat1.Show vbModal End Sub Private Sub mnudanhmucloaikhachhang_Click() frmdanhmucloaikhachhang.Show vbModal End Sub Private Sub mnudanhmucloaiphathanh_Click() frmloaiphathanh.Show vbModal End Sub Private Sub mnudanhmucteptengui_Click() frmtiengui.Show vbModal End Sub Private Sub mnudanhmuctiente_Click() frmdanhmuctientevatigia.Show vbModal End Sub Private Sub mnudanhmuctongiao_Click() frmtongiao.Show vbModal End Sub Private Sub mnudanhmucvanhoa_Click() frmHocvan.Show vbModal End Sub Private Sub mnudmkh_Click() Form2.Show End Sub Private Sub mnudmnv_Click() Form1.Show End Sub Private Sub mnuGiaovien1_Click() frmtheATM.Show vbModal End Sub Private Sub mnuGioithieu_Click() frmSplash.Show vbModal End Sub Private Sub mnuHethong1_Click() frmQuanlynguoidung.Show vbModal End Sub Private Sub mnuHethong2_Click() frmLichsuDN.Show vbModal End Sub Private Sub mnuHethong3_Click() mnuChucvu.Enabled = False mnuGiaovien.Enabled = False mnuGiaovien1.Enabled = False mnuHelp.Enabled = True mnuHethong.Enabled = True mnuHethong1.Enabled = False mnuHethong2.Enabled = False mnuHethong3.Enabled = True mnuHethong4.Enabled = False mnuHethong5.Enabled = False mnuHocsinh.Enabled = False mnuHocsinh1.Enabled = False mnuHsktkl.Enabled = False mnuKTKL111.Enabled = False mnuQlchung.Enabled = True mnuQlchung1.Enabled = False mnuQlchung2.Enabled = False mnuQlchung3.Enabled = False mnuTacgia.Enabled = True mnuThoat.Enabled = True mnuTimkiem.Enabled = True mnuTimkiemGV.Enabled = False mnuTimkiemHS.Enabled = False mnuTrinhdo.Enabled = False Toolbar1.Buttons.Item(4).Enabled = False Toolbar1.Buttons.Item(6).Enabled = False frmLogin.Show vbModal End Sub Private Sub mnuHethong4_Click() frmThongtinnganhang.Show vbModal End Sub Private Sub mnuHethong5_Click() frmThaydoimatkhau.Show vbModal End Sub Private Sub mnuHocsinh1_Click() frmkhachhang2.Show vbModal End Sub Private Sub mnuHsktkl_Click() frmtaikhoan.Show vbModal End Sub Private Sub mnuhst_Click() Form4.Show End Sub Private Sub mnuhstk_Click() Form3.Show End Sub Private Sub mnuQlchung1_Click() frmQuanlynguoidung.Show vbModal End Sub Private Sub mnuQlchung2_Click() frmkhachhang2.Show vbModal End Sub Private Sub mnuTacgia_Click() frmTacgia.Show vbModal End Sub Private Sub mnuThoat_Click() If MsgBox("B¹n cã muèn tho¸t kh«ng? ", vbYesNo + vbQuestion, "Thong bao") = vbYes Then End End If End Sub Private Sub mnuTimkiemGV_Click() frmTimkiemtk.Show vbModal End Sub Private Sub mnuTimkiemHS_Click() frmTimkiemhocsinh.Show vbModal End Sub Private Sub mnuTimkiemKTKL_Click() frmTimkiemKH.Show vbModal End Sub Private Sub mnuTrinhdo_Click() frmnhanvien.Show vbModal End Sub Private Sub Form_Unload(Cancel As Integer) WindowsXPC1.EndWinXPCSubClassing End Sub Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) Select Case Button.Index Case "3" Call mnuHethong3_Click Case "4" frmLichsuDN.Show vbModal Case "6" frmnhanvien.Show vbModal Case "7" frmkhachhang2.Show vbModal Case "8" frmtaikhoan.Show vbModal Case "10" frmTimkiemKH.Show vbModal Case "11" frmTimkiemhocsinh.Show vbModal Case "13" frmThongtinnganhang.Show vbModal End Select End Sub mnuTimkiem.Enabled = True mnuTimkiemGV.Enabled = False mnuTimkiemHS.Enabled = False mnuTrinhdo.Enabled = False Toolbar1.Buttons.Item(4).Enabled = False Toolbar1.Buttons.Item(6).Enabled = False tentruong = GetFieldValues("Select tennganhang from danhmucnganhang") frmMain.Caption = tentruong & " - " & "Chuong trinh quan ly the ATM" 'StatusBar1.Panels.Item(3).Enabled = True 'StatusBar1.Panels.Item(3).Visible = True 'StatusBar1.Panels.Item(3).Text = nguoidunghienthoi WindowsXPC1.InitSubClassing End Sub Private Sub mnuChucvu_Click() frmcongan.Show vbModal End Sub Private Sub mnudanhmucchinhanh_Click() frmchinhanh.Show vbModal End Sub Private Sub mnudanhmuccongan_Click() frmcongan.Show vbModal End Sub Private Sub mnudanhmuccongtylienket_Click() frmdanhmuccongtylienketsudungthe.Show vbModal End Sub Private Sub mnudanhmucdantoc_Click() frmdantoc.Show vbModal End Sub Private Sub mnudanhmuckieuthe_Click() frmdanhmuckieuthe.Show vbModal End Sub Private Sub mnudanhmuclaisuat_Click() frmlaisuat1.Show vbModal End Sub Private Sub mnudanhmucloaikhachhang_Click() frmdanhmucloaikhachhang.Show vbModal End Sub Private Sub mnudanhmucloaiphathanh_Click() frmloaiphathanh.Show vbModal End Sub Private Sub mnudanhmucteptengui_Click() frmtiengui.Show vbModal End Sub Private Sub mnudanhmuctiente_Click() frmdanhmuctientevatigia.Show vbModal End Sub Private Sub mnudanhmuctongiao_Click() frmtongiao.Show vbModal End Sub Private Sub mnudanhmucvanhoa_Click() frmHocvan.Show vbModal End Sub Private Sub mnudmkh_Click() Form2.Show End Sub Private Sub mnudmnv_Click() Form1.Show End Sub Private Sub mnuGiaovien1_Click() frmtheATM.Show vbModal End Sub Private Sub mnuGioithieu_Click() frmSplash.Show vbModal End Sub Private Sub mnuHethong1_Click() frmQuanlynguoidung.Show vbModal End Sub Private Sub mnuHethong2_Click() frmLichsuDN.Show vbModal End Sub Private Sub mnuHethong3_Click() mnuChucvu.Enabled = False 'mnuDiem.Enabled = False mnuGiaovien.Enabled = False mnuGiaovien1.Enabled = False mnuHelp.Enabled = True mnuHethong.Enabled = True mnuHethong1.Enabled = False mnuHethong2.Enabled = False mnuHethong3.Enabled = True mnuHethong4.Enabled = False mnuHethong5.Enabled = False mnuHocsinh.Enabled = False mnuHocsinh1.Enabled = False mnuHsktkl.Enabled = False 'mnuKTKL.Enabled = False mnuKTKL111.Enabled = False mnuQlchung.Enabled = True mnuQlchung1.Enabled = False mnuQlchung2.Enabled = False mnuQlchung3.Enabled = False mnuTacgia.Enabled = True mnuThoat.Enabled = True mnuTimkiem.Enabled = True mnuTimkiemGV.Enabled = False mnuTimkiemHS.Enabled = False mnuTrinhdo.Enabled = False Toolbar1.Buttons.Item(4).Enabled = False Toolbar1.Buttons.Item(6).Enabled = False frmLogin.Show vbModal End Sub Private Sub mnuHethong4_Click() frmThongtinnganhang.Show vbModal End Sub Private Sub mnuHethong5_Click() frmThaydoimatkhau.Show vbModal End Sub Private Sub mnuHocsinh1_Click() frmkhachhang2.Show vbModal End Sub Private Sub mnuHsktkl_Click() frmtaikhoan.Show vbModal End Sub Private Sub mnuhst_Click() Form4.Show End Sub Private Sub mnuhstk_Click() Form3.Show End Sub Private Sub mnuQlchung1_Click() frmQuanlynguoidung.Show vbModal End Sub Private Sub mnuQlchung2_Click() frmkhachhang2.Show vbModal End Sub Private Sub mnuTacgia_Click() frmTacgia.Show vbModal End Sub Private Sub mnuThoat_Click() If MsgBox("B¹n cã muèn tho¸t kh«ng? ", vbYesNo + vbQuestion, "Thong bao") = vbYes Then End End If End Sub Private Sub mnuTimkiemGV_Click() frmTimkiemtk.Show vbModal End Sub Private Sub mnuTimkiemHS_Click() frmTimkiemhocsinh.Show vbModal End Sub Private Sub mnuTimkiemKTKL_Click() frmTimkiemKH.Show vbModal End Sub Private Sub mnuTrinhdo_Click() frmnhanvien.Show vbModal End Sub Private Sub Form_Unload(Cancel As Integer) WindowsXPC1.EndWinXPCSubClassing End Sub Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) Select Case Button.Index Case "3" Call mnuHethong3_Click Case "4" frmLichsuDN.Show vbModal Case "6" frmnhanvien.Show vbModal Case "7" frmkhachhang2.Show vbModal Case "8" frmtaikhoan.Show vbModal Case "10" frmTimkiemKH.Show vbModal Case "11" frmTimkiemhocsinh.Show vbModal Case "13" frmThongtinnganhang.Show vbModal End Select End Sub Form thẻ ATM Option Explicit Dim AddingHocsinh As Boolean Dim rsHocsinh As ADODB.Recordset Private Sub cbotdvanhoa_Change() Call Scroll_Combo(cbotdvanhoa) End Sub Private Sub cbotthonnhan_Change() Call Scroll_Combo(cbotthonnhan) End Sub Private Sub Command1_Click() frmtaikhoan.Show vbModal Call FillCombo("Select taikhoan from taikhoan order by taikhoan", cboMalop) End Sub Private Sub Command2_Click() frmkhachhang2.Show vbModal Call FillCombo("Select makh from khachhang order by makh", cboMachucvu) End Sub Private Sub Command3_Click() frmtiengui.Show vbModal Call FillCombo("Select matiengui from teptiengui order by matiengui", cbotthonnhan) End Sub Private Sub Command4_Click() frmlaisuat1.Show vbModal Call FillCombo("Select malaisuat from danhmuclaisuat order by malaisuat", cbotdvanhoa) End Sub Private Sub Command5_Click() frmdanhmuckieuthe.Show vbModal Call FillCombo("Select tenkieuthe from danhmuckieuthe order by tenkieuthe", cbocongan) End Sub Private Sub Command6_Click() frmloaiphathanh.Show vbModal Call FillCombo("Select loaiphathanh from loaiphathanh order by loaiphathanh", Cbotencongty) End Sub Private Sub Command7_Click() frmdanhmucgioihan.Show vbModal Call FillCombo("Select magioihan from danhmucgioihan order by magioihan", Cbotenloaikhachhang) End Sub Private Sub Command8_Click() Dim sql As String If (Text2.Text = "") And (Text1.Text = "") Then MsgBox "B¹n ph¶i chän tiªu chÝ ®Ó t×m kiÕm ", , "Thong bao" Exit Sub End If sql = "Select * from theatm where True" If Text2.Text "" Then sql = sql & " and sothe= '" & Text1.Text & "'" End If If Text1.Text "" Then sql = sql & " and taikhoan = '" & Text2.Text & "'" End If Set rsHocsinh = New ADODB.Recordset rsHocsinh.Open sql, Conn, adOpenStatic, adLockOptimistic If rsHocsinh.RecordCount = 0 Then MsgBox "Kh«ng t×m thÊy b¶n ghi nµo tho¶ m·n ®iÒu kiÖn ", , "Thong bao" End If Set Grid1.DataSource = rsHocsinh 'Call SetGrid End Sub Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) MsgBox KeyCode End Sub Private Sub Form_Load() Set rsHocsinh = New ADODB.Recordset rsHocsinh.Open "Select * from theATM", Conn, adOpenStatic, adLockOptimistic Set Grid1.DataSource = rsHocsinh Call CenterMyForm(Me) Call FillCombo("Select taikhoan from taikhoan order by taikhoan", cboMalop) Call FillCombo("Select makh from khachhang order by makh", cboMachucvu) Call FillCombo("Select matiengui from teptiengui order by matiengui", cbotthonnhan) Call FillCombo("Select malaisuat from danhmuclaisuat order by malaisuat", cbotdvanhoa) Call FillCombo("Select magioihan from danhmucgioihan order by magioihan", Cbotenloaikhachhang) Call FillCombo("Select loaiphathanh from loaiphathanh order by loaiphathanh", Cbotencongty) Call FillCombo("Select tenkieuthe from danhmuckieuthe order by tenkieuthe", cbocongan) AddingHocsinh = False lblSua.Visible = False txtMahocsinh.Enabled = False cmdGhilai.Enabled = False cmdBoqua.Enabled = False cmdKetiep.Enabled = True cmdQuaylui.Enabled = True WindowsXPC1.InitSubClassing End Sub Private Sub cbomalop_Change() Call Scroll_Combo(cboMalop) End Sub Private Sub cboMachucvu_Change() Call Scroll_Combo(cboMachucvu) End Sub Private Sub cmdBoqua_Click() AddingHocsinh = False Call ResetValues cmdBoqua.Enabled = False cmdThemmoi.Enabled = True cmdGhilai.Enabled = False cmdXoa.Enabled = True cmdQuaylui.Enabled = True cmdKetiep.Enabled = True Call DisplayData txtMahocsinh.Enabled = False End Sub Private Sub Cmddong_Click() If AddingHocsinh Then If MsgBox("B¹n muèn ghi l¹i b¶n ghi võa nhËp kh«ng? ", vbYesNo + vbInformation, "Thong bao") = vbYes Then Call Cmdghilai_Click Exit Sub End If End If AddingHocsinh = False Unload Me End Sub Private Sub Cmdghilai_Click() On Error Resume Next Dim s As String If Len(Trim(txtMahocsinh.Text)) = 0 Then MsgBox "B¹n h·y nhËp sè thÎ ", vbInformation, "Thong bao" txtMahocsinh.SetFocus Exit Sub End If If rsHocsinh.RecordCount 0 Then s = "Select sothe from theATM where sothe='" & Trim(txtMahocsinh.Text) & "'" If CheckKey(s) And AddingHocsinh Then MsgBox "sè thÎ nµy ®· cã. B¹n h·y nhËp e«s thÎ kh¸c ", vbOKOnly, "Thong bao" txtMahocsinh.SetFocus txtMahocsinh.Text = "" Exit Sub End If End If If Len(Trim(txtTenhocsinh.Text)) = 0 Then MsgBox "B¹n h·y nhËp mËt khÈu ", vbInformation, "Thong bao" txtTenhocsinh.SetFocus Exit Sub End If If Len(Trim(cboMalop.Text)) = 0 Then MsgBox "B¹n h·y nhËp tµi kho¶n ", vbInformation, "Thong bao" cboMalop.SetFocus Exit Sub End If If Len(Trim(cboMachucvu.Text)) = 0 Then MsgBox "B¹n h·y nhËp tªÉnm kh¸ch hµng ", vbInformation, "Thong bao" cboMachucvu.SetFocus Exit Sub End If If Len(Trim(cbotthonnhan.Text)) = 0 Then MsgBox "B¹n h·y nhËÉnm tiÒn göi ", vbInformation, "Thong bao" cboMachucvu.SetFocus Exit Sub End If If Len(Trim(cbotdvanhoa.Text)) = 0 Then MsgBox "B¹n h·y nhËp l·i suÊt ", vbInformation, "Thong bao" cboMachucvu.SetFocus Exit Sub End If If Len(Trim(cbocongan.Text)) = 0 Then MsgBox "B¹n h·y nhËp tªn kiÓu thÎ ", vbInformation, "Thong bao" cbocongan.SetFocus Exit Sub End If If Len(Trim(Cbotencongty.Text)) = 0 Then MsgBox "B¹n h·y nhËp lo¹i ph¸t hµnh ", vbInformation, "Thong bao" Cbotencongty.SetFocus Exit Sub End If If Len(Trim(Cbotenloaikhachhang.Text)) = 0 Then MsgBox "B¹n h·y nhËÉnm giãi h¹n ", vbInformation, "Thong bao" Cbotenloaikhachhang.SetFocus Exit Sub End If If mskNgaysinh.Text = "__/__/__" Then MsgBox "B¹n h·y nhËp ngµy nép ®¬n ", vbInformation, "Thong bao" mskNgaysinh.SetFocus Exit Sub End If If Not IsDate(mskNgaysinh.Text) Then MsgBox "B¹n h·y nhËp ngayf nép ®¬n ", vbInformation, "Thong bao" mskNgaysinh.SetFocus mskNgaysinh.Mask = "##/##/##" mskNgaysinh.Text = "__/__/__" Exit Sub End If If txtHotenbo.Text = "__/__/__" Then MsgBox "B¹n h·y nhËp ngµy huû ", vbInformation, "Thong bao" txtHotenbo.SetFocus Exit Sub End If If Not IsDate(txtHotenbo.Text) Then MsgBox "B¹n h·y nhËp ngµy huû ", vbInformation, "Thong bao" txtHotenbo.SetFocus txtHotenbo.Text = "__/__/__" Exit Sub End If If Not IsDate(txtHotenme.Text) Then MsgBox "B¹n h·y nhËp ngµy huû ", vbInformation, "Thong bao" txtHotenme.SetFocus txtHotenme.Text = "__/__/__" Exit Sub End If If Val(txtDienthoai.Text) = 0 Then MsgBox "B¹n h·y nhËp x¸c nhËn mËt khÈu ", vbInformation, "Thong bao" txtDienthoai.SetFocus Exit Sub End If With rsHocsinh If AddingHocsinh Then .AddNew !sothe = txtMahocsinh.Text !matkhau = txtTenhocsinh.Text !taikhoan = GetFieldValues("Select taikhoan from taikhoan where taikhoan='" & cboMalop.Text & " ' ") !makhachhang = GetFieldValues("Select makh from khachhang where makh='" & cboMachucvu.Text & " ' ") !matiengui = GetFieldValues("Select matiengui from teptiengui where matiengui='" & cbotthonnhan.Text & " ' ") !malaisuat = GetFieldValues("Select malaisuat from danhmuclaisuat where malaisuat='" & cbotdvanhoa.Text & " ' ") !tenkieuthe = GetFieldValues("Select tenkieuthe from danhmuckieuthe where tenkieuthe='" & cbocongan.Text & " ' ") !loaiphathanh = GetFieldValues("Select loaiphathanh from loaiphathanh where loaiphathanh='" & Cbotencongty.Text & " ' ") !magioihan = GetFieldValues("Select magioihan from danhmucgioihan where danhmucgioihan='" & Cbotenloaikhachhang.Text & " ' ") !ngaynopdon = mskNgaysinh.Text !xacnhanlaimatkhau = txtDienthoai.Text !ngayhuy = txtHotenbo.Text !ngayhieuluc = txtHotenme.Text Else !sothe = txtMahocsinh.Text !matkhau = txtTenhocsinh.Text !taikhoan = GetFieldValues("Select taikhoan from taikhoan where taikhoan='" & cboMalop.Text & " ' ") !makhachhang = GetFieldValues("Select makh from khachhang where makh='" & cboMachucvu.Text & " ' ") !matiengui = GetFieldValues("Select matiengui from teptiengui where matiengui='" & cbotthonnhan.Text & " ' ") !malaisuat = GetFieldValues("Select malaisuat from danhmuclaisuat where malaisuat='" & cbotdvanhoa.Text & " ' ") !tenkieuthe = GetFieldValues("Select tenkieuthe from danhmuckieuthe where tenkieuthe='" & cbocongan.Text & " ' ") !loaiphathanh = GetFieldValues("Select loaiphathanh from loaiphathanh where loaiphathanh='" & Cbotencongty.Text & " ' ") !magioihan = GetFieldValues("Select magioihan from danhmucgioihan where danhmucgioihan='" & Cbotenloaikhachhang.Text & " ' ") !ngaynopdon = mskNgaysinh.Text !xacnhanlaimatkhau = txtDienthoai.Text !ngayhuy = txtHotenbo.Text !ngayhieuluc = txtHotenme.Text End If .Update End With AddingHocsinh = False cmdXoa.Enabled = True cmdThemmoi.Enabled = True cmdBoqua.Enabled = False cmdKetiep.Enabled = False cmdQuaylui.Enabled = True cmdGhilai.Enabled = False txtMahocsinh.Enabled = False End Sub Private Sub Cmdketiep_Click() On Error GoTo errsHocsinh cmdQuaylui.Enabled = True cmdGhilai.Enabled = True lblSua.Visible = True If Not rsHocsinh.EOF Then rsHocsinh.MoveNext Else MsgBox "§©y lµ hå s¬ cuèi cïng ", vbInformation, "Thong bao" rsHocsinh.MoveLast cmdKetiep.Enabled = False End If Call DisplayData txtMahocsinh.Enabled = False errsHocsinh: End Sub Private Sub Cmdquaylui_Click() On Error GoTo errsHocsinh cmdKetiep.Enabled = True cmdGhilai.Enabled = True lblSua.Visible = True If Not rsHocsinh.BOF Then rsHocsinh.MovePrevious Else MsgBox "§©y lµ hå s¬ ®Çu tiªn ", vbInformation, "Thong bao" rsHocsinh.MoveFirst cmdQuaylui.Enabled = False End If Call DisplayData txtMahocsinh.Enabled = False errsHocsinh: End Sub Private Sub cmdThemmoi_Click() cmdXoa.Enabled = False cmdBoqua.Enabled = True cmdGhilai.Enabled = True cmdKetiep.Enabled = False cmdQuaylui.Enabled = False cmdThemmoi.Enabled = False lblSua.Visible = False If AddingHocsinh Then Call Cmdghilai_Click Exit Sub End If AddingHocsinh = True Call ResetValues txtMahocsinh.Enabled = True txtMahocsinh.SetFocus End Sub Private Sub Cmdxoa_Click() cmdGhilai.Enabled = False With rsHocsinh If .RecordCount 0 Then If MsgBox("B¹n cã muèn xo¸ b¶n ghi nµy kh«ng? ", vbYesNo, "Thong bao") = vbYes Then .Delete Call ResetValues lblSua.Visible = False End If Else MsgBox "Kh«ng cßn b¶n ghi nµo c¶. ", vbInformation, "Thong bao" Exit Sub End If End With End Sub Private Sub Form_Unload(Cancel As Integer) If AddingHocsinh Then If MsgBox("B¹n cã muèn ghi l¹i b¶n ghi võa nhËp kh«ng? ", vbYesNo + vbInformation, "Thong bao") = vbYes Then Call Cmdghilai_Click Cancel = True Exit Sub End If End If Cancel = False WindowsXPC1.EndWinXPCSubClassing End Sub Sub ResetValues() txtMahocsinh.Text = "" txtTenhocsinh.Text = "" cboMalop.Text = "" cboMachucvu.Text = "" cbotdvanhoa.Text = "" cbotthonnhan.Text = "" cbocongan.Text = "" Cbotenloaikhachhang.Text = "" Cbotencongty.Text = "" mskNgaysinh.Mask = "##/##/##" mskNgaysinh.Text = "__/__/__" txtDienthoai.Text = "" txtHotenbo.Text = "__/__/__" txtHotenme.Text = "__/__/__" End Sub Sub DisplayData() With rsHocsinh If .EOF Or .BOF Then Exit Sub txtMahocsinh.Text = !sothe txtTenhocsinh.Text = !matkhau cboMalop.Text = GetFieldValues("Select taikhoan from taikhoan where taikhoan='" & !taikhoan & "'") cboMachucvu.Text = GetFieldValues("Select makh from khachhang where makh='" & !makh & "'") cbotthonnhan.Text = GetFieldValues("Select matiengui from teptiengui where matiengui='" & !matiengui & "'") cbotdvanhoa.Text = GetFieldValues("Select malaisuat from danhmuclaisuat where malaisuat='" & !malaisuat & "'") cbotdvanhoa.Text = GetFieldValues("Select tenkieuthe from danhmuckieuthe where tenkieuthe='" & !tenkieuthe & "'") cbotdvanhoa.Text = GetFieldValues("Select loaiphathanh from loaiphathanh where loaiphathanh='" & !loaiphathanh & "'") cbotdvanhoa.Text = GetFieldValues("Select magioihan from danhmucgioihan where magioihan='" & !magioihan & "'") mskNgaysinh.Mask = "" mskNgaysinh.Text = !ngaynopdon txtDienthoai.Text = !xacnhanlaimatkhau txtHotenbo.Text = !ngayhuy txtHotenme.Text = !ngayngayhieuluc End With End Sub Private Sub Grid1_Click() lblSua.Visible = True cmdGhilai.Enabled = True cmdKetiep.Enabled = True cmdQuaylui.Enabled = True If AddingHocsinh Then If MsgBox("§ang ë chÕ ®é thªm míi. Chän §ång ý ®Ó hiÓn thÞ d÷ liÖu ", vbOKCancel + vbInformation, "Thong bao") = vbCancel Then lblSua.Visible = False Exit Sub Else AddingHocsinh = False cmdBoqua.Enabled = False cmdThemmoi.Enabled = True End If End If txtMahocsinh.Enabled = False Call DisplayData End Sub Private Sub Grid1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Call Grid1_Click End If End Sub Private Sub cboGioitinh_KeyPress(KeyAscii As Integer) Call Key_Enter(KeyAscii) End Sub Private Sub cbolop_KeyPress(KeyAscii As Integer) Call Key_Enter(KeyAscii) End Sub Private Sub cbochucvu_KeyPress(KeyAscii As Integer) Call Key_Enter(KeyAscii) End Sub Private Sub txtMahocsinh_KeyPress(KeyAscii As Integer) Call Key_Enter(KeyAscii) End Sub Private Sub txttenhocsinh_KeyPress(KeyAscii As Integer) Call Key_Enter(KeyAscii) End Sub Private Sub mskngaysinh_KeyPress(KeyAscii As Integer) Call Key_Enter(KeyAscii) End Sub Private Sub txthotenbo_KeyPress(KeyAscii As Integer) Call Key_Enter(KeyAscii) End Sub Private Sub txthotenme_KeyPress(KeyAscii As Integer) Call Key_Enter(KeyAscii) End Sub Private Sub txtDiachi_KeyPress(KeyAscii As Integer) Call Key_Enter(KeyAscii) End Sub Private Sub Txtdienthoai_KeyPress(KeyAscii As Integer) Call Key_Enter(KeyAscii) Call CheckNumber(KeyAscii) End Sub moduls: moduls var Public gConnectionString As String Public Conn As ADODB.Connection Public FirstTime As Boolean Public bFinding As Boolean Public lPos As Long Public lIndex As Long Public LimitToList As Boolean Public chonlop As String Public chonmon As String Public chonhocky As String Public nguoidunghienthoi As String Public thoigian As String Public tentruong As String Public diachitruong As String