Hệ thống thông tin quản lý bán hàng

Lêi nãi ®Çu Trong nh÷ng n¨m gÇn, ®©y ngµnh c«ng nghÖ th«ng tin ®· ph¸t triÓn nh­ vò b·o, ThÕ kû 21 lµ thÕ kû c«ng nghÖ th«ng tin .Tõ mét nguån tµi nguyªn tiÒm tµng, th«ng tin ®· trë thµnh mét nguån tµi nguyªn thùc sù vµ nã ®· trë thµnh mét hµng ho¸ ®Æc biÖt. ViÖc tËn dông nguån tµi nguyªn nµy ®· t¹o nªn mét b­íc ph¸t triÓn to lín trong lùc luîng x¶n suÊt, c¬ së h¹ tÇng, kinh tÕ x· héi, cÊu tróc kinh tÕ ,cÊu tróc lao ®éng vµ c¸ch thøc qu¶n lý kinh tÕ x· héi . Trong lÜnh vùc m¸y tÝnh , nh÷ng thµnh tùu vÒ khoa häc vµ c«ng nghÖ lµm cho c¸c s¶n phÈm m¸y tÝnh ngµy cµng ph¸t triÓn theo h­íng hiÖn ®¹i, chi phÝ thÊp, kh¶ n¨ng tÝnh to¸n n©ng cao. Sù ra ®êi vµ ph¸t triÓn cña m¸y tÝnh thùc sù ®· thë thµnh mét cuéc c¸nh m¹ng vÜ ®¹i. Chóng ta ®· thÊy Th«ng tin ngµy cµng phong phó ®Õn møc kh«ng thÓ xö lý b»ng ph­¬ng ph¸p vµ c«ng cô cæ ®iÓn .§Ó xö lý ®­îc l­îng th«ng tin lín nh­ vËy nghÜa lµ khai th¸c ®­îc nguån tµi nguyªn quan träng ®ã, ®ßi hái ph¶i cã nh÷ng ph­¬ng ph¸p vµ c«ng cô míi ®ã chÝnh lµ c¸c gi¶i vÒ tin häc. X· héi ngµy cµng ph¸t triÓn th× nhu cÇu øng dông tin häc ngµy cµng lín vµ ng­îc l¹i nh÷ng thµnh tùu tin häc sÏ t¸c ®éng trë l¹i, t¹o ®iÒu kiÖn ph¸t triÓn nhanh chãng cho s¶n xuÊt vµ kinh doanh. ViÖc øng dông tin häc lµ nh»m thùc hiÖn t¨ng n¨ng suÊt, hiÖu qu¶ trong viÖc xö lý th«ng tin phøc t¹p, trong qu¸ tr×nh nghiªn cøu ®iÒu tra, ®iÒu khiÓn, c¸c ho¹t ®éng qu¶n lý kinh doanh…, tæ chøc khai th¸c c¸c hÖ thèng tin häc ë mäi møc ®é . øng dông tin häc trong c«ng t¸c qu¶n lý lµ mét trong nh÷ng hiÖu qu¶ cña tin häc nh»m gi¶m nhÑ ®Õn møc tèi ®a sù tham gia cña c¬ b¾p , tiÕt kiÖm thêi gian t×m kiÕm th«ng tin, lµm hÑp kh«ng gian l­u tr÷, hÖ thèng ho¸ vµ cô thÓ ho¸ l­îng th«ng tin theo nhu cÇu cña ng­êi xö dông . Trong thêi ®¹i ngµy nay tin häc ®· chøng tá ®­îc ­u thÕ cña m×nh trong nÒn kinh tÕ quèc d©n, nã ®· thóc ®Èy vµ hç trî cho c¸c ngµnh kh¸c ph¸t triÓn v­ît bËc. Cuèi cïng t«i xin tr©n thµnh c¶m ¬n thÇy gi¸o §Æng ThÕ Vinh ®· tËn t×nh gióp ®ì t«i trong qu¸ tr×nh thùc tËp vµ hoµn thiÖn ®Ò tµi nµy. T«i còng xin tr©n thµnh c¶m ¬n anh Ph¹m V¨n Léc phã gi¸m ®èc vµ toµn thÓ c¸c anh lËp tr×nh viªn ®É tËn t×nh gióp ®ì t«i vµ ®ãng gãp nh÷ng ý kiÕn quý b¸u vµ t¹o mäi ®iÒu kiÖn vÒ c¬ së vËt chÊt kü thuËt, thuËn lîi cho t«i trong qu¸ tr×nh thùc tËp t¹i phßng phÇn mÒm thuéc C«ng ty ®Çu t­ vµ ph¸t triÓn phÇn mÒm kÕ to¸n Asia. Ch­¬ng I. HÖ thèng th«ng tin qu¶n lý B¸n hµng C¸c giai ®o¹n x©y dùng hÖ thèng th«ng tin qu¶n lý: ViÖc x©y dùng hÖ thèng th«ng tin qu¶n lý bao gåm 7 giai ®o¹n. Mçi giai ®o¹n bao gåm nhiÒu c«ng ®o¹n kh¸c nhau: Giai ®o¹n 1: §¸nh gi¸ yªu c©u: §¸nh gi¸ yªu cÇu cã môc ®Ých cung cÊp cho l·nh ®¹o, tæ chøc hoÆc héi ®ång gi¸m ®èc nh÷ng d÷ liÖu ®Ých thùc ®Ó ra quyÕt ®Þnh vÒ thêi c¬, tÝnh hiÖu qu¶ vµ kh¶ thi cña mét dù ¸n x©y dùng hÖ thèng th«ng tin qu¶n lý. Giai ®o¹n nµy gåm c¸c c«ng ®o¹n sau: 1 . LËp kÕ ho¹ch ®¸nh gia yªu cÇu. 2. Lµm râ yªu cÇu. 3. §¸nh gi¸ kh¶ n¨ng thùc thi. 4. B¸o c¸o ®¸nh gi¸ yªu cÇu. Giai ®o¹n 2: Ph©n tÝch chi tiÕt: Nh»m hiÓu râ vÊn ®Ò ®ang nghiªn cøu, x¸c ®Þnh nh÷ng nguyªn nh©n ®Ých thùc cña vÊn ®Ò ®ã, x¸c ®Þnh ®ßi hái vµ nh÷ng giµng buéc ¸p ®Æt ®èi víi hÖ thèng vµ x¸c ®Þnh nh÷ng môc tiªu mµ hÖ thèng th«ng tin míi ph¶i ®¹t ®­îc. Trªn c¬ së néi dung b¸o c¸o ph©n tÝch chi tiÕt sÏ quyÕt ®Þnh tiÕp tôc tiÕn hµnh hay th«i ph¸t triÓn hÖ thèng míi. Giai ®o¹n nµy gåm c¸c c«ng ®o¹n sau: 1. LËp kÕ ho¹ch ph©n tÝch chi tiÕt. 2. Nghiªn cøu m«i tr­êng cña hÖ thèng ®ang tån t¹i. 3. Nghiªn cøu hÖ thèng thùc t¹i. 4. §­a ra chuÈn ®o¸n vµ x¸c ®Þnh c¸c yÕu tè gi¶i ph¸p . 5. §¸nh gi¸ l¹i tÝnh kh¶ thi. 6. Thay ®æi ®Ò xuÊt dù ¸n. 7. B¸o c¸o ph©n tÝch chi tiÕt. Giai ®o¹n 3: ThiÕt kÕ logic Giai ®o¹n nµy x¸c ®Þnh tÊt c¶ c¸c thµnh phÇn logic cña mét hÖ thèng th«ng tin, cho phÐp lo¹i bá c¸c vÊn ®Ò cña hÖ thèng thùc tÕ vµ cho phÐp ®¹t ®­îc nh÷ng môc tiªu ®· ®Æt ra ë giai ®o¹n tr­íc. M« h×nh logic cña hÖ thèng míi sÏ bao gåm th«ng tin mµ hÖ thèng míi sÏ x¶n sinh ra, néi dung cña C¬ së d÷ liÖu, c¸c sö lý vµ hîp thøc ho¸ sÏ ph¶i thùc hiÖn vµ c¸c d÷ liÖu sÏ ®­îc nh©p vµo. Gåm c¸c c«ng ®o¹n sau: 1. ThiÕt kÕ c¬ së d÷ liÖu 2. ThiÕt kÕ sö lý 3 . ThiÕt kÕ c¸c luång d÷ liÖu vµo. 4 . ChØnh söa tµi liÖu cho møc logic. 5 . Hîp thøc ho¸ cho m« h×nh logic. Giai ®o¹n 4: §Ò xuÊt c¸c ph­¬ng ¸n gi¶i ph¸p. Tõ m« h×nh logic, chóng ta ph¶i ®­a ra c¸c gi¶i ph¸p kh¸c nhau ®Ó cô thÓ ho¸ m« hinh logic ®ã. Mçi gi¶i ph¸p lµ mét m« ph¸c ho¹ cña m« h×nh vËt lý ngoµi. øng víi mçi ph­¬ng ¸n ®Òu cã c¸c khuyÕn nghÞ cô thÓ, ph¶i cã nh÷ng ph©n tÝch vÒ chi phÝ, lîi Ých. C¸c c«ng ®o¹n cña giai ®o¹n nµy gåm: 1. X¸c ®Þnh c¸c dµng buéc tin häc vµ c¸c giang buéc tæ chøc. 2. X©y dùng c¸c ph­¬ng ¸n cña gi¶i ph¸p. 3. §¸nh gi¸ c¸c ph­¬ng ¸n cña gi¶i ph¸p. 4. B¸o c¸o c¸c giai ®o¹n ®ã. Giai ®o¹n 5: thiÕt kÕ vËt lý ngoµi. Bao gåm tµi liÖu chøa tÊt c¶ c¸c ®Æc tr­ng cña hÖ thèng míi cÇn cã vµ tµi liÖu dµnh cho ng­êi sö dông mµ nã m« t¶ c¶ phÇn thñ c«ng vµ c¶ nh÷ng giao diÖn víi nh÷ng phÇn tin häc ho¸. Gåm nh÷ng c«ng ®o¹n chÝnh sau: 1. LËp kÕ ho¹ch thiÕt kÕ vËt lý ngoµi. 2. ThiÕt kÕ chi tiÕt c¸c giao diÖn. 3. ThiÕt kÕ c¸c c¸ch thøc t­¬ng t¸c víi phÇn tin häc ho¸. 4. ThiÕt kÕ c¸c thñ tôc thñ c«ng. 5. B¸o c¸o vÒ thiÕt kÕ vËt lý ngoµi. Giai ®o¹n 6: TriÓn khai kü thuËt hÖ thèng: tin häc ho¸ hÖ thèng th«ng tin.C¸c c«ng ®o¹n chÝnh cña giai ®o¹n nµy gåm: 1. LËp kÕ ho¹ch thùc hiÖn kü thuËt 2. ThiÕt kÕ vËt lý trong 3. LËp tr×nh 4. Thö nghiÖm hÖ thèng. 5. ChuÈn bÞ tµi liÖu Giai ®o¹n 7: Cµi ®Æt vµ khai th¸c hÖ thèng: ®©y lµ giai ®o¹n chuyÓn tõ hÖ thèng cò sang hÖ thèng míi. Giai ®o¹n nµy gåm c¸c c«ng ®o¹n sau: 1. LËp kÕ ho¹ch cµi ®Æt. 2. ChuyÓn ®æi. 3. Khai th¸c vµ b¶o tr×. 4. §¸nh gi¸. II.1 ph©n tÝch hÖ thèng th«ng tin qu¶n lý b¸n hµng. A . Môc ®Ých: X©y dùng ch­¬ng tr×nh cho phÐp qu¶n lý vµ theo dâi c«ng viÖc b¸n hµng cña mét trung t©m th­¬ng m¹i. Yªu cÇu : HÖ thèng sÏ ®­îc x©y dùng ®Ó theo dâi qu¶n lý b¸n hµng. HiÖn t¹i hÖ thèng sÏ ®­îc thiÕt kÕ vµ cµi dÆt c¸c chøc n¨ng sau: + Cho phÐp qu¶n lý c«ng viÖc b¸n hµng tù ®éng. + Cho phÐp qu¶n lý vµ tÝnh to¸n gi¸ trÞ ho¸ ®¬n. + Cung cÊp c¸c biÓu mÉu tæng hîp vµ thèng kª theo yªu cÇu. HÖ thèng cã thÓ ®­îc më réng mét c¸ch dÔ dµng khi cã sù thay ®æi vÒ m«i tr­êng, c«ng cô vµ yªu cÇu qu¶n lý míi. C. Ph©n tÝch hÖ thèng th«ng tin qu¶n lý b¸n hµng. + M« t¶ ho¹t ®éng cò cña hÖ thèng, qua quan ®iÓm x©y dùng hÖ thèng míi + Ph©n tÝch hÖ thèng thµnh c¸c hÖ thèng con ®Ó thiÕt kÕ vµ cµi ®Æt + X©y dùng s¬ ®å luång gi÷ liÖu diÔn t¶ ho¹t ®éng cña hÖ thèng + X©y dùng biÓu ®å ph©n cÊp chøc n¨ng cña ch­¬ng tr×nh. + X©y dùng m« h×nh thùc thÓ liªn kÕt cho toµn hÖ thèng. + ThiÕt kÕ chi tiÕt cho ho¹t ®éng cña tõng chøc n¨ng. Sau khi nghiªn cøu thùc tÕ t«i thÊy hÖ thèng bao gåm: - Qu¶n lý c«ng viÖc b¸n hµng. - Theo dâi n¾m b¾t c¸c th«ng tin vÒ kh¸ch hµng vµ nhµ cung cÊp. LËp c¸c b¸o c¸o. II 2 . ThiÕt kÕ logic S¬ ®å luång gi÷ liÖu S¬ ®å dßng d÷ liÖu (DFD – Data Flow Diagram ) lµ mét trong c¸c c«ng cô quan träng nhÊt trong viÖc ph©n tÝch hÖ thèng cã cÊu tróc. Nã ®­a ra mét ph­¬ng ph¸p thiÕt lËp quan hÖ gi÷ chøc n¨ng hoÆc qu¸ tr×nh cña hÖ thèng víi th«ng tin mµ chóng sö dông ®ã lµ mét phÇn chñ chèt cña ®Æc t¶ yªu cÇu hÖ thèng, v× nã x¸c ®Þnh th«ng tin nµo ph¶i cã mÆt tr­íc khi qu¸ tr×nh ®­îc thùc hiÖn. S¬ ®å luång gi÷ liÖu ë møc tæng qu¸t: Yªu cÇu Mua hµng Phßng b¸n hµng Kh¸ch hµng Kho hµng Nhµ cung cÊp Phßng kÕ to¸n B¸o c¸o Phßng gi¸m ®èc M« h×nh trªn thÓ hiÖn sù trao ®æi th«ng tin gi÷a hÖ thèng vµ c¸c t¸c nh©n bªn ngoµi. Luång gi÷ liÖu tõ bªn ngoµi cña hÖ thèng bao qåm c¸c yªu cÇu cña ban l·nh ®¹o, c¸c khèi phßng liªn quan. Luång d÷ liÖu t¹o ra bao gåm c¸c b¸o c¸o thèng kª tr¶ lêi. Sau khi ®· cã s¬ ®å møc tæng qu¸t vµ dùa vµo yªu cÇu môc ®Ých cña hÖ thèng ta cã s¬ ®å luång gi÷ liÖu ph©n gi· chøc n¨ng nh­ sau: Kh¸ch hµng Nhµ cung cÊp Ban l·nh ®¹o, khèi phßng liªn quan HÖ thèng B¸o c¸o Kho D÷ LiÖu B¸n hµng Mua hµng B¸o C¸o Yªu CÇu b¸o c¸o Thu tiÒn B¸n hµng YªuCÇu Tr¶ Lêi II3. M« h×nh liªn kÕt gi÷a c¸c thùc thÓ Thùc thÓ vµ c¸c kho¸ Qua qu¸ tr×nh kh¶o s¸t vµ chuÈn ho¸ ta cã mét sè thùc thÓ sau: + Nhãm hµng Tªn tr­êng KiÓu tr­êng §é réng M« t¶ Manhom Number auto M· nhãm Tªn nhãm Text 50 Tªn nhãm Mota Mono 100 M« t¶ nhãm Hinhnhom Text 150 §­êng dÉn ®Õn File h×nh +Nhµ cung cÊp: Tªn tr­êng KiÓu tr­êng §é réng M« t¶ Manhacc Number Auto M· nhµ cung cÊp Tennhacc Text 60 Tªn nhµ cung cÊp TenDT Text 30 Tªn ®èi t¸c Chucdanh Text 30 Chøc danh ®èi t¸c DiachiNcc Mono 100 §Þa chØ Thanhpho Text 15 Thµnh phè Vung Text 15 Vïng Mavung Text 15 M· vïng NuocNcc Text 15 M· vïng DienThoaiNcc Number 10 §iÖn tho¹i FaxNcc Number 10 Fax EmailNcc Text 50 E-mail WedsideNcc Text 50 Wed side + Ng­êi göi hµng Tªn tr­êng KiÓu tr­êng §é réng M« t¶ MaNGui Number auto M· ng­êi göi TenCTYGui Text 50 Tªn cty göi Dienthoai Number 10 §iÖn tho¹i Fax Number 10 Fax Email Text 50 E mail Wedside Text 50 wed side + Hµng ho¸ Tªn tr­êng KiÓu tr­êng §é réng M« t¶ MaSP Number auto M· s¶n phÈm TenSP Text 50 Tªn s¶n phÈm NhaCCID Number 50 M· nhµ cung cÊp NhomHHID Number 50 M· nhãm hµng ho¸ Soluongtrong Number 10 Sè l­îng trong ®¬n vÞ Dongia Currency 10 §¬n gi¸ SoDVtrongkho Number 10 Sè l­îng trong kho SoDVtrenHD Number 10 Sè §v trªn HD MucDMBS Number 10 Møc ®Æt mua bæ sung Dinhchi Logic 1 §Ønht chØ + Chi tiÕt ho¸ ®¬n: Tªn tr­êng KiÓu tr­êng §é réng M« t¶ MaCTHD Number auto M· chi tiÕt ho¸ ®¬n HoadonID Number auto M· ho¸ ®¬n HanghoaID Number auto M· hµng ho¸ Dongia Currency 10 §¬n gi¸ b¸n Soluong Number 10 Sè l­îng Trietkhau Number 3 TriÕt khÊu +Ho¸ ®¬n Tªn tr­êng KiÓu tr­êng §é réng M« t¶ MaHD Number auto M· ho¸ ®¬n NgayHD Date/time 8 Ngµy ho¸ ®¬n NgayYC Date/time 8 Ngµy yªu cÇu Ngaygui Date/time 8 Ngµy göi hµng NguoibanID Number auto M· ng­êi b¸n NGuiID Number auto M· ng­êi göi KhachID Number auto M· kh¸ch hµng Cuocphi Currency 10 C­íc phÝ TenCTYNgui Text 50 Tªn cty nhËn DiachiCTY Text 50 §Þa chØ Thanhpho Text 15 Thµnh phè Vungnhangui Text 15 Vïng nhËn göi Mavung Text 15 M· vïng Quocgia Text 15 N­íc + Nh©n viªn b¸n hµng. Tªn tr­êng KiÓu tr­êng §é réng M« t¶ MaNBan Number auto M· ng­êi b¸n Ten Text 20 Tªn ng­êi b¸n Ho Text 20 Hé ng­êi b¸n Chucdanh Text 30 Chøc danh ng­êi b¸n Bidanh Text 20 BÝ danh ng­êi b¸n Ngaysinh Date/time 8 Ngµy sinh Ngaynhanviec Date/time 8 Ngµy nhËn viÖc Baocaotoi Text 40 B¸o c¸o tíi Diachi Mono 100 §Þa chØ Thanhpho Text 15 Thµnh phè Vung Text 15 Vïng Mavung Text 15 M· vïng Nuoc Text 15 N­íc DTnha Number 10 §iÖn tho¹i riªng Ghichu Memo 100 Ghi chó Email Text 50 E-mail Hinhanh Text 100 §­êng dÉn h×nh +Kh¸ch hµng Tªn tr­êng KiÓu tr­êng §é réng M« t¶ KhachhangID Number auto M· kh¸ch hµng TenCty Text 50 Tªn c«ng ty TenDT Text 50 Tªn ®èi t¸c ChucdanhDT Text 50 Chøc danh Diachi Memo 100 §Þa chØ Thanhpho Text 15 Thµnh phè Vung Text 15 Vïng Mavung Text 15 M· vïng Nuoc Text 15 N­íc Dienthoai Number 10 §iÖn tho¹i Fax Number 10 Fax Wedside Text 50 Wed side Email Text 50 E-mail 5. Chän lùa c¬ së d÷ liÖu vµ m«i tr­êng ph¸t triÓn Do tÝnh b¶o mËt cña c¬ së d÷ liÖu lªn m«i tr­êng ®Î ph¸t triÓn phï hîp nhÊt ®ã lµ Oracle, SqlServer vµ m«i tr­êng ph¸t triÓn visual basic. Cã thÓ nãi Visual Basic lµ con ®­êng nhanh nhÊt, ®¬n gi¶n nhÊt vµ m¹nh nhÊt ®Ó t¹o nh÷ng øng dông Windows nãi chung vµ nh÷ng øng dông C¬ së d÷ liÖu nãi riªng. Visual Basic cung cÊp cho b¹n mét tËp hîp c¸c c«ng cô hoµn chØnh ®Ó nhanh chãng ph¸t triÓn c¸c øng dông. 1)Visual Basic lµ g×? Thµnh phÇn VISUAL nãi ®Õn c¸c ph­¬ng thøc dïng ®Ó t¹o giao diÖn ®å ho¹ ng­êi dïng (GUI). Thay v× viÕt nh÷ng dßng m· ®Ó m« t¶ vÞ trÝ vµ sù xuÊt hiÖn cña c¸c thµnh phÇn giao diÖn, ta chØ cÇn thªm vµo nh÷ng ®èi t­îng ®· ®­îc ®Þnh nghÜa tõ tr­íc ë vÞ trÝ nµo ®ã trªn mµn h×nh. Thµnh phÇn BASIC: nãi ®Õn ng«n ng÷ BASIC (Beginners AllPurpose Symbolic Instruction Code) nãi ®Õn ng«n ng÷ ®­îc dïng nhiÒu bëi c¸c nhµ lËp tr×nh h¬n bÊt cø mét ng«n ng÷ nµo kh¸c trong lich sö m¸y tÝnh.Visual Basic ®­îc ph¸t triÓn dÇn dÇn dùa trªn ng«n ng÷ BASIC, vµ b©y giê chøa ®ùng hµng tr¨m ®iÒu lÖnh, hµm vµ tõ kho¸ … cã giao diÖn trùc tiÕp víi giao diÖn ®å ho¹ cña Windows. Ng«n ng÷ lËp tr×nh Visual Basic kh«ng chØ lµ Visual Basic. HÖ thèng lËp tr×nh Visual Basic, nh÷ng øng dông bao gåm Microsoft Excel, Misrosoft Access, nhiÒu øng dông Windows kh¸c ®Òu dïng mét ng«n ng÷. Visual Basic lµ mét c«ng cô m¹nh cã thÓ ®¸p øng mäi nhu cÇu lËp tr×nh cña chóng ta kÓ tõ nh÷ng øng dông nhá cho ®Õn nh÷ng øng dông mang tÝnh hÖ thèng lín vµ c¶ nh÷ng øng dông qua m¹ng. Nh÷ng chøc n¨ng truy xuÊt d÷ liÖu cho phÐp chóng ta t¹o ra nh÷ng C¬ Së d÷ liÖu. Nh÷ng kü thuËt ActiveX cho phÐp ta dïng nh÷ng chøc n¨ng ®­îc cung cÊp tõ c¸c øng dông kh¸c. Kh¶ n¨ng Internet lµm cho nã dÔ dµng cung cÊp cho viÖc thªm vµo nh÷ng tµi liÖu vµ øng dông qua Internet tõ bªn trong øng dông cña b¹n. T¹o tËp tin File.EXE thËt sù. 2) CÊu tróc cña mét øng dông Visual Basic: Mét øng dông thËt ra lµ mét tËp hîp c¸c chØ dÉn trùc tiÕp ®Õn m¸y tÝnh ®Ó thi hµnh mét hay nhiÒu t¸c vô. CÊu tróc cña mét øng dông lµ ph­¬ng ph¸p trong ®ã c¸c chØ dÉn ®­îc tæ chøc, ®­îc l­u tr÷ vµ thi hµnh theo mét tr×nh tù nhÊt ®Þnh 3) Chóng ta cã thÓ lµm g× víi Visual Basic 6.0. T¹o giao diÖn ng­êi dïng. Giao diÖn ng­êi dïng cã lÏ lµ thµnh phÇn quan träng nhÊt cña mét øng dông. §èi víi ng­êi sö dông th× giao diÖn chÝnh lµ øng dông. Øng dông cña chóng ta cã ®­îc phæ biÕn hay kh«ng lµ phô thuéc vµo giao diÖn. Sö dông nh÷ng ®iÒu khiÓn chuÈn cña Visual Basic 6.0 Ta dïng nh÷ng ®iÒu khiÓn ®Ó lÊy th«ng tin ra, nhËp th«ng tin vµo vµ kÕt xuÊt th«ng tin. Nh÷ng øng dông mµ ta cã thÓ dïng trong øng dông bao gåm hép v¨n b¶n,nót lÖnh, hép danh s¸ch,… Nh÷ng ®iÒu khiÓn kh¸c cho ta truy xuÊt nh÷ng øng dông kh¸c, xö dông nã ®Ó xö lý d÷ liÖu theo thiÕt kÕ cña c¸c nhµ thiÕt kÕ hÖ thèng. LËp tr×nh víi nh÷ng ®èi t­îng. Nh÷ng ®èi t­îng lµ thµnh phÇn chñ yÕu ®Ó lËp tr×nh Visual Basic . nh÷ng ®èi t­îng cã thÓ lµ FORM, nh÷ng ®iÒu khiÓn hay C¬ së d÷ liÖu. LËp tr×nh víi phÇn hîp thµnh. Chóng ta ®«i khi xö dông phÇn tÝnh to¸n cña Microsoft Excel trong øng dông Visual Basic 6.0, hay ®Þnh d¹ng mét tµi liÖu xö dông thanh c«ng cô cña Microsoft Word, hoÆc l­u tr÷ vµ xö lý d÷ liÖu xö dông Microsoft Access… tÊt c¶ nh÷ng ®iÒu nµy cã thÓ thùc hiÖn ®­îc b»ng c¸ch x©y dùng nh÷ng øng dông cña chóng ta b»ng nh÷ng thµnh phÇn ActiveX. Thªm vµo ®ã, Visual Basic cã thÓ gióp chóng ta t¹o nh÷ng ®iÓu khiÓn ActiveX riªng. §¸p øng nh÷ng sù kiÖn phÝm vµ chuét, sù kiÖn rª vµ th¶. Nh÷ng øng dông Visual Basic cã thÓ ®¸p øng mét sè l­îng lín sù kiÖn chuét, bµn phÝm. VÝ dô FORM, hép ¶nh vµ nh÷ng ®iÒu khiÓn ¶nh cã thÓ ph¸t hiÖn vÞ trÝ con trá chuét cã thÓ quyÕt ®Þnh phÝm tr¸i hay phÝm ph¶i ®­îc nhÊn,vµ cã thÓ ®¸p øng ®­îc nh÷ng tæ hîp cña phÝm chuét víi phÝm Shift, Ctrl hay Alt. Sö dông nh÷ng ®iÒu khiÓn phÝm, ta cã thÓ lËp tr×nh nh÷ng ®iÒu khiÓn vµ FORM ®Ó ®¸p øng c¸c hµnh ®éng phÝm hoÆc phiªn dÞch bé m· Ascii cña ký tù. Lµm viÖc víi v¨n b¶n vµ ®å ho¹. Visual Basic cung cÊp kh¶ n¨ng ®å ho¹ vµ v¨n b¶n phøc t¹p trong øng dông Visual Basic. Nh÷ng thuéc tÝnh v¨n b¶n cá thÓ gióp ta nhÊn m¹nh c¸c kh¸i niÖm quan träng vµ c¸c chi tiÕt cÇn quan t©m. Thªm vµo ®ã Visual Basic cung cÊp nh÷ng kh¶ n¨ng ®å ho¹ cho phÐp chóng ta linh ®éng trong thiÕt kÕ, bao hµm c¸c h×nh ¶nh ®éng b¨ng c¸ch hiÓn thÞ hang lo¹t c¸c h×nh ¶nh liªn tiÕp nhau. Gì rèi m· vµ qu¶n lý lçi. §«i khi cã nh÷ng lçi x¶y ra bªn trong m· cña øng dông.nh÷ng lçi nghiªm träng cã thÓ lµ nguyªn nh©n mét øng dông kh«ng ®¸p øng lÖnh, th«ng th­êng yªu cÇu ng­êi sö dông khëi ®éng l¹i øng dông vµ kh«ng l­u l¹i nh÷ng g× mµ ta ®· lµm. qu¸ tr×nh t×m lçi vµ söa lçi gäi lµ gì rèi. Visual Basic cung cÊp nhiÒu c«ng cô gióp chóng ta cã thÓ ph©n tÝch sù lµm viÖc cña øng dông. Nh÷ng c«ng cô gì rèi ®Æc biÖt h÷u Ých trong viÖc t×m ra nguån gèc lçi chóng ta cã thÓ dïng c«ng cô nµy ®Ó kiÓm tra ch­¬ng tr×nh. Sö lý æ ®Üa th­ môc vµ File. Khi lËp tr×nh trong Windows,Visual Basic gióp chóng ta lËp tr×nh nh÷ng øng dông nh­: di chuyÓn, t¹o míi, xo¸ th­ môc vµ File, lÊy th«ng tin vµ xö lý æ ®Üa. ThiÕt kÕ cho viÖc thi hµnh vµ tÝnh t­¬ng thÝch. Visual Basic chia sÎ hÇu hÕt nh÷ng tÝnh n¨ng ng«n ng÷ trong Visual Basic cho nh÷ng øng dông Microsoft nh­: Microsoft Office.VBScript lµ tËp hîp con cña ng«n ng÷ lËp tr×nh Visual Basic. Ph©n phèi nh÷ng øng dông: Sau khi ®· t¹o mét øng dông Visual Basic, ta cã thÓ tù do ph©n phèi bÊt kú øng dông nµo ®· t¹o b»ng Visual Basic ®Õn bÊt cø ai dïng Microsoft Windows. Ta cã thÓ ph©n phèi øng dông trªn ®Üa, trªn CD, qua m¹ng Internet hay Intranet. ChÝnh v× nh÷ng thÕ m¹nh ®ã cña Visual Basic 6.0 t«i ®· chän ng«n ng÷ nµy ®Ó ph¸t triÓn øng dông: ” HÖ thèng th«ng tin qu¶n lý b¸n hµng. PhÇn phô lôc Mét sè giao diÖn mét sè module ch­¬ng tr×nh Option Explicit Private Sub chkCay_Click() With VSFlexGrid1BCBH If chkCay.Value = False Then .OutlineBar = flexOutlineBarNone chkCay.Caption = "Kh«ng c©y" Else .OutlineBar = flexOutlineBarComplete chkCay.Caption = "Cã c©y" End If End With End Sub Private Sub chkDongke_Click() If chkDongke.Value = False Then VSFlexGrid1BCBH.GridLines = flexGridNone chkDongke.Caption = "Kh«ng dßng" Else VSFlexGrid1BCBH.GridLines = flexGridFlat chkDongke.Caption = "Cã dßng" End If End Sub Private Sub chkNenluoi_Click() With VSFlexGrid1BCBH If chkNenluoi.Value = False Then .WallPaper = LoadPicture() chkNenluoi.Caption = "Kh«ng nÒn" Else .WallPaper = imgNen .WallPaperAlignment = flexPicAlignCenterCenter chkNenluoi.Caption = "Cã nÒn" End If End With End Sub Private Sub Form_Load() Dim dong As Integer Dim SQL As String dong = 1 SQL = "Select Ten,Ho,NgayHD,HanghoaID,Soluong,Dongia,tblChitietHD.[Soluong]*tblChitietHD.[Dongia] as Thanhtien" & _ " From tblNhanvienbanhang,tblHoadon,tblChitietHD" & _ " Where tblNhanvienbanhang.[MaNBan]=tblHoadon.[NguoibanID]" & _ " And tblHoadon.[MaHD]=tblChitietHD.[HoadonID]" & _ " Order By Ten,Ho,NgayHD" KhoitaoADODB SQL With VSFlexGrid1BCBH .Cols = 10 .FormatString = "TÝnh tæng|Tªn nh©n viªn|Hä nh©n viªn|Ngµy ho¸ ®¬n|M· hµng ho¸|Sè l­îng|§¬n gi¸| |Thµnh tiÒn" .ColWidth(0) = 1500 .ColWidth(1) = 1900 .ColWidth(2) = 1900 .ColWidth(3) = 1300 .ColFormat(3) = "dd/mm/yy" .ColWidth(7) = imgMuitentrai.Width .ColWidth(9) = imgMuitentrai.Width .GridLines = flexGridNone '.Cell(flexcpPicture, 0, 0) = LoadPicture("C:\QLKH\GRAPHICS\BITMAPS\BC\Sum.bmp") .Cell(flexcpPicture, 0, 0) = imgSum .Cell(flexcpBackColor, 0, 0) = &HC0E0FF End With Do While rsado.EOF = False With VSFlexGrid1BCBH .Cell(flexcpText, dong, 1) = rsado.Fields("Ten").Value .Cell(flexcpText, dong, 2) = rsado.Fields("Ho").Value .Cell(flexcpText, dong, 3) = CStr(rsado.Fields("NgayHD").Value) .Cell(flexcpText, dong, 4) = CStr(rsado.Fields("HanghoaID").Value) .Cell(flexcpText, dong, 5) = CStr(rsado.Fields("Soluong").Value) .Cell(flexcpText, dong, 6) = CStr(rsado.Fields("Dongia").Value) .Cell(flexcpText, dong, 8) = CStr(rsado.Fields("Thanhtien").Value) dong = dong + 1 rsado.MoveNext End With Loop rsado.Close With VSFlexGrid1BCBH .OutlineCol = 0 .OutlineBar = flexOutlineBarComplete .SubtotalPosition = flexSTAbove .Subtotal flexSTClear .Subtotal flexSTSum, 0, 8, "$", &HFFC0C0, vbBlack, True, "Tæng toµn bé" .Subtotal flexSTSum, 1, 8, "$", &HFFC0C0, vbBlack, True, "Tæng theo tªn NV" .Subtotal flexSTSum, 2, 8, "$", &HFFC0C0, vbBlack, True, "Tæng theo hä NV" .Subtotal flexSTSum, 3, 8, "$", &HFFC0C0, vbBlack, False, "Tæng theo ngµy" .MergeCells = flexMergeRestrictColumns .MergeCol(0) = True .MergeCol(1) = True .MergeCol(2) = True .MergeCol(3) = True End With HienForm Me End Sub Private Sub Form_Unload(Cancel As Integer) cnado.Close Set cnado = Nothing End Sub Private Sub optTinhtoan_Click(Index As Integer) Select Case Index Case 0 With VSFlexGrid1BCBH .OutlineCol = 0 .OutlineBar = flexOutlineBarComplete .SubtotalPosition = flexSTAbove .Subtotal flexSTClear .Subtotal flexSTSum, 0, 8, "$", &HFFC0C0, vbBlack, True, "Tæng toµn bé" .Subtotal flexSTSum, 1, 8, "$", &HFFC0C0, vbBlack, True, "Tæng theo tªn NV" .Subtotal flexSTSum, 2, 8, "$", &HFFC0C0, vbBlack, True, "Tæng theo hä NV" .Subtotal flexSTSum, 3, 8, "$", &HFFC0C0, vbBlack, False, "Tæng theo ngµy" End With Case 1 With VSFlexGrid1BCBH .OutlineCol = 0 .OutlineBar = flexOutlineBarComplete .SubtotalPosition = flexSTAbove .Subtotal flexSTClear .Subtotal flexSTPercent, 0, 8, "%##.##", &HFFC0C0, vbBlack, True, "PhÇn tr¨m toµn bé" .Subtotal flexSTPercent, 1, 8, "%##.##", &HFFC0C0, vbBlack, True, "PhÇn tr¨n theo tªn" .Subtotal flexSTPercent, 2, 8, "%##.##", &HFFC0C0, vbBlack, True, "PhÇn tr¨m theo hä" .Subtotal flexSTPercent, 3, 8, "%##.##", &HFFC0C0, vbBlack, False, "PhÇn tr¨m theo ngµy" End With Case 2 With VSFlexGrid1BCBH .OutlineCol = 0 .OutlineBar = flexOutlineBarComplete .SubtotalPosition = flexSTAbove .Subtotal flexSTClear .Subtotal flexSTAverage, 0, 8, "$", &HFFC0C0, vbBlack, True, "TB toµn bé" .Subtotal flexSTAverage, 1, 8, "$", &HFFC0C0, vbBlack, True, "TB theo tªn" .Subtotal flexSTAverage, 2, 8, "$", &HFFC0C0, vbBlack, True, "TB theo hä" .Subtotal flexSTAverage, 3, 8, "$", &HFFC0C0, vbBlack, False, "TB theo ngµy" End With End Select End Sub Private Sub VSFlexGrid1BCBH_EnterCell() With VSFlexGrid1BCBH If .RowSel 0 Then .Cell(flexcpPicture, .RowSel, 7) = imgMuitentrai .Cell(flexcpPicture, .RowSel, 9) = imgMuitenphai End If End With End Sub Private Sub VSFlexGrid1BCBH_LeaveCell() With VSFlexGrid1BCBH .Cell(flexcpPicture, .RowSel, 7) = LoadPicture() .Cell(flexcpPicture, .RowSel, 9) = LoadPicture() End With End Sub Option Explicit Private Sub cmdBCHang_Click() rptDSSPham.Show End Sub Private Sub cmdBCHangTheoNhom_Click() rptSphamTheoNhom.Show End Sub Private Sub cmdBCTheoNCC_Click() rptDSSphamTheoNCC.Show End Sub Private Sub Form_Load() Me.Top = frmLienket.Top + frmLienket.tabLienket.Top + frmLienket.imgMuiten1.Top Me.Left = frmLienket.Left + frmLienket.imgMuiten1.Left - Me.Width End Sub Private Sub Form_Unload(Cancel As Integer) frmLienket.imgMuiten1.Visible = False End Sub Option Explicit Private GuiTT As String Private SLTrenHD As Integer Private DGTrenHD As Currency Private TKTrenHD As Double Private Sub cmdLuu_Click() 'Gäi thñ tôc KhoitaoControlsLucLuu Me With dataCTHD.Recordset .Fields("MaCTHD").Value = txtChiTietHDMa.Text .Fields("HoadonID").Value = dbcboCTietHDmaHD.Text .Fields("HanghoaID").Value = dbcboCTietHDmasp.Text .Fields("Dongia").Value = meditChitietHDDgia.Text .Fields("Soluong").Value = meditChitietHDSluong.Text .Fields("Trietkhau").Value = meditChitietTrKhau.Text .Update End With dataCTHD.Refresh 'Gäi thñ tôc dataCTHD.Recordset.MoveLast Vohieuhoa Me End Sub Private Sub cmdThem_Click() Dim SQLMatudong As String SQLMatudong = "Select Max([MaCTHD]) as Lonnhat From tblChitietHD" 'Gäi thñ tôc t¹o data kÕt nèi cho txtChitietHDma Ketnoi dataMatudong, SQLMatudong dataCTHD.Recordset.AddNew 'Gäi thñ tôc khëi t¹o Contrrols lóc thªm KhoitaoControlsLucThem Me If dataCTHD.Recordset.RecordCount = 0 Then txtChiTietHDMa.Text = "1" dataCTHD.Caption = "1" Else With dataMatudong txtChiTietHDMa.Text = "" & .Recordset.Fields("Lonnhat").Value + 1 dataCTHD.Caption = "" & .Recordset.Fields("Lonnhat").Value + 1 End With End If dbcboCTietHDmaHD.SetFocus lblChitietHDTenHD.Caption = "" lblChitietHDTenSP.Caption = "" lblChitietHDTT.Caption = "" lblChitietHDTSauTK.Caption = "" lblCTHDThueVAT.Caption = "" lblCTHDThuclanh.Caption = "" lblChitietTongcong.Caption = "" lblMatudong.Visible = True End Sub Private Sub cmdXoa_Click() If dataCTHD.Recordset.RecordCount > 0 Then 'Gäi thñ tôc xo¸ Xoa dataCTHD dataCTHD.Recordset.MoveLast Else MsgBox "Kh«ng cã d÷ liÖu ®Ó xo¸", vbInformation, "Th«ng b¸o" Exit Sub End If End Sub Private Sub dataCTHD_Reposition() On Error GoTo loi Dim SQLHientenSP As String Dim SL As Integer Dim DG As Double Dim TK As Double SQLHientenSP = "Select TenSP" & _ " From tblSanpham" & _ " Where MaSP=" & dataCTHD.Recordset.Fields("HanghoaID").Value & "" 'Gäi thñ tôc Ketnoi dataHientenSP, SQLHientenSP With dataHientenSP lblChitietHDTenSP.Caption = "" & .Recordset.Fields("TenSP").Value End With With dataCTHD .Caption = "" & .Recordset.Fields("MaCTHD").Value SL = .Recordset.Fields("Soluong").Value DG = .Recordset.Fields("Dongia").Value TK = .Recordset.Fields("Trietkhau").Value lblChitietHDTT.Caption = "" & ThanhTien(SL, DG) & " $" lblChiti