Đồ án Xây dựng hệ thống thông tin xử lý giao dịch chuyển tiền giữa các chi nhánh trong Ngân Hàng Công Thương Việt Nam trong cả nước

có chung một sự kiện khởi sinh. Ví dụ : “Đến cuối học kỳ” thì công việc tính điểm gồm các xử lý sau đây được thực hiện: - Cập nhật điểm - Tính điểm trung bình học kỳ cho từng sinh viên - In bảng điểm môn học cho từng sinh viên - In bảng điểm học kỳ cho từng lớp. - Lập danh sách sinh viên thi lại. - Lập danh sách sinh viên đạt học bổng... Tiến trình: là một dãy các công việc mà các xử lý bên trong của nó nằm trong cùng một lĩnh vực nghiệp vụ. Nếu tiến trình lớn thì lên chia cắt thành những lĩnh vực nhỏ hơn. Nhiệm vụ: là một xử lý được xác định thêm các yếu tố về tổ chức: Ai, Ở đâu, khi nào thực hiện nó. Pha xử lý: là tập hợp các nhiệm vụ có tính đến các yếu tố tổ chức và sẽ thực hiện của chúng, không phụ thuộc vào sự kiện nào khác mà chỉ phụ thuộc vào sự khởi sinh ban đầu. Và được biểu diễn như hình vẽ sau: Tiến trình xử lý Công việc Tiến trình 1 Tiến trình 2 Tiến trình 3 Pha 1 Pha 2 Pha 3 Mô đun xử lý: là một xử lý cập nhật hoặc tra cứu bên trong của một pha và thao tác với số lượng tương đối ít dữ liệu. Đây là cách chia nhỏ các xử lý. Ví dụ: §Ó x¸c ®Þnh chøng tõ chuyÓn tiÒn chuyÓn ®i tõ chi nh¸nh A cã sè tiÒn lµ 500000 th× c«ng viÖc ph¶i lµm lµ: Tra cứu chứng từ Tra cứu chi nhánh Tra cứu số tiền Thể hiện sự kết nối các mô đun: Sử dụng sơ đồ phân cấp để thể hiện mối liên kết giữa các mô đun đã được phân rã. Thiết kế các nhiệm vụ người – máy: Có mục đích chính là tổ chức hội thoại giữa người và máy trong các pha đối thoại. > Lập trình các chương trình máy tí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. > Thử nghiệm phần mềm: là quá trình tìm lỗi, sau khi chương trình đã được hoàn thành nó cần phải được thử nghiệm nhằm kiểm tra xem nó có đạt được các yêu cầu mà hệ thống đưa ra hay không, phát hiện các lỗi trong quá trình vận hành đê tìm cách khắc phục. Ngoài ra trong quá trình phát triển hệ thống thông tin, người ta còn tiến hành các công đoạnh khác như: cài đặt và vận hành, đào tạo người sử dụng, bảo trì... Ch­¬ng 3 Ph©n tÝch Vµ thiÕt kÕ hÖ thèng th«ng tin xö lý giao dÞch chuyÓn tiÒn gi÷a c¸c chi nh¸nh trong ng©n hµng c«ng th­¬ng ViÖt Nam 3.1 Ph©n tÝch yªu cÇu ChuyÓn tiÒn lµ mét trong nh÷ng dÞch vô quan träng cña ng©n hµng c«ng th­¬ng ViÖt Nam. Ng©n hµng sÏ thùc hiÖn dÞch vô nµy khi cã mét kh¸ch hµng ®Õn ng©n hµng yªu cÇu ®­îc chuyÓn tiÒn cho mét hoÆc nhiÒu ng­êi kh¸c ë c¸c vïng, miÒn kh¸c nhau trong ®Êt n­íc hoÆc ë n­íc ngoµi. DÞch vô nµy sÏ kÕt thóc khi ng­êi ®­îc göi tiÒn nhËn ®­îc ®ñ sè tiÒn mµ kh¸ch hµng kia göi ®Õn. Khi mét kh¸ch hµng – “ng­êi chuyÓn tiÒn” ®Õn chi nh¸nh cña ng©n hµng c«ng th­¬ng yªu cÇu ®­îc chuyÓn mét sè tiÒn cho kh¸ch hµng - “ng­êi nhËn tiÒn” ë chi nh¸nh kh¸c cña ng©n hµng c«ng th­¬ng th× lóc nµy giao dÞch viªn cña ng©n hµng phô tr¸ch yªu cÇu chuyÓn tiÒn ph¶i yªu cÇu “ng­êi chuyÓn tiÒn” nhËp c¸c th«ng tin quan träng: Hä tªn ng­êi chuyÓn tiÒn. Sè chøng minh th­ nh©n d©n, ngµy cÊp, n¬i cÊp. Sè ®Þa chØ, ®iÖn tho¹i liªn l¹c. Sè tµi kho¶n ( nÕu cã ). Hä tªn ng­êi nhËn tiÒn. Sè chøng minh th­ nh©n d©n cña ng­êi nhËn. §Þa chØ ng­êi nhËn, sè ®iÖn tho¹i liªn l¹c. Sè tµi kho¶n ng­êi nhËn ( nÕu cã ). Sau khi ng­êi chuyÓn tiÒn ®iÒn ®Çy ®ñ c¸c th«ng tin trªn lóc nµy giao dÞch viªn sÏ lËp mét chøng tõ chuyÓn tiÒn vµ ®­a l¹i cho ng­êi chuyÓn. Chøng tõ nµy ph¶i cã ®Çy ®ñ c¸c th«ng tin trªn ®ã bao gåm: Sè chøng tõ gåm 9 ch÷ c¸i: BBB-XXXXX. Trong ®ã: BBB: M· chi nh¸nh göi tiÒn. XXXXX: Sè tù sinh ra mçi khi cã chøng tõ míi ®­îc t¹o. M· chi nh¸nh göi tiÒn vµ m· chi nh¸nh nhËn tiÒn. M· giao dÞch viªn vµ kiÓm so¸t viªn chøng tõ. Thêi gian lËp, thêi gian göi vµ thêi gian nhËn chøng tõ. Sè tiÒn nhËn chuyÓn ( b»ng ch÷ vµ b»ng sè ). Néi dung chuyÓn tiÒn bao gåm toµn bé c¸c th«ng tin vÒ kh¸ch hµng göi vµ kh¸ch hµng nhËn nh­ hä tªn, chøng minh th­, ®Þa chØ,sè tiÒn göi, ph­¬ng thøc göi ( tiÒn mÆt hoÆc chuyÓn kho¶n )…. Tr¹ng th¸i chøng tõ lóc nµy lµ: “Chê phª duyÖt”. Lo¹i chuyÓn tiÒn chøng tõ lµ: “Chøng tõ ®i”. Sau khi lËp xong chøng tõ, giao dÞch viªn cã tr¸ch nhiÖm ®­a chøng tõ võa lËp cã ch÷ ký cña m×nh cho kh¸ch hµng ký vµ l­u l¹i mét b¶n cã ch÷ ký cña kh¸ch hµng. Sau ®ã, chøng tõ sÏ ®­îc chuyÓn ®Õn kiÓm so¸t viªn cña chi nh¸nh göi phª duyÖt. KiÓm so¸t viªn nhËn ®­îc chøng tõ chuyÓn tiÒn sÏ ph¶i kiÓm tra toµn bé c¸c th«ng tin mµ giao dÞch viªn nhËp vµo cã chÝnh x¸c hay kh«ng. NÕu th«ng tin nhËp vµo kh«ng chÝnh x¸c, kiÓm so¸t viªn sÏ kh«ng chÊp nhËn chøng tõ vµ tr¹ng th¸i cña chøng tõ lóc nµy lµ “Tõ chèi phª duyÖt”. Chøng tõ sÏ quay trë l¹i víi giao dÞch viªn vµ lóc nµy giao dÞch viªn sÏ söa l¹i chøng tõ cho chÝnh x¸c. NÕu tr­íc ®ã chøng tõ ch­a ®­îc kiÓm so¸t viªn phª duyÖt th× giao dÞch viªn vÉn cã quyÒn söa l¹i chøng tõ, cßn kiÓm so¸t viªn kh«ng cã quyÒn thay ®æi bÊt kú th«ng tin g× trªn chøng tõ mµ chØ cã quyÒn kiÓm so¸t. NÕu th«ng tin nhËp vµo chÝnh x¸c th× kiÓm so¸t viªn sÏ phª duyÖt chøng tõ vµ chuyÓn nã sang chi nh¸nh nhËn. Tr¹ng th¸i cña chøng tõ lóc nµy lµ “§· phª duyÖt vµ göi ®i”. Lóc nµy chøng tõ tù sinh ra mét sè Checksum l­u l¹i c¸c th«ng tin quan träng trªn chøng tõ nh»m tr¸nh t×nh tr¹ng chøng tõ bÞ thay ®æi th«ng tin gi÷a ®­êng ®i. Sau ®ã chøng tõ ®­îc chuyÓn ®Õn cho kiÓm so¸t viªn cña chi nh¸nh nhËn. Khi chøng tõ ®· ®­îc göi ®i, giao dÞch viªn vµ kiÓm so¸t viªn cña chi nh¸nh göi tiÒn ®i sÏ kh«ng ®­îc phÐp thay ®æi bÊt kú th«ng tin g× trªn chøng tõ. Khi chøng tõ ®Õn chi nh¸nh nhËn tiÒn, kiÓm so¸t viªn cña chi nh¸nh nhËn tiÒn sÏ kiÓm tra toµn bé th«ng tin cña chøng tõ chuyÓn tiÒn xem cã bÞ lçi g× kh«ng. NÕu cã lçi, tr¹ng th¸i lóc nµy cña chøng tõ lµ “BÞ lçi”. KiÓm so¸t viªn nµy cã tr¸ch nhiÖm liªn l¹c víi chi nh¸nh göi chøng tõ vµ hai chi nh¸nh sÏ ph¶i ký kÕt mét v¨n b¶n b¸o c¸o chøng tõ bÞ lçi. Sau khi lËp xong biªn b¶n, giao dÞch viªn cña bªn göi tiÒn sÏ ph¶i lËp l¹i mét chøng tõ chuyÓn tiÒn míi víi c¸c qui tr×nh nghiÖp vô nh­ ban ®Çu ®ång thêi chøng tõ chuyÓn tiÒn cò sÏ cã tr¹ng th¸i lµ “§· Xo¸”. NÕu kh«ng bÞ lçi, kiÓm so¸t viªn sÏ chÊp nhËn chøng tõ vµ chuyÓn nã sang cho giao dÞch viªn. Tr¹ng th¸i cña chøng tõ lóc nµy lµ: “§· NhËn”. Khi chøng tõ nµy ®Õn giao dÞch viªn th× giao dÞch viªn nµy sÏ xem xÐt néi dung chøng tõ. NÕu chøng tõ chuyÓn tiÒn b»ng chuyÓn kho¶n th× giao dÞch viªn sÏ in chøng tõ ra vµ chuyÓn chøng tõ sang bé phËn “ThÎ tÝn dông”. NÕu chøng tõ chuyÓn tiÒn b»ng tiÒn mÆt th× giao dÞch viªn sÏ chê kh¸ch hµng ®Õn nhËn tiÒn råi ®èi chiÕu toµn bé th«ng tin trªn chøng tõ. NÕu th«ng tin ®óng th× ®­a toµn bé sè tiÒn cho kh¸ch hµng ®Õn nhËn. NÕu th«ng tin sai, giao dÞch viªn sÏ ph¶i gäi lªn cho kiÓm so¸t viªn ®Ó kiÓm so¸t viªn gi¶i quyÕt sù viÖc trªn. KiÓm so¸t viªn sÏ ph¶i liªn l¹c l¹i chi nh¸nh göi vµ lµm c«ng viÖc gièng nh­ lóc chøng tõ bÞ lçi. Sau khi viÖc chuyÓn tiÒn cho kh¸ch hµng hoµn tÊt th× tr¹ng th¸i chøng tõ lµ “§· §ãng”. Bªn c¹nh c¸c yªu cÇu vÒ mÆt nghiÖp vô, hÖ thèng ®Æt ra rÊt nhiÒu yªu cÇu vÒ mÆt qu¶n lý: §èi víi c¸c giao dÞch viªn vµ kiÓm so¸t viªn: Qu¶n lý hai lo¹i chøng tõ ®i vµ ®Õn. DÔ dµng t×m kiÕm c¸c chøng tõ cÇn thiÕt. DÔ dµng in ra c¸c b¸o c¸o t­¬ng øng víi chi nh¸nh cña m×nh. §èi víi c¸c nhµ qu¶n trÞ: ThÊy ®­îc tÊt c¶ c¸c dßng chøng tõ ®i l¹i cña hÖ thèng. Qu¶n lý th«ng tin c¸c chi nh¸nh. Qu¶n lý giao dÞch viªn vµ kiÓm so¸t viªn cña c¸c chi nh¸nh. DÔ dµng t×m kiÕm vµ ®­a ra c¸c b¸o c¸o cho c¸c l·nh ®¹o ë cÊp cao h¬n. 3.2 M« h×nh hãa c¸c yªu cÇu ViÖc thu thËp th«ng tin ®­îc tiÕn hµnh t¹i trung t©m c«ng nghÖ th«ng tin ng©n hµng c«ng th­¬ng ViÖt Nam. C¸c ph­¬ng ph¸p tiÕn hµnh thu thËp bao gåm: pháng vÊn, quan s¸t, thu thËp tµi liÖu. KÕt qu¶ cña qu¸ tr×nh nµy lµ c¸c s¬ ®å m« h×nh ho¸ hÖ thèng th«ng tin qu¶n lý giao dÞch chuyÓn tiÒn gi÷a c¸c chi nh¸nh trong hÖ thèng ng©n hµng c«ng th­¬ng ViÖt Nam. 3.2.1 M« h×nh ho¸ luång th«ng tin trong xö lý giao dÞch chuyÓn tiÒn C¸c s¬ ®å luång th«ng tin dïng ®Ó m« t¶ hÖ thèng th«ng tin mét c¸ch linh ®éng. Hình 3:S¬ ®å luång th«ng tin qu¸ tr×nh b¾t ®Çu giao dÞch H×nh 4:S¬ ®å luång th«ng tin qu¸ tr×nh kiÓm so¸t chøng tõ ë chi nh¸nh göi tiÒn. H×nh 5:S¬ ®å luång th«ng tin qu¸ tr×nh chuyÓn chøng tõ H×nh 6:S¬ ®å luång th«ng tin qu¸ tr×nh chuyÓn tiÒn cho kh¸ch hµng ë chi nh¸nh nhËn 3.2.2 M« h×nh ho¸ chøc n¨ng nghiÖp vô ( BFD ) §©y lµ biÓu ®å tÜnh cã d¹ng h×nh c©y ®­îc x©y dùng b»ng kü thuËt ph©n møc, xuÊt ph¸t tõ møc thÊp nhÊt ®Õn c¸c møc tiÕp theo sao cho ®Õn møc cuèi cïng lµ møc mµ chøc n¨ng cña hÖ thèng kh«ng thÓ ph©n chia nhá h¬n ®­îc n÷a. Mçi nót ®Æc tr­ng cho mét chøc n¨ng cña hÖ thèng. Qu¶n lý giao dÞch chuyÓn tiÒn ®i: NhËn yªu cÇu chuyÓn tiÒn ®i: nhËn yªu cÇu tõ kh¸ch hµng yªu cÇu chuyÓn tiÒn. LËp chøng tõ: khi cã kh¸ch hµng ®Õn yªu cÇu chuyÓn tiÒn, giao dÞch viªn sÏ lËp chøng tõ chuyÓn tiÒn. KiÓm so¸t chøng tõ ®i: Sau khi lËp xong chøng tõ, giao dÞch viªn sÏ chuyÓn cho kiÓm so¸t viªn ®Ó kiÓm so¸t chøng tõ. KiÓm so¸t nµy kiÓm so¸t xong sÏ göi chøng tõ ®i. Qu¶n lý giao dÞch chuyÓn tiÒn ®Õn: KiÓm so¸t chøng tõ ®Õn: khi chøng tõ ®Õn chi nh¸nh nhËn. KiÓm so¸t viªn ph¶i kiÓm tra th«ng tin cña toµn bé chøng tõ xem cã lçi hay kh«ng. Sau khi kiÓm tra xong, kiÓm so¸t viªn sÏ chuyÓn cho giao dÞch viªn ®Ó giao dÞch víi kh¸ch hµng. X¸c nhËn chøng tõ: giao dÞch viªn nhËn ®­îc chøng tõ sÏ xem th«ng tin råi khíp th«ng tin víi kh¸ch hµng nhËn ®Ó chuyÓn tiÒn. Thèng kª-B¸o C¸o: Chuyªn thèng kª c¸c chøng tõ vµ chi nh¸nh cña ng©n hµng. §iÒu nµy sÏ dÔ dµng h¬n cho ba chøc danh trªn thùc hiÖn c¸c c«ng viÖc qu¶n lý vµ cËp nhËt chøng tõ, chi nh¸nh. 3.2.3 S¬ ®å luång d÷ liÖu ( DFD ) H×nh 7:S¬ ®å hÖ thèng th«ng tin xö lý giao dÞch chuyÓn tiÒn. §©y lµ m« h×nh hÖ thèng ë møc tæng qu¸t, m« h×nh nµy cho ta thÊy toµn thÓ hÖ thèng nh­ mét chøc n¨ng. T¹i m« h×nh nµy, hÖ thèng chØ cã duy nhÊt mét chøc n¨ng. C¸c t¸c nh©n tõ bªn ngoµi vµ luång d÷ liÖu vµo ra tõ t¸c nh©n bªn ngoµi ®Õn hÖ thèng lµ hoµn toµn x¸c ®Þnh. H×nh 8: S¬ ®å møc 0 cña hÖ thèng qu¶n lý giao dÞch chuyÓn tiÒn. S¬ ®å nµy ph©n r· tõ s¬ ®å møc ng÷ c¶nh ë trªn, t­¬ng øng víi møc 2 ë s¬ ®å chøc n¨ng. Trong s¬ ®å nµy c¸c ®èi t­îng vµ c¸c dßng d÷ liÖu ®­îc gi÷ nguyªn, ngoµi ra cßn xuÊt hiÖn c¸c kho d÷ liÖu, c¸c dßng d÷ liÖu vµ c¸c chøc n¨ng bªn trong kh¸c. Tõ s¬ ®å DFD møc 0 ë trªn, tiÕp tôc ph©n ra lµm ba s¬ ®å DFD møc 1 t­¬ng øng víi 3 chøc n¨ng cña hÖ thèng. S¬ ®å luång d÷ liÖu møc 1 dµnh cho tiÕn tr×nh 1.0 Qu¶n lý giao dÞch chuyÓn tiÒn ®i: H×nh 9: S¬ ®å luång d÷ liÖu qu¶n lý chuyÓn tiÒn ®i. S¬ ®å luång d÷ liÖu møc 1 dµnh cho tiÕn tr×nh 2.0 qu¶n lý giao dÞch chuyÓn tiÒn ®Õn: Hình 10: Sơ đồ DFD mức 1 quản lý chuyển tiền đến S¬ ®å luång d÷ liÖu dµnh cho tiÕn tr×nh 3.0 b¸o c¸o – thèng kª: Hình 11: Sơ đồ DFD mức 1 báo cáo thống kê 3.3 ThiÕt kÕ hÖ thèng th«ng tin Sau khi hoµn thµnh thiÕt kÕ c¸c s¬ ®å, viÖc tiÕp theo lµ thiÕt kÕ hÖ thèng th«ng tin cho hÖ thèng. C«ng viÖc thiÕt kÕ bao gåm viÖc thiÕt kÕ m« h×nh quan hÖ thùc thÓ ERD, c¸c tÖp c¬ së d÷ liÖu, c¸c b¶ng biÓu vµ c¶ giao diÖn ®å ho¹ cña hÖ thèng bao gåm c¸c mÉu biÓu vµ c¸c b¸o c¸o. 3.3.1 ThiÕt kÕ c¬ së d÷ liÖu cho hÖ thèng th«ng tin qu¶n lý chøng tõ 3.3.1.1 ThiÕt kÕ c¬ së d÷ liÖu b»ng ph­¬ng ph¸p m« h×nh ho¸ d÷ liÖu §Ó biÓu diÔn mèi quan hÖ gi÷a c¸c thùc thÓ, ta sö dông c¸c h×nh sau: Liên kết Tên thực thể Trong hÖ thèng qu¶n lý giao dÞch chuyÓn tiÒn cã c¸c thùc thÓ sau: + Thùc thÓ c¸n bé. + Thùc thÓ chi nh¸nh. + Thùc thÓ chøng tõ. + Thùc thÓ t×nh tr¹ng. + Thùc thÓ tr¹ng th¸i. + Thùc thÓ chøc danh. + Thùc thÓ lçi. Tõ c¸c thùc thÓ trªn ta x©y dùng ®­îc mèi liªn hÖ cña tËp hîp c¸c thùc thÓ nãi trªn vµ chóng ®­îc biÓu diÔn b»ng s¬ ®å quan hÖ thùc thÓ ERD nh­ sau: H×nh 12: M« H×nh Quan HÖ Thùc ThÓ. M« h×nh nµy ph¸t triÓn dùa trªn c¸c yªu cÇu c¬ b¶n vÒ nghiÖp vô chuyÓn tiÒn cña ng©n hµng nh­ sau: + Trong chøng tõ chuyÓn tiÒn cã th«ng tin vÒ chi nh¸nh göi vµ chi nh¸nh nhËn tiÒn. + Trong chøng tõ chuyÓn tiÒn cã th«ng tin vÒ giao dÞch viªn vµ kiÓm so¸t viªn cña chøng tõ. + Chøng tõ ph¶i cã tr¹ng th¸i cña nã t­¬ng øng víi tõng giai ®o¹n cña nghiÖp vô. + Khi ®i ra khái chi nh¸nh göi tiÒn, lo¹i chøng tõ lµ chøng tõ ®i nh­ng khi ®Õn chi nh¸nh nhËn th× nã lµ chøng tõ ®Õn. + Khi chøng tõ bÞ lçi ph¶i ghi l¹i lçi cña chøng tõ. + C¸n bé thùc hiÖn nghiÖp vô ph¶i ghi râ chøc danh vµ chi nh¸nh mµ m×nh ®ang lµm viÖc. + Cã thùc hiÖn viÖc theo dâi vµ thay ®æi t×nh tr¹ng ho¹t ®éng cña c¸n bé vµ chi nh¸nh. Tõ m« h×nh liªn kÕt c¸c thùc thÓ cña hÖ thèng, ta x©y dùng ®­îc c¸c tÖp c¬ së d÷ liÖu nh­ sau: Chøng Tõ (#Mact,macngui,macnnhan,gdvien,…). TÖp nµy cã chøc n¨ng chøa toµn bé chøng tõ chuyÓn tiÒn cña hÖ thèng chuyÓn tiÒn ng©n hµng c«ng th­¬ng ( bao gåm toµn bé chøng tõ cña c¸c chi nh¸nh kh¸c nhau cña ng©n hµng trong c¶ n­íc). C¸n Bé (#Macb,matkhau,machinhanh,….). TÖp nµy chøa th«ng tin vÒ c¸n bé nghiÖp vô ( kiÓm so¸t viªn – giao dÞch viªn ) vµ c¸n bé qu¶n trÞ. Ng­êi sö dông ph¶i ®¨ng nhËp ®óng ng­êi dïng vµ mËt khÈu cña c¸n bé. Chi Nh¸nh(#Macn,tencn,diachi,dienthoai,…). TÖp nµy chøa th«ng tin vÒ c¸c chi nh¸nh cña ng©n hµng c«ng th­¬ng. Chøc Danh(#Macd,tencd). TÖp nµy chøa th«ng tin chøc danh cña c¸c c¸n bé. T×nh Tr¹ng(#Matt,tentt). TÖp nµy chøa t×nh tr¹ng ho¹t ®éng cña c¸n bé vµ chi nh¸nh. Tr¹ng Th¸i(#Matthai,tentt). TÖp nµy chøa th«ng tin vÒ tr¹ng th¸i cña chøng tõ ( bao gåm 7 tr¹ng th¸i ). Lo¹i ChuyÓn TiÒn(#Maloai,tenloai). TÖp nµy chøa th«ng tin vÒ lo¹i chuyÓn tiÒn cña chøng tõ. Lçi(#Maloi,Soctu,noidung,ngaybiloi). TÖp nµy chøa c¸c th«ng tin vÒ chøng tõ bÞ lçi. Tõ ®©y ta cã s¬ ®å cÊu tróc d÷ liÖu. S¬ §å CÊu Tróc D÷ LiÖu ( DSD ) H×nh 13: S¬ ®å cÊu tróc d÷ liÖu. 3.3.1.2 T¹o lËp c¬ së d÷ liÖu Tõ m« h×nh quan hÖ thùc thÓ vµ s¬ ®å cÊu tróc d÷ liÖu mµ ta thiÕt kÕ ®­îc c¸c b¶ng biÓu cho ch­¬ng tr×nh qu¶n lý giao dÞch chøng tõ: B¶ng chøng tõ: Chungtu(mact,macngui,macnnhan,gdvien,ksvien,sotien,noidung,tglap,tggui,tgnhan,ttchungtu,loaichuyentien,checksum) Chøng Tõ(M· chøng tõ, m· chi nh¸nh göi, m· chi nh¸nh nhËn, giao dÞch viªn, kiÓm so¸t viªn,sè tiÒn, néi dung, thêi gian lËp, göi, nhËn chøng tõ, tr¹ng th¸i chøng tõ, lo¹i chuyÓn tiÒn, checksum). Chi tiÕt vÒ kiÓu d÷ liÖu vµ ®é dµi cña tõng tr­êng: Field Name Data Type Field Size Format Key mact Varchar2 9 Primary macngui Varchar2 3 Foreign macnnhan Varchar2 3 Foreign gdvien Varchar2 5 Foreign ksvien Varchar2 5 Foreign sotien Number 30 noidung Varchar2 200 tglap Varchar2 25 tggui Varchar2 25 tgnhan Varchar2 25 loaichuyentien Varchar2 1 Foreign ttchungtu Varchar2 1 Foreign checksum Varchar2 50 B¶ng c¸n bé: Canbo(Macb,machinhanh,machucdanh,matkhau,hodem,ten). C¸n Bé( M· c¸n bé, m· chi nh¸nh, m· chøc danh, mËt khÈu, hä ®Öm, tªn). Chi tiÕt vÒ kiÓu d÷ liÖu vµ ®é dµi cña tõng tr­êng Field Name Data Type Field Size Format Key macb Varchar2 5 Primary machinhanh Varchar2 3 Foreign machucdanh Varchar2 2 Foreign matkhau Varchar2 10 hodem Varchar2 20 ten Varchar2 10 Mattrang Varchar2 2 Foreign B¶ng chi nh¸nh: Chinhanh(macn,tencn,diachi,dienthoai,matinhtrang) Chi nh¸nh( m· chi nh¸nh, tªn chi nh¸nh, ®Þa chØ, ®iÖn tho¹i, m· t×nh tr¹ng). Chi tiÕt vÒ kiÓu d÷ liÖu vµ ®é dµi cña tõng tr­êng: Field Name Data Type Field Size Format Key Macn Varchar2 3 Primary Tencn Varchar2 50 Diachi Varchar2 50 Dienthoai Varchar2 20 Matinhtrang Varchar2 2 B¶ng chøc danh: Chucdanh(macd,tencd) Chøc Danh( m· chøc danh, tªn chøc danh) Chi tiÕt vÒ kiÓu d÷ liÖu vµ ®é dµi cña tõng tr­êng: Field Name Data Type Field Size Format Key Macd Varchar2 2 Primary Tencd Varchar2 50 B¶ng lo¹i chuyÓn tiÒn: Loaichuyentien(maloai,tenloai) Lo¹i chuyÓn tiÒn( m· lo¹i, tªn lo¹i ) Chi tiÕt vÒ kiÓu d÷ liÖu vµ ®é dµi cña tõng tr­êng: Field Name Data Type Field Size Format Key Maloai Varchar2 3 Primary Tenloai Varchar2 20 B¶ng lçi chøng tõ: Loictu(maloi,soctu,noidung,ngaybiloi) Lçi chøng tõ( m· lçi, sè chøng tõ, néi dung, ngµy bÞ lçi) Chi tiÕt vÒ kiÓu d÷ liÖu vµ ®é dµi cña tõng tr­êng: Field Name Data Type Field Size Format Key Maloi Varchar2 10 Primary Soctu Varchar2 9 Noidung Varchar2 200 Ngaybiloi Varchar2 8 B¶ng t×nh tr¹ng: Tinhtrang(matt,tentt) T×nh Tr¹ng ( m· t×nh tr¹ng, tªn t×nh tr¹ng ) Chi tiÕt vÒ kiÓu d÷ liÖu vµ ®é dµi cña tõng tr­êng: Field Name Data Type Field Size Format Key Matt Varchar2 2 Primary tentt Varchar2 30 B¶ng tr¹ng th¸i: trangthai(matthai,tentt) T×nh Tr¹ng ( m· tr¹ng th¸i, tªn t×nh tr¹ng ) Chi tiÕt vÒ kiÓu d÷ liÖu vµ ®é dµi cña tõng tr­êng: Field Name Data Type Field Size Format Key Matthai Varchar2 1 Primary Tentt Varchar2 30 S¬ ®å quan hÖ c¸c b¶ng H×nh 12: S¬ ®å quan hÖ thùc thÓ. 3.3.2 ThiÕt kÕ ch­¬ng tr×nh 3.3.2.1 ThiÕt kÕ theo c¸c Module HÖ thèng ®­îc ph©n ra gåm 3 chøc n¨ng qu¶n lý bao gåm: qu¶n lý chøng tõ giao dÞch viªn, qu¶n lý chøng tõ kiÓm so¸t viªn vµ qu¶n lý hÖ thèng qu¶n trÞ viªn. ChÝnh v× vËy ch­¬ng tr×nh gåm cã 3 module chøc n¨ng chÝnh: a. Module Giao DÞch Viªn: bao gåm toµn bé c¸c chøc n¨ng chÝnh cña giao dÞch viªn: lËp chøng tõ chuyÓn tiÒn, xem vµ söa l¹i th«ng tin c¸c chøng tõ do giao dÞch viªn nµy lËp, t×m kiÕm c¸c chøng tõ do giao dÞch viªn nµy lËp,……….. Giao Dịch Viên Hệ Thống Quản Lý Chứng Từ Tìm Kiếm & Báo Cáo Thông Tin & Trợ Giúp b. Module KiÓm So¸t Viªn: Module nµy bao gåm c¸c chøc n¨ng cña kiÓm so¸t viªn. Nã gåm cã: kiÓm so¸t chøng tõ ®i, kiÓm so¸t chøng tõ ®Õn chi nh¸nh cña kiÓm so¸t viªn nµy. Bªn c¹nh ®ã kiÓm so¸t viªn cã thÓ sö dông hÖ thèng t×m kiÕm chøng tõ theo c¸c chØ tiªu cho s½n. Kiểm Soát Viên Hệ Thống Kiểm Soát Chứng Từ Tìm Kiếm & Báo Cáo Thông Tin & Trợ Giúp c. Module Qu¶n TrÞ Viªn: Module nµy chÞu tr¸ch nhiÖm qu¶n trÞ th«ng tin toµn hÖ thèng nh­ c¸n bé, chi nh¸nh, c¸c chøng tõ cña tõng chi nh¸nh. Quản Trị Viên Hệ Thống Quản Lý Tìm Kiếm & Báo Cáo Thông Tin & Trợ Giúp C¸c Module chÝnh ®­îc ph©n ra lµm c¸c module nhá h¬n: C¶ 3 Module lín trªn ®Òu cã chung 3 chøc n¨ng chÝnh: hÖ thèng, t×m kiÕm & b¸o c¸o vµ th«ng tin & trî gióp. Module hÖ thèng: Hệ Thống Đăng Nhập Lại Đổi Mật Khẩu Thoát Module T×m KiÕm & B¸o C¸o: Tìm Kiếm & Báo Cáo Danh Sách Cán Bộ Danh Sách Chi Nhánh Danh Sách Chứng Từ Danh Sách Chứng Từ Đi Danh Sách Chứng Từ Đến Module Th«ng Tin & Trî Gióp: Thông Tin & Trợ Giúp Thông Tin Chương Trình Trợ Giúp Mçi module lín ®Òu cã module nhá ®Æc tr­ng. Module qu¶n lý chøng tõ ( giao dÞch viªn ) Quản Lý Chứng Từ Tạo chứng từ mới Quản Lý Chứng Từ Đi Quản Lý Chứng Từ Đến Module kiÓm so¸t chøng tõ ( kiÓm so¸t viªn ) Kiểm Soát Chứng Từ Kiểm soát chứng từ đi Kiểm soát chứng từ đến Module qu¶n lý ( qu¶n trÞ viªn ) Quản Lý Quản lý cán bộ Quản lý chi nhánh 3.3.3 Mét sè thuËt to¸n sö dông trong ch­¬ng tr×nh: + ThuËt to¸n ®¨ng nhËp. + ThuËt to¸n t¹o c¸n bé, chi nh¸nh, chøng tõ. + ThuËt to¸n t×m kiÕm vµ ®­a ra b¸o c¸o. ThuËt to¸n ®¨ng nhËp: ThuËt to¸n t×m kiÕm vµ b¸o c¸o ThuËt to¸n t¹o chøng tõ T­¬ng tù víi thuËt to¸n t¹o chi nh¸nh vµ t¹o c¸n bé. 3.3.4 ThiÕt kÕ mµn h×nh giao diÖn ch­¬ng tr×nh Form ®¨ng nhËp hÖ thèng §©y lµ Form ®¨ng nhËp chÝnh cña ch­¬ng tr×nh. Form nµy cho phÐp 3 ®èi t­îng chÝnh cña ch­¬ng tr×nh cã thÓ ®¨ng nhËp: giao dÞch viªn, kiÓm so¸t viªn vµ qu¶n trÞ viªn. C¸ch thøc sö dông Form: §Ó ®¨ng nhËp vµo ch­¬ng tr×nh, mét trong ba ®èi t­îng chÝnh cña ch­¬ng tr×nh sÏ ph¶i nhËp vµo chi nh¸nh mµ m×nh ®ang c«ng t¸c. Sau ®ã ng­êi dïng ®ã sÏ ph¶i gâ m· ng­êi dïng vµ mËt khÈu cña m×nh. Mçi c¸n bé chØ cã duy nhÊt mét m· ng­êi dïng. Sau khi hoµn tÊt c¸c th«ng tin ®­a vµo, ch­¬ng tr×nh sÏ kiÓm tra th«ng tin c¸n bé ®ã øng víi chi nh¸nh. NÕu chÝnh x¸c, ch­¬ng tr×nh sÏ chuyÓn vµo Form chøc n¨ng chÝnh. Tuú vµo ba ®èi t­îng trªn mµ cã ba Form ch­¬ng tr×nh víi c¸c chøc n¨ng t­¬ng øng. Form menu giao dÞch viªn NÕu c¸n bé nhËp vµo lµ giao dÞch viªn, ch­¬ng tr×nh sÏ hiÖn ra form giao dÞch viªn. Form nµy sÏ bao gåm toµn bé c¸c chøc n¨ng mµ mét giao dÞch viªn cã thÓ thùc hiÖn. Giao dÞch viªn chØ cÇn di chuét lªn thanh Menu hoÆc gâ c¸c phÝm t¾t ®Ó thùc hiÖn c¸c chøc n¨ng mµ m×nh muèn thùc hiÖn. T­¬ng tù víi form menu giao dÞch viªn lµ c¸c form menu kiÓm so¸t viªn vµ qu¶n trÞ viªn. C¶ ba ®èi t­îng trªn cã nh÷ng Form gièng nhau tuy nhiªn chóng sÏ thùc hiÖn c¸c chøc n¨ng kh¸c nhau tuú vµo quyÒn h¹n vµ chøc n¨ng cña chóng. Sau ®©y lµ c¸c form gièng nhau mµ c¶ ba ®èi t­îng trªn sö dông: Form ®æi mËt khÈu Form nµy cã chøc n¨ng chÝnh lµ thay ®æi mËt khÈu cña chÝnh ng­êi dïng ®¨ng nhËp vµo hÖ thèng. §Ó cã thÓ thay ®æi mËt khÈu thµnh c«ng, ng­êi dïng nµy ph¶i nhËp l¹i mËt khÈu cò ®ång thêi ph¶i gâ mËt khÈu míi hai lÇn ®Ó ®¶m b¶o ®é chÝnh x¸c cho mËt khÈu míi. NÕu ng­êi dïng gâ sai mËt khÈu cò hoÆc mËt khÈu míi th× ngay lËp tøc ch­¬ng tr×nh sÏ ®­a ra th«ng b¸o. Form in danh s¸ch c¸n bé Form nµy sÏ in ra danh s¸ch c¸n bé tuú vµo chØ tiªu lùa chän. NÕu ®Ó trèng toµn bé c¸c tr­êng, ch­¬ng tr×nh sÏ tù ®éng in ra toµn bé danh s¸ch c¸n bé c¸c chi nh¸nh. Ng­êi dïng cã thÓ t×m kiÕm theo m· c¸n bé, tªn c¸n bé, m· chi nh¸nh cña c¸n bé, chøc danh cña c¸n bé vµ t×nh tr¹ng ho¹t ®éng cña c¸n bé. Form in danh s¸ch chi nh¸nh Còng gièng nh­ form trªn, form nµy sÏ in ra danh s¸ch chi nh¸nh tuú theo yªu cÇu cña ng­êi dïng. NÕu ®Ó trèng toµn bé c¸c tr­êng Form sÏ in ra toµn bé danh s¸ch chi nh¸nh. Ng­êi dïng cã thÓ t×m kiÕm theo m· chi nh¸nh, tªn chi nh¸nh, t×nh tr¹ng ho¹t ®éng cña chi nh¸nh. Form in danh s¸ch chøng tõ ®i Form nµy sÏ in ra danh s¸ch c¸c chøng tõ mµ chi nh¸nh cña ng­êi dïng nµy göi ®Õn chi nh¸nh cña ng­êi dïng kh¸c. NÕu chøc danh lµ qu¶n trÞ viªn th× nã sÏ in ra toµn bé chøng tõ cã t×nh tr¹ng ®i ra cña chi nh¸nh cÇn t×m. Ng­êi sö dông sÏ t×m kiÕm c¸c chøng tõ theo c¸c ®iÒu kiÖn cÇn t×m nh­ m· chi nh¸nh göi, m· chøng tõ, m· chi nh¸nh nhËn, sè tiÒn cña chøng tõ, néi dung cña chøng tõ, ngµy chuyÓn chøng tõ, ngµy nhËn chøng tõ, tr¹ng th¸i cña chøng tõ. Còng cã thÓ sö dông cïng mét lóc nhiÒu ®iÒu kiÖn ®Ó t×m kiÕm. Ng­êi sö dông b¾t buéc ph¶i nhËp vµo ngµy b¾t ®Çu t×m kiÕm ®Õn ngµy kÕt thóc t×m kiÕm chøng tõ. Sau khi t×m kiÕm xong, ng­êi dïng cã thÓ in lu«n kÕt qu¶ ra. Form in danh s¸ch chøng tõ ®Õn Form nµy sÏ in ra danh s¸ch toµn bé chøng tõ ®Õn chi nh¸nh cña ng­êi dïng ( ngo¹i trõ qu¶n trÞ viªn ). Ng­êi sö dông sÏ t×m kiÕm c¸c chøng tõ theo c¸c ®iÒu kiÖn cÇn t×m nh­ m· chi nh¸nh göi, m· chøng tõ, m· chi nh¸nh nhËn, sè tiÒn cña chøng tõ, néi dung cña chøng tõ, ngµy chuyÓn chøng tõ, ngµy nhËn chøng tõ, tr¹ng th¸i cña chøng tõ. Còng cã thÓ sö dông cïng mét lóc nhiÒu ®iÒu kiÖn ®Ó t×m kiÕm. Ng­êi sö dông b¾t buéc ph¶i nhËp vµo ngµy b¾t ®Çu t×m kiÕm ®Õn ngµy kÕt thóc t×m kiÕm chøng tõ. Sau khi t×m kiÕm xong, ng­êi dïng cã thÓ in lu«n kÕt qu¶ ra. Form in danh s¸ch chøng tõ Form nµy sÏ cho phÐp in toµn bé chøng tõ ®i vµ ®Õn chi nh¸nh. Víi qu¶n trÞ viªn ch­¬ng tr×nh sÏ hiÖn ra « m· chi nh¸nh göi vµ m· chi nh¸nh nhËn, cßn nÕu kh«ng ph¶i lµ qu¶n trÞ viªn th× hai « nµy sÏ bÞ Èn ®i. Ng­êi sö dông sÏ t×m kiÕm c¸c chøng tõ theo c¸c ®iÒu kiÖn cÇn t×m nh­ m· chi nh¸nh göi, m· chøng tõ, m· chi nh¸nh nhËn, sè tiÒn cña chøng tõ, néi dung cña chøng tõ, ngµy chuyÓn chøng tõ, ngµy nhËn chøng tõ, tr¹ng th¸i cña chøng tõ. Còng cã thÓ sö dông cïng mét lóc nhiÒu ®iÒu kiÖn ®Ó t×m kiÕm. Ng­êi sö dông b¾t buéc ph¶i nhËp vµo ngµy b¾t ®Çu t×m kiÕm ®Õn ngµy kÕt thóc t×m kiÕm chøng tõ. Sau khi t×m kiÕm xong, ng­êi dïng cã thÓ in lu«n kÕt qu¶ ra. Trî gióp ch­¬ng tr×nh Ng­êi dïng cã thÓ nhÊn phÝm F1 ®Ó nhËn sù trî gióp cña hÖ thèng ch­¬ng tr×nh. Bªn c¹nh c¸c form chung cña ch­¬ng tr×nh, mçi ®èi t­îng ®Òu cã chøc n¨ng riªng. Form t¹o chøng tõ cña giao dÞch viªn Trong Form nµy, ng­êi dïng sÏ ph¶i nhËp vµo ba th«ng tin chÝnh lµ chi nh¸nh nhËn, sè tiÒn chuyÓn vµ néi dung chuyÓn tiÒn. C¸c th«ng tin kh¸c sÏ do hÖ thèng tù ®éng nhËp vµo hé ch­¬ng tr×nh. Sau khi nhËp xong ba th«ng tin trªn, ng­êi dïng sÏ click chuét vµo nót “Hoµn Thµnh” ®Ó t¹o chøng tõ. Form qu¶n lý chøng tõ ®i cña giao dÞch viªn Form bao gåm c¸c chøc n¨ng tæng hîp cho viÖc qu¶n lý chøng tõ cña giao dÞch viªn. Form nµy sÏ hiÖn lªn toµn bé chøng tõ mµ giao dÞch viªn ®· lËp nh­ng ch­a ®­îc kiÓm so¸t viªn phª duyÖt vµ c¸c chøng tõ bÞ kiÓm so¸t viªn tõ chèi phª duyÖt. Form bao gåm c¸c chøc n¨ng chÝnh: + Thªm chøng tõ: chøc n¨ng nµy chÝnh lµ chøc n¨ng t¹o chøng tõ míi. + T×m kiÕm tæng hîp: chøc n¨ng nµy chÝnh lµ form t×m kiÕm chøng tõ ®i cña giao dÞch viªn. + T×m kiÕm nhanh: t×m kiÕm nhanh c¸c chøng tõ dùa vµo c¸c chØ tiªu ë phÝa d­íi cña form. + Xem chøng tõ: chøc n¨ng nµy cho phÐp giao dÞch viªn xem l¹i toµn bé th«ng tin chøng tõ, ®ång thêi cã thÓ söa l¹i th«ng tin chøng tõ nÕu cã sai sãt. Form qu¶n lý chøng tõ ®Õn cña giao dÞch viªn Form nµy sÏ chøa toµn bé c¸c chøng tõ ®Õn chi nh¸nh cña giao dÞch viªn nµy. C¸c chøng tõ nµy ®· ®­îc kiÓm so¸t viªn cña chi nh¸nh nµy phª duyÖt vµ giao dÞch viªn sÏ chê ®îi kh¸ch hµng ®Õn nhËn tiÒn. Form bao gåm c¸c chøc n¨ng: + Xem chøng tõ: Giao dÞch viªn sÏ cã quyÒn xem toµn bé néi dung chøng tõ. + T×m kiÕm tæng hîp: T×m kiÕm toµn bé chøng tõ ®Õn chi nh¸nh ( form t×m kiÕm chøng tõ ®Õn ). + T×m kiÕm nhanh: t×m kiÕm nhanh c¸c chøng tõ dùa vµo c¸c chØ tiªu nhËp vµo ë bªn d­íi form. Form kiÓm so¸t chøng tõ ®i cña kiÓm so¸t viªn Form nµy sÏ kiÓm so¸t c¸c chøng tõ võa ®­îc giao dÞch viªn cña chi nh¸nh lËp ra. NhiÖm vô cña kiÓm so¸t viªn lµ phª duyÖt chøng tõ nµy. Form bao gåm c¸c chøc n¨ng chÝnh: + T×m kiÕm tæng hîp: chÝnh lµ form t×m kiÕm chøng tõ ®i. + T×m kiÕm nhanh: t×m kiÕm nhanh c¸c chøng tõ dùa vµo c¸c chØ tiªu nhËp vµo ë bªn d­íi form. + KiÓm so¸t chøng tõ ®i: kiÓm so¸t c¸c chøng tõ ®i ra ngoµi chi nh¸nh. KiÓm so¸t viªn sÏ kiÓm tra toµn bé th«ng tin cña chøng tõ tr­íc lóc chøng tõ nµy ®i ra bªn ngoµi chi nh¸nh ®Ó sang chi nh¸nh kh¸c. NÕu chøng tõ nµy kh«ng phï hîp hoÆc cã lçi th× kiÓm so¸t viªn sÏ tõ chèi phª duyÖt chøng tõ nµy. Form kiÓm so¸t chøng tõ ®Õn cña kiÓm so¸t viªn: Form nµy sÏ hiÖn ra toµn bé th«ng tin vÒ chøng tõ ®Õn chi nh¸nh cña kiÓm so¸t viªn. KiÓm so¸t viªn sÏ ph¶i kiÓm tra toµn bé th«ng tin cña chøng tõ nµy tr­íc khi chuyÓn nã cho giao dÞch viªn ®Ó chuyÓn tiÒn cho kh¸ch hµng. Form nµy gåm c¸c chøc n¨ng: + T×m kiÕm: chÝnh lµ t×m kiÕm chøng tõ ®Õn chi nh¸nh nµy ( form t×m kiÕm chøng tõ ®Õn ). + T×m kiÕm nhanh: t×m kiÕm nhanh dùa vµo c¸c chØ tiªu. + KiÓm so¸t: nhÊn vµo nót nµy sÏ hiÖn lªn form kiÓm so¸t chøng tõ ®Õn. Khi kiÓm so¸t viªn nhÊn vµo nót kiÓm tra lçi, ch­¬ng tr×nh sÏ tù ®éng kiÓm tra xem néi dung cña chøng tõ cã bÞ thay ®æi gi÷a chøng hay kh«ng? NÕu chøng tõ bÞ thay ®æi, ch­¬ng tr×nh sÏ tù ®éng ®­a ra th«ng b¸o lçi, nÕu kh«ng kiÓm so¸t viªn sÏ hoµn thµnh viÖc kiÓm so¸t chøng tõ vµ chuyÓn nã cho giao dÞch viªn ®Ó chuyÓn tiÒn cho kh¸ch hµng ®Õn nhËn. Form qu¶n lý c¸n bé cña qu¶n trÞ viªn Form nµy chøa toµn bé th«ng tin vÒ c¸n bé cña tÊt c¶ c¸c chi nh¸nh. Form bao gåm c¸c chøc n¨ng chÝnh: + Söa th«ng tin c¸n bé. + Xo¸ c¸n bé. + T×m kiÕm: t×m kiÕm toµn bé th«ng tin c¸n bé theo c¸c chØ tiªu nhËp vµo ë bªn d­íi form. + Thªm c¸n bé: t¹o thªm c¸n bé. Form qu¶n lý chi nh¸nh cña qu¶n trÞ viªn Form nµy chøa toµn bé th«ng tin vÒ c¸c chi nh¸nh cña ng©n hµng c«ng th­¬ng. Form gåm c¸c chøc n¨ng: + Söa th«ng tin chi nh¸nh. + Xo¸ chi nh¸nh. + T×m kiÕm chi nh¸nh: t×m kiÕm chi nh¸nh dùa vµo chØ tiªu bªn d­íi. + Thªm chi nh¸nh: t¹o thªm chi nh¸nh míi. + In danh s¸ch chi nh¸nh. C¸c b¸o c¸o + Chøng tõ + Danh s¸ch chøng tõ + Danh s¸ch c¸n bé 3.3.5 TriÓn khai hÖ thèng Sau khi hoµn thµnh viÖc thiÕt kÕ ch­¬ng tr×nh, ta sÏ ph¶i x©y dùng c«ng cô lËp tr×nh vµ triÓn khai hÖ thèng vµ ®­a hÖ thèng øng dông thùc tÕ. + C«ng cô lËp tr×nh: Visual Basic: ®©y lµ mét ng«n ng÷ lËp tr×nh phæ biÕn chuyªn dïng ®Ó x©y dùng c¸c ch­¬ng tr×nh qu¶n lý. Nã cã kh¶ n¨ng truy cËp vµo c¸c hÖ qu¶n trÞ c¬ së d÷ liÖu lín ®Ó lÊy d÷ liÖu ®ång thêi kh¶ n¨ng cho phÐp dÔ lËp tr×nh vµ dÔ t¹o bé cµi ®Æt. Do cã nh÷ng ­u ®iÓm trªn mµ em quyÕt ®Þnh sö dông Visual Basic lµ c«ng cô chÝnh cho viÖc lËp tr×nh. + HÖ qu¶n trÞ c¬ së d÷ liÖu: Oracle: Oracle lµ mét trong nh÷ng hÖ qu¶n trÞ c¬ së d÷ liÖu tèt nhÊt trªn thÕ giíi hiÖn nay. §­îc ph¸t triÓn tõ n¨m 1979 cho ®Õn nay, Oracle hiÖn ®ang ®­îc nhiÒu doanh nghiÖp ­a chuéng vµ ®­îc sö dông nhiÒu nhÊt trªn thÕ giíi. Mét trong nh÷ng tÝnh n¨ng quan träng cña Oracle lµ cho phÐp ta øng dông m« h×nh qu¶n trÞ c¬ së d÷ liÖu Client – Server mét c¸ch dÔ dµng, an toµn vµ b¶o mËt. Bªn c¹nh ®ã nã cho phÐp ta x©y dùng c¸c m« h×nh qu¶n trÞ c¬ së d÷ liÖu ra quyÕt ®Þnh vµ qu¶n lý trùc tuyÕn. ChÝnh v× nguyªn do trªn mµ em quyÕt ®Þnh sö dông hÖ qu¶n trÞ c¬ së d÷ liÖu Oracle ®Ó øng dông cho ch­¬ng tr×nh cña em. + C¸c c«ng viÖc cÇn lµm khi øng dông triÓn khai: X©y dùng mét m¸y chñ ( Server ) cã c¸i ®Æt Oracle Server. X©y dùng c¸c m¸y tr¹m cã cµi ®Æt Oracle Client ®Ó kÕt nèi tíi m¸y chñ X©y dùng bé cµi ®Æt ®Ó triÓn khai hÖ thèng. KÕt luËn HÖ thèng xö lý giao dÞch chuyÓn tiÒn lµ mét trong nh÷ng hÖ thèng quan träng cña ng©n hµng c«ng th­¬ng ViÖt Nam. Nã lµ mét trong nh÷ng nghiÖp vô quan träng v× kh«ng nh÷ng nã cã thÓ chuyÓn tiÒn trong n­íc mµ nã cßn cã thÓ hç trî cho viÖc chuyÓn tiÒn ®i n­íc ngoµi. Trong hÖ thèng nµy, trô së chÝnh cña ng©n hµng c«ng th­¬ng (trung t©m c«ng nghÖ th«ng tin) sÏ ®ãng vai trß lµ ®¬n vÞ qu¶n lý trung t©m. Trung t©m nµy sÏ cã nhiÖm vô theo dâi toµn bé ho¹t ®éng chuyÓn tiÒn cña c¸c chi nh¸nh, xö lý c¸c lçi ph¸t sinh cña hÖ thèng ®ång thêi ph¶i cã tr¸ch nhiÖm triÓn khai cµi ®Æt t¹i toµn bé chi nh¸nh. C¸c chi nh¸nh sÏ cã nhiÖm vô øng dông hÖ thèng nµy trong hÖ thèng cña hä. Tr­íc ®©y, khi mµ tin häc ch­a phæ biÕn th× viÖc xö lý viÖc chuyÓn tiÒn rÊt khã kh¨n. Th­êng th­êng, ®Ó chuyÓn tiÒn tõ n¬i nµy sang n¬i kh¸c ph¶i tiªu tèn rÊt nhiÒu nh©n lùc vµ vËt lùc ®Ó lµm c«ng viÖc nµy th× ngµy nay víi sù øng dông m¹nh mÏ cña tin häc, c«ng viÖc nµy ®· ®­îc gi¶i quyÕt hÕt søc nhanh chãng v× h©u hÕt c¸c c«ng viÖc ®Òu ®­îc m¸y mãc tiÕn hµnh mét c¸ch tù ®éng vµ nhanh chãng. Nã lµm gi¶m tèi thiÓu chi phÝ vÒ nh©n lùc vµ vËt lùc. Tuy nhiªn, trong hiÖn t¹i, hÖ thèng vÉn cßn ph¶i phô thuéc nhiÒu vµo con ng­êi chÝnh v× vËy ®«i khi vÉn cßn nhiÒu sai sãt ®Æc biÖt trong kh©u nhËp liÖu. Do ®ã hÖ thèng vÉn cÇn ph¶i ph¸t triÓn thªm ®Ó ®¶m b¶o gi¶i quyÕt mét c¸ch tèt nhÊt c¸c vÊn ®Ò ph¸t sinh. HiÖn nay do nh÷ng ®iÒu kiÖn vÒ thêi gian còng nh­ kh¶ n¨ng cña m×nh ch­a cho phÐp em ph¸t triÓn mét øng dông thùc sù hoµn h¶o vµ vÉn cã rÊt nhiÒu h¹n chÕ trong øng dông nµy cña em. Em rÊt mong ®­îc sù gãp ý cña c¸c thÇy c« gi¸o gióp em hoµn thµnh øng dông nµy mét c¸ch tèt nhÊt. §Ò ¸n cña em hoµn thµnh lµ nhê sù gióp ®ì rÊt lín cña c« gi¸o h­íng dÉn: TrÇn ThÞ Song Minh. Em tin r»ng ®©y sÏ lµ b­íc ®Öm ®Ó em ph¸t triÓn sau nµy. Em xin ch©n thµnh c¸m ¬n c« gi¸o : TrÇn ThÞ Song Minh ®· gióp em hoµn thµnh ®Ò tµi nµy. Sinh Viªn Bïi Xu©n Ph­¬ng. Tµi LiÖu Tham Kh¶o: Gi¸o tr×nh hÖ thèng th«ng tin qu¶n lý. TS Tr­¬ng V¨n Tó – TS TrÇn ThÞ Song Minh – Nhµ XuÊt B¶n Thèng Kª – Hµ Néi. Gi¸o tr×nh c¬ së d÷ liÖu – Th.S TrÇn C«ng UÈn. Gi¸o tr×nh Visual Basic – Trung t©m tin häc ngo¹i ng÷ TrÝ §øc – TP Hå ChÝ Minh. Database Administration Oracle 9i – Oracle Corporation. Oracle – How to – Oracle Corporation. Phô lôc Giíi thiÖu m· nguån trong ch­¬ng tr×nh: Module khëi t¹o: Public lan As Integer Public vitri As Long Public cnn As ADODB.Connection Public chinhanh As ADODB.Recordset Public chucdanh As ADODB.Recordset Public tinhtrang As ADODB.Recordset Public canbo As ADODB.Recordset Public loaichuyentien As ADODB.Recordset Public trangthai As ADODB.Recordset Public chungtu As ADODB.Recordset Public loictu As ADODB.Recordset Public sqll As String Sub khoitao() 'cnn.Close 'Khoi dong va tao ket noi toi CSDL Set cnn = New ADODB.Connection cnn.Open "DSN=chinhanh", "phuong", "mastersey" End Sub Module chuyÓn ®æi tõ sè sang ch÷: ‘=============================================== ‘ Doc lan luot tung so va chuyen no sang chu. Sau do dao lai vi tri tung ‘ ‘ ‘ chu ‘=============================================== Public Function chuyenso(ByVal so As String) As String Dim thutu(11) As String Dim chu As String Dim hang(1 To 4) As String Dim i As Integer chuyenso = "" thutu(0) = "kh«ng" thutu(1) = "mét" thutu(2) = "hai" thutu(3) = "ba" thutu(4) = "bèn" thutu(5) = "n¨m" thutu(6) = "s¸u" thutu(7) = "b¶y" thutu(8) = "t¸m" thutu(9) = "chÝn" hang(1) = "®ång" hang(2) = "ngh×n" hang(3) = "triÖu" hang(4) = "tû" chuyenso = hang(1) + " " Dim j As Integer Dim t As Integer Dim l As Integer Dim f As Single Dim thethan As String Dim ketqua As String l = 0 ketqua = "" For i = 1 To Len(so) If i > 3 And i Mod 3 = 1 Then ketqua = hang(i / 3 + 1) + " " End If t = Len(so) - i + 1 For j = 0 To 9 If StrComp(Trim(Mid(so, t, 1)), Trim(Str(j)), vbBinaryCompare) = 0 Then ketqua = ketqua + thutu(j) thethan = thutu(j) End If Next ketqua = baso(so, t, ketqua, i, thethan) If i Mod 3 = 0 Then chuyenso = chuyenso + ketqua ketqua = "" End If Next If Len(so) > 3 Then chuyenso = chuyenso + ketqua End If If Len(so) < 3 Then chuyenso = ketqua End If End Function Function baso(ByVal so As String, ByVal t As Integer, ByVal chuyenso As String, ByVal i As Integer, ByVal thethan As String) As String If i Mod 3 = 1 Then If StrComp(Trim(Mid(so, t, 1)), "0", vbBinaryCompare) 0 Then If StrComp(Trim(Mid(so, t, 1)), "1", vbBinaryCompare) = 0 Then chuyenso = Replace(chuyenso, "mét", "m«t") ElseIf StrComp(Trim(Mid(so, t, 1)), "4", vbBinaryCompare) = 0 Then chuyenso = Replace(chuyenso, "bèn", "t­") ElseIf StrComp(Trim(Mid(so, t, 1)), "5", vbBinaryCompare) = 0 Then chuyenso = Replace(chuyenso, "n¨m", "l¨m") End If Else chuyenso = Replace(chuyenso, "kh«ng", "") End If End If If i Mod 3 = 2 Then If StrComp(Trim(Mid(so, t, 1)), "0", vbBinaryCompare) 0 Then If StrComp(Trim(Mid(so, t, 1)), "1", vbBinaryCompare) = 0 Then chuyenso = Replace(chuyenso, "mét", "m­êi") Else chuyenso = Replace(chuyenso, thethan, "m­¬i") chuyenso = chuyenso + " " + thethan End If ElseIf StrComp(Trim(Mid(so, t + 1, 1)), "0", vbBinaryCompare) 0 Then chuyenso = Replace(chuyenso, "kh«ng", "linh") ElseIf StrComp(Trim(Mid(so, t + 1, 1)), "0", vbBinaryCompare) = 0 Then chuyenso = Replace(chuyenso, "kh«ng", "") End If End If If i Mod 3 = 0 Then chuyenso = Replace(chuyenso, thethan, "tr¨m") chuyenso = chuyenso + " " + thethan End If If chuyenso = "" Then baso = chuyenso Else baso = chuyenso + " " End If End Function Public Function daovitri(ByVal so As String) As String Dim s(50) As String Dim t1 As Integer Dim t2 As Integer Dim g As Integer so = chuyenso(so) t1 = 1 g = 0 For g = 0 To 20 t2 = InStr(t1 + 1, so, " ") If t2 = 0 Then Exit For End If s(g) = Mid(so, t1, t2 - t1) t1 = t2 Next While g 0 g = g - 1 daovitri = daovitri + Trim(s(g)) + " " Wend End Function Module truy cËp vµo c¸c b¶ng: B¶ng c¸n bé: Public Sub laycanbo(ByVal sql As String) Set canbo = New ADODB.Recordset With canbo .ActiveConnection = cnn .CursorType = adOpenKeyset .LockType = adLockOptimistic .Open sql End With End Sub B¶ng chi nh¸nh: Public Sub truycapchinhanh() Dim sql1 As String Set chinhanh = New ADODB.Recordset sql1 = "select * from v_chinhanh" With chinhanh .ActiveConnection = cnn .CursorType = adOpenKeyset .LockType = adLockOptimistic .Open sql1 End With End Sub B¶ng chøng tõ: Public Sub truycapchungtu(ByVal sql As String) Set chungtu = New ADODB.Recordset With chungtu .ActiveConnection = cnn .CursorType = adOpenKeyset .LockType = adLockOptimistic .Open sql End With End Sub B¶ng t×nh tr¹ng: Public Sub truycaptinhtrang() Dim sql4 As String Set tinhtrang = New ADODB.Recordset sql4 = "select * from v_tinhtrang" With tinhtrang .ActiveConnection = cnn .CursorType = adOpenKeyset .LockType = adLockOptimistic .Open sql4 End With End Sub B¶ng chøc danh: Public Sub truycapchucdanh() Dim sql3 As String Set chucdanh = New ADODB.Recordset sql3 = "select * from v_chucdanh" With chucdanh .ActiveConnection = cnn .CursorType = adOpenKeyset .LockType = adLockOptimistic .Open sql3 End With End Sub 4) M· nguån ®¨ng nhËp: '========================================== ' Khi khoi dong Form goi ra toan bo chi nhanh khong bi xoa ' Goi xong thi dong lai ‘========================================== Private Sub Form_Load() Dim s As String Call khoitao Call truycapchinhanh lan = 0 chinhanh.MoveFirst While Not chinhanh.EOF If chinhanh!matinhtrang 3 Then Combo1.AddItem chinhanh!macn + " - " + chinhanh!TENCN End If chinhanh.MoveNext Wend chinhanh.Close End Sub ''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' Neu nhan vao nut thoat thi thoat ra khoi chuong trinh ''''''''''''''''''''''''''''''''''''''''''''''''''''''' Private Sub Image1_Click() If MsgBox("B¹n muèn tho¸t khái ch­¬ng tr×nh chø", vbOKCancel) = vbOK Then Unload Me chinhanh.Close cnn.Close End If End Sub ''''''''''''''''''''''''''''''''' ' Neu nhan vao nut dang nhap ''''''''''''''''''''''''''''''''' Private Sub Image2_Click() '===================================================== 'Tao 1 bien trang thai so sanh user va pass; gan no =0 'Tao 1 bien de kiem tra chuc danh '===================================================== Dim t As Integer, g As Integer t = 0 Dim cd As String '=================================================== 'Neu so lan dang nhap >3 thi thoat khoi chuong trinh '=================================================== If lan = 3 Then MsgBox ("B¹n ®· ®¨ng nhËp sai 3 lÇn. Tù ®éng tho¸t khái ch­¬ng tr×nh") Unload Me Exit Sub End If lan = lan + 1 '============================================== 'Neu truong ma chi nhanh ma` rong thi thong bao '============================================== If Len(Combo1.Text) = 0 Then MsgBox "B¹n ch­a nhËp tr­êng m· chi nh¸nh" Exit Sub End If '========================================================= 'Neu truong nguoi dung va mat khau ma` rong thi thong bao 'Tao 1 bien truy van sql toi bang canbo 'Dua ve vi tri dau tien cua bang CANBO va bat dau so sanh 'Neu dung ca user va pass thi bien trang thai =1 'Luu lai vi tri cua nguoi nay '========================================================== If Len(user.Text) = 0 And Len(pass.Text) = 0 Then MsgBox "B¹n ch­a nhËp tr­¬ng ng­êi dïng hoÆc mËt khÈu" Exit Sub Else vitri = 0 Dim sql As String sql = "select * from v_canbo" + Trim(Mid(Combo1.Text, 1, 3)) Call laycanbo(sql) canbo.MoveFirst While Not canbo.EOF vitri = vitri + 1 If StrComp(user.Text, canbo!macb, vbBinaryCompare) = 0 Then If StrComp(pass.Text, canbo!matkhau, vbBinaryCompare) = 0 Then cd = canbo!machucdanh t = 1 g = vitri If canbo!mattrang = 3 Then MsgBox "Tµi kho¶n ®· bÞ xo¸. B¹n kh«ng ®­îc phÐp ®¨ng nhËp." Exit Sub End If End If End If canbo.MoveNext Wend End If vitri = g - 1 canbo.Move vitri, 1 '======================================= 'Neu bien trang thai =0 dua ra thong bao '======================================= If t = 0 Then MsgBox "B¹n nhËp sai m· ng­êi sö dông hoÆc mËt khÈu" Exit Sub End If '===================================================== 'Neu la giao dich vien thi load ra form giao dich vien 'Neu la kiem soat vien thi load ra form KSV 'Neu la quan tri vien thi load ra form KSV '===================================================== If cd = "1" Then Unload Me menugdv.Show vbModal End If If cd = "2" Then Unload Me menuksv.Show vbModal End If If cd = "3" Then Unload Me menuqtv.Show vbModal End If End Sub Private Sub Image4_Click() If MsgBox("B¹n muèn tho¸t khái ch­¬ng tr×nh chø", vbOKCancel) = vbOK Then Unload Me cnn.Close End If End Sub Private Sub Label4_Click() If MsgBox("B¹n muèn tho¸t khái ch­¬ng tr×nh chø", vbOKCancel) = vbOK Then Unload Me chinhanh.Close cnn.Close End If End Sub Private Sub pass_keypress(KeyAscii As Integer) If KeyAscii = 13 Then Call Image2_Click End If End Sub Code cho Form in c¸n bé: ‘=================================================== ` Kiem tra lan luot tung textbox gan voi chi tieu. Neu text box nao khac ` ‘ rong thi dua vao chi tieu tim kiem. Sau do luu cau query de bao cao `=================================================== Private Sub Command1_Click() If Text1.Text = "" And Text2.Text = "" And Combo1.Text = "" And Combo2.Text = "" And Combo3.Text = "" Then If MsgBox("Ch­¬ng tr×nh sÏ in toµn bé danh s¸ch. B¹n cã in kh«ng ?", vbOKCancel, "chuyentien") = vbOK Then rptPrint.Connect = "DSN=chinhanh;UID=" & "phuong" & ";PWD=" & "mastersey" & ";DSQ=" & "oracle" rptPrint.ReportFileName = App.Path & "\Report\" & "incanbo.rpt" rptPrint.WindowState = crptMaximized rptPrint.Destination = 0 rptPrint.Formulas(1) = "canbolap='" + canbo!HODEM + " " + canbo!TEN + "'" response = rptPrint.PrintReport If response 0 Then MsgBox rptPrint.LastErrorString, 48, "Bao cao co loi" Exit Sub End If Exit Sub Else Exit Sub End If End If Dim sql1 As String Dim sql As String sql = "SELECT V_CB.MACB , V_CB.TENCN, V_CB.TENCD, V_CB.HODEM, V_CB.TEN, V_CB.TENTT " sql = sql & "FROM PHUONG.V_CB V_CB WHERE " sql1 = "select * from v_cb where " If Text1.Text "" Then sql = sql & "V_CB.MACB LIKE '%" + Text1.Text + "%' AND " sql1 = sql1 & "macb like '%" + Text1.Text + "%' and " End If If Text2.Text "" Then sql = sql & "V_CB.TEN LIKE '%" + Text2.Text + "%' AND " sql1 = sql1 & "ten like '%" + Text1.Text + "%' and " End If If Combo1.Text "" Then sql = sql & "V_CB.TENCN LIKE '%" + Mid(Combo1.Text, 7, Len(Combo1.Text)) + "%' AND " sql1 = sql1 & "tencn like '%" + Mid(Combo1.Text, 7, Len(Combo1.Text)) + "%' and " End If If Combo2.Text "" Then sql = sql & "V_CB.TENCD LIKE '%" + Mid(Combo2.Text, 5, Len(Combo2.Text)) + "%' AND " sql1 = sql1 & "tencd like '%" + Mid(Combo2.Text, 5, Len(Combo2.Text)) + "%' and " End If If Combo3.Text "" Then sql = sql & "V_CB.TENTT LIKE '%" + Mid(Combo3.Text, 5, Len(Combo3.Text)) + "%'" sql1 = sql1 & "tentt like '%" + Mid(Combo3.Text, 5, Len(Combo3.Text)) + "%'" End If If StrComp(Mid(sql, Len(sql) - 3, 3), "AND", vbBinaryCompare) = 0 Then sql = Mid(sql, 1, Len(sql) - 4) sql1 = Mid(sql1, 1, Len(sql1) - 4) End If Adodc1.RecordSource = sql1 Adodc1.Refresh If Adodc1.Recordset.RecordCount = 0 Then MsgBox "Kh«ng t×m thÊy ®iÒu kiÖn mµ b¹n t×m kiÕm." Exit Sub Else Adodc1.RecordSource = "" rptPrint.Connect = "DSN=chinhanh;UID=" & "phuong" & ";PWD=" & "mastersey" & ";DSQ=" & "oracle" rptPrint.ReportFileName = App.Path & "\Report\" & "incanbo.rpt" rptPrint.WindowState = crptMaximized rptPrint.Destination = 0 rptPrint.Formulas(1) = "canbolap='" + canbo!HODEM + " " + canbo!TEN + "'" rptPrint.SQLQuery = sql response = rptPrint.PrintReport If response 0 Then MsgBox rptPrint.LastErrorString, 48, "Bao cao co loi" Exit Sub End If End If End Sub Code Form t×m kiÕm chøng tõ: `================================================== ` Neu can bo la quan tri vien thi de tim kiem macngui, macnnhan con neu ` khong phai thi an 2 text box nay di. De 2 nut ‘Bo ket qua’ va ‘In ket ` ` ` qua o tinh trang an. Sau do load trang thai chung tu vao combobox. `=================================================== Private Sub Form_Load() If canbo!machucdanh 3 Then Text1.Visible = False Text2.Visible = False Label2.Visible = False Label3.Visible = False End If Command3.Enabled = False Command2.Enabled = False Call truycaptrangthai trangthai.MoveFirst While Not trangthai.EOF Combo1.AddItem trangthai!matthai + " - " + trangthai!tentt trangthai.MoveNext Wend trangthai.Close End Sub `================================================= ` Neu nhan nut tim kiem thi bat dau dua du lieu vao cau query cho ca bao ` cao va cho ca form hien ra ket qua. Neu khong tim thay thi dua ra thong ` bao. O day la tim kiem theo chi tieu tong hop `================================================== Private Sub Command1_Click() Command3.Enabled = False Command2.Enabled = False sqll = "" sqll = "SELECT QUACQUAC.MACT, QUACQUAC.MACNGUI, QUACQUAC.MACNNHAN, QUACQUAC.GDVIEN, QUACQUAC.KSVIEN, QUACQUAC.NOIDUNG, QUACQUAC.SOTIEN, QUACQUAC.TGLAP, QUACQUAC.TGGUI, QUACQUAC.TGNHAN, QUACQUAC.TENLOAI, QUACQUAC.TENTT, QUACQUAC.CHECKSUM " sqll = sqll & "FROM PHUONG.QUACQUAC QUACQUAC WHERE " Dim sql As String If canbo!machucdanh = 1 Then sql = "select * from chungtu" + " where " ElseIf canbo!machucdanh = 2 Then sql = "select * from chungtu" + " where " ElseIf canbo!machucdanh = 3 Then sql = "select * from chungtu where " End If If canbo!machucdanh = 3 Then If Text1.Text "" Then sql = sql + "mact like '%" + Text1.Text + "%' and " sqll = sqll + "QUACQUAC.MACT like '%" + Text1.Text + "%' AND " End If If Text2.Text "" Then sql = sql + "macnnhan like '%" + Text2.Text + "%' and " sqll = sqll + "QUACQUAC.MACNNHAN like '%" + Text2.Text + "%' AND " End If End If If Text3.Text "" And Text7.Text = "" Then sql = sql + "sotien >= " + Text3.Text + " and " sqll = sqll + "QUACQUAC.SOTIEN >=" + Text3.Text + " AND " End If If Text3.Text = "" And Text7.Text "" Then sql = sql + "sotien <= " + Text7.Text + " and " sqll = sqll + "QUACQUAC.SOTIEN <=" + Text7.Text + " AND " End If Dim t As Double Dim t2 As Double If Text3.Text "" And Text7.Text "" Then t = Text3.Text t2 = Text7.Text If t2 <= t Then MsgBox "B¹n nhËp sè tiÒn 2 kh«ng chÝnh x¸c. H·y nhËp l¹i." Text7.SetFocus Exit Sub End If sql = sql + "sotien >= " + Text3.Text + " and sotien <= " + Text7.Text + " and " sqll = sqll + "QUACQUAC.SOTIEN >=" + Text3.Text + " AND QUACQUAC.SOTIEN <= " + Text7.Text + " AND " End If If Text4.Text "" Then sql = sql + "noidung like '%" + Text4.Text + "%' and " sqll = sqll + "QUACQUAC.NOIDUNG like '%" + Text4.Text + "%' AND " End If 'If StrComp(Mid(sql, Len(sql) - 4, 3), "and") = 0 Then ' sql = Mid(sql, 1, Len(sql) - 4) ' sqll = Mid(sqll, 1, Len(sql) - 4) 'End If If Combo1.Text "" Then sql = sql + "ttchungtu like '%" + Mid(Combo1.Text, 1, 1) + "%' and " sqll = sqll + "QUACQUAC.TENTT like '%" + Mid(Combo1.Text, 5, Len(Combo1.Text)) + "%' AND " End If If date1.Value >= date2.Value Then MsgBox "ngµy thø 2 cña b¹n ph¶i lín h¬n ngµy thø 1. H·y nhËp l¹i." date2.SetFocus Exit Sub End If Dim s As String s = date1.Value sql = sql & "to_date(substr(tglap,1,8),'dd/mm/yy') " sql = sql + "between to_date('" + s sqll = sqll & "TO_DATE(SUBSTR(QUACQUAC.TGLAP,1,8),'DD/MM/YY') " sqll = sqll + "BETWEEN TO_DATE('" + s s = date2.Value sql = sql + "','dd/mm/yyyy') and to_date('" + s + "','dd/mm/yyyy') and " sqll = sqll + "','DD/MM/YYYY') AND TO_DATE('" + s + "','DD/MM/YYYY') AND " If canbo!machucdanh 3 Then sql = sql & "(macngui='" + canbo!machinhanh + "' or macnnhan='" + canbo!machinhanh + "')" sqll = sqll & "(QUACQUAC.MACNGUI='" + canbo!machinhanh + "' or QUACQUAC.MACNNHAN='" + canbo!machinhanh + "')" End If Adodc1.RecordSource = sql Adodc1.Refresh If Adodc1.Recordset.RecordCount = 0 Then MsgBox "Kh«ng t×m thÊy ®iÒu kiÖn mµ b¹n t×m kiÕm." Exit Sub Else Set DataGrid1.DataSource = Adodc1 Command3.Enabled = True Command2.Enabled = True Command1.Enabled = False End If End Sub ‘============================================= ‘ Neu nhan vao nut “Bo ket qua” thi bo di toan bo ket qua truoc do ‘ dua nut tim kiem tro lai trang thai binh thuong, 2 nut con lai an di ‘============================================= Private Sub Command2_Click() Set DataGrid1.DataSource = Nothing Adodc1.RecordSource = "" Command1.Enabled = True Command2.Enabled = False Command3.Enabled = False End Sub ‘============================================= ‘ Neu nhan vao nut in thi truy cap vao he thong va dua cac ket qua in ‘============================================= Private Sub Command3_Click() rptPrint.Connect = "DSN=chinhanh;UID=" & "phuong" & ";PWD=" & "mastersey" & ";DSQ=" & "oracle" rptPrint.ReportFileName = App.Path & "\Report\" & "indschungtu.rpt" rptPrint.WindowState = crptMaximized rptPrint.Destination = 0 rptPrint.Formulas(1) = "canbolap='" + canbo!HODEM + " " + canbo!TEN + "'" rptPrint.Formulas(2) = "tungay='" & date1.Value & "'" rptPrint.Formulas(3) = "denngay='" & date2.Value & "'" rptPrint.SQLQuery = sqll response = rptPrint.PrintReport If response 0 Then MsgBox rptPrint.LastErrorString, 48, "Bao cao co loi" Exit Sub End If End Sub ‘=============================== ‘ Nut thoat ‘=============================== Private Sub Command4_Click() Set DataGrid1.DataSource = Nothing Adodc1.RecordSource = "" Unload Me End Sub ‘=============================== ‘ Dung cho ngay thu 2. Neu ngay 2 dua ra thong bao ‘=============================== Private Sub date2_Validate(Cancel As Boolean) If date1.Value > date2.Value Then MsgBox "B¹n nhËp kh«ng ®óng sè ngµy. H·y nhËp l¹i" date2.SetFocus End If End Sub Môc lôc Trang Ch­¬ng 1: Tæng quan ng©n hµng c«ng th­¬ng. 1.1.Giíi thiÖu vÒ ng©n hµng c«ng th­¬ng 3 1.2.C¸c nghiÖp vô trong ng©n hµng 4 1.2.1 NghiÖp vô b¶o l·nh 4 1.2.2 NghiÖp vô cho vay 5 1.2.3 NghiÖp vô tµi kho¶n 6 1.2.4 NghiÖp vô thanh to¸n xuÊt nhËp khÈu 6 1.2.5 NghiÖp vô tiÕt kiÖm 7 1.2.6 NghiÖp vô thuª mua tµi chÝnh. 7 1.2.7 NghiÖp vô b¶o hiÓm. 8 1.2.8 NghiÖp vô chøng kho¸n 8 1.2.9 NghiÖp vô chuyÓn tiÒn 8 Ch­¬ng 2: C¬ së ph­¬ng ph¸p luËn 2.1. C¸c vÊn ®Ò c¬ b¶n cña hÖ thèng th«ng tin qu¶n lý. .1 HÖ thèng th«ng tin qu¶n lý. 11 C¬ së d÷ liÖu. 12 Ph©n tÝch – thiÕt kÕ hÖ thèng th«ng tin. 2.2.1 §¸nh gi¸ yªu cÇu. 15 2.2.2 Ph©n tÝch chi tiÕt. 15 2.2.3 ThiÕt kÕ logic. 19 2.2.4 ThiÕt kÕ vËt lý ngoµi. 21 2.2.5 TriÓn khai hÖ thèng. 21 Ch­¬ng 3: ThiÕt kÕ vµ ph©n tÝch hÖ thèng ch­¬ng tr×nh Ph©n tÝch yªu cÇu. 24 M« h×nh ho¸ hÖ thèng. 27 S¬ ®å luång th«ng tin. 27 S¬ ®å luång d÷ liÖu. 32 ThiÕt kÕ hÖ thèng th«ng tin. ThiÕt kÕ c¬ së d÷ liÖu. 38 ThiÕt kÕ ch­¬ng tr×nh. 44 S¬ ®å thuËt to¸n. 51 Giao diÖn ch­¬ng tr×nh. 54 TriÓn khai hÖ thèng. 79 KÕt luËn. 80 Tµi LiÖu Tham Kh¶o 81 Phô Lôc 82