Đề tài Quản lý số điện thoại đã thuê bao tại một trạm bưu cục

Lêi nãi ®Çu Ooo Ngµy nay ,c¸c c«ng nghÖ khoa häc ,kü thuËt ngµy cµng ph¸t triÓn nh­ vò b·o,trong ®ã khoa häc m¸y tÝnh còng ph¸t triÓn m¹nh mÏ vµ x©m nhËp vµo mäi lÜnh vùc khoa häc ,kinh tÕ ,x· héi ,qu¶n lý ,......m¸y tÝnh hÇu nh­ ®Òu cã ®ãng gãp kh¶ n¨ng tuyÖt vêi cña nã tíi tÊt c¶ c¸c lÜnh vùc . Tõ viÖc x©y dùng c¸c ch­¬ng tr×nh khoa häc kü thuËt lín ®Õn c¸c c«ng viÖc qu¶n lý th­êng nhËt ,m¸y tÝnh gióp chóng ta cËp nhËt ,t×m kiÕm vµ l­u tr÷ th«ng tin mét c¸ch tèt nhÊt . ChÝnh v× lÏ ®ã víi vèn kiÕn thøc ®· ®­îc häc vµ c«ng viÖc ®­îc giao em ®· x©y dùng ch­¬ng tr×nh Qu¶n Lý Sè §iÖn Tho¹i §· Thuª Bao T¹i Mét Tr¹m B­u côc NhiÖm vô chÝnh cña ch­¬ng tr×nh bao gåm : + Kh¶o s¸t thùc tÕ + Qu¶n lý c¸c sè ®iÖn tho¹i ®· ®¨ng ký thuª bao + Qu¶n lý ho¸ ®¬n tr¶ tiÒn hµng th¸ng MÆc dï ®· rÊt cè g¾ng ®Ó hoµn thµnh ®Ò tµi nh­ng v× cßn h¹n chÕ vÒ kinh nghiÖm vµ kiÕn thøc nªn ch­¬ng tr×nh cßn nhiÒu sai sãt cÇn ®­îc bæ sung.V× vËy, em mong thÇy c« vµ c¸c b¹n xem vµ ®ãng gãp ý kiÕn gióp cho ch­¬ng tr×nh ngµy cµng hoµn thiÖn h¬n. Cuèi cïng em xin c¶m ¬n Bé m«n kiÕn tróc m¸y tÝnh, c¸c b¹n vµ ®Æc biÖt lµ ThÇy gi¸o D­ Thanh B×nh ®· h­íng dÈn vµ gióp ®ì em hoµn thµnh ch­¬ng tr×nh nµy. Ch­¬ng tr×nh qu¶n lý c¸c sè ®IÖn tho¹i ®· thuª bao t¹i mét tr¹m ®IÖn tho¹i ch­¬ng i kh¶o s¸t hÖ thèng 1.Tæng quan vÒ hÖ thèng qu¶n lý Qu¶n lý lµ c¸ch biÓu hiÖn mét ý chÝ muèn biÕn ®æi vµ thuÇn phôc mét tæng thÓ c¸c hiÖn t­îng.§ã lµ viÖc t¹o ra c¸c sù kiÖn,thay v× ®Ó cho c¸c sù kiÖn x¶y ra béc ph¸t.§©y kh«ng ph¶i lµ sù l¾p r¸p c¸c nhiÖm vô rêi r¹c mµ lµ ho¹t ®éng ph©n biÖt râ rµng víi c¸c chøc n¨ng kh¸c cña tæ chøc. Trong nh÷ng n¨m tr­íc ®©y khi m¸y tÝnh ch­a ®­îc sö dông réng r·i trong c¸c hÖ thèng qu¶n lý, c¸c hÖ thèng qu¶n lý nµy ®Òu ph¶i thùc hiÖn theo ph­¬ng ph¸p thñ c«ng vµ hÖ thèng qu¶n lý c¸c sè ®iÖn tho¹i ®· ®¨ng ký thuª bao còng n»m trong sè ®ã. 2.chøc n¨ng vµ nhiÖm vô cña hÖ thèng HÖ thèng qu¶n lý c¸c sè ®iÖn tho¹i ®· ®¨ng ký thuª bao cã chøc n¨ng th­êng xuyªn cho phÐp cËp nhËt c¸c th«ng tin vÒ kh¸ch hµng ®ång thêi cho phÐp tÝnh to¸n tiÒn c­íc còng nh­ tiÒn thuª bao hµng th¸ng . Khi cÇn ®­îc biÕt th«ng tin mµ c¸c kh¸ch hµng ®· ®¨ng ký thuª bao th× hÖ thèng ph¶i cã nhiÖm vô ®­a ra ®­îc th«ng tin mµ c¸c kh¸ch hµng ®ã ®· ®¨ng ký .Víi chøc n¨ng nh­ vËy,hÖ thèng qu¶n lý c¸c sè ®iÖn tho¹i ®· ®¨ng ký thuª bao t¹i mét tr¹m ®iÖn tho¹i cã nhiÖm vô lu«n cËp nhËt hå s¬ cña kh¸ch hµng ,th­êng xuyªn bæ sung nh÷ng th«ng tin thay ®æi trong qu¸ tr×nh ho¹t ®éng cña hÖ thèng . Mét nhiÖm vô n÷a cña hÖ thèng lµ cø cuèi th¸ng ph¶i cã nhiÖm vô in ho¸ ®¬n tiÒn hµng th¸ng cña kh¸ch hµng tøc lµ hÖ thèng nµy cÇn ph¶i tÝnh tiÒn cho c¸c kh¸ch hµng ®· ®¨ng ký thuª bao t¹i mét tr¹m ®iÖn tho¹i 3.yªu cÇu cña hÖ thèng vµ nh÷ng khã kh¨n Tr­íc mét khèi l­îng lín c¸c kh¸ch hµng ®· ®¨ng ký thuª bao còng nh­ c¸c yªu cÇu ®Æt ra th× viÖc qu¶n lý theo ph­¬ng ph¸p thñ c«ng sÏ kh«ng thÓ ®¸p øng ®­îc ,do ®ã gÆp rÊt nhiÒu khã kh¨n.Nã ®ßi hái ph¶i cã nhiÒu nh©n lùc,nhiÒu thêi gian vµ c«ng søc,mçi kh¸ch hµng cña tr¹m ®iÖn tho¹i cho ®¨ng ký th× cã mét hå s¬ cho nªn viÖc l­u tr÷ , t×m kiÕm,bæ sung, söa ®æi ®Ó ®¸p øng yªu cÇu kh«ng ph¶i lµ dÔ dµng. Tõ nh÷ng nh­îc ®iÓm trªn ta thÊy cÇn thiÕt ph¶i cã mét hÖ thèng tin häc ho¸ cho viÖc qu¶n lý c¸c sè ®iÖn tho¹i ®· ®¨ng ký thuª bao còng nh­ c¸c hÖ thèng qu¶n lý kh¸c. Tuy nhiªn khã kh¨n mµ khi lµm viÖc víi hÖ thèng ta ph¶i thùc hiÖn ®ã lµ viÖc tÝnh tiÒn cho tõng kh¸ch hµng trong th¸ng mµ quÝ kh¸ch hµng ®· gäi . §iÒu nµy cã nghÜa lµ chóng ta ph¶i biÕt ®­îc c¸ch tÝnh c­íc cho tõng cuéc gäi víi tõng khu vùc kh¸c nhau , qua kh¶o s¸t vµ nghiªn cøu c¸c ­u cÇu thùc tÕ mµ hÖ thèng qu¶n lý c¸c sè ®iÖn tho¹i ®· ®¨ng ký thuª bao ®· vµ ®ang thùc hiÖn ®Òu tÝnh theo gi¸ c­íc mµ hiÖn nay c¶ n­íc ta ®ang ¸p dông , cô thÓ em ®­a ra b¶ng c­íc gäi tõ mét tr¹m ®iÖn tho¹i mµ em qu¶n lý ì Hµ Néi nh­ sau . B¶ng c­íc ®iÖn tho¹i truyÒn thèng gäi tõ Hµ Néi b¶ng c­íc ®iÖn tho¹i cè ®Þnh trong n­íc (®· bao gåm thuÕ VAT) Vïng C­íc Tªn tØnh,ThµnhPhè gäi Qua PO (3+1) Tù ®éng (1+1) Néi tØnh TÊt c¶ c¸c huyÖn trong tØnh 2.310 ® 770 ® Vïng 1 B¾c c¹n, B¾c giang, B¾c ninh, Hµ t©y, Hµ nam, Hµ tÜnh, H¶i phßng, H¶i d­¬ng, H­ng yªn, Hoµ b×nh, L¹ng s¬n, Nam ®Þnh, NghÖ an, Ninh b×nh, Phó thä, Qu¶ng b×nh, Qu¶ng ninh, Th¸i nguyªn, Tuyªn quang, VÜnh phóc, Yªn b¸i, M¹ng qu©n ®éi(09655; 06988; 06944); B­u ®iÖn TW (0804; 0809) 3000 ® 1000 ® Vïng 2 B×nh ®Þnh, Cao b»ng, Gia lai, Hµ giang, Kh¸nh hoµ, Kon tum, Lµo cai, Lai ch©u,Phó yªn, Qu¶ng nam, Qu¶ng ng·i, Qu¶ng trÞ, S¬n la, HuÕ, §µ n½ng, Qu©n ®éi (06977; 06922) 5.400 ® 1.800 ® Vïng 3 An giang, B×nh d­¬ng, B×nh ph­íc, B×nh thuËn, Vòng tµu, B¹c liªu, BÕn tre, Cµ mau, CÇn th¬, §¾c l¾c, §ång nai, §ång th¸p, Kiªn giang, L©m ®ång, Long an, Ninh thuËn, Sãc tr¨ng, T©y ninh, TiÒn giang, TP Hå ChÝ Minh, Trµ vinh,VÜnh long, M¹ng qu©n ®éi(06966; 06933); Côc B§ TW(0808), Hép th­ tho¹i, (08801; 08801; 08810) 7.500 ® 2.500 ® C­íc ngoµi giê (tõ 23h h«m tr­íc ®Õn 07h h«m sau thø 2 ®Õn thø 7 ; Ngµy lÔ vµ chñ nhËt) gi¶m 30% so víi møc c­íc kÓ trªn. T¹i c¸c tr¹m ®iÖn tho¹i nhá hoÆc t¹i c¸c tr¹m ®iÖn tho¹i cã ng­êi phôc vô c­íc phÝ thu thªm mæi cuéc gäi lµ 500 ® Theo qui ®Þnh chung mæi mét kh¸ch hµng khi ®¨ng ký thuª bao ph¶i tr¶ thªm 27 ngh×n hµng th¸ng 4.nh÷ng yªu cÇu ®Æt ra ®èi víi hÖ thèng míi Cïng víi sù ph¸t triÓn cña x· héi , c«ng t¸c tæ chøc qu¶n lý còng cÇn ®­îc ®Çu t­ vµ ph¸t triÓn ®Ó cã thÓ ®¸p øng tèt ®uîc yªu cÇu còng nh­ gióp cho nh÷ng ng­êi lµm viÖc trong b­u ®iÖn thùc hiÖn tèt c¸c c«ng viÖc ®Ó qu¶n lý c¸c sè ®iÖn tho¹i ®· ®¨ng ký thuª bao. Tr­íc hÕt ®Ó qu¶n lý ®­îc mét khèi l­îng lín c¸c sè ®iÖn tho¹i mµ c¸c kh¸ch hµng ®· ®¨ng ký thuª bao cña mét tr¹m ®iÖn tho¹i, ph¶i tæ chøc tèt hÖ thèng l­u tr÷ hå s¬ ®Ó cã thÓ ®¸p øng ®­îc nh÷ng yªu cÇu : tiÕt kiÖm chç, dÔ t×m kiÕm, dÔ bæ sung söa ®æi. HÖ thèng qu¶n lý míi ph¶i kh¾c phôc ®­îc nh÷ng nh­îc ®iÓm cña hÖ thèng cò,ngoµi ra hÖ thèng míi ph¶i cã kh¶ n¨ng ph¸t hiÖn lçi vµ xö lý kiÓm tra tÝnh ®óng ®¾n cña d÷ liÖu ngay tõ khi cËp nhËt, ®ång thêi ph¶i tiÕt kiÖm thêi gian khi tra cøu th«ng tin cña kh¸ch hµng khi cã ­u cÇu tõ bªn ngoµi. Nh­ vËy chñ yÕu ph¶i chØnh ®æi l¹i c¬ sì d÷ liÖu cho phï hîp trªn c¬ sì kÕ thõa c¬ sì d÷ liÖu ®· cã s½n Ch­¬ng ii Ph©n tÝch hÖ thèng I . C¸c chøc n¨ng c¬ b¶n cña hÖ thèng: 1>Qu¶n lý th«ng tin vÒ kh¸ch hµng : + CËp nhËt th«ng tin vÒ kh¸ch hµng. + §­a ra c¸c th«ng tin vÒ ho¸ ®¬n tr¶ tiÒn cña kh¸ch hµng. 2> Tra cøu,T×m kiÕm : + Tra cøu theo sè ®iÖn tho¹i. + Tra cøu theo hä tªn. + Tra cøu theo c¸c sè liÖu tæng hîp. 3> B¸o c¸o,Thèng kª + LËp vµ xuÊt ho¸ ®¬n tr¶ tiÒn hµng th¸ng cña kh¸ch hµng. + Thèng kª c¸c kh¸ch hµng ®· tr¶ tiÒn trong th¸ng. + B¸o c¸o vÒ t×nh h×nh chung cña b­u ®iÖn trong th¸ng. II.BiÓu ®å ph©n cÊp chøc n¨ng cña hÖ thèng qu¶n lý c¸c sè ®iÖn tho¹i ®· ®¨ng ký thuª bao Qu¶n lý c¸c sè ®IÖn tho¹i ®· thuª bao B¸o c¸o, thèng kª Qu¶n lý kh¸ch hµng Tra cøu, t×m kiÕm In c¸c hãa ®¬n tr¶ tiÒn cña kh¸ch hµng Tra cøu theo sè ®iÖn tho¹i CËp nhËt Th«ng tin kh¸ch hµng Thèng kª c¸c kh¸ch hµng ®· tr¶ tiÒn Tra cø­ theo hä tªn §­a ra c¸c ho¸ ®¬n tr¶ tiÒn kh¸ch hµng §­a ra t×nh h×nh chung cña b­u ®iÖn Tra cøu theo sè liÖu tæng hîp BiÓu ®å lu«ng d÷ liÖu møc khung c¶nh cho ta c¸i nh×n kh¸i qu¸t vÒ qu¸ tr×nh ho¹t ®éng cña hÖ thèng. Kh¸ch hµng HÖ thèng qu¶n lý c¸c sè ®IÖn tho¹i ®· thuª bao C¸c th«ng tin cÇn xö lý Th«ng tin Th«ng tin ®· xö lý C¸c nh©n viªn b­u ®iÖn C¸c th«ng b¸o tíi kh¸ch hµng Gi¶i thÝch: T¸c nh©n ngoµi lµ kh¸ch hµng sÏ ®­a th«ng tin c¸ nh©n tíi cho hÖ thèng khi c¸c kh¸ch hµng ®Õn ®¨ng ký thuª bao. HÖ thèng cã nhiÖm vô l­u tr÷ c¸c th«ng tin ®ã göi tíi c¸c nh©n viªn b­u ®iÖn, t¸c nh©n ngoµi lµ nh©n viªn b­u ®iÖn sÏ th«ng qua ®ã xö lý c¸c th«ng tin ®ã vµ cuèi th¸ng sÏ göi c¸c yªu cÇu cho kh¸ch hµng . BiÓu §å Luång D÷ LiÖu Møc D­íi §Ønh Nh©n viªn b­u ®iÖn Kh¸ch hµng Tra cøu, t×m kiÕm Qu¶n lý kh¸ch hµng Th«ng tin kh¸ch hµng B¸o c¸o, thèng kª Hå s¬ l­u hµng th¸ng *Gi¶i thÝch: Khi th«ng tin vÒ kh¸ch hµng ®­îc chuyÓn vµo hÖ thèng, chøc n¨ng Qu¶n lý kh¸ch hµng sau khi ph©n lo¹i vµ xö lý sÏ ®­a th«ng tin vµo kho Th«ng tin kh¸ch hµng vµ Kho hå s¬ l­ tr÷ hµng th¸ng. Chøc n¨ng b¸o c¸o thèng kª cø ®Õn cuèi th¸ng sÏ thu thËp th«ng tin tõ kho hå s¬ l­u tr÷ hµng th¸ng sau ®ã sÏ tæng kÕt vµ ®­a ra c¸c th«ng tin vÒ kh¸ch hµng còng nh­ t×nh h×nh hµng th¸ng cña b­u ®iÖn. Mæi khi cã kh¸ch hµng cÇn biÕt ®Õn c¸c th«ng tin vÒ kh¸ch hµng khi ®ã chøc n¨ng tra cøu vµ t×m kiÕm sÏ cËp nhËt th«ng tin tõ kho l­u tr÷ th«ng tin kh¸ch hµng ®Ó ®­a ra c¸c th«ng tin cÇn thiÕt *chøc n¨ng qu¶n lý kh¸ch hµng Kh¸ch hµng Ho¸ ®¬n tr¶ tiÒn hµng th¸ng Hå s¬ l­u hµng th¸ng Hå s¬ kh¸ch hµng CËp nhËt th«ng tin 1.1 kh¸ch hµng §­a ra c¸c ho¸ ®¬n tr¶ tiÒn cña 1.2 kh¸ch hµng *Gi¶i thÝch: Khi kh¸ch hµng ®¨ng ký thuª bao th«ng tin kh¸ch hµng ®­îc l­u tr÷ bëi chøc n¨ng cËp nhËt th«ng tin kh¸ch hµng chøc n¨ng nµy sÏ l­u tr÷ th«ng tin cña kh¸ch hµng, ®Ó ®­a ra th«ng tin c¸c ho¸ ®¬n cña kh¸ch hµng th× chøc n¨ng ®­a ra c¸c ho¸ ®¬n tr¶ tiÒn cña kh¸ch hµng sÏ cËp nhËt th«ng tin tõ kho hå s¬ l­u tr÷ hµng th¸ng. Víi mæi th«ng tin ®ã l¹i ®­îc l­u tr÷ vµo kho ho¸ ®¬n tr¶ tiÒn hµng th¸ng. * Chøc n¨ng tra cøu, t×m kiÕm Nh©n viªn Tra cøu theo 2.2 hä tªn Tra cøu theo 2.1 sè ®iÖn tho¹i Th«ng tin kh¸ch hµng Tra cøu 2.3 Tæng hîp Hå s¬ hµng th¸ng * Gi¶i thÝch: Khi cã t¸c nh©n ngoµi lµ nh©n viªn b­u ®iÖn theo yªu cÇu cña kh¸ch hµng cÇn c¸c th«ng tin vÒ mét quÝ kh¸ch hµng nµo ®ã khi ®ã tuú thuéc vµo yªu cÇu mµ nh©n viªn cã thÓ tra cøu dùa vµo sù ho¹t ®éng cña c¸c chøc n¨ng. Hai chøc n¨ng tra cøu theo Hä tªn vµ chøc n¨ng tra cøu theo ®Þa chØ truy cã thÓ cËp nhËt th«ng tin tõ kho th«ng tin kh¸ch hµng tõ ®ã ph©n lo¹i cho phï hîp víi yªu cÇu mµ nh©n viªn b­u ®iÖn cÇn, riªng chøc n¨ng tra cøu theo sè liÖu tæng hîp cã thÓ truy nhËp th«ng tin tõ hai kho d÷ liÖu ®ã lµ hå s¬ hµng th¸ng vµ th«ng tin kh¸ch hµng. §Ó gi¶m thêi gi¶n truy cËp hai chøc n¨ng tra cøu theo Hä tªn vµ chøc n¨ng tra cøu theo ®Þa chØ cã thÓ kÕt nèi trao ®æi th«ng tin víi chøc n¨ng tra cøu theo sè liÖu tæng hîp. * chøc n¨ng b¸o c¸o, thèng kª Nh©n viªn Th«ng tin kh¸ch hµng Thèng kª kh¸ch 3.2 hµng ®· tr¶ tiÒn In ho¸ ®¬n 3.1 tr¶ tiÒn Ho¸ ®¬n tr¶ tiÒn hµng th¸ng §­a ra t×nh h×nh 3.3 chung cña b­u ®iÖn Hå s¬ l­u hµng th¸ng * Gi¶i thÝch §Õn cuèi mæi th¸ng c¸c nh©n viªn b­u ®iÖn ph¶i cã nhiÖm vô göi c¸c ho¸ ®¬n thanh to¸n tiÒn cho c¸c c¸c cuéc gäi hµng th¸ng cña quÝ kh¸ch hµng ®· ®¨ng ký thuª bao. Tõ chøc n¨ng in ho¸ ®¬n tr¶ tiÒn cña kh¸ch hµng ph¶i ®­îc cËp nhËt th«ng tin tõ kho Ho¸ ®¬n tr¶ tiÒn cña kh¸ch hµng, mÆt kh¸c chøc n¨ng thèng kª kh¸ch hµng ®· tr¶tiÒn ph¶i ®­îc cËp nhËt tõ kho Ho¸ ®¬n tr¶ tiÒn hµng th¸ng, hå s¬ l­u hµng th¸ng ®Ó cã thÓ ®­a ra th«ng tin chÝnh x¸c c¸c kh¸ch hµng ®· tr¶ tiÒn. V× ®©y lµ mét tr¹m b­u ®iÖn cho nªn viÖc tÝnh to¸n vÒ ho¹t ®éng cña b­u ®iÖn trong th¸ng lµ ®iÒu kh«ng thÓ tr¸nh khái nh­ vËy chøc n¨ng ®¸nh gi¸ t×nh h×nh chung cña b­u ®iÖn ph¶i ®­îc cËp nhËt ®Çy ®ñ th«ng tin ®Ó cã thÓ ®¸nh gi¸ chÝnh x¸c qu¸ tr×nh ho¹t ®éng cña b­u ®iÖn trong th¸ng. * Tõ qu¸ tr×nh ph©n tÝch ta cã thÓ ®­a ra l­îc ®å c¬ së d÷ liÖu Gäi Ng­êi dïng MASDT MASDT MAVUNG SODT HO NGAY GOI TIEN THOI GIAN DC TEN ThiÕt KÕ C¸c File D÷ LiÖu 1.1. B¶ng hå s¬ l­u tr÷ th«ng tin kh¸ch hµng thuª bao STT Tªn tr­êng KiÓu §é réng Gi¶i thÝch 1 MASDT Text 50 M· sè ®iÖn tho¹i 2 HO Text 30 Hä kh¸ch hµng 3 TEN Text 40 Tªn kh¸ch hµng 4 DC Text 60 §Þa chØ kh¸ch hµng 1.2. B¶ng hå s¬ l­u tr÷ th«ng tin kh¸ch hµng thuª bao STT Tªn tr­êng KiÓu §é réng Gi¶i thÝch 1 MAVUNG Text 50 M· vïng 2 MASDT Text 40 M· sè ®IÖn tho¹i 3 SODT Number 40 Sè ®iÖn tho¹i kh¸ch thuª bao 4 THOIGIAN Date/Time 60 Thêi gian gäi cña kh¸ch hµng 5 TIEN Number 70 Sè tiÒn gäi cho mæi cuéc Ph©n TÝch Ch­¬ng tr×nh I. Giíi ThiÖu Ng«n Ng÷ §Ó thùc hiÖn mét ch­¬ng tr×nh ngoµi gi¶i thuËt cßn mét ®iÒu kh«ng thÓ thiÕu ®­îc ®ã ng«n ng÷ lËp tr×nh ®Ó lµm cho phÇn mÒm ®ã hoµn chØnh h¬n.Bªn c¹nh c¸c ng«n ng÷ lËp tr×nh ®a d¹ng vµ phong phó ,th× ng«n ng÷ lËp tr×nh Visual Basic cã tÝnh n¨ng cao h¬n c¶ ,gióp cho ng­êi dïng trong c¸c c«ng t¸c tæ chøc ,lËp dù ¸n,t×m kiÕm,l­u tr÷,biÓu diÔn th«ng tin ,tiÕt kiÖm thêi gian. PhÇn mÒm Visual Basic cña h·ng Microsoft lµ phÇn mÒm phæ biÕn ë n­íc ta hiÖn nay.Visual Basic lµ ng«n ng÷ lËp tr×nh trùc quan theo h­íng ®èi t­îng lÊy ng«n ng÷ Basic lµm gèc. Sö dông phÇn mÒm lËp tr×nh h­íng ®èi t­îng trªn Windows sÏ gióp ch­¬ng tr×nh dÔ sö dông vµ tiÖn lîi cho ng­êi sö dông v× nã cung cÊp kh¶ n¨ng t¹o ®èi t­îng vµ c¸c líp b»ng c¸ch sö dông giao diÖn thay ng«n ng÷,Visual Basic cã giao diÖn ®Ñp ,c¸c thao t¸c ®¬n gi¶n kh«ng bÞ phô thuéc vµo ch­¬ng tr×nh nh­ c¸c ch­¬ng tr×nh lËp tr×nh trªn m«i tr­êng DOS.Kh¶ n¨ng kÕt nèi vµ c¸c c«ng cô truy vÊn gióp cho ta tæ chøc t×m kiÕm th«ng tin mét c¸ch nhanh chãng khi c¬ së d÷ liÖu ®· ®­îc t¹o c¸c quan hÖ rµng buéc. Tãm l¹i ,ng«n ng÷ lËp tr×nh h­íng ®èi t­îng nµy lµ mét c«ng cô cÇn thiÕt cho ng­êi sö dông cã thÓ cËp nhËt, l­u tr÷, t×m kiÕm, xem söa mét c¸ch nhanh chãng. Víi mong muèn ¸p dông Visual Basic vµo c«ng t¸c qu¶n lý,em xin thùc hiÖn ®Ò tµi : Qu¶n Lý C¸c Sè §iÖn Tho¹i §· §¨ng Ký Thuª Bao trong bµi tËp lín nµy.Ngoµi ra trong ch­¬ng tr×nh em cßn sö dông ng«n ng÷ lËp tr×nh SQL(Structer Query Language )®©y lµ ng«n ng÷ rÊt m¹nh vÒ truy vÊn d÷ liÖu II.Néi Dung Ch­¬ng tr×nh Ch­¬ng tr×nh Qu¶n lý sè ®iÖn tho¹i ®· ®¨ng ký thuª bao cÇn ®¹t ®­îc c¸c yªu cÇu tèi thiÓu sau : + ViÖc cËp nhËt c¸c th«ng tin kh¸ch hµng, th«ng tin vÒ ho¸ ®¬n tr¶ tiÒn cña kh¸ch hµng. + ViÖc t×m kiÕm ®¬n gi¶n ,nhanh chãng ,chÝnh x¸c. + ViÖc in Ên c¸c c«ng v¨n tiÖn lîi ,®Ñp ,dÔ nh×n. Trong bµi tËp lín nµy víi ®Ò tµi Qu¶n lý c«ng v¨n ®Õn ®­îc lËp b»ng ng«n ng÷ lËp tr×nh h­íng ®èi t­îng Visual Basic 6.0. Ch­¬ng tr×nh sö dông hÖ qu¶n trÞ c¬ së d÷ liÖu Access ®Ó l­u tr÷ c¸c th«ng tin vÒ kh¸ch hµng ®· ®¨ng ký thuª bao víi c¸c th«ng tin : thêi gian cho tõng cuéc gäi, sè tiÒn cho tõng cuéc gäi… Ch­¬ng tr×nh Qu¶n lý sè ®iÖn tho¹i ®· ®¨ng ký thuª bao gåm cã 6 Form thùc hiÖn c¸c thao t¸c sau. + Form 1: Form nµy ®Ó ng­êi sö dông b¾t ®Çu vµo ch­¬ng tr×nh chÝnh.Giao diÖn Form nh­ lµ mét logo.Khi vµo ch­¬ng tr×nh Form cã chøc n¨ng nh­ lµ nÒn cho ch­¬ng tr×nh. + Form2 : lµ Form cã t¸c dông cËp nhËt tÊt c¶ c¸c kh¸ch hµng ®· ®¨ng ký thuª bao c«ng viÖc nµy bao gåm ®­a ra th«ng tin vÒ ®Þa chØ, sè ®iÖn tho¹i mµ kh¸ch hµng nµy ®· ®¨ng ký. Form nµy cã thÓ ®­a ra ®­îc tÊt c¶ c¸c kh¸ch hµng cã trong c¬ sì d÷ liÖu. + Form3 ( Form in kh¸ch hµng) : t¹i ®©y ng­êi sö dông cã thÓ in ra c¸c kh¸ch hµng nÕu cÇn thiÕt + Form 4 (Form t×m kiÕm) :lµ Form ®Ó cho c¸c nh©n viªn b­u ®iÖn khi cã kh¸ch hµng gäi ®iÖn ®Õn th× cã thÓ t×m kiÕm mét c¸ch dÔ dµng h¬n, nã cho phÐp t×m kiÕm theo ®Þa chØ, theo sè ®iÖn tho¹i mµ kh¸ch hµng ®· thuª bao, nÕu nh­ t×m thÊy c¸c ®iÒu kiÖn tho¶ m·n th× cã thÓ hiÖn ra t¸t c¶ c¸c tr­êng hoÆc mét tr­êng nµo ®ã tuú vµo yªu cÇu t×m kiÕm. + Form 5 (Form In ra c¸c ho¸ ®¬n tr¶ tiÒn cña kh¸ch hµng) :víi tÊt c¸c kh¸ch hµng ®· ®¨ng ký thuª bao cã c¸c cuéc gäi trong th¸ng sÏ ®­îc in ra cho c¸c nh©n viªn b­u ®iÖn cuèi mæi th¸ng. + Form 6 (Form in Ên vµ tÝnh to¸n) :dïng ®Ó tÝnh to¸n tiÒn cho mæi cuéc gäi cña kh¸ch hµng tuú thuéc vµo vïng gäi cña kh¸ch hµng vµ sè thêi gian mµ quÝ kh¸ch hµng ®· gäi, mæi khi ch­¬ng tr×nh ch¹y th× viÖc tÝnh tiÒn sÏ ®­îc tiÕn hµnh vµ ®­îc l­u tr÷ vµo c¬ sì d÷ liÖu ®· cã s½n.Trªn Form nµy cã c¸c nót lÖnh cho phÐp nh©n viªn cã thÓ xuÊt ho¸ ®¬n tr¶ tiÒn hµng th¸ng cña kh¸ch hµng vµ tæng sè tiÒn mµ quÝ kh¸ch hµng ph¶i tr¶ trong th¸ng. I. Form më ®Çu. Form nµy môc ®Ých chñ yÕu ®Ó giíi thiÖu ch­¬ng tr×nh bao gåm ba nót lÖnh: + C¸cchøc n¨ng bao gåm néi dung cña tÊt c¶ ch­¬ng tr×nh + Trî gióp h­íng dÈn c¸nh sö dông ch­¬ng tr×nh,vµ ng­êi viÕt ch­¬ng tr×nh. + Tho¸t gióp cho ng­êi sö dông cã thÓ tho¸t khái ch­¬ng tr×nh mét c¸ch dÓ dµng. C¸c ph­¬ng thøc ®­îc sö dông trong Form nµy Private Sub MNUEXIT_Click() End End Sub Private Sub mnugoi_Click() End Sub Private Sub mnuin_Click() xuly.WindowState = 1 CUSTOR.show End Sub Private Sub MNUTIM_Click() Form1.WindowState = 1 tim.show End Sub Private Sub MNUTT_Click() Form1.WindowState = 1 inra.show End Sub Private Sub MNUTTT_Click() Form1.WindowState = 1 xuly.show End Sub Form II (CËp NhËt Th«ng Tin Kh¸ch Hµng) Tõ Form chÝnh nÕu b¹n chän trªn thanh Menu chøc n¨ng th«ng tin kh¸ch hµng->cËp nhËt hoÆc b¹n cñng cã thÓ Ên (Ctr-C) khi ®ã Form cËp nhËt sÏ hiÖn ra cho phÐp b¹n cã thÓ xem th«ng tin c¸c kh¸ch hµng ®· ®¨ng ký thuª bao. C¸c ph­¬ng thøc ®­îc sö dông trong Form nµy Dim j As Integer Dim i As Integer If Val(tu.Text) Val(den.Text) Then d.Recordset.MoveFirst For j = 1 To Val(tu.Text) d.Recordset.MoveNext Next j = j - 1 d.Recordset.MovePrevious End If For j = Val(tu.Text) To Val(den.Text) T.Text = "" T.Text = "" T.Text = " THONG TIN CAC KHACH HANG DA THUE BAO " & Chr(13) & Chr(10) & Chr(13) & Chr(10) '***************' T.Text = T.Text & " PHONE NUMBER : " & d.Recordset.Fields("MASDT") & Chr(13) & Chr(10) T.Text = T.Text & " FIRST NAME : " & d.Recordset.Fields("HO") & Chr(13) & Chr(10) T.Text = T.Text & " LAST NAME : " & d.Recordset.Fields("TEN") & Chr(13) & Chr(10) T.Text = T.Text & " ADRESS : " & d.Recordset.Fields("DC") & Chr(13) & Chr(10) T.Text = T.Text & " BACH KHOA POST OFFICE " & Chr(13) & Chr(10) If d.Recordset.EOF False Then d.Recordset.MoveNext Printer.EndDoc End If Next End Sub Private Sub Command2_Click() thu.Text = "" If d.Recordset.BOF = False Then d.Recordset.MovePrevious End If If d.Recordset.EOF Then hdthu = d.Recordset.RecordCount hdthu = hdthu - 1 End If If d.Recordset.BOF = False Then If hdthu = 0 Then hdthu = 1 thu.Text = hdthu T.Text = "" End If End If '***************' If d.Recordset.BOF = True Then MsgBox "YOU DON'T TO CONTINUE " Exit Sub Else T.Text = "" T.Text = " THONG TIN CAC KHACH HANG DA THUE BAO " & Chr(13) & Chr(10) & Chr(13) & Chr(10) '***************' T.Text = T.Text & " PHONE NUMBER : " & d.Recordset.Fields("MASDT") & Chr(13) & Chr(10) T.Text = T.Text & " FIRST NAME : " & d.Recordset.Fields("HO") & Chr(13) & Chr(10) T.Text = T.Text & " LAST NAME : " & d.Recordset.Fields("TEN") & Chr(13) & Chr(10) T.Text = T.Text & " ADRESS : " & d.Recordset.Fields("DC") & Chr(13) & Chr(10) T.Text = T.Text & " BACH KHOA POST OFFICE " & Chr(13) & Chr(10) End If End Sub Private Sub Command3_Click() thu.Text = "" If d.Recordset.EOF = False Then d.Recordset.MoveNext End If If d.Recordset.BOF Then hdthu = hdthu + 1 If hdthu = d.Recordset.RecordCount + 1 Then hdthu = d.Recordset.RecordCount thu.Text = hdthu T.Text = "" End If End If '***************' If d.Recordset.EOF = True Then MsgBox "I'M SORRY YOU DON'T TO CONTINUE" Exit Sub Else T.Text = " THONG TIN CAC KHACH HANG DA THUE BAO " & Chr(13) & Chr(10) & Chr(13) & Chr(10) '***************' T.Text = T.Text & " PHONE NUMBER : " & d.Recordset.Fields("MASDT") & Chr(13) & Chr(10) T.Text = T.Text & " FIRST NAME : " & d.Recordset.Fields("HO") & Chr(13) & Chr(10) T.Text = T.Text & " LAST NAME : " & d.Recordset.Fields("TEN") & Chr(13) & Chr(10) T.Text = T.Text & " ADRESS : " & d.Recordset.Fields("DC") & Chr(13) & Chr(10) T.Text = T.Text & " BACH KHOA POST OFFICE " & Chr(13) & Chr(10) End If '+++++++++++++++++++++++++++++++++++++++++++++++++++++ End Sub Private Sub Command4_Click() Form1.WindowState = 0 Unload Me End Sub Private Sub den_Change() If Not IsNumeric(den.Text) Then den.Text = "" Else If (Val(den.Text) > d.Recordset.RecordCount) Or (Val(den.Text) < 1) Then den.Text = "" End If End If End Sub Private Sub Form_Load() hdthu = 1 d.DatabaseName = App.Path & "\PHONE.mdb" d.Refresh d.RecordSource = "NGDUNG" d.Refresh d.Recordset.MoveLast hdthu = d.Recordset.RecordCount thu.Text = hdthu T.Text = "" T.Text = " THONG TIN CAC KHACH HANG DA THUE BAO " & Chr(13) & Chr(10) & Chr(13) & Chr(10) '***************' T.Text = T.Text & " PHONE NUMBER : " & d.Recordset.Fields("MASDT") & Chr(13) & Chr(10) T.Text = T.Text & " FIRST NAME : " & d.Recordset.Fields("HO") & Chr(13) & Chr(10) T.Text = T.Text & " LAST NAME : " & d.Recordset.Fields("TEN") & Chr(13) & Chr(10) T.Text = T.Text & " ADRESS : " & d.Recordset.Fields("DC") & Chr(13) & Chr(10) T.Text = T.Text & " BACH KHOA POST OFFICE " & Chr(13) & Chr(10) End Sub Private Sub show_Click() inra.show End Sub Private Sub sobanin_Change() If Not IsNumeric(sobanin.Text) Then sobanin.Text = "" Else If Val(sobanin.Text) < 1 Then sobanin.Text = "" End If End If End Sub Private Sub thu_Change() tu.Text = thu.Text den.Text = thu.Text End Sub Private Sub tu_Change() If Not IsNumeric(tu.Text) Then tu.Text = "" Else If (Val(tu.Text) > d.Recordset.RecordCount) Or (Val(tu.Text) < 1) Then tu.Text = "" End If End If End Sub Private Sub tu_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then den.SetFocus End If End Sub FORM III(In kh¸ch Hµng) Tõ Form chÝnh nÕu b¹n chän trªn thanh Menu chøc n¨ng b¹n chän Menu th«ng tin kh¸ch hµng->in kh¸ch hµng hoÆc b¹n cñng cã thÓ Ên (Ctr-A) khi ®ã Form in kh¸ch hµng sÏ hiÖn ra cho phÐp b¹n cã thÓ in bÊt kú kh¸ch hµng nµo nÕu b¹n muèn ®IÒu nµy gióp cho c¸c nh©n viªn b­u ®iÖn dÔ dµng truy cËp h¬n *C¸c Ph­¬ng Thøc Public cvthu As Integer Private Sub Cmd01_Click(Index As Integer) End Sub Private Sub cmd2_Click() If Not Data1.Recordset.BOF Then Data1.Recordset.MovePrevious Else Data1.Recordset.MoveLast End If End Sub Private Sub Cmd3_Click() If Not Data1.Recordset.EOF Then Data1.Recordset.MoveNext Else Data1.Recordset.MoveFirst End If End Sub Private Sub Cmd4_Click() Data1.Recordset.MoveLast End Sub Private Sub cd1_Click() Data1.Recordset.MoveFirst thu.Caption = 1 T.Text = "" T.Text = T.Text & " CONG HOA XA HOI CHU NGHIA VIET NAM " & Chr(13) & Chr(10) T.Text = T.Text & " Doclap_tudo_hanhphuc " & Chr(13) & Chr(10) T.Text = T.Text & " o0o " & Chr(13) & Chr(10) T.Text = T.Text & " LOI CAM ON TOI CAC KHACH HANG DA THUE BAO " & Chr(13) & Chr(10) T.Text = T.Text & " KINH GUI ONG\BA : " & Data1.Recordset.Fields("HO") & Chr(13) & Chr(10) T.Text = T.Text & " NAME : " & Data1.Recordset.Fields("TEN") & Chr(13) & Chr(10) T.Text = T.Text & " SO MAY : " & Data1.Recordset.Fields("MASDT") & Chr(13) & Chr(10) T.Text = T.Text & " ADDRESS : " & Data1.Recordset.Fields("DC") & Chr(13) & Chr(10) T.Text = T.Text & " XIN CHAN THANH CAM ON QUI KHACH HANG DA DUNG THUE BAO CUA CHUNG TOI " & Chr(13) & Chr(10) T.Text = T.Text & " MOI THAC MAC XIN GUI CHO CHUNG TOI THEO SO MAY " & Chr(13) & Chr(10) T.Text = T.Text & " 04.117 " End Sub Private Sub cd2_Click() If thu.Caption > 1 Then Data1.Recordset.MovePrevious thu.Caption = thu.Caption - 1 T.Text = "" T.Text = T.Text & " CONG HOA XA HOI CHU NGHIA VIET NAM " & Chr(13) & Chr(10) T.Text = T.Text & " Doclap_tudo_hanhphuc " & Chr(13) & Chr(10) T.Text = T.Text & " o0o " & Chr(13) & Chr(10) T.Text = T.Text & " LOI CAM ON TOI CAC KHACH HANG DA THUE BAO " & Chr(13) & Chr(10) T.Text = T.Text & " KINH GUI ONG\BA : " & Data1.Recordset.Fields("HO") & Chr(13) & Chr(10) T.Text = T.Text & " NAME : " & Data1.Recordset.Fields("TEN") & Chr(13) & Chr(10) T.Text = T.Text & " SO MAY : " & Data1.Recordset.Fields("MASDT") & Chr(13) & Chr(10) T.Text = T.Text & " ADDRESS : " & Data1.Recordset.Fields("DC") & Chr(13) & Chr(10) T.Text = T.Text & " XIN CHAN THANH CAM ON QUI KHACH HANG DA DUNG THUE BAO CUA CHUNG TOI " & Chr(13) & Chr(10) T.Text = T.Text & " MOI THAC MAC XIN GUI CHO CHUNG TOI THEO SO MAY " & Chr(13) & Chr(10) T.Text = T.Text & " 04.117 " Else MsgBox "ban ghi da het ", , "in ban ghi cuoi" Exit Sub End If End Sub Private Sub cd3_Click() If thu.Caption < Data1.Recordset.RecordCount Then Data1.Recordset.MoveNext thu.Caption = thu.Caption + 1 T.Text = "" T.Text = T.Text & " CONG HOA XA HOI CHU NGHIA VIET NAM " & Chr(13) & Chr(10) T.Text = T.Text & " Doclap_tudo_hanhphuc " & Chr(13) & Chr(10) T.Text = T.Text & " o0o " & Chr(13) & Chr(10) T.Text = T.Text & " LOI CAM ON TOI CAC KHACH HANG DA THUE BAO " & Chr(13) & Chr(10) T.Text = T.Text & " KINH GUI ONG\BA : " & Data1.Recordset.Fields("HO") & Chr(13) & Chr(10) T.Text = T.Text & " NAME : " & Data1.Recordset.Fields("TEN") & Chr(13) & Chr(10) T.Text = T.Text & " SO MAY : " & Data1.Recordset.Fields("MASDT") & Chr(13) & Chr(10) T.Text = T.Text & " ADDRESS : " & Data1.Recordset.Fields("DC") & Chr(13) & Chr(10) T.Text = T.Text & " XIN CHAN THANH CAM ON QUI KHACH HANG DA DUNG THUE BAO CUA CHUNG TOI " & Chr(13) & Chr(10) T.Text = T.Text & " MOI THAC MAC XIN GUI CHO CHUNG TOI THEO SO MAY " & Chr(13) & Chr(10) T.Text = T.Text & " 04.117 " Else MsgBox "ban ghi ban chon da het ", , "in ban ghi dau" Exit Sub End If End Sub Private Sub cd4_Click() Data1.Recordset.MoveLast thu.Caption = Data1.Reco