Xây dựng phần mềm hỗ trợ bầu cử và quản lý cổ đông, cổ tức cho công ty cổ phần

iÖu, tr­íc khi ghi sè liÖu vµo hÖ thèng c¸c ®iÒu kiÖn cÇn ®­îc kiÓm tra ®­îc thùc hiÖn. Trong tr­êng hîp d÷ liÖu kh«ng tho¶ m·n yªu cÇu, hÖ thèng sÏ b¸o lçi, bao gåm: +Giíi h¹n (Sè kh«ng ®­îc v­ît); +Sè hiÖn t¹i; +Lùa chän: Ng­êi sö dông quyÕt ®Þnh ghi sè liÖu ®ang cã lçi, söa lçi. 3.2.2 Ph­¬ng ph¸p thiÕt kÕ c¬ së d÷ liÖu X©y dùng c¬ së d÷ liÖu lµ mét c«ng viÖc quan träng ®Çu tiªn trong toµn bé quy tr×nh ph¸t triÓn mét øng dông nµo ®ã. NhiÖm vô cña phÇn thiÕt kÕ c¬ së d÷ liÖu lµ läc ra c¸c th«ng tin cÇn thiÕt tõ c¸c b¸o c¸o ®Çu ra, thiÕt kÕ thªm c¸c b¶ng d÷ liÖu hoÆc tÝch hîp vµo c¸c b¶ng d÷ liÖu s½n cã. M« h×nh CSDL quan hÖ lµ m« h×nh ®­îc dïng phæ biÕn réng r·i nhÊt hiÖn nay. Nã ®­îc tæ chøc bëi c¸c tr­êng, b¶n ghi vµ file. Mét tr­êng bao gåm mét mÉu th«ng tin ®¬n gi¶n nhÊt, mét b¶n ghi lµ tËp hîp hoµn chØnh c¸c tr­êng vµ mét file lµ tËp hîp c¸c b¶n ghi. M« h×nh CSDL ®èi t­îng ph¸t triÓn n¨m 1990, nh­ng kh«ng thÓ lµm lay chuyÓn vÞ trÝ thèng trÞ cña m« h×nh CSDL quan hÖ ®· chiÕm tíi 95% thÞ tr­êng. Do vËy, m« h×nh nµy ®· ®­îc t¸c gi¶ lùa chän ¸p dông cho phÇn mÒm qu¶n lý ®µo t¹o dùa trªn mét sè lý do: Phæ biÕn nhÊt hiÖn nay; ChuÈn quèc tÕ; Cã nhiÒu nhµ cung cÊp nh­ Oracle, Microsoft, IBM…; DÔ dµng chuyÓn d÷ liÖu gi÷a c¸c quan hÖ qu¶n trÞ; Xö lý truy vÊn d÷ liÖu ®¬n gi¶n; Cã kh¶ n¨ng tÝch hîp víi c¸c quan hÖ kh¸c vµ quen thuéc víi nhiÒu kü s­ trong ngµnh gióp hÖ thèng sÏ dÔ dµng ®­îc n©ng cÊp trong t­¬ng lai khi cã nhu cÇu. HÖ qu¶n trÞ c¬ së d÷ liÖu Access rÊt phï hîp cho c¸c bµi to¸n qu¶n lý võa vµ nhá. HiÖu n¨ng cao vµ ®Æc biÖt dÔ sö dông- bëi lÏ giao diÖn sö dông phÇn mÒm nµy gÇn gièng víi c¸c phÇn mÒm kh¸c trong bé MS Office. Cã hai ph­¬ng ph¸p thiÕt kÕ CSDL ®ã lµ thiÕt kÕ CSDL ®i tõ th«ng tin ®Çu ra vµ thiÕt kÕ CSDL nhê ph­¬ng ph¸p m« h×nh ho¸. Trong khu«n khæ luËn v¨n nµy t¸c gi¶ tiÕn hµnh thiÕt kÕ CSDL b»ng ph­¬ng ph¸p m« h×nh ho¸. ThiÕt kÕ CSDL b»ng ph­¬ng ph¸p m« h×nh ho¸ M« h×nh thùc thÓ liªn kÕt lµ m« h×nh d÷ liÖu do P.P.Chen ®­a ra vµo n¨m 1976 vµ sau ®ã ®­îc dïng kh¸ phæ biÕn trªn thÕ giíi. ¦u ®iÓm cña nã lµ kh¸ ®¬n gi¶n vµ gÇn víi t­ duy trùc quan. Khi xem xÐt c¸c t­ duy ng­êi ta th­êng gom côm chóng xung quanh c¸c thùc thÓ. M« h×nh nµy xuÊt ph¸t tõ mét sè kh¸i niÖm c¬ b¶n: thùc thÓ, liªn kÕt, thuéc tÝnh Thùc thÓ : Thùc thÓ trong m« h×nh logic d÷ liÖu ®­îc dïng ®Ó biÓu diÔn nh÷ng ®èi t­îng cô thÓ hoÆc trõ t­îng trong mét thÕ giíi thùc mµ ta muèn l­u tr÷ th«ng tin vÒ chóng. Ch¼ng h¹n nh­ thùc thÓ cæ ®«ng, cæ phiÕu, cæ tøc, phßng ban, lo¹i cæ phiÕu….Thùc thÓ ®­îc biÓu diÔn bëi mét h×nh ch÷ nhËt cã ghi tªn thùc thÓ bªn trong Thuéc tÝnh: dïng ®Ó m« t¶ c¸c ®Æc tr­ng cña mét thùc thÓ hoÆc mét quan hÖ nµo ®ã. VÝ dô nh­ thuéc tÝnh hä tªn cña thùc thÓ cæ ®«ng. Cã ba lo¹i thuéc tÝnh lµ thuéc tÝnh ®Þnh danh, thuéc tÝnh m« t¶ vµ thuéc tÝnh quan hÖ. Liªn kÕt: mét thùc thÓ trong thùc tÕ kh«ng tån t¹i ®éc lËp víi c¸c thùc thÓ kh¸c mµ chóng cã sù liªn kÕt qua l¹i víi nhau. VËy mét liªn kÕt lµ mét sù gom nhãm c¸c thùc thÓ trong ®ã mçi thùc thÓ cã mét vai trß nhÊt ®Þnh. X¸c ®Þnh c¸c quan hÖ thùc thÓ - ThiÕt lËp s¬ ®å quan hÖ cho c¸c kiÓu thùc thÓ ERD(Entity Relationship) Cæ ®«ng Cæ tøc Lo¹i cæ phiÕu Cæ phiÕu Quèc tÞch Phßng ban Cã Cã ®­îc chia Cã gi÷ M· quèc tÞch Tªn n­íc M· phßng ban Tªn phßng ban M· cæ tøc Cæ phÇn Ngµy tÝnh LÜnh ®ît 1 …….. M· cæ phiÕu T¨ng cæ phÇn Gi¶m cæ phÇn Ngµy thay ®æi ……. … M· lo¹i cæ phiÕu Tªn lo¹i cæ phiÕu MÖnh gi¸ ……… M· cæ ®«ng Hä tªn cæ ®«ng Giíi tÝnh Th©m niªn c«ng t¸c Chøc vô ……. 1 N 1 N N 1 1 N 1 N H×nh 3.6: S¬ ®å ERD H×nh 3.7: S¬ ®å DSD cña c¬ së d÷ liÖu cæ ®«ng DAnhsachcodong ID_Codong ID- LoaiCP ID-Phong TenCodong Namsinh Gioitinh hinhthucsohuu Diachi Dienthoai cmnd/khac nguoidaidien Chucvu namcongtac CoPhanUuDai CoPhanGhiDanh CoPhanVoDanh NamBatDau CoPhanBanDau NgayPhatSinh ID_Quoctich ghichu quoctich ID quoctich tennuoc loaicophieu ID_LoaiCP TenLoaiCoPhieu GhiChu MenhGia LOAICP Cophieu ID_CoPhieu ID_CoDong ID_CoDong_ChuyenCP VoDanh GhiDanh UuDai NamCoPhieu ChuaGiao GhiChu TangGiam TangCoPhan GiamCoPhan NgayThayDoi SoNgayTang SoNgayGiam SoTienTinhDuoc cotuc ID_CoTuc ID_ CoDong CoPhan Cotuc NgayTinh LinhDot1 NamCoTuc PHONGBAN ID- PHONG TENPHONG DAnhsachcodong ID_Codong ID- LoaiCP ID-Phong TenCodong Namsinh Gioitinh hinhthucsohuu Diachi Dienthoai cmnd/khac nguoidaidien Chucvu namcongtac CoPhanUuDai CoPhanGhiDanh CoPhanVoDanh NamBatDau CoPhanBanDau NgayPhatSinh ID_Quoctich ghichu donvibau ID_ DonViBau TenDonVi SoNguoiUngCu SoNguoiDuocBau tonghopphieubau ID_KetQua ID_UngCu ID_DonViBau GiaTriCP Bau HopLe TongGachBo GachBo danhsachungcu ID_Ungcu ID_DonViBau ID_codong Tieusu HoTenDayDu Ten ketquabaucu ID_Donvibau ID_UngCu TotalCP PhanTram H×nh 3.8: S¬ ®å quan hÖ cña d÷ liÖu bÇu cö ThiÕt kÕ cÊu tróc d÷ liÖu B¶ng 3.1: Danh s¸ch cæ ®«ng Tªn tr­êng KiÓu d÷ liÖu Ghi chó ID- Codong AutoNumber M· cæ ®«ng, kho¸ chÝnh ID- LoaiCP Number M· cæ phiÕu ID-Phong Number M· Phßng Nguoidaidien Text Ng­êi ®¹i diÖn TenCodong Text Tªn cæ ®«ng Namsinh Date N¨m sinh Gioitinh Number 0 lµ nam, 1 lµ n÷ Diachi Text §Þa chØ Dienthoai Text §iÖn tho¹i CMND/khac Text Chøng minh nh©n d©n Namcongtac Number Th©m niªn c«ng t¸c CoPhanUuDai Number Cæ phÇn ­u ®·i CoPhanGhiDanh Number Cæ phÇn ghi danh CoPhanVoDanh Number Cæ phÇn v« danh NamBatDau Number N¨m b¾t ®Çu cæ phÇn CoPhanBanDau Number Cæ phÇn ban ®Çu= cæ phÇn ­u ®·i + cæ phÇn ghi danh+ cæ phÇn v« danh NgayPhatSinh Date Ngµy ph¸t sinh IDQuoctich Text Quèc tÞch B¶ng 3.2: Quèc tÞch Tªn tr­êng KiÓu d÷ liÖu Ghi chó ID - Quoctich Text M· quèc tÞch Tennuoc Text Tªn n­íc B¶ng 3.3: Phßng ban Tªn tr­êng KiÓu d÷ liÖu Ghi chó ID-Phong Text M· phßng Tenphong Text Tªn phßng B¶ng 3.4: Cæ phiÕu Tªn tr­êng KiÓu d÷ liÖu Ghi chó ID_CoPhieu AutoNumber M· cæ phiÕu ID_CoDong Number M· cæ ®«ng ID_CoDong_ChuyenCP Number M· cæ ®«ng chuyÓn phßng VoDanh Number V« ®anh GhiDanh Number Ghi danh UuDai Number ¦u ®·i NamCoPhieu Number N¨m cæ phiÕu ChuaGiao Number cæ phÇn ch­a giao GhiChu Text Ghi chó TangGiam Number T¨ng gi¶m TangCoPhan Number T¨ng gi¶m cæ phÇn GiamCoPhan Number Gi¶m cæ phÇn NgayThayDoi Date/time Ngµy thay ®æi SoNgayTang Number Sè ngµy t¨ng SoNgayGiam Number Sè ngµy gi¶m SoTienTinhDuoc Number Sè tiÒn tÝnh ®­¬c B¶ng 3.5: Lo¹i cæ phiÕu Tªn tr­êng KiÓu d÷ liÖu Ghi chó ID_LoaiCP AutoNumber M· lo¹i cæ phiÕu- Kho¸ chÝnh TenLoaiCoPhieu Text Tªn lo¹i cæ phiÕu: ¦u ®·i, phæ th«ng, ghi danh GhiChu Text Ghi chó MenhGia Number MÖnh gi¸ LOAICP Number Lo¹i cæ phiÕu B¶ng 3.6: Cæ tøc Tªn tr­êng KiÓu d÷ liÖu Ghi chó ID_CoTuc AutoNumber M· Cæ tøc _kho¸ chÝnh ID_ CoDong Number M· Cæ ®«ng CoPhan Number Cæ phÇn Cotuc Number Cæ tøc NgayTinh Date/time Ngµy tÝnh LinhDot1 Number LÜnh ®ît 1 NamCoTuc Number N¨m cæ tøc B¶ng 3.7: §¬n vÞ bÇu Tªn tr­êng KiÓu d÷ liÖu Ghi chó ID_ DonViBau AutoNumber M· ®¬n vÞ bÇu _ kho¸ chÝnh TenDonVi Text Tªn §¬n vÞ SoNguoiUngCu Number Sè ng­êi øng cö SoNguoiDuocBau Number Sè ng­êi ®­îc bÇu B¶ng 3.8: Danh s¸ch øng cö Tªn tr­êng KiÓu d÷ liÖu Ghi chó ID_Ungcu AutoNumber M· øng cö- Kho¸ chÝnh ID_DonViBau Number M· ®¬n vÞ bÇu ID_NguoiUngCu Number M· ng­êi øng cö Tieusu Text TiÓu sö HoTenDayDu Text Hä tªn ®Çy ®ñ Ten Text Tªn B¶ng 3.9: Tæng hîp phiÕu bÇu Tªn tr­êng KiÓu d÷ liÖu Ghi chó ID_KetQua AutoNumber M· kÕt qu¶- Kho¸ chÝnh ID_UngCu Number M· øng cö ID_DonViBau Number M· ®¬n vÞ bÇu GiaTriCP Number GÝa trÞ cæ phiÕu Bau Number BÇu HopLe Number Hîp lÖ TongGachBo Number Tæng g¹ch bá GachBo Number G¹ch bá B¶ng 3.10: KÕt qu¶ bÇu cö Tªn tr­êng KiÓu d÷ liÖu Ghi chó ID AutoNumber Kho¸ chÝnh ID_Donvi Number M· ®¬n vÞ ID_UngCu Number M· øng cö TotalCP Number Tæng cæ phÇn PhanTram Number PhÇn tr¨m 3.2.4 ThiÕt kÕ giao diÖn ch­¬ng tr×nh C¸c mµn h×nh giao diÖn cña ch­¬ng tr×nh ®­îc thiÕt kÕ ®¶m b¶o tÝnh ®¬n gi¶n, ®ång nhÊt, dÔ sö dông vµ th©n thiÖn ng­êi dïng. -ThiÕt kÕ ®Çu vµo: Môc tiªu cña giai ®o¹n thiÕt kÕ ®Çu vµo lµ thiÕt kÕ sao cho thao t¸c nhËp liÖu diÔn ra nhanh chãng, chuÈn x¸c, th«ng tin ®Çy ®ñ.ThiÕt kÕ ®Çu vµo bao gåm lùa chän ph­¬ng tiÖn ®Çu vµo, thiÕt kÕ tµi liÖu tµi nguyªn, lËp tr×nh xö lý d÷ liÖu vµ x¸c ®Þnh lçi nhËp liÖu C¸c yªu cÇu khi thiÕt kÕ mµn h×nh nhËp liÖu (form) + TÝnh duy nhÊt hoÆc cã ®Æc tr­ng: Hai form xuÊt hiÖn t­¬ng tù nhau hoÆc hai form ®­îc sö dông víi c¸c môc ®Ých t­¬ng tù nhau ®Òu rÊt dÔ g©y nhÇm lÉn. C¸c form nªn cã mµu s¾c kh¸c nhau, kiÓu thiÕt kÕ kh¸c nhau,… sÏ gióp ng­êi dïng dÔ dµng ph©n biÖt khi sö dông. + Sóc tÝch: ChØ hiÓn thÞ nh÷ng tr­êng thùc sù cÇn thiÕt trªn form. Cµng nhiÒu tr­êng trªn Form, cµng mÊt nhiÒu thêi gian xö lý trªn form. H¬n n÷a ng­êi nhËp liÖu cã nhiÒu kh¶ n¨ng g©y lçi. + DÔ sö dông, cã thÓ hç trî ng­êi dïng nhËp liÖu khi vµo m¸y + Cã thÓ më réng; mang tÝnh th«ng tin. + TÝnh kinh tÕ: ®©y lµ yªu cÇu cuèi cïng chø kh«ng ph¶i yªu cÇu ®Çu tiªn, tiÕt kiÖm chi phÝ khi ®¸p øng ®­îc c¸c yªu cÇu trªn. - ThiÕt kÕ ®Çu ra: ThiÕt kÕ ®Çu ra lµ yÕu tè then chèt. §Çu ra cña hÖ thèng th«ng tin lµ lý do chÝnh ®Ó ph¸t triÓn hÖ thèng. ThËm chÝ c¶ khi ®Çu vµo ®· ®­îc l­u tr÷ th× chóng còng ph¶i chÕ biÕn s½n sµng ®Ó t¹o ra ®Çu ra + Tiªu chuÈn thiÕt kÕ ®Çu ra TÝnh chÝnh x¸c; cã thÓ ®¸p øng t¹i bÊt cø thêi ®iÓm nµo TÝnh ®Çy ®ñ; tÝnh ®Æc tr­ng Chi phÝ tèi thiÓu; TÝnh thÈm mü + Ph­¬ng tiÖn ®Çu ra ThiÕt bÞ khã nh©n b¶n (®Çu ra vËt lý): M¸y in, vµ thiÕt bÞ thu nhá c¸c thiÕt bÞ ®Çu lµ c¸c thiÕt bÞ khã nh©n b¶n. HÇu hÕt c¸c ®Çu ra ®­îc xö lý b»ng c¸c dßng m¸y in. HiÓn thÞ ®iÖn tö: §¬n vÞ hiÓn thÞ ®iÖn tö ®¬n gi¶n nhÊt lµ mµn h×nh m¸y tÝnh + ThiÕt kÕ b¸o c¸o Khi thiÕt kÕ b¸o c¸o ph¶i x¸c ®Þnh râ cÊu tróc cña b¸o c¸o ®ã. CÊu tróc mét b¸o c¸o trong hÖ thèng th«ng tin qu¶n lý gåm cã c¸c nÐt ®Æc tr­ng, kiÓu b¸o c¸o, cÊu tróc b¸o c¸o. §Æc trung cña b¸o c¸o gåm tÇn xuÊt, tÝnh ph©n phèi, ®Þnh d¹ng cña b¸o c¸o. TÝnh tÇn xuÊt cña b¸o c¸o quy ®Þnh b¸o c¸o lµ tøc thêi hay b¸o c¸o lµ ®Þnh kú. TÝnh ph©n phèi (ng­êi nhËn b¸o c¸o) x¸c ®Þnh ®èi t­îng ph©n phèi lµ bªn ngoµi hay néi bé, kÕt hîp c¶ bªn ngoµi vµ néi bé. §Þnh d¹ng (h×nh thøc cña b¸o c¸o) x¸c ®Þnh b¸o c¸o lµ cã cÊu tróc (cè ®Þnh) hay phi cÊu tróc () B¸o c¸o th­êng ®­îc t¹o thµnh theo 4 kiÓu: B¸o c¸o chi tiÕt, b¸o c¸o thèng kª, b¸o c¸o tæng hîp phôc vô c«ng t¸c qu¶n lý, b¸o c¸o ph©n tÝch theo dßng thêi gian KiÓu b¸o c¸o TÇn xuÊt §èi t­îng ph©n phèi §Þnh d¹ng VÝ dô B¸o c¸o chi tiÕt §Þnh kú hµng ngµy hoÆc tuÇn Göi néi bé CÊu tróc ®Þnh s½n B¸o c¸o tæng hîp cæ phiÕu theo cæ ®«ng B¸o c¸o thèng kª theo thêi kú §Þnh kú hµng th¸ng hoÆc t¹o ra theo yªu cÇu tøc thêi Ph©n phèi néi bé hoÆc ra bªn ngoµi cho c¸c nhµ qu¶n lý Cã cÊu tróc hoÆc phi cÊu tróc B¸o c¸o thèng kª phiÕu bÇu KiÓu b¸o c¸o TÇn xuÊt §èi t­îng ph©n phèi §Þnh d¹ng VÝ dô B¸o c¸o tæng hîp (qu¶n lý )®¸nh gi¸ t×nh tr¹ng cña doanh nghiÖp §Þnh kú hoÆc tøc thêi Ph©n phèi ra bªn ngoµi cho c¸c nhµ qu¶n lý Cã cÊu tróc, phi cÊu tróc B¸o c¸o tæng hîp t¨ng gi¶m cæ phÇn B¸o c¸o ph©n tÝch theo dßng thêi gian Tøc thêi Ph©n phèi ra bªn ngoµi cho c¸c nhµ qu¶n lý Cã cÊu tróc, phi cÊu tróc Danh s¸ch chi tiÐt t¨ng, gi¶m cæ phÇn + Mét sè mÉu b¸o c¸o C¸c mÉu b¸o c¸o hç trî bÇu cö MÉu B¸o c¸o kÕt qu¶ bÇu cö héi ®ång qu¶n trÞ 1. KÕt qu¶ kiÓm phiÕu - Tæng sè phiÕu ph¸t ra - Tæng sè phiÕu thu vÒ - Tæng sè ng­êi ®i bÇu trùc tiÕp trong ®ã - PhiÕu kh«ng hîp lÖ - PhiÕu hîp lÖ PhiÕu, t­¬ng ®­¬ng……cæ phiÕu PhiÕu, t­¬ng ®­¬ng……cæ phiÕu(%) Tæng sè ng­êi uû quyÒn ®i bÇu KÕt qu¶ kiÓm phiÕu STT Hä tªn Sè phiÕu bÇu Tû lÖ(%) Ghi chó 1 2 3 4 5 2. KÕt qu¶ bÇu cö STT Hä tªn Sè phiÕu bÇu Tû lÖ (%) Ghi chó 1 2 3 4 5 MÉu b¸o c¸o thèng kª phiÕu bÇu héi ®ång qu¶n trÞ KÕt qu¶ kiÓm phiÕu STT Sè cæ phÇn Sè l­îng phiÕu cã §· nhËp Chªnh lÖch 1 2 3 MÉu b¸o c¸o kÕt qu¶ kiÓm phiÕu chi tiÕt STT Sè cæ phÇn øng cö 1 øng cö 2 .… Cæ phÇn bÇu Hîp lÖ/ kh«ng h¬p lÖ 1 2 3 Mét sè mÉu b¸o c¸o qu¶n lý cæ ®«ng, cæ tøc MÉu b¸o c¸o tæng hîp t¨ng gi¶m cæ phÇn n¨m STT Hä tªn Cæ phÇn ban ®Çu n¨m Tæng cæ phÇn Ghi chó 1 2 3 MÉu b¸o c¸o tæng hîp mua cæ phÇn ban ®Çu STT Hä tªn M· sè CMND N¨m c«ng t¸c Cæ phÇn ­u ®·i Cæ phÇn phæ th«ng Cæ phÇn ch­a giao Cæ phÇn kh¸c Tæng hîp cæ phÇn 1 2 3 MÉu b¸o c¸o cæ tøc kÕ ho¹ch n¨m STT Hä tªn Cæ phÇn Cæ tøc §­îc lÜnh Ký nhËn 1 2 3 MÉu b¸o c¸o chi tr¶ cæ tøc n¨m STT Hä tªn Cæ phÇn Cæ tøc §· lÜnh Cßn l¹i Ký nhËn 1 2 3 MÉu b¸o c¸o chi tiÕt t¨ng gi¶m cæ phÇn STT Ngµy ph¸t sinh T¨ng cæ phÇn Gi¶m cæ phÇn Cæ ®«ng liªn quan 1 2 3 §Çu ra chñ yÕu lµ mµn h×nh vµ m¸y in, c¸c b¸o c¸o 3.3. ThiÕt kÕ gi¶i thuËt 3.3.1. Gi¶i thuËt cËp nhËt, t×m kiÕm Gi¶i thuËt nµy ®­îc øng dông trong chøc n¨ng qu¶n lý danh s¸ch cæ ®«ng, cæ tøc, phiÕu bÇu. Sau khi ng­êi sö dông chän danh môc cÇn cËp nhËt, ch­¬ng tr×nh sÏ hiÓn thÞ tÊt c¶ c¸c b¶n ghi cã trong danh môc. Ng­êi sö dông sÏ chän b¶n ghi cÇn cËp nhËt, t×m kiÕm. Chän thao t¸c cÇn thùc hiÖn nh­: Ên vµo c¸c nót Thªm, Söa, Xo¸, T×m kiÕm, L­u. Ch­¬ng tr×nh sÏ hiÖn ra c¸c giao diÖn t­¬ng øng. Sau khi ng­êi sö dông cËp nhËt th«ng tin vµo giao diÖn, phÇn mÒm sÏ kiÓm tra tÝnh ®óng ®¾n cña d÷ liÖu, nÕu ®óng sÏ l­u th«ng tin vµo CSDL vµ hiÓn thÞ l¹i danh môc c¸c b¶n ghi sau qu¸ tr×nh cËp nhËt, t×m kiÕm. H×nh 3.9: S¬ ®å cËp nhËt t×m kiÕm c¸c danh môc Gì bá giao diÖn L­u th«ng tin Cã söa kh«ng? Söa th«ng tin vµo mµn h×nh giao diÖn NhËp th«ng tin vµo mµn h×nh giao diªn Më giao diÖn th«ng tin b¶n ghi cÇn söa Më giao diÖn khai b¸o b¶n ghi míi Chän (khai b¸o) c¸c b¶n ghi cÇn cËp nhËt HiÓn thÞ c¸c b¶n ghi trong danh môc Chän danh môc cÇn cËp nhËt B T F F T T T F F Thªm Söa T×m kiÕm b¶n ghi Xo¸ T×m kiÕm Xo¸ b¶n ghi hiÖn thêi Cã xo¸ kh«ng? KiÓm tra tÝnh phï hîp th«ng tin Thªm míi kh«ng? KiÓm tra tÝnh phï hîp th«ng tin HiÓn thÞ tÊt c¶ c¸c b¶n ghi sau khi cËp nhËt, t×m kiÕm F E Chän thao t¸c thªm, söa, xo¸, t×m kiÕm Gi¶i thuËt cËp nhËt cæ ®«ng Trong b­íc cËp nhËt cæ ®«ng nµy ng­êi sö dông ph¶i thùc hiÖn lÇn l­ît c¸c b­íc nh­ sau: Lùa chän danh s¸ch cæ ®«ng Lùa chän cæ ®«ng (m· cæ ®«ng) cÇn cËp nhËt Lùa chän th«ng tin muèn cËp nhËt vµo cæ ®«ng ®ã Ên vµo c¸c chøc n¨ng Thªm, Söa, Xo¸, T×m kiÕm, L­u, Huû bá ®Ó thùc hiÖn c¸c chøc n¨ng t­¬ng øng. Khi Ên vµo chøc n¨ng Söa cho phÐp hiÖn Form nhËp danh s¸ch cæ ®«ng víi c¸c danh môc s½n cã ®Ó ng­êi sö dông cã thÓ söa. Khi Ên vµo chøc n¨ng Xãa cho phÐp xo¸ toµn bé th«ng tin vÒ cæ ®«ng ®ã trong c¬ së d÷ liÖu còng nh­ trªn b¶n ghi. Khi Ên nót Thªm, ng­êi sö dông sÏ ph¶i khai b¸o m· cæ ®«ng míi víi ®iÒu kiÖn m· cæ ®«ng ®ã ch­a cã trong danh môc cæ ®«ng. Sau khi ®ã cã thÓ tiÕn hµnh cËp nhËt th«ng tin cho cæ ®«ng ®ã. B Më danh s¸ch cæ ®«ng Thªm míi b¶n ghi NhËp m· cæ ®«ng cÇn thªm míi T NhËp l¹i kh«ng KiÓm tra cæ ®«ng cã trong danh s¸ch kh«ng? T F F NhËp m· cæ ®«ng cÇn thªm F Cã l­ut th«ng tin hay kh«ng? T L­u th«ng tin Gì bá giao diÖn HiÓn thÞ tÊt c¶ c¸c b¶n ghi sau khi cËp nhËt E H×nh 3.10: S¬ ®å gi¶i thuËt thùc hiÖn chøc n¨ng thªm míi cæ ®«ng T B Më danh s¸ch cæ ®«ng Lùa chän th«ng tin cÇn cËp nhËt NhËp m· cæ ®«ng cÇn söa, xãa th«ng tin KiÓm tra cæ ®«ng cã trong danh s¸ch kh«ng? T Cã cËp nhËt th«ng tin hay kh«ng? L­u th«ng tin Gì bá giao diÖn HiÓn thÞ tÊt c¶ c¸c b¶n ghi sau khi cËp nhËt E F F H×nh 3.11: S¬ ®å gi¶i thuËt söa, xo¸ th«ng tin cæ ®«ng B Më danh s¸ch cæ ®«ng Lùa chän th«ng tin cÇn t×m kiÕm (M· cæ ®«ng, hä tªn cæ ®«ng, sè cæ phÇn) KiÓm tra tÝnh hîp lý cña th«ng tin F T Söa, xo¸ TT L­u th«ng tin Gì bá giao diÖn HiÓn thÞ tÊt c¶ c¸c b¶n ghi sau khi cËp nhËt E H×nh 3.12: S¬ ®å gi¶i thuËt t×m kiÕm th«ng tin cæ ®«ng Gi¶i thuËt tÝnh cæ tøc T B Më chøc n¨ng tÝnh cæ tøc Lùa chän ®iÒu kiÖn tÝnh cæ tøc TÝnh theo % TÝnh theo sè tiÒn L­u th«ng tin KiÓm tra tÝnh hîp lý cña th«ng tin E F CT= TSCP*MGCP*%L CT=TSTL/TSCP*MGCP T F H×nh 3.13: S¬ ®å Gi¶i thuËt tÝnh cæ tøc Chøc n¨ng nµy cho phÐp tÝnh cæ tøc theo hai c¸ch, c¸ch mét lµ dùa vµo l·i suÊt, c¸ch hai dùa vµo tæng sè tiÒn l·i Cµi ®Æt vµ ®ãng gãi s¶n phÈm §ãng gãi s¶n phÈm Kh©u cuèi cïng cña qu¸ tr×nh viÕt phÇn mÒm lµ ®ãng gãi s¶n phÈm. Microsoft Visual Basic 6.0 cã ch­¬ng tr×nh ®ãng gãi riªng cña m×nh lµ Package and Deployment Wizard (h×nh 3.27). Khi hép tho¹i Package and Deployment Wizard xuÊt hiÖn, ng­êi sö dông nhÊn vµo nót Browse ®Ó lùa chän æ ®Üa, ®­êng dÉn tíi phÇn mÒm cÇn ®ãng gãi. Sau ®ã nhÊn vµo biÓu t­îng cã trªn hép tho¹i ®Ó thùc hiÖn viÖc ®ãng gãi s¶n phÈm. H×nh 3.13: Hép tho¹i Package and Deployment Wizard 3.4.2.Cµi ®Æt C¸c b­íc chuÈn bÞ cµi ®Æt Tr­íc khi cµi ®Æt phÇn mÒm hç trî bÇu cö vµ qu¶n lý cæ ®«ng, cæ tøc, ®iÒu kiÖn lµ m¸y tÝnh ®· ®­îc cµi ®Æt vµ ®ang sö dông mét trong c¸c hÖ ®iÒu hµnh Windows 9x/2000/NT. Kh«ng thÓ cµi ®Æt phÇn mÒm hç trî bÇu cö vµ qu¶n lý cæ ®«ng, cæ trong DOS hay Linux bëi v× ch­¬ng tr×nh ®­îc thiÕt kÕ ch¹y trong trong m«i tr­êng Windows 9x trë lªn. NÕu ch­a cµi ®Æt Windows, cÇn lµm c¸c b­íc sau: §­a ®Üa Windows 9x/2000/NT vµo æ ®Üa Ch¹y file Setup.exe trong th­ môc ch­¬ng tr×nh Ch¹y file winnt.exe trong th­ môc I386, nÕu lµ ch­¬ng tr×nh Windows 2000/NT. Thùc hiÖn c¸c b­íc theo yªu cÇu cña qu¸ tr×nh cµi ®Æt Windows 9x/2000/NT. Trong phÇn nµy diÔn gi¶i chi tiÕt mçi b­íc thùc hiÖn, sau cµi ®Æt xong hÖ ®iÒu hµnh xong hÖ ®iÒu hµnh Windows9x/2000/NT, ta chuyÓn sang cµi ®Æt phÇn mÒm. Cµi ®Æt ch­¬ng tr×nh PhÇn mÒm cµi ®Æt ch­¬ng tr×nh sÏ kiÓm tra phÇn cøng vµ phÇn mÒm ®· ®­îc cµi ®Æt trong m¸y tÝnh nÕu m¸y tÝnh cÇn cµi kh«ng ®¸p øng ®­îc c¸c yªu cÇu tèi thiÓu cña phÇn mÒm hç trî bÇu cö vµ qu¶n lý cæ ®«ng, cæ tøc. PhÇn mÒm cµi ®Æt sÏ th«ng b¸o cho b¹n c¸c thµnh phÇn kh«ng tÝch hîp víi ch­¬ng tr×nh. §Ó cµi ®Æt phÇn mÒm hç trî bÇu cö vµ qu¶n lý cæ ®«ng, cæ tøc, h·y thùc hiÖn c¸c b­íc sau: * Khëi ®éng m¸y tÝnh, vµo Windows. * §­a ®Üa CD cã chøa bé cµi * Tõ thanh menu “Start”, bÊm môc “Run...” * BÊm phÝm “Browse”, chän file “Setup.exe” trong æ ®Üa. * Mµn h×nh cµi ®Æt xuÊt hiÖn ph«ng chµo mõng ( Welcome ). B¹n bÊm “Next” ®Ó tiÕp tôc. * M¸y tÝnh yªu cÇu lùa chän th­ môc sÏ cµi ®Æt ch¬ng tr×nh vµ ®· mÆc ®Þnh s½n t¹i C:\Program Files\Stocks. B¹n tiÕp tôc bÊm “Next”. Trªn mµn h×nh hiÖn lªn b¶ng chän lùa thµnh phÇn cµi ®Æt. Trªn b¶ng nµy cã hai « tÝch: ¤ tÝch “Database” cho phÐp t¹o lËp mét c¬ së d÷ liÖu míi cho ch­¬ng tr×nh, trong khi « tÝch “Microsoft DataAccess Components” gióp ngêi sö dông t¹o lËp m«i tr­êng kÕt nèi d÷ liÖu víi c¬ së d÷ liÖu cña ch­¬ng tr×nh. NÕu lÇn ®Çu tiªn cµi ®Æt, b¹n h·y tÝch chän c¶ hai « tÝch nµy. Sau ®ã, b¹n bÊm “Next” ®Ó tiÕp tôc. * B¹n chän NEXT thùc hiÖn c¸c b­íc theo yªu cÇu cña phÇn mÒm * Cuèi cïng b¹n khëi ®éng l¹i m¸y tÝnh. H­íng dÉn sö dông H­íng dÉn sö dông phÇn mÒm hç trî bÇu cö, qu¶n lý cæ ®«ng, cæ tøc gióp ng­êi dïng cã thÓ thùc hiÖn c¸c thao t¸c trong phÇn mÒm cïng mét sè l­u ý trong qu¸ tr×nh sö dông. Néi dung cña tµi liÖu bao gåm c¸c phÇn: PhÇn 1: Giíi thiÖu chung vÒ phÇn mÒm hç trî bÇu cö vµ qu¶n lý cæ ®«ng, cæ tøc. PhÇn 2: H­íng dÉn sö dông chi tiÕt PhÇn 1: PhÇn mÒm hç trî bÇu cö vµ qu¶n lý cæ ®«ng, cæ tøc gåm cã c¸c t¸c vô vµ chøc n¨ng cña chóng ®­îc tr×nh bµy theo b¶ng sau: HÖ thèng Thao t¸c d÷ liÖu Danh s¸ch B¸o c¸o khai b¸o - Chän tÖp d÷ liÖu - Sao l­u d÷ liÖu - Th«ng sè hÖ thèng - Danh s¸chn g­êi sö dông - Thay ®æi mËt khÈu - KÕt thóc ch­¬ng tr×nh - Thªm míi - Söa - Xo¸ - T¨ng gi¶m cæ phÇn - ChuyÓn phßng - ChuyÓn nh­îng - Cæ tøc kÕ ho¹ch - Cæ tøc thùc tÕ - §iÒu kiÖn hiÓn thÞ - Cæ ®«ng -Cæ tøc - BÇu cö -Danh s¸ch - Cæ phÇn - Cæ tøc - B¸o c¸o -Vèn ban ®Çu -T¨ng gi¶m vèn hµng n¨m -Khai b¸o lo¹i cæ phiÕu -Khai b¸o h×nh thøc së h÷u -Cæ phiÕu tham gia bÇu -Khai b¸o ®¬n vÞ bÇu -Khai b¸o danh s¸ch øng cö PhÇn 2: H­íng dÉn sö dông chi tiÕt H­íng ph¸t triÓn cña phÇn mÒm Trong giai ®o¹n tiÕp theo, hÖ thèng phÇn mÒm sÏ ®­îc n©ng cÊp thªm mét sè c¸c chøc n¨ng míi nh»m n©ng cao chÊt l­îng phôc vô c«ng t¸c hç trî bÇu cö vµ qu¶n lý cæ ®«ng, cæ tøc. Do xu h­íng tin häc ho¸ ngµy cµng ph¸t triÓn nªn c«ng nghÖ tin häc còng nh­ tr×nh ®é tin häc cña ng­êi d©n n©ng cao nªn t¸c gi¶ cã h­íng ph¸t triÓn phÇn mÒm theo khÝa c¹nh cæ ®«ng trùc tiÕp bá phiÕu b»ng m¸y tÝnh, c¸c m¸y nèi m¹ng néi bé víi nhau. Khi cuéc bá phiÕu kÕt thóc còng lµ thêi ®iÓm hiÖn kÕt qu¶ bÇu cö. Víi h­íng ph¸t triÓn nµy ®ì tèn thêi gian vµ c«ng søc cña tæ c¸n bé lµm nhiÖm vô nhËp phiÕu bÇu. Mét sè kÕt qu¶ cña ch­¬ng tr×nh C¸c mµn h×nh giao diÖn cña ch­¬ng tr×nh ®­îc thiÕt kÕ ®¶m b¶o tÝnh ®¬n gi¶n, ®ång nhÊt, dÔ sö dông vµ th©n thiÖn cho ng­êi dïng. H×nh.3.14: Mµn h×nh ®¨ng nhËp vµo ch­¬ng tr×nh H×nh 3.15: Mµn h×nh chÝnh cña ch­¬ng tr×nh HÖ thèng menu: lµ c«ng cô giao tiÕp ng­êi, m¸y h÷u hiÖu, th­êng ®­îc sö dông trong c¸c phÇn mÒm hiÖn nay. C¸c nót trªn menubar ®­îc chia theo c¸c chøc n¨ng cña PHÇN MÒM hç trî bÇu cö, qu¶n lý cæ ®«ng cæ tøc. Trªn hÖ thèng menu hiÓn thÞ n¨m modul cña ch­¬ng tr×nh: HÖ thèng: Chän tÖp d÷ liÖu, Saol­u d÷ liÖu, Th«ng sè hÖ thèng, Danh s¸ch ng­êi sö dung, Thay ®æi mËt khÈu, KÕt thóc ch­¬ng tr×nh Thao t¸c d÷ liÖu: CËp nhËt,Thªm míi, söa ®æi, xo¸, t¨ng gi¶m cæ phÇn, ChuyÓn phßng, Cæ tøc thùc tÕ, cæ tøc kÕ ho¹ch, Danh s¸ch: Cæ ®«ng, cæ tøc, bÇu cö B¸o c¸o: + Nhãm danh s¸ch ( Danh s¸ch phßng ban, danh s¸ch cæ ®«ng, cæ ®«ng theo tõng lo¹i cæ phiÕu, danh s¸ch øng cö) +Nhãm cæ phÇn (tæng hîp t¨ng, gi¶m cæ phÇn, Tæng hîp mua cæ phÇn, …) + Nhãm cæ tøc (Cæ tøc kÕ ho¹ch, cæ tøc thùc tÕ, thanh to¸n ®ît cuèi) + Nhãm bÇu cö (In phiÕu bÇu, KÕt qu¶ bÇu cö, ) Khai b¸o: Vèn ban ®Çu, T¨ng gi¶m vèn h»ng n¨m, Khai b¸o lo¹i cæ phiÕu, Khai b¸o phßng ban, Khai b¸o ®¬n vÞ bÇu Giao diÖn cña c¸c menu ®­îc c¾t bëi h×nh … H×nh 3.16 C¸c Menu cña phÇn mÒm H×nh 3.17 From nhËp cæ ®«ng H×nh 3.18: Form nhËp phiÕu bÇu H×nh 3.19: Form in phiÕu bÇu H×nh 3.20: Form nhËp khai b¸o t¨ng, gi¶m cæ phÇn H×nh 3.21: Form t×m kiÕm cæ ®«ng H×nh 3.22: Form chuyÓn nh­îng cæ ®«ng H×nh 3.23: B¸o c¸o chi tiÕt t¨ng gi¶m cæ phÇn H×nh 3.24: From in b¸o c¸o H×nh 3.25: B¸o c¸o cæ tøc kÕ ho¹ch n¨m 2007 H×nh 3.26: B¸o c¸o cæ ®«ng theo sè cæ phiÕu H×nh 3.27: From b¸o c¸o cæ ®«ng theo sè cæ phiÕu H×nh 3.28: B¸o c¸o kÕt qu¶ bÇu cö Héi ®ång qu¶n trÞ KÕt luËn Trªn ®©y lµ toµn bé néi dung cña qu¸ tr×nh x©y dùng phÇn mÒm "Hç trî bÇu cö vµ qu¶n lý cæ ®«ng, cæ tøc". KÕt thóc qu¸ tr×nh nµy phÇn mÒm ®· kh¾c phôc ®­îc c¸c nh­îc ®iÓm cña hÖ thèng qu¶n lý cò.Tin häc ho¸ c¸c kh©u qu¶n lý cæ ®«ng, cæ tøc, tin häc ho¸ mét phÇn quy tr×nh bÇu cö, gãp phÇn n©ng cao hiÖu qu¶ qu¶n lý, tiÕt kiÖm nh©n lùc, thêi gian. LuËn v¨n ®· ®¹t ®­îc mét sè kÕt qu¶ sau: - T¸c gi¶ ®· sö dông c¸c kiÕn thøc vÒ ph©n tÝch hÖ thèng th«ng tin ®Ó ph©n tÝch hÖ thèng qu¶n lý cæ ®«ng, cæ tøc t¹i C«ng ty cæ phÇn d­îc phÈm Nam Hµ, nh»m ®¸nh gi¸ nh÷ng h¹n chÕ cña hÖ thèng nµy vµ ®Ò xuÊt gi¶i ph¸p hoµn thiÖn b»ng c¸ch x©y dùng phÇn mÒm qu¶n lý. - T¸c gi¶ ®· tiÕp cËn vµ t×m hiÓu LuËt chøng kho¸n vµ thÞ tr­êng chøng kho¸n ®Ó t×m hiÓu râ b¶n chÊt cña c«ng ty cæ phÇn vµ c¸c thuËt ng÷ liªn quan. - T¸c gi¶ ®· tiÕn hµnh tõng b­íc x©y dùng phÇn mÒm tõ kh©u ph©n tÝch hiÖn tr¹ng, ®Æc t¶ c¸c yªu cÇu cña ng­êi sö dông, tiÕp ®ã thiÕt kÕ, lËp tr×nh kiÓm thö ®Ó t¹o ra ®­îc s¶n phÈm lµ phÇn mÒm hç trî bÇu cö vµ qu¶n lý cæ ®«ng, cæ tøc. - §©y lµ mét ®Ò tµi kh¸ míi mÎ, rÊt thùc tÕ cã thÓ triÓn khai t¹i c¸c C«ng ty cæ phÇn kh¸c. Tuy nhiªn do ph¹m vi vµ h¹n chÕ vÒ mÆt thêi gian còng nh­ kh¶ n¨ng cña t¸c gi¶ luËn v¨n cßn cã mét sè h¹n chÕ Giao diÖn thiÕt kÕ ch­a ®­îc ®Ñp Mét sè thao t¸c ®Ó thùc hiÖn t×m kiÕm ch­a nhanh. Dï cßn mét sè h¹n chÕ nh­ng t¸c gi¶ vÉn tin r»ng luËn v¨n nµy ®· cãnh÷ng ®ãng gãp kh«ng nhá trong viÖc kh¾c phôc nh÷ng h¹n chÕ vÒ qu¶n lý cæ ®«ng, cæ tøc còng nh­ gãp phÇn ®¾c lùc trong c¸c ®¹i héi cæ ®«ng cña c«ng ty. T¸c gi¶ rÊt mong nhËn ®­îc sù gãp ý tõ thÇy c« vµ c¸c b¹n ®ång nghiÖp ®Ó luËn v¨n nµy ®­îc hoµn thiÖn h¬n. Danh môc tµi liÖu tham kh¶o TiÕng viÖt 1).NguyÔn Kim Anh (2004), Nguyªn lý cña c¸c hÖ c¬ së d÷ liÖu, Nhµ xuÊt b¶n §¹i häc Quèc gia Hµ Néi 2).PGS.TS NguyÔn V¨n Ba (2005), Ph©n tÝch vµ thiÕt kÕ hÖ thèng th«ng tin c¸c ph¬ng ph¸p cã cÊu tróc, Nhµ xuÊt b¶n §¹i häc Quèc gia, Hµ Néi. 3).TS NguyÔn ViÖt Hµ, Bµi gi¶ng Kü nghÖ phÇn mÒm. Bé m«n C«ng nghÖ phÇn mÒm, Tr­êng §¹i häc C«ng nghÖ. 4).L÷ §øc Hµo (2002), Thùc hµnh Qu¶n lý C¬ së d÷ liÖu víi Microsoft Access 2002, Nhµ xuÊt b¶n Thèng kª. 5).PGS.TSKH NguyÔn Xu©n Huy, C«ng nghÖ phÇn mÒm, Bµi gi¶ng cho cao häc vµ nghiªn cøu sinh. 6).NguyÔn ThÞ Ngäc Mai (2000), Microsoft Visual Basic 6.0 & LËp tr×nh híng ®èi tîng, NXB Gi¸o dôc. 7).Hoµng Trung S¬n (2004), ThiÕt kÕ c¬ së d÷ liÖu, Nhµ xuÊt b¶n Lao ®éng - X· héi. 8).NguyÔn §×nh Tª (2001), Tù häc lËp tr×nh CSDL víi Visual Basic 6.0, NXB Gi¸o dôc. 9).PGS.TS Hµn ViÕt ThuËn (1999), Gi¸o tr×nh CÊu tróc d÷ liÖu vµ gi¶i thuËt, NXB Thèng kª, Hµ Néi. 10).PGS.TS Hµn ViÕt ThuËn, Gi¸o tr×nh C«ng nghÖ phÇn mÒm (bµi gi¶ng cho cao häc vµ nghiªn cøu sinh). 11).Th.S NguyÔn Xu©n Tïng (2003), HÖ thèng c¬ së d÷ liÖu, T¹p chÝ Bu chÝnh, ViÔn th«ng vµ C«ng nghÖ th«ng tin, Sè th¸ng 7 - 2003. 12).TS Tr­¬ng V¨n Tó - TS TrÇn ThÞ Song Minh (2000), HÖ thèng th«ng tin qu¶n lý, NXB Thèng kª Hµ Néi. 13).TrÇn Thµnh Trai (2003), Ph©n tÝch vµ thiÕt kÕ hÖ thèng th«ng tin qu¶n lý, Nhµ xuÊt b¶n TrÎ. 14).Lª §øc Trung (2002), C«ng nghÖ phÇn mÒm, Nhµ xuÊt b¶n Khoa häc vµ Kü thuËt. 15).§Ëu Quang TuÊn (2001), Visual Basic 6.0, NXB TrÎ. 16).ThS TrÇn C«ng UÈn (2000), Gi¸o tr×nh C¬ së d÷ liÖu, NXB Thèng kª. 17).Ng« Trung ViÖt, Lª ThÞ ¸i L©m (2003), NhËp m«n Kü nghÖ phÇn mÒm, Nhµ xuÊt b¶n Khoa häc vµ kü thuËt. 18).PGS.TS NguyÔn V¨n Vþ (2004), Gi¸o tr×nh ph©n tÝch thiÕt kÕ hÖ thèng th«ng tin, Nhµ xuÊt b¶n Hµ néi. 19).PGS.TS NguyÔn V¨n Vþ (2002), Ph©n tÝch thiÕt kÕ hÖ thèng th«ng tin hiÖn ®¹i, h­íng cÊu tróc vµ h­íng ®èi t­îng, Nhµ xuÊt b¶n Thèng kª. 20).PGS.TS NguyÔn V¨n Vþ (2004), Tµi liÖu m«n Kü nghÖ phÇn mÒm, Bé m«n C«ng nghÖ phÇn mÒm, Tr­êng §¹i häc C«ng nghÖ. TiÕng Anh 21).Roger S.Pressman (2001), Kü nghÖ phÇn mÒm - C¸ch tiÕp cËn cña ngêi thùc hµnh, TËp 1-2-3, Nhµ xuÊt b¶n Gi¸o dôc. 22).Toby J.Teory (2002), M« h×nh ho¸ & thiÕt kÕ c¬ së d÷ liÖu, TrÇn §øc Quang - biªn dÞch, Nhµ xuÊt b¶n Thèng kª. 23).Edward Yourdon, Larry L.Constantine (1989), Structured Design: Fundamantals and Applications in Software Engubeering, 2 nd ed, Englewood Cliffs, N.J: Yourdon Press. 24).Edward Yourdon (1989), Modern structured analysis, Prentice Hall. 25).Edward Yourdon (1988), Managing the Systems Life Cycle, 2 nd ed. Englewood Cliffs, N.J: Prentice - Hall. 26).Ian Sommerville (1995), Software Engineering - Fifth edition, Addision Wesley Publishing Company. 27).Jeffrey A.Hoffer, Joey F.Gorge, Joseph S.Valacich (1999), Modern Systerms Analysis and Design - Second edition, Adddison Wesley Longman, Inc. 28).Roetzheim, W.H (1990), Structured Design Using HIPO - II. Englewood Cliffs, NJ: Prentice Hall, Inc. 29).Shelly Cashman (2002), System analysis and design - Fifth edition, Thomson Course. 30).John Clark Craig and Jeff Webb (1998), Microsoft Visual Basic - Wombat Technology phô lôc code ‘Danh s¸ch cæ ®«ng ***************************************************** Public lDonVi As Long Private Sub ActiveReport_FetchData(EOF As Boolean) Static nCount As Integer nCount = nCount + 1 Me.fldSTT.Text = nCount End Sub Private Sub ActiveReport_Initialize() Dim oRs As ADODB.Recordset Dim rs As ADODB.Recordset Dim dblGiaCoPhieu As Double Dim pSQL As String Set rs = pCnn.Execute("Select * from qryGiaCoPhieu") dblGiaCoPhieu = 0 If Not rs.EOF Then dblGiaCoPhieu = rs("GiaPhoThong") End If Me.DataControl1.Connection = pCnn lblBanQuyen.Caption = "B¶n quyÒn sö dông:" & pEnviroment.CompanyFullName Me.lblSigner_1.Caption = pEnviroment.Signer_1 Me.lblSigner_2.Caption = pEnviroment.Signer_2 Me.lblSigner_3.Caption = pEnviroment.Signer_3 Me.lblCongTy.Caption = pEnviroment.Owner_Com & Chr(13) & Chr(10) & pEnviroment.CompanyFullName & Chr(13) & Chr(10) & pEnviroment.Address 'Me.lblDiaChi.Caption = ' Me.lblDonVi.Caption = frmInDanhSach_1.cboDonViBau.List(frmInDanhSach_1.cboDonViBau.ListIndex) If frmInDanhSach_2.cboDonViBau.ListIndex > 0 Then Me.lDonVi = frmInDanhSach_1.cboDonViBau.ItemData(frmInDanhSach_1.cboDonViBau.ListIndex) Else Me.lDonVi = 0 End If pSQL = " SELECT PhongBan.MaPhong, PhongBan.TenPhong,DsCoDong.MaNhanVien as MaSo,DsCoDong.ChucVu as CMND, DsCoDong.QuocTich, DsCoDong.NgayPhatSinh, DsCoDong.ID_Phong, DsCoDong.ID_CoDong, DsCoDong.TenCoDong, DsCoDong.Ten, DsCoDong.ChucVu, DsCoDong.DiaChi, DsCoDong.DienThoai, DsCoDong.CoPhanBanDau, CoDong_CoPhan.CoPhan * " & CStr(dblGiaCoPhieu) & " as Vongop" _ & " FROM PhongBan INNER JOIN (DsCoDong LEFT JOIN CoDong_CoPhan ON CoDong_CoPhan.ID_CoDong = DsCoDong.ID_CoDong ) ON DSCoDong.ID_Phong = PhongBan.ID_Phong" pSQL = pSQL & " WHERE DsCoDong.NgayPhatSinh >= " & CDbl(frmInDanhSach_2.txtTuNgay.Value) & " AND DsCoDong.NgayPhatSinh <= " & CDbl(frmInDanhSach_2.txtDenNgay.Value) If lDonVi > 0 Then pSQL = pSQL & " " & " AND DsCoDong.ID_Phong = " & Me.lDonVi If frmInDanhSach_2.cboLuaChon.ListIndex > 0 Then pSQL = pSQL & " AND CoDong_CoPhan.CoPhan > 0 " End If Else If frmInDanhSach_2.cboLuaChon.ListIndex > 0 Then pSQL = pSQL & " AND CoDong_CoPhan.CoPhan > 0 " End If End If 'pSQL = pSQL '& " ORDER BY " & GetOrderField(frmInDanhSach_2.cboOrder.ItemData(frmInDanhSach_1.cboOrder.ListIndex), Me.Name) Me.DataControl1.Source = pSQL & " ORDER BY DsCoDong.MaNhanVien " '==============ADD LOGO for Company============================= Fields.Add "CT_PHOTO" Set oRs = pCnn.Execute("SELECT TOP 1 LOGOCT FROM ThongSoChung") If Not oRs.EOF Then If Not IsNull(oRs("LOGOCT")) Then Fields("CT_PHOTO").Value = oRs("LOGOCT") Else Me.Image1.Width = 0 Me.lblCongTy.Left = Me.Image1.Left End If End If '==============ADD LOGO for Company============================= With Toolbar.Tools .Add "Ra excel" End With End Sub Private Sub ActiveReport_ToolbarClick(ByVal Tool As DDActiveReports2.DDTool) Dim xls As ARExportExcel Dim XLSFileName As String On Error GoTo Err_handle If Tool.Caption = "Ra excel" Then frmAccsys.CDialog.FileName = "*.xls" frmAccsys.CDialog.Filter = "Excel (*.xls) | *.xls |All file (*.*) | *.*" frmAccsys.CDialog.FilterIndex = 1 frmAccsys.CDialog.Flags = &H4 frmAccsys.CDialog.InitDir = App.path frmAccsys.CDialog.ShowSave XLSFileName = frmAccsys.CDialog.FileName If Trim(XLSFileName) "" And InStr(XLSFileName, "*") <= 0 Then Set xls = New ARExportExcel xls.FileName = XLSFileName xls.Export Pages Set xls = Nothing End If End If Err_handle: Exit Sub End Sub Private Sub Detail_BeforePrint() Dim f As Object For Each f In Me.Detail.Controls If f.Name "DataControl1" Then f.Height = Me.Detail.Height End If Next End Sub Private Sub PageFooter_BeforePrint() ' Print page number in the page footer Me.lblPage.Caption = Me.pageNumber End Sub ********************************************************** ‘BÇu cö, chuyÓn nh­îng t¨ng gi¶m cæ phÇn ********************************************************* Public lDonViBau As Integer Public lSoNguoiDuocBau As Integer Public lSoNguoiUngCu As Integer Public pSQL As String Dim arrTitle() As String Dim arrTong() As String Dim arrPhanTramKq() As String Dim arrSUM_Tong() As String Dim Arr_DS() As String Public nColumns As Integer Private Sub ActiveReport_FetchData(EOF As Boolean) Dim i, j As Integer Dim nSoCot As Integer Static nCount As Integer Dim SoPhieuKB, NK, CP_KHL As Integer nCount = nCount + 1 Me.fldSTT = nCount nSoCot = UBound(arrTitle) Dim iK As Integer If Not Me.DataControl1.Recordset.EOF Then Fields("SO_CP").Value = Me.DataControl1.Recordset("GiaTriCoPhan") Fields("CP_Bau").Value = 0 For i = 1 To nSoCot For iK = 1 To nSoCot If Trim(Arr_DS(iK)) = Trim(Me.DataControl1.Recordset.Fields(i + 2).Name) Then Fields(arrTitle(iK)).Value = Me.DataControl1.Recordset(arrTitle(iK)) Fields("CP_Bau").Value = Fields("CP_Bau").Value + IIf(IsNull(Me.DataControl1.Recordset(arrTitle(iK))), 0, Me.DataControl1.Recordset(arrTitle(iK))) If Me.DataControl1.Recordset("HopLe") = 1 Then Fields(arrTong(iK)).Value = Fields(arrTong(iK)).Value + IIf(IsNull(Me.DataControl1.Recordset(arrTitle(iK))), 0, Me.DataControl1.Recordset(arrTitle(iK))) End If End If Next iK Next If Me.DataControl1.Recordset("HopLe") = 1 Then Fields("SUM_SO_CP").Value = Fields("SUM_SO_CP").Value + Me.DataControl1.Recordset("GiaTriCoPhan") Fields("CongCuaSum").Value = Fields("CongCuaSum").Value + Fields("CP_Bau").Value End If If Fields("CP_Bau").Value = 0 Then SoPhieuKB = Me.DataControl1.Recordset("GiaTriCoPhan") * Me.lSoNguoiUngCu Else SoPhieuKB = Me.DataControl1.Recordset("GiaTriCoPhan") * Me.lSoNguoiUngCu - Fields("CP_Bau").Value End If ' CP_KHL = Me.DataControl1.Recordset("GiaTriCoPhan") * Me.lSoNguoiDuocBau - Fields("CP_Bau").Value - SoPhieuKB Fields("KHONG_HOPLE").Value = SoPhieuKB Fields("SUM_KHONG_HOPLE").Value = Fields("SUM_KHONG_HOPLE").Value + Fields("KHONG_HOPLE").Value 'Ghi chu If Me.DataControl1.Recordset("HopLe") = 0 Then Fields("GHI_CHU").Value = "Kh«ng hîp lÖ" Else Fields("GHI_CHU").Value = "Hîp lÖ" End If Else For i = 1 To nSoCot If Fields("SUM_SO_CP").Value > 0 Then Fields(arrPhanTramKq(i)).Value = (Fields(arrTong(i)).Value * 100) / Fields("SUM_SO_CP").Value Fields(arrPhanTramKq(i)).Value = Round(Fields(arrPhanTramKq(i)).Value, 2) & "%" End If Next End If End Sub Private Sub ActiveReport_Initialize() Dim i As Integer Dim pCmd As New ADODB.Command Dim oRs As ADODB.Recordset '================================================================ Me.lblCongTy.Caption = pEnviroment.Owner_Com & Chr(13) & Chr(10) & pEnviroment.CompanyFullName If frmInKQBau.txtNgayBaoCao.Value "" Then Me.lblNgayThang.Caption = pEnviroment.BranchName & ", ngµy " & CStr(Day(frmInKQBau.txtNgayBaoCao.Value)) & " th¸ng " & CStr(Month(frmInKQBau.txtNgayBaoCao.Value)) & " n¨m " & CStr(Year(frmInKQBau.txtNgayBaoCao.Value)) Else Me.lblNgayThang.Caption = pEnviroment.BranchName & ", ngµy " & CStr(Day(Date)) & " th¸ng " & CStr(Month(Date)) & " n¨m " & CStr(Year(Date)) End If lblBanQuyen.Caption = "B¶n quyÒn sö dông:" & pEnviroment.CompanyFullName '================================================================ If Trim(frmInKQBau.txtTieuDe.Text) = "" Or IsNull(frmInKQBau.txtTieuDe.Text) Then KetQuaBau.lblTieuDe.Caption = "KÕt qu¶ kiÓm phiÕu bÇu " & frmInKQBau.cboDonViBau.List(frmInKQBau.cboDonViBau.ListIndex) Else KetQuaBau.lblTieuDe.Caption = Trim(frmInKQBau.txtTieuDe.Text) End If KetQuaBau.lDonViBau = frmInKQBau.cboDonViBau.ItemData(frmInKQBau.cboDonViBau.ListIndex) pCmd.CommandType = adCmdText pCmd.CommandText = "Select * from Qry_DuocBau_Crosstab oRDER BY GiaTriCOPhan DESC " pCmd.Parameters.Append pCmd.CreateParameter("", adInteger, adParamInput, 10, Me.lDonViBau) pCmd.ActiveConnection = pCnn Set oRs = pCmd.Execute Me.DataControl1.Connection = pCnn Me.DataControl1.Recordset = oRs pSQL = "" 'Lay ra phan tang co phan Dim cmd As New ADODB.Command Dim TK, NK, CP_KHL As Double cmd.CommandType = adCmdText cmd.CommandText = " Select ID_UngCU, TenNguoiUngCu FROM DSUngCu WHERE ID_DonViBau = ? ORDER BY ID_UngCU " cmd.Parameters.Append cmd.CreateParameter("", adInteger, adParamInput, 10, Me.lDonViBau) cmd.ActiveConnection = pCnn Set oRs = cmd.Execute nColumns = oRs.RecordCount ReDim Arr_DS(nColumns) ReDim arrTitle(nColumns) ReDim arrTong(nColumns) ReDim arrSUM_Tong(nColumns) ReDim arrPhanTramKq(nColumns) For i = 1 To nColumns Arr_DS(i) = oRs(1) arrTitle(i) = Trim(oRs(1)) arrTong(i) = "TongCua_" & Trim(oRs(1)) arrPhanTramKq(i) = "PhanTramCua_" & Trim(oRs(1)) arrSUM_Tong(i) = "SUM_" & Trim(oRs(1)) Fields.Add arrTitle(i) Fields.Add "TongCua_" & Trim(oRs(1)) Fields.Add "SUM_" & Trim(oRs(1)) Fields.Add arrPhanTramKq(i) Fields("TongCua_" & Trim(oRs(1))) = 0 Fields("SUM_" & Trim(oRs(1))) = 0 Fields(arrPhanTramKq(i)) = "0 %" oRs.MoveNext Next Fields.Add "SO_CP" Fields.Add "SUM_SO_CP" Fields.Add "CP_Bau" Fields.Add "CongCuaSum" Fields.Add "KHONG_HOPLE" Fields.Add "SUM_KHONG_HOPLE" Fields.Add "GHI_CHU" Fields("SO_CP") = 0 Fields("SUM_SO_CP") = 0 Fields("CP_Bau") = 0 Fields("CongCuaSum") = 0 Fields("KHONG_HOPLE") = 0 Fields("SUM_KHONG_HOPLE") = 0 'Xu lu phieu hop le hay khong ? Set oRs = pCnn.Execute("SELECT SoNguoiDuocBau , SoNguoiUngCu From DonViBau WHERE ID_DonViBau = " & CStr(Me.lDonViBau)) If Not oRs.EOF Then Me.lSoNguoiDuocBau = oRs(0) Me.lSoNguoiUngCu = oRs(1) End If ' Tong Hop ket qua ' arrPhanTramKq (i) Fields.Add "ABC" Fields("ABC").Value = "" '==============ADD LOGO for Company============================= Fields.Add "CT_PHOTO" Set oRs = pCnn.Execute("SELECT TOP 1 LOGOCT FROM ThongSoChung") If Not oRs.EOF Then Fields("CT_PHOTO").Value = oRs("LOGOCT") End If '==============ADD LOGO for Company============================= Set oRs = Nothing End Sub Private Sub ActiveReport_ReportStart() Dim lLeft As Integer Dim lHeight As Integer Dim lTop As Integer Dim lWidth As Integer Dim nSoCot As Integer Dim i As Integer Dim ctl, ctlTang, ctlGiam As Object '==========================TIEU DE======================================= ' Tieu de 'Them cac tieu cho cac cot lLeft = Me.lblSTT.Width lWidth = Me.lblTieuDe.Width lHeight = Int(Me.lblSTT.Height) lTop = Me.lblSTT.Top nSoCot = UBound(arrTitle) lWidth = Int(lWidth / (nSoCot + 4)) 'Me.Label1.Font.Name With KetQuaBau.Sections("PageHeader").Controls Set ctl = .Add("DDActiveReports2.Label") ctl.Name = "lblSoCP" ctl.Caption = "Sè CP" ctl.Border.BottomStyle = 7 ctl.Border.LeftStyle = 1 ctl.Border.RightStyle = 0 ctl.Border.TopStyle = 7 ctl.Font.Name = ".VnTime" ctl.Left = lLeft ctl.Height = lHeight ctl.Width = lWidth ctl.Top = lTop ctl.Font.Bold = True ctl.Alignment = ddTXCenter ctl.VerticalAlignment = ddTXMiddle lLeft = lLeft + ctl.Width For i = 1 To nSoCot Set ctl = .Add("DDActiveReports2.Label") ctl.Name = "Title" & i ctl.Caption = arrTitle(i) ctl.Border.BottomStyle = 7 ctl.Border.LeftStyle = 1 ctl.Border.RightStyle = 0 ctl.Border.TopStyle = 7 ctl.Font.Name = ".VnTime" ctl.Left = lLeft ctl.Height = lHeight ctl.Width = lWidth ctl.Top = lTop ctl.Font.Bold = True ctl.Alignment = ddTXCenter ctl.VerticalAlignment = ddTXMiddle lLeft = lLeft + ctl.Width Next 'So phieu bau Set ctl = .Add("DDActiveReports2.Label") ctl.Name = "lblSP_bau" ctl.Caption = "SP bÇu" ctl.Font.Name = ".VnTime" ctl.Border.BottomStyle = 7 ctl.Border.LeftStyle = 1 ctl.Border.RightStyle = 0 ctl.Border.TopStyle = 7 ctl.Left = lLeft ctl.Height = lHeight ctl.Width = lWidth ctl.Top = lTop ctl.Font.Bold = True ctl.Alignment = ddTXCenter ctl.VerticalAlignment = ddTXMiddle lLeft = lLeft + ctl.Width ' So phieu khong hop le Set ctl = .Add("DDActiveReports2.Label") ctl.Name = "lblSP_KhongHopLe" ctl.Caption = "CP Kh«ng bÇu" ctl.Font.Name = ".VnTime" ctl.Border.BottomStyle = 7 ctl.Border.LeftStyle = 1 ctl.Border.RightStyle = 0 ctl.Border.TopStyle = 7 ctl.Left = lLeft ctl.Height = lHeight ctl.Width = lWidth ctl.Top = lTop ctl.Font.Bold = True ctl.Alignment = ddTXCenter ctl.VerticalAlignment = ddTXMiddle lLeft = lLeft + ctl.Width ' Ghi chó Set ctl = .Add("DDActiveReports2.Label") ctl.Name = "lblGhiChu" ctl.Caption = "Ghi chó" ctl.Font.Name = ".VnTime" ctl.Border.BottomStyle = 7 ctl.Border.LeftStyle = 1 ctl.Border.RightStyle = 7 ctl.Border.TopStyle = 7 ctl.Left = lLeft ctl.Height = lHeight ctl.Width = lWidth ctl.Top = lTop ctl.Font.Bold = True ctl.Alignment = ddTXCenter ctl.VerticalAlignment = ddTXMiddle lLeft = lLeft + ctl.Width End With '=============================DU LIEU====================================================== lLeft = Me.lblSTT.Width lHeight = Me.fldSTT.Height lTop = Me.fldSTT.Top 'Them data field With KetQuaBau.Sections("Detail").Controls Set ctlTang = .Add("DDActiveReports2.Field") ctlTang.DataField = "SO_CP" ctlTang.Text = "" ctlTang.Border.BottomStyle = 1 ctlTang.Border.LeftStyle = 1 ctlTang.Border.RightStyle = 0 ctlTang.Border.TopStyle = 0 ctlTang.Font.Name = ".VnTime" ctlTang.Left = lLeft ctlTang.Width = lWidth ctlTang.Height = lHeight ctlTang.Top = lTop ctlTang.Font.Bold = False ctlTang.Alignment = ddTXRight ctlTang.VerticalAlignment = ddTXMiddle ctlTang.OutputFormat = "#,##0" lLeft = lLeft + ctlTang.Width For i = 1 To nSoCot 'Tang co phan Set ctlTang = .Add("DDActiveReports2.Field") ctlTang.DataField = arrTitle(i) ctlTang.Text = "" ctlTang.Border.BottomStyle = 1 ctlTang.Border.LeftStyle = 1 ctlTang.Border.RightStyle = 0 ctlTang.Border.TopStyle = 0 ctlTang.Font.Name = ".VnTime" ctlTang.Left = lLeft ctlTang.Width = lWidth ctlTang.Height = lHeight ctlTang.Top = lTop ctlTang.Font.Bold = False ctlTang.Alignment = ddTXRight ctlTang.VerticalAlignment = ddTXMiddle ctlTang.OutputFormat = "#,##0" lLeft = lLeft + ctlTang.Width 'Giam co phan Next Set ctlGiam = .Add("DDActiveReports2.Field") ctlGiam.DataField = "CP_Bau" ctlGiam.Text = "" ctlGiam.Border.BottomStyle = 1 ctlGiam.Border.LeftStyle = 1 ctlGiam.Border.RightStyle = 0 ctlGiam.Border.TopStyle = 0 ctlGiam.Font.Name = ".VnTime" ctlGiam.Left = lLeft ctlGiam.Width = lWidth ctlGiam.Height = lHeight ctlGiam.Top = lTop ctlGiam.Font.Bold = False ctlGiam.Alignment = ddTXRight ctlGiam.VerticalAlignment = ddTXMiddle ctlGiam.OutputFormat = "#,##0" lLeft = lLeft + ctlTang.Width 'Khong hop le Set ctlGiam = .Add("DDActiveReports2.Field") ctlGiam.DataField = "KHONG_HOPLE" ctlGiam.Text = "" ctlGiam.Border.BottomStyle = 1 ctlGiam.Border.LeftStyle = 1 ctlGiam.Border.RightStyle = 0 ctlGiam.Border.TopStyle = 0 ctlGiam.Font.Name = ".VnTime" ctlGiam.Left = lLeft ctlGiam.Width = lWidth ctlGiam.Height = lHeight ctlGiam.Top = lTop ctlGiam.Font.Bold = False ctlGiam.Alignment = ddTXRight ctlGiam.VerticalAlignment = ddTXMiddle ctlGiam.OutputFormat = "#,##0" lLeft = lLeft + ctlTang.Width 'Ghi chu Set ctlGiam = .Add("DDActiveReports2.Field") ctlGiam.DataField = "GHI_CHU" ctlGiam.Text = "" ctlGiam.Border.BottomStyle = 1 ctlGiam.Border.LeftStyle = 1 ctlGiam.Border.RightStyle = 7 ctlGiam.Border.TopStyle = 0 ctlGiam.Font.Name = ".VnTime" ctlGiam.Left = lLeft ctlGiam.Width = lWidth ctlGiam.Height = lHeight ctlGiam.Top = lTop ctlGiam.Font.Bold = False ctlGiam.Alignment = ddTXLeft ctlGiam.VerticalAlignment = ddTXMiddle lLeft = lLeft + ctlTang.Width End With lLeft = Me.lblSTT.Width lHeight = Me.Group_Label1.Height lTop = Me.Group_Label1.Top '====================================TOTAL========================================== ' Them phÇn tÝnh tæng céng With KetQuaBau.Sections("GroupFooter").Controls Set ctlTang = .Add("DDActiveReports2.Field") ctlTang.DataField = "SUM_SO_CP" ctlTang.Border.BottomStyle = 1 ctlTang.Border.LeftStyle = 1 ctlTang.Border.RightStyle = 0 ctlTang.Border.TopStyle = 0 ctlTang.Font.Name = ".VnTime" ctlTang.Left = lLeft ctlTang.Width = lWidth ctlTang.Height = lHeight ctlTang.Top = 0 ctlTang.Font.Bold = True ctlTang.Alignment = ddTXRight ctlTang.VerticalAlignment = ddTXMiddle ctlTang.OutputFormat = "#,##0" '============================= 'ctlTang.SummaryFunc = ddSFSum 'ctlTang.SummaryGroup = "GroupFooter" 'ctlTang.SummaryRunning = ddSRGroup 'c'tlTang.SummaryType = ddSMSubTotal '============================ lLeft = lLeft + ctlTang.Width For i = 1 To nSoCot Set ctlTang = .Add("DDActiveReports2.Field") ctlTang.DataField = arrTong(i) ctlTang.Border.BottomStyle = 1 ctlTang.Border.LeftStyle = 1 ctlTang.Border.RightStyle = 0 ctlTang.Border.TopStyle = 0 ctlTang.Font.Name = ".VnTime" ctlTang.Left = lLeft ctlTang.Width = lWidth ctlTang.Height = lHeight ctlTang.Top = 0 ctlTang.Font.Bold = True ctlTang.Alignment = ddTXRight ctlTang.VerticalAlignment = ddTXMiddle ctlTang.OutputFormat = "#,##0" '============================= 'tlTang.SummaryFunc = ddSFSum 'ctlTang.SummaryGroup = "GroupFooter" 'ctlTang.SummaryRunning = ddSRGroup 'ctlTang.SummaryType = ddSMSubTotal '============================ lLeft = lLeft + ctlTang.Width Next Set ctlGiam = .Add("DDActiveReports2.Field") ctlGiam.DataField = "CongCuaSum" ctlGiam.Text = "" ctlGiam.Border.BottomStyle = 1 ctlGiam.Border.LeftStyle = 1 ctlGiam.Border.RightStyle = 0 ctlGiam.Border.TopStyle = 0 ctlGiam.Font.Name = ".VnTime" ctlGiam.Left = lLeft ctlGiam.Width = lWidth ctlGiam.Height = lHeight ctlGiam.Top = 0 ctlGiam.Font.Bold = True ctlGiam.Alignment = ddTXRight ctlGiam.VerticalAlignment = ddTXMiddle ctlGiam.OutputFormat = "#,##0" lLeft = lLeft + ctlTang.Width Set ctlGiam = .Add("DDActiveReports2.Field") ctlGiam.DataField = "SUM_KHONG_HOPLE" ctlGiam.Text = "" ctlGiam.Border.BottomStyle = 1 ctlGiam.Border.LeftStyle = 1 ctlGiam.Border.RightStyle = 0 ctlGiam.Border.TopStyle = 0 ctlGiam.Font.Name = ".VnTime" ctlGiam.Left = lLeft ctlGiam.Width = lWidth ctlGiam.Height = lHeight ctlGiam.Top = 0 ctlGiam.Font.Bold = True ctlGiam.Alignment = ddTXRight ctlGiam.VerticalAlignment = ddTXMiddle ctlGiam.OutputFormat = "#,##0" lLeft = lLeft + ctlTang.Width Set ctlGiam = .Add("DDActiveReports2.Field") ctlGiam.DataField = "" ctlGiam.Text = "" ctlGiam.Border.BottomStyle = 1 ctlGiam.Border.LeftStyle = 1 ctlGiam.Border.RightStyle = 7 ctlGiam.Border.TopStyle = 0 ctlGiam.Font.Name = ".VnTime" ctlGiam.Left = lLeft ctlGiam.Width = lWidth ctlGiam.Height = lHeight ctlGiam.Top = 0 ctlGiam.Font.Bold = True ctlGiam.Alignment = ddTXRight ctlGiam.VerticalAlignment = ddTXMiddle lLeft = lLeft + ctlTang.Width End With '============================TONG HOP KET QUA=========================================== lLeft = Me.lblSTT.Width lHeight = Me.LblFooter.Height lTop = Me.LblFooter.Top ' Them phan tong hop ket qua With KetQuaBau.Sections("ReportFooter").Controls Set ctlTang = .Add("DDActiveReports2.Field") ctlTang.DataField = "ABC" ctlTang.Text = "KÕt qu¶" ctlTang.Border.BottomStyle = 7 ctlTang.Border.LeftStyle = 0 ctlTang.Border.RightStyle = 0 ctlTang.Border.TopStyle = 0 ctlTang.Font.Name = ".VnTime" ctlTang.Left = lLeft ctlTang.Width = lWidth ctlTang.Height = lHeight ctlTang.Top = 0 ctlTang.Font.Bold = True ctlTang.Alignment = ddTXRight ctlTang.VerticalAlignment = ddTXMiddle lLeft = lLeft + ctlTang.Width For i = 1 To nSoCot Set ctlTang = .Add("DDActiveReports2.Field") ctlTang.DataField = arrPhanTramKq(i) 'ctlTang.OutputFormat = "#,##0" ctlTang.Border.BottomStyle = 7 ctlTang.Border.LeftStyle = 1 ctlTang.Border.RightStyle = 0 ctlTang.Border.TopStyle = 0 ctlTang.Font.Name = ".VnTime" ctlTang.Left = lLeft ctlTang.Width = lWidth ctlTang.Height = lHeight ctlTang.Top = 0 ctlTang.Font.Bold = True ctlTang.Alignment = ddTXRight ctlTang.VerticalAlignment = ddTXMiddle lLeft = lLeft + ctlTang.Width Next Set ctlGiam = .Add("DDActiveReports2.Field") ctlGiam.DataField = "" ctlGiam.Text = "" ctlGiam.Border.BottomStyle = 7 ctlGiam.Border.LeftStyle = 1 ctlGiam.Border.RightStyle = 0 ctlGiam.Border.TopStyle = 0 ctlGiam.Font.Name = ".VnTime" ctlGiam.Left = lLeft ctlGiam.Width = lWidth ctlGiam.Height = lHeight ctlGiam.Top = 0 ctlGiam.Font.Bold = True ctlGiam.Alignment = ddTXRight ctlGiam.VerticalAlignment = ddTXMiddle lLeft = lLeft + ctlTang.Width Set ctlGiam = .Add("DDActiveReports2.Field") ctlGiam.DataField = "" ctlGiam.Text = "" ctlGiam.Border.BottomStyle = 7 ctlGiam.Border.LeftStyle = 1 ctlGiam.Border.RightStyle = 0 ctlGiam.Border.TopStyle = 0 ctlGiam.Font.Name = ".VnTime" ctlGiam.Left = lLeft ctlGiam.Width = lWidth ctlGiam.Height = lHeight ctlGiam.Top = 0 ctlGiam.Font.Bold = True ctlGiam.Alignment = ddTXRight ctlGiam.VerticalAlignment = ddTXMiddle lLeft = lLeft + ctlTang.Width Set ctlGiam = .Add("DDActiveReports2.Field") ctlGiam.DataField = "" ctlGiam.Text = "" ctlGiam.Border.BottomStyle = 7 ctlGiam.Border.LeftStyle = 1 ctlGiam.Border.RightStyle = 7 ctlGiam.Border.TopStyle = 0 ctlGiam.Font.Name = ".VnTime" ctlGiam.Left = lLeft ctlGiam.Width = lWidth ctlGiam.Height = lHeight ctlGiam.Top = 0 ctlGiam.Font.Bold = True ctlGiam.Alignment = ddTXRight ctlGiam.VerticalAlignment = ddTXMiddle lLeft = lLeft + ctlTang.Width End With With Toolbar.Tools .Add "Ra excel" End With End Sub Private Sub ActiveReport_ToolbarClick(ByVal Tool As DDActiveReports2.DDTool) Dim xls As ARExportExcel Dim XLSFileName As String On Error GoTo Err_handle If Tool.Caption = "Ra excel" Then frmAccsys.CDialog.FileName = "*.xls" frmAccsys.CDialog.Filter = "Excel (*.xls) | *.xls |All file (*.*) | *.*" frmAccsys.CDialog.FilterIndex = 1 frmAccsys.CDialog.Flags = &H4 frmAccsys.CDialog.InitDir = App.path frmAccsys.CDialog.ShowSave XLSFileName = frmAccsys.CDialog.FileName If Trim(XLSFileName) "" And InStr(XLSFileName, "*") <= 0 Then Set xls = New ARExportExcel xls.FileName = XLSFileName xls.Export Pages Set xls = Nothing End If End If Err_handle: Exit Sub End Sub Private Sub Detail_BeforePrint() Dim f As Object For Each f In Me.Detail.Controls If f.Name "DataControl1" Then f.Height = Me.Detail.Height End If Next End Sub Private Sub PageFooter_BeforePrint() ' Print page number in the page footer Me.lblPage.Caption = Me.pageNumber End Sub