Phân tích và thiết kế hệ thống thông tin quản lý xuất nhập khẩu nông sản tại Bộ nông nghiệp và phát triển nông thôn

áng vÊn, l­îc ghi trªn giÊy mÉu. C¸n bé pháng vÊn phô thu thËp th«ng tin, bæ sung hoÆc lµm râ ý. +Th¸i ®é lÞch sù , ®óng giê. Tinh thÇn kh¸ch quan. Kh«ng ®­îc t¹o c¶m gi¸c “thanh tra”. +NhÉn l¹i, ch¨m chó nghe. MÒm dÎo vµ cëi më. Cã thÓ dïng m¸y ghi ©m nh­ng ph¶i ®­îc phÐp cña ng­êi ®­îc pháng vÊn. +Tæng hîp kÕt qu¶ pháng vÊn. KÕt qu¶ cña pháng vÊn lµ nguyÖn väng cña ng­êi sö dông, cÇn mét ch­¬ng tr×nh phÇn mÒm gi¶i quyÕt kh©u tÝnh to¸n cña hÖ thèng. b.Nghiªn cøu tµi liÖu Cho phÐp nghiªn cøu kü vµ tØ mØ vÒ nhiÒu khÝa c¹nh cña tæ chøc nh­: lÞch sö h×nh thµnh vµ ph¸t triÓn cña tæ chøc, t×nh tr¹ng tµi chÝnh, c¸c tiªu chuÈn vµ ®Þnh møc, cÊu tróc thø bËc, vai trß vµ nhiÖm vô cña c¸c thµnh viªn, néi dung vµ h×nh d¹ng cña c¸c th«ng tin vµo/ra. Th«ng tin trªn giÊy tê ph¶n ¸nh qu¸ khø, hiÖn t¹i vµ t­¬ng lai cña tæ chøc. §· nghiªn cøu kü c¸c v¨n b¶n sau: C¸c v¨n b¶n vÒ thñ tôc vµ quy tr×nh lµm viÖc cña c¸ nh©n cña ng­êi phô tr¸ch c«ng viÖc. C¸c b¸o c¸o ®Çu vµo cña hÖ thèng. C¸c lo¹i b¸o c¸o, b¶ng biÓu do hÖ thèng th«ng tin hiÖn cã sinh ra (b¸o c¸o ®Çu ra). 2.S¬ ®å luång th«ng tin cña hÖ thèng th«ng tin qu¶n lý C¸c kÝ ph¸p cña s¬ ®å luång th«ng tin nh­ sau: - Xö lý Thñ c«ng Tin häc ho¸ hoµn toµn Giao t¸c ng­êi-m¸y Kho l­u tr÷ d÷ liÖu Thñ c«ng Tin häc ho¸ Tµi liÖu -Dßng -Dßng th«ng tin - §iÒu - §iÒu khiÓn 3.S¬ ®å luång d÷ liÖu cña hÖ thèng th«ng tin qu¶n lý S¬ ®å luång d÷ liÖu dïng ®Ó m« t¶ còng chÝnh hÖ thèng th«ng tin nh­ s¬ ®å luång th«ng tin nh­ng trªn gãc ®é trõu t­îng. Trªn s¬ ®å chØ bao gåm c¸c luång d÷ liÖu, c¸c xö lý, c¸c l­u tr÷ d÷ liÖu, nguån vµ ®Ých nh­ng kh«ng hÒ quan t©m tíi n¬i, thêi ®iÓm vµ ®èi t­îng chÞu tr¸ch nhiÖm xö lý. S¬ ®å luång d÷ liÖu chØ m« t¶ ®¬n thuÇn hÖ thèng th«ng tin lµm g× vµ ®Ó lµm g×. Ký ph¸p dïng cho s¬ ®å luång d÷ liÖu (DFD) Ng«n ng÷ s¬ ®å luång d÷ liÖu DFD sö dông 4 lo¹i kÝ ph¸p c¬ b¶n: thùc thÓ, tiÕn tr×nh, kho d÷ liÖu vµ dßng d÷ liÖu. Tªn ng­êi/ bé phËn ph¸t/ nhËn tin Nguån hoÆc ®Ých Tªn dßng d÷ liÖu Dßng d÷ liÖu Tªn tiÕn tr×nh xö lý TiÕn tr×nh xö lý TÖp d÷ liÖu Kho d÷ liÖu C¸c ký ph¸p c¬ b¶n cña ng«n ng÷ DFD C¸c møc cña DFD S¬ ®å ng÷ c¶nh thÓ hiªn rÊt kh¸i qu¸t néi dung chÝnh cña hÖ thèng th«ng tin. S¬ ®å nµy kh«ng ®i vµo chi tiÕt, mµ m« t¶ sao cho chØ cÇn mét lÇn nh×n lµ nhËn ra néi dung chÝnh cña hÖ thèng. §Ó s¬ ®å ng÷ c¶nh s¸ng sña, dÔ nh×n cã thÓ bá qua c¸c xö lý cËp nhËt. S¬ ®å khung c¶nh cßn gäi lµ s¬ ®å møc 0. Ph©n r· s¬ ®å §Ó m« t¶ chi tiÕt h¬n ng­êi ta dïng kÜ thuËt ph©n r· s¬ ®å. B¾t ®Çu tõ s¬ ®å khung c¶nh, ng­êi ta ph©n r· ra thµnh s¬ ®å møc 0, tiÕp sau møc 0 lµ møc 1... IV. ThiÕt kÕ mét hÖ thèng th«ng tin qu¶n lý 1.Nghiªn cøu m«i tr­êng vµ hÖ thèng th«ng tin hiÖn t¹i a.M«i tr­êng cña hÖ thèng hiÖn t¹i M«i tr­êng ngoµi Lo¹i ho¹t ®éng (ho¹t ®éng qu¶n lý). Ngµnh ho¹t ®éng (c«ng céng). Nh÷ng bé luËt c¬ b¶n mµ ngµnh ph¶i tu©n thñ. M«i tr­êng tæ chøc. NhiÖm vô (Qu¶n lý c¸c vÊn ®Ò thuéc lÜnh vùc n«ng nghiÖp) LÞch sö (H×nh thµnh theo hiÕn ph¸p cña nhµ n­íc). ChÝnh s¸ch, cÊu tróc, môc tiªu dµi h¹n hoÆc ng¾n h¹n. KÕ ho¹ch ho¹t ®éng. Møc ®é tËp trung tr¸ch nhiÖm. Ph©n bè ®Þa lý. C¸ch thøc qu¶n lý. §Æc tr­ng vÒ nh©n sù, kinh nghiÖm tin häc. M«i tr­êng vËt lý. Ph©n bè cña ng­êi sö dông. Tæ chøc cña nh÷ng n¬i thùc hiÖn xö lý d÷ liÖu. Møc ®é an ninh kiÓm so¸t. M«i tr­êng kÜ thuËt PhÇn cøng vµ phÇn mÒm t¹i chç cho xö lý d÷ liÖu, c¸c thiÕt bÞ kh¸c, c¬ së d÷ liÖu vµ c¸c tÖp tin häc ho¸ (PhÇn mÒm ch­a nhiÒu, cßn nhiÒu lÜnh vùc xö lý thñ c«ng, phÇn cøng kh¸ ®Çy ®ñ). Nh©n sù ph¸t triÓn hÖ thèng vµ khai th¸c. b.Thu thËp th«ng tin vÒ hÖ thèng ®ang tån t¹i. HÖ thèng. §Ó cã ®­îc h×nh ¶nh ®Çy ®ñ vÒ c¸c bé phËn cña hÖ thèng vµ sù vËn ®éng cña nã, th× c¸c d÷ liÖu vµ tµi liÖu sau ®©y ph¶i ®­îc thu thËp. Ho¹t ®éng chung cña hÖ thèng, kÓ c¶ tr¸ch nhiÖm vÒ rµng buéc thêi gian, khèi l­îng, sù s¾p ®Æt vÞ trÝ vËt lý vµ c¸c khÝa c¹nh ®Þa lý kh¸c. HÖ thèng ®ang ph©n tÝch ®­îc mét nh©n viªn ®¶m nhiÖm nªn hÖ thèng ®­îc dïng trªn m¸y tÝnh ®¬n. D÷ liÖu vµo: néi dung, mÉu tµi liÖu vµo (mÉu nµy ®­îc thÓ hiÖn qua c¸c b¸o c¸o gåm c¸c tr­êng sè l­îng nhËp/xuÊt cña tõng mÆt hµng, vµ tæng kim ng¹ch xuÊt nhËp khÈu), khu©n d¹ng mµn h×nh th«ng tin vµo, m« t¶ c¸c thiÕt bÞ nhËp (bµn phÝm), nguån d÷ liÖu (tõ c¸c ®¬n vÞ trùc thuéc Bé NN vµ tõ Tæng côc H¶i quan), khèi l­îng vµ tÇn xuÊt cña viÖc nhËp vµo (khèi l­îng hµng ho¸ kh¸ lín vµ ph¶i nhËp hµng th¸ng), chi phÝ cho viÖc nhËp vµo (tµi liÖu, ph­¬ng tiÖn, nh©n sù). Th«ng tin ra: ®Ých ®Õn cña th«ng tin (l·nh ®¹o Bé NN), néi dung vµ c¸ch tÝnh to¸n gi¸ trÞ néi dung (ChØ lµ c¸c b¸o c¸o vÒ hµng ho¸ víi gi¸ trÞ tÝch luü ®Õn k× vµ tèc ®é t¨ng tr­ëng cña xuÊt nhËp khÈu), tÇn xuÊt s¶n sinh th«ng tin (hµng thµng), khèi l­îng , m« t¶ c¸c thiÕt bÞ s¶n sinh th«ng tin ra, khu«n d¹ng vµ ®¸nh gi¸ khu«n d¹ng, mÉu b¸o c¸o, khu«n d¹ng mµn h×nh, h¹n chÕ cña mµn h×nh, chi phÝ cho th«ng tin ra (tµi liÖu, ph­¬ng tiÖn, nh©n sù). xö lý: C¸c thñ tôc thu thËp vµ nhËp c¸c d÷ liÖu vµo, ph­¬ng thøc nhËp, hîp lÖ ho¸ vµ kiÓm so¸t, c¸c thñ tôc biÕn ®æi ®Çu vµo, quan hÖ gi÷a c¸c xö lý, rµng buéc vÒ thêi gian, ®Þa ®iÓm thùc hiÖn xö lý, nh©n sù thùc hiÖn, vÞ trÝ c«ng t¸c vµ thêi gian thùc hiÖn xö lý, c¸c thiÕt bÞ ®­îc dïng, tµi liÖu m« t¶ ph­¬ng ph¸p xö lý, chi phÝ (nguyªn vËt liÖu, nh©n sù). C¬ së d÷ liÖu: Néi dung, vËt mang tin, khèi l­îng, truy nhËp (xö lý, nh©n sù, kiÓm so¸t t¹i chç khi truy nhËp), c¸ch thøc tæ chøc d÷ liÖu (chia thµnh tõng tÖp, mçi tÖp qu¶n lý mét lo¹i b¸o c¸o), chi phÝ vÒ vËt liÖu (kh«ng cã). VÊn ®Ò hÖ thèng. Trong giai ®o¹n ®¸nh gi¸ yªu cÇu, ph©n tÝch viªn ®· quan t©m tíi sù nh×n nhËn cña ng­êi sö dông vÒ c¸c vÊn ®Ò cña hÖ thèng th«ng tin. Trong c«ng ®o¹n lµm râ yªu cÇu, ph©n tÝch viªn ®· pháng vÊn ng­êi ®Æt yªu cÇu vµ ®· xem xÐt vÊn ®Ò ®Æt ra. Trong c¶ qu¸ tr×nh ph©n tÝch chi tiÕt, viÖc xem xÐt vÊn ®Ò cÇn ph¶i theo s¸t h¬n, ph©n tÝch viªn ph¶i ghi nhËn cÈn thËn mäi vÊn ®Ò ®­îc x¸c ®Þnh vµ c¸c nguyªn nh©n cã thÓ bÊt k× ë lóc pháng vÊn hay khi nghiªn cøu c¸c tµi liÖu hoÆc trong c¸c buæi quan s¸t. C¸c vÊn ®Ò trong hÖ thèng chÝnh lµ sù sai xãt d÷ liÖu mµ kh«ng nhËn ra, vÊn ®Ò khèi l­îng c«ng viÖc qu¸ lín do sù lÆp l¹i c«ng viÖc, tèn nhiÒu c«ng søc mµ lÏ ra ng­êi phô tr¸ch cã thÓ kiªm nhiÖm thªm mét sè c«ng viÖc kh¸c. ë ®©y, nhiÖm vô t×m ra vÊn ®Ò vµ c¸c nguyªn nh©n cã thÓ cña nã ph¶i ®­îc lµm s©u s¾c h¬n vµ tinh tÕ h¬n. 2.X©y dùng m« h×nh vËt lý ngoµi Ph©n tÝch viªn sÏ x©y dùng m« h×nh vËt lý ngoµi dùa vµo c¸c d÷ liÖu m« t¶ ®· thu thËp ®­îc vÒ hÖ thèng. M« h×nh nµy m« t¶ hÖ thèng nh­ nh÷ng ng­êi sö dông nh×n thÊy. M« h×nh nµy t¹o thµnh t­ liÖu vÒ hÖ thèng nh­ nã ®ang tån t¹i, nã còng lµ c«ng cô ®Ó ph©n tÝch viªn kiÓm tra sù hiÓu biÕt cña m×nh vÒ hÖ thèng víi ng­êi sö dông. Trong qu¸ tr×nh thùc hiÖn viÖc m« h×nh ho¸ vµ mçi khi m« h×nh ®­îc hîp thøc ho¸ th× ph©n tÝch viªn cè g¾ng rót ra vÊn ®Ò, nguyªn nh©n vµ lµm hoµn chØnh chóng trªn c¸c phÝch tµi liÖu vÊn ®Ò. Toµn bé c¸c th«ng tin nµy phôc vô cho viÖc ®­a ra chÈn ®o¸n vÒ hÖ thèng ®ang tån t¹i trî gióp x¸c ®Þnh ®­îc c¸c môc tiªu vµ nh÷ng yªu cÇu mµ hÖ thèng míi cÇn ph¶i lµm tho¶ m·n. 3.X©y dùng m« h×nh l« gÝc M« h×nh l« gÝc sÏ ®­îc x©y dùng tõ m« h×nh vËt lý ngoµi vµ tõ c¸c d÷ liÖu thu thËp ®­îc tr­íc ®©y. S¬ ®å luång d÷ liÖu vµ tõ ®iÓn d÷ liÖu lµ tµi liÖu vÒ hÖ thèng. Khi cÇn thiÕt th× s¬ ®å cÊu tróc d÷ liÖu sÏ hoµn chØnh tµi liÖu trªn. Còng nh­ m« h×nh vËt lý ngoµi, m« h×nh l« gÝc m« t¶ hÖ thèng thùc t¹i cho phÐp nhµ ph©n tÝch hîp lÖ ho¸ sù hiÓu biÕt cña m×nh vÒ hÖ thèng víi ng­êi sö dông vµ lµ c«ng cô ®Ó x¸c ®Þnh mét sè vÊn ®Ò cña hÖ thèng còng nh­ nguyªn nh©n cña chóng. M« h×nh l« gÝc còng sÏ ®­îc dïng khi ®­a ra chuÈn ®o¸n cho hÖ thèng thùc t¹i vµ x¸c ®Þnh môc tiªu, c¸c nhu cÇu cña hÖ thèng míi. 4.ThiÕt kÕ CSDL l« gÝc ®i tõ c¸c th«ng tin ra a.X¸c ®Þnh c¸c ®Çu ra LiÖt kª toµn bé c¸c th«ng tin ra (C¸c th«ng tin ra trong hÖ thèng th«ng tin qu¶n lý xuÊt nhËp kkhÈu n«ng s¶n lµ nh÷ng b¸o c¸o tæng hîp tr×nh lªn l·nh ®¹o Bé NN). Néi dung, khèi l­îng, tÇn xuÊt vµ n¬i nhËn cña chóng. b.X¸c ®Þnh c¸c tÖp cÇn thiÕt cung cÊp ®ñ d÷ liÖu cho viÖc t¹o ra tõng ®Çu ra. LiÖt kª c¸c phÇn tö th«ng tin trªn ®Çu ra Thùc hiÖn viÖc chuÈn ho¸ møc 1 Thùc hiÖn viÖc chuÈn ho¸ møc 2 ChuÈn ho¸ møc 3 M« t¶ c¸c tÖp 5.TÝch hîp c¸c tÖp ®Ó chØ t¹o ra mét c¬ së d÷ liÖu Tõ mçi ®Çu ra theo c¸ch thùc hiÖn cña phÇn b sÏ t¹o ra rÊt nhiÒu danh s¸ch vµ mçi danh s¸ch lµ liªn quan tíi mét ®èi t­îng qu¶n lý, cã sù tån t¹i riªng t­¬ng ®èi ®éc lËp. Nh÷ng danh s¸ch nµo cïng m« t¶ vÒ cïng mét thùc thÓ th× ph¶i tÝch hîp l¹i, nghÜa lµ t¹o thµnh mét danh s¸ch chung, b»ng c¸ch tËp hîp tÊt c¶ c¸c thuéc tÝnh chung vµ riªng cña nh÷ng danh s¸ch ®ã. Ch­¬ng III. Ph©n tÝch thiÕt kÕ hÖ thèng th«ng tin qu¶n lý xuÊt nhËp khÈu n«ng s¶n t¹i Bé NN vµ PTNT I.Ph©n tÝch hÖ thèng 1.S¬ ®å chøc n¨ng C¸c ®¬n vÞ trùc thuéc Bé NN göi c¸c b¸o c¸o xuÊt nhËp khÈu ®Õn vô kÕ ho¹ch, c¸c b¸o c¸o nµy ®­îc nh©n viªn nhËp vµo c¬ së d÷ liÖu céng thªm phÇn th«ng tin tæng qu¸t lÊy tõ c¸c b¸o c¸o tæng hîp bªn tæng côc h¶i quan göi sang, sau ®ã tæng hîp, so s¸nh víi kÕ ho¹ch, víi k× tr­íc trong n¨m vµ víi cïng k× n¨m tr­íc göi lªn l·nh ®¹o Bé NN. Toµn bé c«ng viÖc nµy ®­îc thÓ hiÖn trong s¬ ®å sau: L·nh ®¹o Bé NN&PTNT Vô KÕ ho¹ch vµ quy ho¹ch §¬n vÞ thuéc Bé NN B¸o c¸o B¸o c¸o XNK tæng hîp B¸o c¸o tæng hîp Tæng côc h¶i quan 2.S¬ ®å luång th«ng tin 2.1.C¸c d÷ liÖu ®Çu vµo §ã lµ c¸c b¸o c¸o chi tiÕt vÒ xuÊt khÈu hoÆc nhËp khÈu c¸c mÆt hµng n«ng s¶n cña c¸c ®¬n vÞ trùc thuéc Bé NN, c¸c d÷ liÖu trong b¸o c¸o gåm cã: Tªn ®¬n vÞ göi b¸o c¸o, ®Þa chØ ®¬n vÞ, ®iÖn tho¹i, Fax, m· sè b¸o c¸o, thêi ®iÓm b¸o c¸o, tªn c¸c mÆt hµng xuÊt hoÆc nhËp khÈu, ®¬n vÞ tÝnh, sè l­îng, thµnh tiÒn. 2.2. C¸c th«ng tin ®Çu ra §ã lµ b¸o c¸o tæng hîp sau khi ®· d­îc xö lý, c¸c b¸o c¸o nµy chØ lùa chän c¸c mÆt hµng tiªu biÓu ®Ó lªn b¸o c¸o, b¸o c¸o ®­îc lËp hµng th¸ng (b¸o c¸o th¸ng), ®­îc lËp ba th¸ng mét lÇn (b¸o c¸o quÝ), s¸u th¸ng mét lÇn (b¸o c¸o s¸u th¸ng), tæng kÕt hµng n¨m (b¸o c¸o n¨m). C¸c th«ng tin trªn b¸o c¸o gåm cã: C¸c mÆt hµng tiªu biÓu, ®¬n vÞ tÝnh, sè l­îng, trÞ gi¸, tæng gi¸ trÞ xuÊt khÈu hoÆc nhËp khÈu trong k×, tæng gi¸ trÞ tÝch luü ®Õn k×, phÇn tr¨m so s¸nh víi kÕ ho¹ch, phÇn tr¨m so s¸nh víi k× tr­íc, phÇn tr¨m so s¸nh víi cïng k× n¨m ngo¸i. 2.3. S¬ ®å luång th«ng tin cña hÖ thèng th«ng tin qu¶n lý xuÊt nhËp khÈu n«ng s¶n Thêi ®iÓm §¬n vÞ Nh©n viªn: Lª thÞ YÕn L·nh ®¹o Th­êng lµ cuèi th¸ng hoÆc ®Çu th¸ng sau B¸o c¸o In b¸o c¸o So s¸nh víi k× tr­íc Kho d÷ liÖu NhËp B¸o c¸o tæng hîp 2.4.C¸c phÝch luång th«ng tin cã mÉu, phÝch kho chøa d÷ liÖu vµ phÝch xö lý cña s¬ ®å luång th«ng tin trªn. 2.4.1. PhÝch luång th«ng tin cã mÉu (B¸o c¸o) Tªn tµi liÖu: B¸o c¸o xuÊt nhËp khÈu thùc hiÖn hµng th¸ng M« t¶: §©y lµ lo¹i b¸o c¸o chi tiÕt vÒ c¸c mÆt hµng xuÊt khÈu vµ nhËp khÈu cña c¸c ®¬n vÞ trùc thuéc Bé N«ng nghiÖp, tæng côc H¶i quan, b¸o c¸o bao gåm c¸c th«ng tin nh­: Tªn hµng, ®¬n vÞ tÝnh, sè l­îng (nhËp/xuÊt), thµnh tiÒn, sè l­îng, thµnh tiÒn tÝch luü ®Õn k×, % so s¸nh. Tªn IFD cã liªn quan: VËt mang: Trªn giÊy H×nh d¹ng:ë d¹ng b¶ng, chia thµnh c¸c cét, mçi cét lµ mét th«ng tin (Tªn hµng, ®¬n vÞ tÝnh...) Nguån: Tõ c¸c ®¬n vÞ trùc thuéc Bé N«ng nghiÖp, tõ Tæng côc H¶i quan §Ých: Vô kÕ ho¹ch vµ qui ho¹ch - Bé N«ng nghiÖp 2.4.2.PhÝch kho chøa d÷ liÖu Tªn kho d÷ liÖu: Kho d÷ liÖu b¸o c¸o xuÊt nhËp khÈu. M« t¶: Lµ c¸c tÖp v¨n b¶n d÷ liÖu l­u trong c¸c b¶ng d÷ liÖu Access Tªn IFD cã liªn quan: VËt mang: C¸c tÖp d÷ liÖu Ng­êi truy nhËp: Lª thÞ YÕn 2.4.3.C¸c phÝch xö lý a.PhÝch xö lý nhËp Tªn xö lý: NhËp d÷ liÖu M« t¶: NhËp d÷ liÖu vµo c¸c tÖp d÷ liÖu ®· thiÕt lËp theo tõng th¸ng Tªn IFD cã liªn quan: Ph­¬ng tiÖn thùc hiÖn: Bµn phÝm Sù kiÖn khëi sinh:Khi cã c¸c b¸o c¸o göi vÒ Chu k×: Hµng th¸ng CÊu tróc cña thùc ®¬n: Lùa chän c¸c tÖp nhËp hay xuÊt ®Ó nhËp Ph­¬ng ph¸p xö lý: Lùa chän c¸c chØ tiªu tæng qu¸t ®· ®Þnh s½n ®Ó nhËp. b.PhÝch xö lý So s¸nh Tªn xö lý:So s¸nh víi k× tr­íc M« t¶: So s¸nh % sè l­îng, thµnh tiÒn nhËp hoÆc xuÊt cña k× nµy víi k× tr­íc. Ph­¬ng tiÖn thùc hiÖn:Ch­¬ng tr×nh phÇn mÒm Sù kiÖn khëi sinh: Khi lªn b¸o c¸o tæng hîp Chu k×: Hµng th¸ng CÊu tróc cña thùc ®¬n: Ph­¬ng ph¸p xö lý: Chia sè liÖu k× nµy cho k× tr­íc råi nh©n víi 100% c.PhÝch xö lý In b¸o c¸o Tªn xö lý: In b¸o c¸o M« t¶:Lùa chän c¸c b¸o c¸o mµ l·nh ®¹o yªu cÇu ®Ó in Ph­¬ng tiÖn thùc hiÖn: PhÇn mÒm ch­¬ng tr×nh vµ m¸y in Sù kiÖn khëi sinh: Khi cã yªu cÇu cña l·nh ®¹o. Chu k×: Hµng th¸ng CÊu tróc cña thùc ®¬n: §ã lµ c¸c lùa chän vÒ k× b¸o c¸o, kiÓu b¸o c¸o, lo¹i b¸o c¸o. Ph­¬ng ph¸p xö lý: Chän b¸o c¸o vµ in 3.S¬ ®å luång d÷ liÖu cña hÖ thèng th«ng tin qu¶n lý xuÊt nhËp khÈu n«ng s¶n. 3.1.S¬ ®å ng÷ c¶nh Lªn b¸o c¸o §¬n vÞ L·nh ®¹o bé B¸o c¸o B¸o c¸o tæng hîp 3.1.1PhÝch xö lý l« gÝc Tªn xö lý: Lªn b¸o c¸o M« t¶: NhËp d÷ liÖu vµ chän läc th«ng tin ®Ó lªn b¸o c¸o Tªn DFD cã liªn quan: S¬ ®å ng÷ c¶nh cña hÖ thèng C¸c luång d÷ liÖu vµo:C¸c b¸o c¸o thèng kª cña c¸c ®¬n vÞ thuéc Bé N«ng nghiÖp vµ b¸o c¸o cña tæng côc h¶i quan. C¸c luång d÷ liÖu ra: C¸c b¸o c¸o tæng hîp Kho d÷ liÖu sö dông:Kho d÷ liÖu b¸o c¸o xuÊt nhËp khÈu M« t¶ l« gÝc cña xö lý: B¾t ®Çu Chän d÷ liÖu (c¸c mÆt hµng) ®Ó nhËp NÕu ®ang ë cuèi b¸o c¸o th× Thùc hiÖn: NhËp d÷ liÖu NhËp ®Õn b¶n ghi cuèi cïng cña b¸o c¸o th× Thùc hiÖn: TÝnh gi¸ trÞ tÝch luü §äc d÷ liÖu k× tr­íc vµ k× nµy NÕu ®äc ®Õn b¶n ghi cuèi cïng th× Thùc hiÖn:TÝnh phÇn tr¨m so s¸nh cña hai k× Cho ®Õn cuèi tÖp th× Thùc hiÖn: Lùa chän lo¹i b¸o c¸o Lªn b¸o c¸o In b¸o c¸o KÕt thóc 3.2.S¬ ®å DFD møc 0 So s¸nh NhËp b¸o c¸o §¬n vÞ D÷ liÖu cña mét sè tr­êng B¸o c¸o (Tæng GtrÞ k×...) B¸o c¸o ®· xö lý TÖp d÷ liÖu Th«ng tin ®· xö lý L·nh ®¹o bé LËp b¸o c¸o B¸o c¸o tæng hîp 3.2.1.PhÝch xö lý l« gÝc NhËp b¸o c¸o Tªn xö lý: NhËp b¸o c¸o M« t¶: Më form d÷ liÖu cÇn nhËp ®Ó nhËp b¸o c¸o Tªn DFD cã liªn quan: S¬ ®å DFD møc 0 C¸c luång d÷ liÖu vµo: C¸c b¸o c¸o cña c¸c ®¬n vÞ trùc thuéc Bé N«ng nghiÖp. C¸c luång d÷ liÖu ra: C¸c b¸o c¸o ®· ®­îc nhËp Kho d÷ liÖu sö dông: Kho d÷ liÖu b¸o c¸o xuÊt nhËp khÈu M« t¶ l« gÝc cña xö lý B¾t ®Çu Lùa chän c¸c mÆt hµng NÕu ë cuèi b¸o c¸o th× Thùc hiÖn: NhËp d÷ liÖu KÕt thóc 3.2.2.PhÝch xö lý l« gÝc So s¸nh Tªn xö lý: So s¸nh M« t¶: So s¸nh mét sè chØ tiªu cña k× nµy víi k× tr­íc. Tªn DFD cã liªn quan:S¬ ®å DFD møc 0 C¸c luång d÷ liÖu vµo:C¸c b¸o c¸o ®· ®­îc nhËp ë k× nµy vµ k× tr­íc. C¸c luång d÷ liÖu ra: C¸c b¸o c¸o ®· ®­îc them chØ tiªu so s¸nh. Kho d÷ liÖu sö dông: Kho d÷ liÖu b¸o c¸o xuÊt nhËp khÈu. M« t¶ l« gÝc cña xö lý: B¾t ®Çu §äc th«ng tin vÒ sè l­îng, thµnh tiÒn cña c¸c mÆt hµng k× nµy vµ k× tr­íc. NÕu ®ang ë cuèi tÖp th× Thùc hiÖn: So s¸nh KÕt thóc 3.2.3.PhÝch xö lý l« gÝc lËp b¸o c¸o Tªn xö lý: LËp b¸o c¸o M« t¶: Lùa chän th«ng tin ®Ó lªn b¸o c¸o Tªn DFD cã liªn quan: S¬ ®å DFD møc 0 C¸c luång d÷ liÖu vµo: C¸c b¸o c¸o ®· ®­îc xö lý C¸c luång d÷ liÖu ra: C¸c b¸o c¸o tæng hîp Kho d÷ liÖu sö dông: Kho d÷ liÖu b¸o c¸o xuÊt nhËp khÈu M« t¶ l« gÝc cña xö lý: B¾t ®Çu NÕu k× b¸o c¸o kh¸c rçng vµ kiÓu b¸o c¸o kh¸c rçng vµ lo¹i b¸o c¸o kh¸c rçng th×. Thùc hiÖn: Lªn b¸o c¸o In b¸o c¸o KÕt thóc 3.3.S¬ ®å DFD ph©n r· tiÕn tr×nh cËp nhËt §èi chiÕu c¸c chØ tiªu Lùa chän mÆt hµng §¬n vÞ B¸o c¸o B¸o c¸o ®· lùa chän B¸o c¸o ®· ®èi chiÕu TÖp hµng ho¸ B¸o c¸o cña Tæng côc HQ CËp nhËt TÖp d÷ liÖu 3.3.1.PhÝch xö lý l« gÝc lùa chän mÆt hµng Tªn xö lý:Lùa chän mÆt hµng M« t¶: Lùa chän c¸c mÆt hµng n«ng s¶n mÉu cÇn cho b¸o c¸o Tªn DFD liªn quan: S¬ ®å DFD ph©n r· liÕn tr×nh cËp nhËt C¸c luång d÷ liÖu vµo: C¸c b¸o c¸o cña ®¬n vÞ trùc thuéc vµ mÉu b¸o c¸o cÇn thiÕt ®Ó lùa chän mÆt hµng. C¸c luång d÷ liÖu ra: C¸c b¸o c¸o ®· ®­îc lùa chän mÆt hµng Kho d÷ liÖu sö dông: TÖp hµng ho¸ M« t¶ l« gÝc cña xö lý: B¾t ®Çu §äc danh s¸ch c¸c mÆt hµng n«ng s¶n vµ b¸o c¸o NÕu ch­a ë cuèi b¸o c¸o th× Thùc hiÖn: G¹ch ch©n nh÷ng mÆt hµng trong b¸o c¸o cã trong danh s¸ch KÕt thóc 3.3.2.PhÝch xö lý l« gÝc ®èi chiÕu c¸c chØ tiªu Tªn xö lý: §èi chiÕu c¸c chØ tiªu M« t¶: §èi chiÕu ®Ó kiÓm nghiÖm nh÷ng sè liÖu ¨n khíp víi sè liÖu bªn Tæng côc H¶i quan. Tªn DFD liªn quan: S¬ ®å DFD ph©n r· liÕn tr×nh cËp nhËt C¸c luång d÷ liÖu vµo: C¸c b¸o c¸o cña ®¬n vÞ trùc thuéc vµ b¸o c¸o tæng hîp cña Tæng côc H¶i quan. C¸c luång d÷ liÖu ra: C¸c b¸o c¸o ®· ®­îc hiÖu chØnh. Kho d÷ liÖu sö dông: Kho d÷ liÖu b¸o c¸o xuÊt nhËp khÈu, b¸o c¸o cña Tæng côc H¶i quan. M« t¶ l« gÝc cña xö lý: B¾t ®Çu §äc d÷ liÖu b¸o c¸o cña c¸c ®¬n vÞ trùc thuéc vµ b¸o c¸o cña Tæng côc H¶i quan. NÕu ch­a ë cuèi b¸o c¸o cña c¸c ®¬n vÞ trùc thuéc th× Thùc hiÖn: §èi chiÕu sè liÖu NÕu sè liÖu cña cïng chØ tiªu kh¸c nhau Thùc hiÖn: KiÓm tra l¹i sè liÖu vµ chØnh söa KÕt thóc 3.3.3.PhÝch xö lý l« gÝc CËp nhËt Tªn xö lý:CËp nhËt M« t¶: NhËp sè liÖu cña c¸c b¸o c¸o ®· qua xö lý c¸c b­íc trªn Tªn DFD liªn quan: S¬ ®å DFD ph©n r· liÕn tr×nh cËp nhËt C¸c luång d÷ liÖu vµo: C¸c b¸o c¸o cña ®¬n vÞ trùc thuéc vµ c¸c b¸o c¸o cña tæng côc H¶i quan ®· ®­îc xö lý. C¸c luång d÷ liÖu ra: C¸c b¸o c¸o ®· ®­îc nhËp. Kho d÷ liÖu sö dông: Kho d÷ liÖu b¸o c¸o xuÊt nhËp khÈu M« t¶ l« gÝc cña xö lý: B¾t ®Çu §äc danh s¸ch c¸c mÆt hµng trong b¸o c¸o NÕu ch­a ë cuèi b¸o c¸o th× Thùc hiÖn: NhËp d÷ liÖu KÕt thóc 3.4.S¬ ®å DFD ph©n r· tiÕn tr×nh so s¸nh Lùa chän c¸c tr­êng C¸c tr­êng d÷ liÖu D÷ liÖu TÖp d÷ liÖu trong k× D÷ liÖu So s¸nh k× tr­íc 3.4.1.PhÝch xö lý l« gÝc lùa chän c¸c tr­êng Tªn xö lý: Lùa chän c¸c tr­êng so s¸nh M« t¶: Lùa chän mét sè tr­êng nh­ sè l­îng, thµnh tiÒn ®Ó so s¸nh víi k× tr­íc hay so s¸nh víi kÕ ho¹ch. Tªn DFD cã liªn quan: DFD ph©n r· tiÕn tr×nh so s¸nh C¸c luång d÷ liÖu vµo: C¸c b¸o c¸o cña k× tr­íc vµ k× nµy C¸c luång d÷ liÖu ra: C¸c b¸o c¸o ®· ®­îc ®Þnh d¹ng mét sè tr­êng so s¸nh Kho d÷ liÖu sö dông: Kho d÷ liÖu b¸o c¸o xuÊt nhËp khÈu M« t¶ l« gÝc xö lý: B¾t ®Çu Lùa chän KÕt thóc 3.4.2.PhÝch xö lý l« gÝc so s¸nh Tªn xö lý: So s¸nh M« t¶: TÝnh phÇn tr¨m so s¸nh k× nµy víi k× tr­íc. Tªn DFD cã liªn quan: DFD ph©n r· tiÕn tr×nh so s¸nh C¸c luång d÷ liÖu vµo: C¸c b¸o c¸o cña k× tr­íc vµ k× nµy C¸c luång d÷ liÖu ra: C¸c b¸o c¸o ®· ®­îc so s¸nh mét sè tr­êng. Kho d÷ liÖu sö dông: Kho d÷ liÖu b¸o c¸o xuÊt nhËp khÈu M« t¶ l« gÝc xö lý: B¾t ®Çu §äc d÷ liÖu cña b¸o c¸o k× nµy vµ k× tr­íc NÕu ch­a ®Õn cuèi b¸o c¸o k× nµy th× Thùc hiÖn: Chia sè liÖu k× nµy cho k× tr­íc råi nh©n víi 100%KÕt thóc 3.5.S¬ ®å DFD ph©n r· tiÕn tr×nh lËp b¸o c¸o L·nh ®¹o bé Lùa chän kiÓu b¸o c¸o Nh÷ng yªu cÇu th«ng tin B¸o c¸o tæng hîp KiÓu b¸o c¸o TÖp b¸o c¸o LËp b¸o c¸o Lùa chän th«ng tin b¸o c¸o TÖp d÷ liÖu B¸o c¸o Th«ng tin Th«ng tin ®· lùa chän 3.5.1.PhÝch l« gÝc xö lý lùa chän kiÓu b¸o c¸o Tªn xö lý: Lùa chän kiÓu b¸o c¸o M« t¶: B¸o c¸o cã nhiÒu kiÓu (b¸o c¸o theo hµng nhËp cña k× nµo, b¸o c¸o theo hµng xuÊt cña k× nµo...) nªn cÇn lùa chän b¸o c¸o theo kiÓu nµo? Tªn DFD cã liªn quan: DFD ph©n r· tiÕn tr×nh lËp b¸o c¸o C¸c luång d÷ liÖu vµo: Nh÷ng yªu cÇu th«ng tin cña l·nh ®¹o C¸c luång d÷ liÖu ra: KiÓu b¸o c¸o Kho d÷ liÖu mµ sö dông: TÖp b¸o c¸o M« t¶ l« gÝc xö lý: B¾t ®ÇuNÕu ch­a hÕt tÖp b¸o c¸o Thùc hiÖn: §äc yªu cÇu th«ng tin b¸o c¸o, ®äc tÖp b¸o c¸o. NÕu yªu cÇu kiÓu b¸o c¸o b»ng kiÓu b¸o c¸o trong tÖp b¸o c¸o Thùc hiÖn: Chän kiÓu b¸o c¸o KÕt thóc 3.5.2.PhÝch l« gÝc xö lý lùa chän th«ng tin b¸o c¸o Tªn xö lý: Lùa chän th«ng tin b¸o c¸o M« t¶: B¸o c¸o cã nhiÒu th«ng tin (b¸o c¸o theo n­íc, b¸o c¸o theo k× nµo...) nªn cÇn lùa chän b¸o c¸o theo th«ng tin nµo? Tªn DFD cã liªn quan: DFD ph©n r· tiÕn tr×nh lËp b¸o c¸o C¸c luång d÷ liÖu vµo: Nh÷ng yªu cÇu th«ng tin cña l·nh ®¹o C¸c luång d÷ liÖu ra: KiÓu b¸o c¸o vµ th«ng tin b¸o c¸o Kho d÷ liÖu mµ sö dông: Kho d÷ liÖu b¸o c¸o xuÊt nhËp khÈu M« t¶ l« gÝc xö lý: B¾t ®Çu Thùc hiÖn: Chän th«ng tin b¸o c¸o KÕt thóc 3.5.3.PhÝch l« gÝc xö lý lËp b¸o c¸o Tªn xö lý: lËp b¸o c¸o M« t¶: Lªn b¸o c¸o vµ in b¸o c¸o Tªn DFD cã liªn quan: DFD ph©n r· tiÕn tr×nh lËp b¸o c¸o C¸c luång d÷ liÖu vµo: Th«ng tin ®· lùa chän C¸c luång d÷ liÖu ra: B¸o c¸o tæng hîp Kho d÷ liÖu mµ sö dông: Kho d÷ liÖu b¸o c¸o xuÊt nhËp khÈu M« t¶ l« gÝc xö lý: B¾t ®Çu NÕu th«ng tin b¸o c¸o kh¸c rçng th× Thùc hiÖn: Lªn b¸o c¸o In b¸o c¸o KÕt thóc II.ThiÕt kÕ CSDL l« gÝc ®i tõ c¸c th«ng tin ra 1.X¸c ®Þnh c¸c th«ng tin ra 1.1.B¸o c¸o tæng hîp theo hµng ho¸ 1.2.B¸o c¸o tæng hîp theo n­íc 1.3.B¸o c¸o tæng hîp theo ®¬n vÞ nhËp xuÊt 1.4.B¸o c¸o tæng hîp theo ho¹t ®éng nhËp hoÆc xuÊt 1.5.B¸o c¸o theo khu vùc 2.X¸c ®Þnh c¸c tÖp cÇn thiÕt cung cÊp d÷ liÖu cho viÖc t¹o ra tõng ®Çu ra. 2.1 LiÖt kª c¸c phÇn tö th«ng tin trªn ®Çu ra Sè b¸o c¸o ngµy lËp b¸o c¸o Kú b¸o c¸o N¨m b¸o c¸o Tæng trÞ gi¸ nhËp khÈu trong k× Tæng trÞ gi¸ xuÊt khÈu trong k× Tæng gi¸ trÞ nhËp khÈu tÝch luü ®Õn k× Tæng gi¸ trÞ xuÊt khÈu tÝch luü ®Õn k× Tªn ®¬n vÞ b¸o c¸o (R) §Þa chØ (R) §iÖn tho¹i (R) Tªn n­íc nhËp hoÆc xuÊt (R) Tªn khu vùc (R) Tªn lo¹i hµng (R) M· hµng nhËp (R) Tªn hµng nhËp (R) §¬n vÞ tÝnh (R) Sè l­îng nhËp (R) TrÞ gi¸ (R) M· hµng xuÊt (R) Tªn hµng xuÊt (R) §¬n vÞ tÝnh (R) Sè l­îng xuÊt (R) TrÞ gi¸ (R) 2.2. Thùc hiÖn viÖc chuÈn ho¸ møc 1 (1.NF) ChuÈn ho¸ møc 1 quy ®Þnh r»ng, trong mçi danh s¸ch kh«ng ®­îc phÐp chøa c¸c thuéc tÝnh lÆp. NÕu cã c¸c thuéc tÝnh lÆp th× ph¶i t¸ch c¸c thuéc tÝnh lÆp ®ã ra thµnh c¸c danh s¸ch con. Kú b¸o c¸o Sè b¸o c¸o Ngµy lËp b¸o c¸o Kú b¸o c¸o N¨m b¸o c¸o Tæng gi¸ trÞ nhËp hoÆc xuÊt trong k× Tæng gi¸ trÞ nhËp hoÆc xuÊt tÝch luü ®Õn k× Hµng ho¸ nhËp xuÊt Sè b¸o c¸o Tªn ®¬n vÞ §Þa chØ §iÖn tho¹i Tªn n­íc Tªn khu vùc Tªn lo¹i hµng M· hµng nhËp Tªn hµng nhËp §¬n vÞ tÝnh Sè l­îng nhËp TrÞ gi¸ M· hµng xuÊt Tªn hµng xuÊt §¬n vÞ tÝnh Sè l­îng TrÞ gi¸ 2.3. Thùc hiÖn chuÈn ho¸ møc 2 (2.NF) ChuÈn ho¸ møc 2 quy ®Þnh r»ng, trong mét danh s¸ch mçi thuéc tÝnh ph¶i phô thuéc hµm vµo toµn bé kho¸ chø kh«ng chØ phô thuéc vµo mét phÇn cña kho¸. NÕu cã sù phô thuéc nh­ vËy th× ph¶i t¸ch nh÷ng thuéc tÝnh phô thuéc hµm vµo bé phËn cña kho¸ thµnh mét danh s¸ch con míi. Kú b¸o c¸o Sè b¸o c¸o Ngµy lËp b¸o c¸o Kú b¸o c¸o N¨m b¸o c¸o Tæng gi¸ trÞ nhËp hoÆc xuÊt trong k× Tæng gi¸ trÞ nhËp hoÆc xuÊt tÝch luü ®Õn k× Khu vùc M· khu vùc Tªn khu vùc Quèc gia M· n­íc Tªn n­íc Lo¹i hµng M· lo¹i hµng Tªn lo¹i hµng §¬n vÞ b¸o c¸o M· ®¬n vÞ Tªn ®¬n vÞ §Þa chØ §iÖn tho¹i Sè Fax Hµng ho¸ Sè b¸o c¸o M· hµng nhËp Tªn hµng nhËp §¬n vÞ tÝnh Sè l­îng nhËp TrÞ gi¸ M· hµng xuÊt Tªn hµng xuÊt §¬n vÞ tÝnh Sè l­îng xuÊt TrÞ gi¸ 2.4. Thùc hiÖn chuÈn ho¸ møc 3 (3.NF) ChuÈn ho¸ møc 3 quy ®Þnh r»ng, trong mét danh s¸ch kh«ng ®­îc phÐp cã sù phô thuéc b¾c cÇu gi÷a c¸c thuéc tÝnh. Kú b¸o c¸o Sè b¸o c¸o Ngµy lËp b¸o c¸o Kú b¸o c¸o N¨m b¸o c¸o Tæng gi¸ trÞ nhËp hoÆc xuÊt trong k× Tæng gi¸ trÞ nhËp hoÆc xuÊt tÝch luü ®Õn k× Khu vùc M· khu vùc Tªn khu vùc Quèc gia M· n­íc Tªn n­íc Lo¹i hµng M· lo¹i hµng Tªn lo¹i hµng §¬n vÞ b¸o c¸o M· ®¬n vÞ Tªn ®¬n vÞ §Þa chØ §iÖn tho¹i Sè Fax Danh s¸ch hµng nhËp M· hµng nhËp Tªn hµng nhËp Danh s¸ch hµng XuÊt M· hµng nhËp Tªn hµng nhËp Hµng nhËp M· hµng nhËp Tªn hµng nhËp §¬n vÞ tÝnh Sè l­îng TrÞ gi¸ Hµng XuÊt M· hµng xuÊt Tªn hµng xuÊt §¬n vÞ tÝnh Sè l­îng TrÞ gi¸ 3.X¸c ®Þnh liªn hÖ l« gÝc gi÷a c¸c tÖp vµ s¬ ®å cÊu tróc d÷ liÖu. X¸c ®Þnh mèi liªn hÖ l« gÝc gi÷a c¸c tÖp, biÓu diÔn mèi quan hÖ mét-nhiÒu b»ng mòi tªn mét chiÒu, trong ®ã mòi tªn chØ vÒ phÝa nhiÒu. BiÓu diÔn c¸c tÖp vµ vÏ s¬ ®å liªn kÕt gi÷a c¸c tÖp cña hÖ thèng th«ng tin qu¶n lý xuÊt nhËp khÈu n«ng s¶n ®­îc thÓ hiÖn nh­ sau: 4.Cô thÓ ho¸ tõng tÖp trong c¬ së d÷ liÖu 4.1.TÖp §¬n vÞ (Donvi) Tªn tr­êng KiÓu d÷ liÖu §é réng Chó thÝch *Madv Text 15 M· ®¬n vÞ Tendv Text 50 Tªn ®¬n vÞ Diachi Text 50 §Þa chØ Dienthoai Text 14 §iÖn tho¹i Fax Text 14 Sè Fax 4.2. TÖp Quèc gia (Nuoc) Tªn tr­êng KiÓu d÷ liÖu §é réng Chó thÝch *Manuoc Text 15 M· n­íc Makv Text 10 M· khu vùc Tennuoc Text 50 Tªn n­íc 4.3.TÖp Khu vùc (Khuvuc) Tªn tr­êng KiÓu d÷ liÖu §é réng Chó thÝch *Makv Text 10 M· khu vùc Tenkv Text 30 Tªn khu vùc 4.4.TÖp lo¹i hµng (Loaihang) Tªn tr­êng KiÓu d÷ liÖu §é réng Chó thÝch *Maloai Text 15 M· lo¹i hµng Tenloai Text 60 Tªn lo¹i hµng 4.5.TÖp Danh s¸ch hµng nhËp (DShangnhap) Tªn tr­êng KiÓu d÷ liÖu §é réng Chó thÝch *Mahang Text 12 M· hµng nhËp Maloai Text 15 M· lo¹i hµng Tenhang Text 60 Tªn hµng nhËp 4.6.TÖp Danh s¸ch hµng xuÊt (DShangxuat) Tªn tr­êng KiÓu d÷ liÖu §é réng Chó thÝch *Mahang Text 12 M· hµng xuÊt Maloai Text 15 M· lo¹i hµng Tenhang Text 60 Tªn hµng xuÊt 4.7.TÖp K× thùc hiÖn (Ky) Tªn tr­êng KiÓu d÷ liÖu §é réng Chó thÝch *Sobaocao number Long int Sè b¸o c¸o Ngay Date/Time dd/mm/yyyy Ngµy lËp b¸o c¸o Maky Number Long int Kú b¸o c¸o Nam Number Long int N¨m b¸o c¸o Giatriki Number Double Tæng GtrÞ N/X trong k× Giatritichluy Number Double Tæng GtrÞ tÝch luü Loaibaocao Text 1 Lo¹i b¸o c¸o (N/X) 4.8.TÖp hµng nhËp (Hangnhap) Tªn tr­êng KiÓu d÷ liÖu §é réng Chó thÝch Mahang Text 12 M· hµng nhËp Madv Text 15 M· ®¬n vÞ Manuoc Text 15 M· n­íc Sobaocao Number Long int Sè b¸o c¸o Tenhang Text 60 Tªn hµng nhËp Dvitinh Text 10 §¬n vÞ tÝnh Soluong Number Double Sè l­îng nhËp Thanhtien Number Double Thµnh tiÒn *Hangnhapid Number Long int T¹o kho¸ chÝnh 4.9.TÖp hµng xuÊt (Hangxuat) Tªn tr­êng KiÓu d÷ liÖu §é réng Chó thÝch Mahang Text 12 M· hµng xuÊt Madv Text 15 M· ®¬n vÞ Manuoc Text 15 M· n­íc Sobaocao Number Long int Sè b¸o c¸o Tenhang Text 60 Tªn hµng xuÊt Dvitinh Text 10 §¬n vÞ tÝnh Soluong Number Double Sè l­îng xuÊt Thanhtien Number Double Thµnh tiÒn *Hangxuatid Number Long int T¹o kho¸ chÝnh 5.S¬ ®å DSD cña ch­¬ng tr×nh thiÕt kÕ trªn c¬ së d÷ liÖu Access. III.ThiÕt kÕ m« ®un chøc n¨ng hÖ thèng 1.Form Lo¹i hµng §©y lµ form tõ ®iÓn, cã chøc n¨ng nhËp danh môc c¸c lo¹i hµng ®Ó lµm nguån lùa chän cho form danh s¸ch hµng ho¸. Së dÜ cã form nµy lµ v× hµng ho¸ xuÊt khÈu hoÆc nhËp khÈu ®­îc chia ra lµm hai møc, møc mét lµ c¸c lo¹i hµng vµ møc hai lµ c¸c nhãm hµng ho¸ ®­îc chia theo lo¹i hµng. Khi cÇn tæng hîp, ta cã thÓ tæng hîp theo tõng lo¹i hµng ho¸ xuÊt khÈu hoÆc nhËp khÈu trong k×. Form cã nh÷ng chøc n¨ng ®Ó thªm míi hoÆc xo¸ bá mét sè b¶n ghi kh«ng cÇn thiÕt hoÆc nhËp sai. 2.Form khu vùc D÷ liÖu trong form th­êng ®­îc chia thµnh n¨m khu vùc lµ n¨m ch©u trªn thÕ giíi, form nµy cã tÝch chÊt ®¬n gi¶n chØ dïng ®Ó tæng hîp d÷ liÖu theo khu vùc, tøc lµ tæng hîp t×nh h×nh nhËp khÈu hoÆc xuÊt khÈu theo tõng khu vùc. Form nµy còng cã chøc n¨ng nhËp míi hoÆc xo¸ bá nh÷ng khu vùc kh«ng cÇn thiÕt. 3.Form ®¬n vÞ §©y lµ form tõ ®iÓn, dïng ®Ó thªm vµ l­u c¸c ®¬n vÞ thuéc Bé N«ng nghiÖp vµ ph¸t triÓn n«ng th«n, c¸c ®¬n vÞ nµy tham gia xuÊt nhËp khÈu hµng th¸ng vµ göi b¸o c¸o vÒ t×nh h×nh xuÊt nhËp khÈu cña ®¬n vÞ m×nh lªn Bé NN. C¸c th«ng tin ®­îc l­u bao gåm tªn ®¬n vÞ, ®Þa chØ, ®iÖn tho¹i, sè fax ®Ó tiÖn liªn l¹c khi cÇn ®èi chiÕu l¹i th«ng tin. Khi lªn b¸o c¸o, cã mét lo¹i b¸o c¸o t×nh h×nh nhËp khÈu hoÆc xuÊt khÈu theo tõng ®¬n vÞ. Form nµy cã chøc n¨ng cung cÊp danh s¸ch c¸c ®¬n vÞ tham gia xuÊt nhËp khÈu trong th¸ng ®Ó ng­êi nhËp tiÖn lùa chän. 4.Form c¸c n­íc ®èi t¸c §©y lµ form dïng ®Ó nhËp tªn c¸c n­íc tham gia giao dÞch th­¬ng m¹i víi ViÖt nam, form nµy cã chøc n¨ng cung cÊp danh s¸ch c¸c n­íc tham gia xuÊt nhËp khÈu trong k×, ®ång thêi ®Ó lªn b¸o c¸o tæng hîp theo n­íc xuÊt khÈu hoÆc nhËp khÈu víi nh÷ng chØ tiªu nh­ kim ng¹ch xuÊt nhËp khÈu cña tõng mÆt hµng hay tæng kim ng¹ch xuÊt nhËp khÈu cña tÊt c¶ c¸c mÆt hµng n«ng s¶n. §©y lµ danh môc tõ ®iÓn, trî gióp qu¸ tr×nh nhËp xuÊt d÷ liÖu cña form ch­¬ng tr×nh chÝnh, ng­êi nhËp chØ cÇn nhËp mét lÇn. Giao diÖn form ®­îc thÓ hiÖn qua h×nh ¶nh sau: 5.Form danh s¸ch hµng xuÊt vµ danh s¸ch hµng nhËp §©y lµ hai form danh môc cã chøc n¨ng cung cÊp danh s¸ch nh÷ng mÆt hµng n«ng s¶n th­êng xuyªn xuÊt khÈu hoÆc th­êng xuyªn nhËp khÈu. Së dÜ ph¶i t¸ch ra lµm hai form v× nh÷ng mÆt hµng xuÊt khÈu vµ nh÷ng mÆt hµng nhËp khÈu th­êng kh¸c nhau, mÆt kh¸c hai form nµy trî gióp qu¸ tr×nh nhËp d÷ liÖu lµ chÝnh, nÕu gép chung l¹i th× sè l­îng mÆt hµng sÏ rÊt nhiÒu, lµm phøc t¹p ho¸ qu¸ tr×nh lùa chän. Sau ®©y lµ h×nh ¶nh cña hai form chøc n¨ng nµy: IV.Mét sè giao diÖn chÝnh cña ch­¬ng tr×nh 1.Form chÝnh cña ch­¬ng tr×nh Khi b¾t ®Çu ch­¬ng tr×nh phÇn mÒm, b¹n ph¶i th«ng qua form nµy ®Ó thùc hiÖn c¸c m« dun chøc n¨ng. B¹n kÝch vµo “HÖ thèng” trªn form ®Ó chän c¸c m« ®un chøc n¨ng cÇn nhËp d÷ liÖu hoÆc söa d÷ liÖu tõ ®iÓn, kÝch vµo “Hµng nhËp”, “Hµng xuÊt” trªn thùc ®¬n hoÆc trªn thanh c«ng cô ®Ó hiÓn thÞ hai mµn h×nh chÝnh (form chÝnh) cña ch­¬ng tr×nh, khi cÇn lªn b¸o c¸o tæng hîp b¹n kÝch vµo “B¸o c¸o tæng hîp” trªn thùc ®¬n hoÆc nót “B¸o c¸o” trªn thanh c«ng cô ®Ó chän lo¹i b¸o c¸o vµ k× b¸o c¸o, kÝch vµo trî gióp b¹n sÏ ®­îc giíi thiÖu vÒ ch­¬ng tr×nh phÇn mÒm nµy vµ h­íng dÉn sö dông nã. 2.Form D÷ liÖu hµng nhËp §©y lµ form ®­îc th­êng xuyªn sö dông ®Ó cËp nhËt d÷ liÖu vµ lªn b¸o c¸o víi bèn lo¹i b¸o c¸o theo th¸ng, quÝ, s¸u th¸ng vµ n¨m. VÝ dô, nÕu b¹n tÝch vµo Kú b¸o c¸o bªn s¬ ®å c©y th× bªn l­íi sÏ hiÖn tÊt c¶ c¸c lo¹i b¸o c¸o trªn trong tÊt c¶ c¸c n¨m, cßn nÕu b¹n chän quÝ 1 ch¼ng h¹n th× bªn l­íi sÏ chØ hiÖn c¸c b¸o c¸o quÝ 1 cña tÊt c¶ c¸c n¨m ®Ó lùa chän. NÕu b¹n muèn thªm d÷ liÖu hµng ho¸ vµo bÊt k× mét b¸o c¸o nµo, b¹n chØ cÇn tÝch vµo b¸o c¸o ®ã råi kÝch vµo nót cËp nhËt trªn thanh c«ng cô, lËp tøc sÏ cã mét form hµng nhËp hiÖn lªn víi chØ nh÷ng th«ng tin vÒ hµng ho¸ cña b¸o c¸o ®ã, b¹n cã thÓ thªm míi hoÆc lo¹i bá hay chØnh söa bÊt k× mét lo¹i hµng ho¸ nµo trªn b¸o c¸o ®ã. Sè b¸o c¸o ®­îc tù sinh ra theo chiÒu t¨ng cña d·y sè tù nhiªn. Sau ®©y lµ form hµng nhËp khi cËp nhËt hay thªm míi b¸o c¸o. NÕu b¹n muèn bæ sung thªm b¸o c¸o míi, b¹n kÝch vµo nót “Bæ sung” trªn thanh c«ng cô, sÏ cã mét form hiÖn ra ®Ó b¹n chän kiÓu b¸o c¸o (B¸o c¸o th¸ng, b¸o c¸o quÝ, b¸o c¸o s¸u th¸ng hay b¸o c¸o n¨m) råi chän k× b¸o c¸o lµ th¸ng mÊy hoÆc quÝ mÊy, n¨m bao nhiªu, nÕu mÆc ®Þnh sÏ lµ n¨m hiÖn thêi. Sau ®ã b¹n bÊm tiÕp tôc th× form hµng nhËp sÏ hiÖn ra ®Ó b¹n ®iÒn nèt th«ng sè tæng gi¸ trÞ nhËp trong k× vµ tæng gi¸ trÞ nhËp tÝch luü ®Õn k× sau ®ã b¹n kÝch vµo nót “Thªm dßng” ®Ó nhËp c¸c gi¸ trÞ vÒ hµng ho¸ cña b¸o c¸o ®ã. NÕu b¹n muèn xo¸ bá mét b¸o c¸o nµo ®ã, tõ form danh s¸ch b¸o c¸o hµng nhËp, b¹n chØ cÇn chän b¸o c¸o cÇn xo¸ trªn l­íi råi kÝch v¸o nót “Xo¸ bá” trªn thanh c«ng cô lµ xong. NÕu muèn in b¸o c¸o ngay trªn form hµng nhËp nµy, b¹n chØ cÇn chän sè b¸o c¸o cÇn in trªn l­íi råi kÝch vµo nót “In b¸o c¸o” trªn thanh c«ng cô lµ ®­îc. Sau ®©y lµ form trung gian khi bæ sung b¸o c¸o: 3.Form D÷ liÖu hµng xuÊt VÒ c¬ b¶n, c¸c chøc n¨ng cña form nµy gièng hÖt víi form d÷ liÖu hµng nhËp. Khi b¹n kÝch vµo nót cËp nhËt còng hiÖn form hµng xuÊt sau: Khi b¹n kÝch vµo nót “Bæ sung” tøc lµ bæ sung b¸o c¸o míi th× form sau sÏ hiÖn lªn, c¸c thñ tôc thao t¸c t­¬ng tù nh­ ®èi víi hµng nhËp. NÕu muèn xo¸ hay in b¸o c¸o còng chØ cÇn kÝch vµo “Xo¸ bá” hoÆc “In b¸o c¸o” trªn thanh c«ng cô sau khi ®· chän b¸o c¸o ®Ó thùc hiÖn. 4.S¬ ®å liªn kÕt m« ®un cña phÇn mÒm PhÇn mÒm CËp nhËt B¸o c¸o Kú b¸o c¸o Form tõ ®iÓn Form cËp nhËt B¸o c¸o ®¬n vÞ DL hµng xuÊt DL hµng nhËp Khu vùc Hµng xuÊt Hµng nhËp N­íc B¸o c¸o n­íc Lo¹i hµng B¸o c¸o hµng ho¸ DS hµng nhËp DS hµng xuÊt §vÞ tÝnh V.Mét sè b¸o c¸o cña ch­¬ng tr×nh §Ó lªn b¸o c¸o, b¹n ph¶i kÝch vµo nót b¸o c¸o trªn form mµn h×nh chÝnh råi chän b¸o c¸o nhËp hay b¸o c¸o xuÊt, sau ®ã b¹n ph¶i chän k× b¸o c¸o, n¨m b¸o c¸o, kiÓu b¸o c¸o (cã 3 kiÓu b¸o c¸o ®ã lµ: B¸o c¸o theo hµng ho¸, b¸o c¸o theo ®¬n vÞ nhËp xuÊt, b¸o c¸o theo n­íc). Tãm l¹i, trong ch­¬ng tr×nh nµy cã 24 b¸o c¸o chÝnh, nh­ng míi chØ hoµn thµnh ®­îc 2 b¸o c¸o lµ b¸o c¸o nhËp vµ b¸o c¸o xuÊt theo th¸ng, víi c¸c b¸o c¸o ®Òu cho phÐp hiÖu chØnh c¸c th«ng sè nh­ng kh«ng l­u sù hiÖu chØnh ®ã vµo c¬ së d÷ liÖu, ngoµi ra cßn cã b¸o c¸o ®­îc lªn trùc tiÕp tõ form b¸o c¸o hµng nhËp vµ b¸o c¸o hµng xuÊt, c¸c b¸o c¸o nµy ®¬n gi¶n thiÕt kÕ b»ng c«ng cô cña V.Basic, néi dung lµ b¸o c¸o theo tõng sè cña b¸o c¸o, cã b¸o c¸o nµy chØ dïng ®Ó tham kh¶o chø th­êng kh«ng ®­îc sö dông khi lÊy th«ng tin .Sau ®©y lµ form chän b¸o c¸o: 1.B¸o c¸o th¸ng theo hµng ho¸ nhËp khÈu vµ xuÊt khÈu §©y lµ b¸o c¸o ®­îc sö dông ®Ó lªn b¸o c¸o theo hµng ho¸ trong k×, b¸o c¸o nµy liÖt kª tÊt c¶ nh÷ng n­íc xuÊt khÈu mÆt hµng nµy vµ nh÷ng n­íc xuÊt khÈu mÆt hµng nµy k× tr­íc, sau ®ã céng tæng sè l­îng nhËp khÈu k× tr­íc víi k× b¸o c¸o vµ thµnh tiÒn k× tr­íc víi k× b¸o c¸o thµnh sè l­îng tÝch luü vµ thµnh tiÒn tÝch luü, tÝnh phÇn tr¨m so s¸nh k× tr­íc víi k× nµy, nÕu k× tr­íc n­íc nµo ®ã kh«ng nhËp mÆt hµng nµy nh­ng k× nµy l¹i nhËp hoÆc k× tr­íc nhËp nh­ng k× nµy kh«ng nhËp th× phÇn tr¨m so s¸nh víi k× tr­íc c¶ vÒ sè l­îng vµ thµnh tiÒn ®Òu b»ng kh«ng. Cßn vÒ b¸o c¸o theo hµng ho¸ xuÊt khÈu còng t­¬ng tù nh­ hµng ho¸ nhËp khÈu, liÖt kª tÊt c¶ c¸c n­íc xuÊt khÈu mÆt hµng nµo ®ã. C¸c b¸o c¸o nµy sÏ lªn b¸o c¸o tÊt c¶ c¸c mÆt hµng ®· nhËp khÈu hoÆc xuÊt khÈu trong k×. Sau ®©y lµ hai b¸o c¸o nhËp khÈu th¸ng 02 vµ xuÊt khÈu th¸ng 04. §Æc biÖt trong hai b¸o c¸o nµy cßn cã thªm chøc n¨ng söa l¹i b¸o c¸o nÕu cÇn thiÕt, b¹n cã thÓ söa l¹i nh÷ng th«ng tin trªn b¸o c¸o nh­ng nh÷ng sù söa ®æi nµy chØ cã ý nghÜa khi in b¸o c¸o cßn b¶n th©n nh÷ng hiÖu chØnh ®ã kh«ng ®­îc l­u trong b¸o c¸o. Sau khi hiÖu chØnh ë Front page b¹n cÇn kÝch vµo nót ®äc l¹i trªn thanh c«ng cô ®Ó hiÖn nh÷ng hiÖu chØnh cña b¹n trªn b¸o c¸o. Sau ®ã b¹n ph¶i kÝch v¸o nót ra m¸y in lu«n, v× hiÖu chØnh cña b¹n kh«ng ®­îc l­u trë l¹i c¬ së d÷ liÖu. Sau ®©y lµ b¸o c¸o nhËp khÈu ®Ó xem c¸c mÆt hµng trong tõng sè b¸o c¸o: 2.B¸o c¸o th¸ng theo ®¬n vÞ nhËp khÈu vµ ®¬n vÞ xuÊt khÈu D¹ng b¸o c¸o nµy l¹i liÖt kª tÊt c¶ c¸c hµng ho¸ cña tõng ®¬n vÞ ®· nhËp khÈu hoÆc xuÊt khÈu trong k×, mçi b¸o c¸o lµ toµn bé c¸c ®¬n vÞ tham gia xuÊt/nhËp trong k× chø kh«ng ph¶i mçi b¸o c¸o chØ b¸o c¸o vÒ mét ®¬n vÞ. VÒ h×nh thøc, lo¹i b¸o c¸o nµy gièng víi b¸o c¸o nhËp xuÊt theo hµng theo tõng th¸ng ®· nãi ë trªn, nh­ng thay v× liÖt kª tÊt c¶ c¸c n­íc nhËp/xuÊt trong k×, lÊy gi¸ trÞ tÝch luü vµ tÝnh phÇn tr¨m so s¸nh víi k× tr­íc th× b¸o c¸o nµy l¹i liÖt kª c¸c mÆt hµng ®· nhËp/xuÊt trong k× vµ tÝnh c¸c chØ tiªu trªn theo mÆt hµng ®ã. B¸o c¸o nµy hiÖn ch­a ®­îc hoµn thµnh. 3.B¸o c¸o th¸ng theo n­íc nhËp khÈu hoÆc xuÊt khÈu D¹ng b¸o c¸o nµy liÖt kª tÊt c¶ c¸c mÆt hµng nhËp khÈu hoÆc xuÊt khÈu cña tõng n­íc, tÝnh gi¸ trÞ tÝch luü vµ tÝnh phÇn tr¨m so s¸nh ®Òu theo mÆt hµng. Trªn mét b¸o c¸o còng sÏ cã th«ng tin cña tÊt c¶ c¸c n­íc tham gia nhËp xuÊt trong k×. B¸o c¸o nµy ch­a ®­îc hoµn thµnh. 4.B¸o c¸o quÝ theo hµng nhËp, hµng xuÊt §ã lµ b¸o c¸o tæng hîp cña ba th¸ng ®Çu n¨m (nÕu lµ quÝ 1) vµ cø thÕ tiÕp theo, nh­ng b¸o c¸o ph¶i chøa tÊt c¶ c¸c mÆt hµng ®· ®­îc nhËp/xuÊt trong quÝ. B¸o c¸o quÝ theo hµng ho¸ ch­a ®­îc x©y dùng. 5.Mét sè b¸o c¸o kh¸c §ã lµ b¸o c¸o s¸u th¸ng vµ b¸o c¸o n¨m theo hµng ho¸, theo n­íc, theo ®¬n vÞ hoÆc cã thÓ theo lo¹i hµng, nh­ng c¸c lo¹i b¸o c¸o nµy ch­a ®­îc thiÕt kÕ nªn kh«ng tr×nh bµy ra ®©y. VI.ViÖc chän phÇn mÒm vµ qu¸ tr×nh viÕt ch­¬ng tr×nh 1.ViÖc chän phÇn mÒm Visual Basic lµ mét ng«n ng÷ lËp tr×nh th«ng dông trong viÖc thiÕt kÕ mét ch­¬ng tr×nh phÇn mÒm. Ng«n ng÷ nµy cã ­u ®iÓm lµ giao diÖn ®Ñp, kh¶ n¨ng kÕt nèi d÷ liÖu rÊt tèt, c¸c form ch­¬ng tr×nh dÔ thiÕt kÕ vµ ®Æc biÖt lµ kh¶ n¨ng giao tiÕp víi Web kh¸ tèt, h¬n n÷a trong bé Visual studio 7.0, ng«n ng÷ nµy ®· ®­îc tiÕp tôc ph¸t triÓn, n©ng lªn mét b­íc quan träng lµ dïng ®Ó thiÕt kÕ c¸c trang Web-mét phÇn mÒm phæ dông trong lËp tr×nh hiÖn nay. Khi míi b¾t ®Çu thiÕt kÕ ch­¬ng tr×nh b»ng ng«n ng÷ thÕ hÖ 4, th× Visual Basic cho ta mét c¸ch häc dÔ dµng h¬n nhiÒu víi c¸c c©u lÖnh râ dµng vµ c¸c sù kiÖn, ph­¬ng thøc ®­îc liÖt kª kh«ng cÇn ph¶i nhí. Víi ®Ò tµi “HÖ thèng th«ng tin qu¶n lý xuÊt nhËp khÈu n«ng s¶n” ®· chän, víi nh÷ng yªu cÇu cña d÷ liÖu ®Çu vµo lµ c¸c b¸o c¸o b»ng Excel sÏ dÔ dµng h¬n nÕu cÇn cËp nhËt d÷ liÖu th«ng qua Access. C¸c th«ng tin ®Çu ra lµ c¸c b¶ng biÓu kh¸ phøc t¹p, cÇn cã nh÷ng c«ng cô m¹nh nh­ HTML ®Ó thiÕt kÕ, mµ Visual Basic kÕt nèi rÊt tèt tíi ng«n ng÷ nµy. Mét ®iÒu quan träng kh«ng kÐm lµ c¸c yªu cÇu tuyÓn nh©n viªn lËp tr×nh th­êng thiªn vÒ lËp tr×nh thµnh th¹o Visual Basic, dïng ng«n ng÷ nµy ®Ó viÕt phÇn mÒm gãp phÇn t×m hiÓu s©u h¬n vÒ ng«n ng÷ lËp tr×nh nµy ®ång thêi cho ta mét phÇn nµo ®ã ®¸p øng ®­îc yªu cÇu tuyÓn dông cña c¸c c«ng ty lËp tr×nh sau nµy. 2.Qu¸ tr×nh viÕt ch­¬ng tr×nh Ch­¬ng tr×nh nµy ®­îc thiÕt kÕ sau mét th¸ng thùc tËp thu thËp th«ng tin vµ t×m hiÓu thùc tÕ ë Vô kÕ ho¹ch vµ quy ho¹ch-Bé NN&PTNT . Qu¸ tr×nh thiÕt kÕ vµ chØnh söa mÊt 3 tuÇn, tøc lµ ®Õn ngµy 04/03/2003 míi b¾t ®Çu ®i vµo lËp tr×nh. Tõ ngµy 04/03/2003 ®Õn ngµy 06/03/2003 thùc hiÖn t¹o c¬ së d÷ liÖu trªn Access. Sau ®ã ®i vµo thiÕt kÕ c¸c form danh môc tõ ®iÓn mÊt 1 tuÇn. Qu¸ tr×nh thiÕt kÕ form cËp nhËt vµ form chÝnh kÐo dµi 3 tuÇn. §Õn ngµy 03/04/2003 ®· c¬ b¶n hoµn thµnh phÇn cËp nhËt d÷ liÖu cho ch­¬ng tr×nh, tõ dã ®Õn ngµy 25/04/2003 thiÕt kÕ c¸c b¸o c¸o ®Çu ra, do cßn Ýt kinh nghiÖm nªn míi chØ hoµn thµnh ®­îc mét vµi b¸o c¸o ®Çu ra theo mÉu. C¸c b¸o c¸o cßn l¹i sÏ ®­îc tiÕp tôc thiÕt kÕ sau nµy. VII.PhÇn phô lôc §©y lµ phÇn viÕt code cña mét sè form. 1.Hµm t¹o s¬ ®å c©y cña form DLhangnhap Sub FillTree() Me.TreeView1.ImageList = Me.ImageList1 Me.TreeView1.Nodes.Clear Set myNode = Me.TreeView1.Nodes.Add(, , "KYBC", "Kú b¸o c¸o", 2) myNode.Expanded = True Set myNode = Me.TreeView1.Nodes.Add("KYBC", 4, "BCTHANG", "B¸o c¸o th¸ng", 2) myNode.Expanded = True Set myNode = Me.TreeView1.Nodes.Add("KYBC", 4, "BCQUI", "B¸o c¸o quÝ", 2) myNode.Expanded = True Set myNode = Me.TreeView1.Nodes.Add("KYBC", 4, "BC6THANG", "B¸o c¸o 6 th¸ng", 2) myNode.Expanded = True Set myNode = Me.TreeView1.Nodes.Add("KYBC", 4, "BCNAM", "B¸o c¸o n¨m", 2) myNode.Expanded = True Me.TreeView1.Nodes.Add "BCTHANG", 4, "N1", "Th¸ng 1", 1 Me.TreeView1.Nodes.Add "BCTHANG", 4, "N2", "Th¸ng 2", 1 Me.TreeView1.Nodes.Add "BCTHANG", 4, "N3", "Th¸ng 3", 1 Me.TreeView1.Nodes.Add "BCTHANG", 4, "N4", "Th¸ng 4", 1 Me.TreeView1.Nodes.Add "BCTHANG", 4, "N5", "Th¸ng 5", 1 Me.TreeView1.Nodes.Add "BCTHANG", 4, "N6", "Th¸ng 6", 1 Me.TreeView1.Nodes.Add "BCTHANG", 4, "N7", "Th¸ng 7", 1 Me.TreeView1.Nodes.Add "BCTHANG", 4, "N8", "Th¸ng 8", 1 Me.TreeView1.Nodes.Add "BCTHANG", 4, "N9", "Th¸ng 9", 1 Me.TreeView1.Nodes.Add "BCTHANG", 4, "N10", "Th¸ng 10", 1 Me.TreeView1.Nodes.Add "BCTHANG", 4, "N11", "Th¸ng 11", 1 Me.TreeView1.Nodes.Add "BCTHANG", 4, "N12", "Th¸ng 12", 1 '--------------------- Me.TreeView1.Nodes.Add "BCQUI", 4, "N13", "QuÝ 1", 1 Me.TreeView1.Nodes.Add "BCQUI", 4, "N14", "QuÝ 2", 1 Me.TreeView1.Nodes.Add "BCQUI", 4, "N15", "QuÝ 3", 1 Me.TreeView1.Nodes.Add "BCQUI", 4, "N16", "QuÝ 4", 1 '--------------------- Me.TreeView1.Nodes.Add "BC6THANG", 4, "N17", "S¸u th¸ng ®Çu n¨m", 1 Me.TreeView1.Nodes.Add "BC6THANG", 4, "N18", "S¸u th¸ng cuèi n¨m", 1 End Sub 2.Hµm kÕt nèi vµ huû kÕt nèi d÷ liÖu cña form d÷ liÖu hµng nhËp. Private Sub Form_Load() CenterForm Me Me.Adodc1.ConnectionString = Connection() Me.Adodc1.RecordSource = "select sobaocao, ngay, giatriki, giatritichluy, nam, maky from ky where loaibaocao='N'" Me.Adodc1.Refresh FillTree Me.Adodc1.Recordset.Requery End Sub Private Sub Form_Unload(Cancel As Integer) mainform.ClearMsg mainform.ClearImg mainform.ShowImg GetPath() & "Bitmaps\012_135.jpg" End Sub 3.Hµm c¸c chøc n¨ng trªn Thanh c«ng cô cña form DLhangnhap Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) Key = Button.Key Select Case Key Case "capnhat" If Me.Adodc1.Recordset.EOF Then Exit Sub Hangnhap.sobc = Me.Adodc1.Recordset.Fields("sobaocao") Hangnhap.BCdanhap Hangnhap.Command2.Enabled = True Hangnhap.Command3.Enabled = True Hangnhap.Command4.Enabled = True Hangnhap.Command6.Enabled = True Hangnhap.Update.Enabled = True Hangnhap.Command5.Caption = "Tho¸t" Hangnhap.Show 1 Case "bosung" loaibc.Show 1 Case "xoabo" On Error GoTo DeleteErr Hangnhap.sobc = Me.Adodc1.Recordset.Fields("sobaocao") With Hangnhap.Adodc1.Recordset If .EOF Or .BOF Then Exit Sub End If .MoveFirst If Not .EOF Then If MsgBox("B¹n cã muèn xo¸ b¶n ghi:" & vbCrLf & _ "B¸o c¸o sè:" & Me.Adodc1.Recordset!Sobaocao & vbCrLf & _ "N¨m:" & Me.Adodc1.Recordset!nam, vbCritical + vbYesNo + vbDefaultButton1, "C¶nh b¸o") = vbYes Then .Delete .MoveNext End If End If End With Me.Adodc1.Recordset.Delete GoTo F DeleteErr: MsgBox Err.Description F: Case "inbaocao" If Me.Adodc1.Recordset.EOF Then Exit Sub sobc = Me.Adodc1.Recordset.Fields("sobaocao") cSQL = "select hangnhap.mahang, dshangnhap.tenhang, hangnhap.dvitinh, hangnhap.soluong, hangnhap.thanhtien, nuoc.tennuoc" cSQL = cSQL & " from hangnhap, dshangnhap, nuoc where hangnhap.sobaocao=" & sobc cSQL = cSQL & " and hangnhap.mahang = dshangnhap.mahang and hangnhap.manuoc = nuoc.manuoc" Set rptDLHangnhap.DataSource = GetRS(cSQL) rptDLHangnhap.Show End Select End Sub 4.Hµm läc d÷ liÖu trªn c¸c nót cña s¬ ®å h×nh c©y Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node) 'If Adodc1.Recordset.RecordCount <= 0 Then 'End If On Error GoTo TreeViewErr Dim cFilter, Key Key = Node.Key If Key = "KYBC" Then cFilter = "maky >=0" If Key = "BCTHANG" Then cFilter = "maky >=1 and maky <=12" If Key = "BCQUI" Then cFilter = "maky >=13 and maky <=16" If Key = "BC6THANG" Then cFilter = "maky >=17 and maky <=18" If Key = "BCNAM" Then cFilter = "maky =19" If Left(Key, 1) = "N" Then Key = Mid(Key, 2) cFilter = "maky=" & Key End If If Adodc1.Recordset.RecordCount >= 0 Then Adodc1.Recordset.Filter = cFilter End If GoTo Finished TreeViewErr: MsgBox Err.Description Finished: End Sub 5.Hµm t¹o b¸o c¸o hµng nhËp hµng th¸ng theo hµng ho¸ Function THNhap(Kybc, nambc) Dim rs As New Recordset Dim rptStr, cSQL As String cSQL = "select distinct hangnhap.mahang from ky, hangnhap " cSQL = cSQL & "where ky.maky=" & Kybc & " and ky.nam=" & nambc cSQL = cSQL & " and ky.sobaocao=hangnhap.sobaocao" Set rs = GetRS(cSQL) rptStr = "" Do While Not rs.EOF mahang = rs("mahang") rptStr = rptStr & THNhap_hang(Kybc, nambc, mahang) rs.MoveNext Loop StrToFile rptStr, GetPath() & "report\tmpthnhap.htm" Browser.Navigate GetPath() & "report\tmpthnhap.htm" End Function ‘--------------------------------------------------- Function THNhap_hang(Kybc, nambc, mahang) As String Dim cSQL1, cSQL2, cSQL3 Dim rs As New Recordset Dim rs1 As New Recordset Dim conn As New ADODB.Connection Dim ss, ss1 As String conn.Open Connection() '-Tao khung chua du lieu bao cao rs.Fields.Append "manuoc", adChar, 15 rs.Fields.Append "tennuoc", adChar, 60 rs.Fields.Append "soluong", adDouble rs.Fields.Append "thanhtien", adDouble rs.Fields.Append "sltichluy", adDouble rs.Fields.Append "tttichluy", adDouble rs.Fields.Append "slkytruoc", adDouble rs.Fields.Append "ttkytruoc", adDouble rs.Open If Kybc >= 1 And Kybc <= 12 Then '-Lay gia tri trong ky cSQL1 = "select nuoc.manuoc, nuoc.tennuoc, hangnhap.soluong, hangnhap.thanhtien from ky, hangnhap, nuoc" cSQL1 = cSQL1 & " where ky.maky=" & Kybc & "and ky.nam=" & nambc & " and ky.sobaocao=hangnhap.sobaocao and hangnhap.manuoc = nuoc.manuoc" cSQL1 = cSQL1 & " and hangnhap.mahang='" & mahang & "'" '-Lay gia tri tich luy cSQL2 = "select hangnhap.manuoc, sum(hangnhap.soluong) as sltichluy, sum(hangnhap.thanhtien) as tttichluy from ky, hangnhap" cSQL2 = cSQL2 & " where ky.maky>=1 and ky.maky<=" & Kybc & "and ky.nam=" & nambc & " and ky.sobaocao=hangnhap.sobaocao" cSQL2 = cSQL2 & " and hangnhap.mahang='" & mahang & "'" cSQL2 = cSQL2 & " group by hangnhap.manuoc" '-Lay gia tri ky truoc Kybctruoc = Kybc nambctruoc = nambc If Kybc = 1 Then Kybctruoc = 12 nambctruoc = nambctruoc - 1 Else Kybctruoc = Kybc - 1 End If cSQL3 = "select hangnhap.manuoc, hangnhap.soluong as slkytruoc, hangnhap.thanhtien as ttkytruoc from ky, hangnhap" cSQL3 = cSQL3 & " where ky.maky=" & Kybctruoc & "and ky.nam=" & nambctruoc & " and ky.sobaocao=hangnhap.sobaocao" cSQL3 = cSQL3 & " and hangnhap.mahang='" & mahang & "'" End If '-Day du lieu trong ky len khung bao cao rs1.Open cSQL1, conn, adOpenStatic, adLockBatchOptimistic Do While Not rs1.EOF rs.AddNew rs("manuoc") = rs1("manuoc") rs("tennuoc") = rs1("tennuoc") rs("soluong") = rs1("soluong") rs("thanhtien") = rs1("thanhtien") rs1.MoveNext Loop rs1.Close '-Day du lieu tich luy len khung bao cao rs1.Open cSQL2, conn, adOpenStatic, adLockBatchOptimistic Do While Not rs1.EOF manuoc = rs1("manuoc") rs.Filter = "manuoc='" & manuoc & "'" If rs.EOF Then rs.AddNew rs("manuoc") = manuoc rs("tennuoc") = GetFieldValue("select tennuoc from nuoc where manuoc='" & manuoc & "'") rs("soluong") = 0 rs("thanhtien") = 0 rs("slkytruoc") = 0 rs("ttkytruoc") = 0 End If rs("sltichluy") = rs1("sltichluy") rs("tttichluy") = rs1("tttichluy") rs1.MoveNext Loop rs1.Close '-Day du lieu ky truoc len khung bao cao rs1.Open cSQL3, conn, adOpenStatic, adLockBatchOptimistic Do While Not rs1.EOF manuoc = rs1("manuoc") rs.Filter = "manuoc='" & manuoc & "'" If rs.EOF Then rs.AddNew rs("manuoc") = manuoc rs("tennuoc") = GetFieldValue("select tennuoc from nuoc where manuoc='" & manuoc & "'") rs("soluong") = 0 rs("thanhtien") = 0 rs("sltichluy") = 0 rs("tttichluy") = 0 End If rs("slkytruoc") = rs1("slkytruoc") rs("ttkytruoc") = rs1("ttkytruoc") rs1.MoveNext Loop rs1.Close '-Dua du lieu tu khung bao cao len trang web ss = "" ss1 = "" rs.Filter = "manuoc """ rs.MoveFirst Do While Not rs.EOF slkytruoc = rs("slkytruoc") ttkytruoc = rs("ttkytruoc") soluong = rs("soluong") thanhtien = rs("thanhtien") If slkytruoc > 0 Then slkytruoc = (soluong / slkytruoc) * 100 Else slkytruoc = 0 End If If ttkytruoc > 0 Then ttkytruoc = (thanhtien / ttkytruoc) * 100 Else ttkytruoc = 0 End If ss = ss & "" ss = ss & "" & rs("tennuoc") & "" ss = ss & "" & FormatNumber(rs("soluong")) & "" ss = ss & "" & FormatNumber(rs("thanhtien")) & "" ss = ss & "" & FormatNumber(rs("sltichluy")) & "" ss = ss & "" & FormatNumber(rs("tttichluy")) & "" ss = ss & "" & FormatNumber(slkytruoc) & " %" ss = ss & "" & FormatNumber(ttkytruoc) & " %" ss = ss & "" rs.MoveNext Loop ss1 = FileToStr(GetPath() & "report\thnhap_hang.htm") ss1 = Replace(ss1, "$tenhang$", "" & GetFieldValue("select tenhang from dshangnhap where mahang='" & mahang & "'") & "") ss1 = Replace(ss1, "", ss + "") THNhap_hang = ss1 End Function 6.Code cña form b¸o c¸o Public loaibc As String Sub FillLoaiBC() Combo1.Clear Me.Combo1.AddItem "1. B¸o c¸o th¸ng" Me.Combo1.AddItem "2. B¸o c¸o quÝ" Me.Combo1.AddItem "3. B¸o c¸o s¸u th¸ng" Me.Combo1.AddItem "4. B¸o c¸o n¨m" End Sub Sub FillKyBC() Combo2.Clear Select Case Left(Combo1.Text, 1) Case "1" For i = 1 To 12 Me.Combo2.AddItem "Th¸ng " & i Next Me.Combo2.ListIndex = Month(Date) - 1 Case "2" For i = 1 To 4 Me.Combo2.AddItem "QuÝ " & i Next Me.Combo2.ListIndex = Int(Month(Date) / 3) - 1 If Month(Date) Mod 3 > 0 Then Me.Combo2.ListIndex = Me.Combo2.ListIndex + 1 End If Case "3" Me.Combo2.AddItem "1.S¸u th¸ng ®Çu n¨m" Me.Combo2.AddItem "2.S¸u th¸ng cuèi n¨m" If Month(Date) < 6 Then Me.Combo2.ListIndex = 0 Else Me.Combo2.ListIndex = 1 End If Case "4" Me.Combo2.AddItem "B¸o c¸o n¨m" Me.Combo2.ListIndex = 0 End Select End Sub Private Sub Combo1_Click() FillKyBC End Sub Private Sub Command1_Click() If Combo1.Text = "" Or Combo2.Text = "" Then MsgBox "Ch­a chän k× b¸o c¸o" Exit Sub End If If Me.Option1.Value = False And Me.Option2.Value = False And Me.Option3.Value = False Then MsgBox ("Ch­a chän lo¹i b¸o c¸o") Exit Sub End If Kybc = 0 nambc = Me.Combo3.Text Select Case Left(Combo1.Text, 1) Case "1" Kybc = Combo2.ListIndex + 1 Case "2" Kybc = 12 + Combo2.ListIndex + 1 Case "3" Kybc = 16 + Combo2.ListIndex + 1 Case "4" Kybc = 19 End Select If Me.Option1.Value = True Then Select Case loaibc Case "N" Call THNhap(Kybc, nambc) Case "X" Call THxuat(Kybc, nambc) End Select End If If Me.Option2.Value = True Then Select Case loaibc Case "N" Call THNhapdv(Kybc, nambc) Case "X" End Select End If End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Form_Load() CenterForm Me For i = Year(Date) - 20 To Year(Date) + 20 Me.Combo3.AddItem i Next Me.Combo3.Text = Year(Date) FillLoaiBC FillKyBC End Sub VIII.KÕt luËn Qua 15 tuÇn thùc tËp ®· cho t«i hiÓu thªm rÊt nhiÒu vÒ c¸c c«ng viÖc thùc tÕ ph¶i lµm, kÕt qu¶ thu ®­îc lín nhÊt ë ®©y chÝnh lµ lµm quen víi c«ng viÖc, ¸p dông c¸c kiÕn thøc trªn s¸ch vë vµo thùc tÕ lµ c¶ mét vÊn ®Ò khã kh¨n, lÇn ®Çu tiªn tù t×m hiÓu thùc tÕ vµ nghiªn cøu ph©n tÝch mét hÖ thèng th«ng tin, cho nªn nh÷ng g× lµm ®­îc lµ kh«ng nhiÒu, trong thêi gian thùc tËp míi chØ hoµn thiÖn ®­îc phÇn cËp nhËt d÷ liÖu vµ lªn ®­îc 2 b¸o c¸o mÉu. Ph­¬ng h­íng tiÕp theo lµ thiÕt kÕ tiÕp c¸c b¸o c¸o cßn l¹i ®· nãi ë trªn, ®ång thêi nhËp mét sè bé d÷ liÖu vµo ®Ó Test ch­¬ng tr×nh. Danh môc c¸c tµi liÖu tham kh¶o 1.Gi¸o tr×nh HÖ thèng th«ng tin qu¶n lý T¸c gi¶: TS Tr­¬ng v¨n Tó-TS TrÇn thÞ Song Minh NXB Thèng kª n¨m 2000 2.Microsoft Visual Basic 6.0 vµ lËp tr×nh c¬ s¬ d÷ liÖu. Chñ biªn: NguyÔn thÞ Ngäc Mai Cè vÊn khoa häc:NguyÔn H÷u Anh NXB Gi¸o dôc n¨m 2000 3.LËp tr×nh Visual Basic cña Vn-guide NXB Thèng kª n¨m 2002 4.Microsoft access 97 T¸c gi¶: GS Ph¹m v¨n Êt NXB Khoa häc vµ kÜ thuËt n¨m 1999 5.Gi¸o trinh C¬ së d÷ liÖu sql, access T¸c gi¶: ThS TrÇn C«ng UÈn NXB Thèng kª n¨m 2000 6.Gi¸o tr×nh CÊu tróc d÷ liÖu T¸c gi¶: PTS Hµn ViÕt ThuËn NXB Thèng kª n¨m 1999 Môc Lôc