Xây dựng chương trình quản lý nhân sự của chi cục dự trữ sóc sơn dựa trên ngôn ngữ Visual Basic

quan hÖ ( Relation Database Management System ) dïng trong v¨n phßng ( n»m trong bé Microsft Professional Word, Exccel, Power Point ) do ®ã Microsft ®Æc biÖt chó träng ®Õn ng­êi sö dông cuèi (end user) h¬n lµ nhµ ph¸t triÓn. §iÒu nµy lµm cho c«ng cô hç trî thiÕt kÕ ( giao diÖn thiÕt kÕ, c¸c Wizard cho phÐp tù ®éng ho¸ c¸c qu¸ tr×nh thñ c«ng trong qu¸ tr×nh thiÕt kÕ form, table, query) cña Access tá ra rÊt m¹nh, h¬n h¼n Visual Basis. Ch¼ng h¹n nhiÒu lËp tr×nh viªn kinh nghiÖm khi viÕt c¸c c©u lÖnh SQL trong Visual Basis th­êng dïng kÒm bé thiÕt kÕ Query trong Access ®Ó sinh ra trong c©u lÖnh SQL mét c¸ch dÔ dµng. Access Basic cã nh÷ng kh¸c biÖt nhÊt ®Þnh so víi Visual Basis. ChØ ®Õn phiªn b¶n Access 7.0. Visual Basis vÒ sau vµ Access míi dïng chung ng«n ng÷ lËp tr×nh mµ Microsft gäi lµ VBA - Visual Basis for Application. Ta thÊy Access vµ Visual Basis kh¸c nhau ë c¸ch chÕ t¹o ra c¸c øng dông so víi c¸c c«ng cô thiÕt kÕ kh¸c nhau nh­ng thµnh phÇn xö lÝ CSDL th× cã nhiÒu ®iÓm t­¬ng ®ång v× cïng sö dông Jet Engine. Visual Basis cho phÐp biÖn dÞch c¸c øng dông thµnh tËp tin EXE, trong khi Access ta phØ ph©n phèi lu«n c¶ tµi nguyªn thiÕt kÕ. Kh¸i ng­êiÖm CSDL trong Access bao gåm c¶ phÇn d÷ liÖu (c¸c b¶ng) vµ phÇn øng dông ( query, form, table, report, macro, module ), trong khi ®èi víi c¸c hÖ kh¸c, CSDL chØ bao gåm phÇn d÷ liÖu. ChiÕn l­îc b¶o mËt tµi nguyªn thiÕt kÕ ph¶i ®­îc ®Æt lªn hµn ®Çu khi chän Access lµm c«ng cô ph¸t triÓn øng dông. HÖ thèng giao diÖn hç trî thiÕt kÕ ( ®Æc biÖt trong Access ) còng kh¸ r¾c rèi khiÕn ng­êi ch­a cã kinh nghiÖm hay lÉn lén gi÷a c¸c thøc dµnh cho ng­êi dïng cuèi vµ nh÷ng thø dµnh cho ng­êi lËp tr×nh, thø chØ dïng cho thiÕt kÕ vµ thø cã thÓ mang vµo øng dông. Ch­¬ng III ThiÕt kÕ C¬ së d÷ liÖu I. Th«ng tin vµo ra cña hÖ thèng Qua t×m hiÓu l­u tr÷ HSCB cña phßng tæ chøc trong c¬ quan vµ c¨n cø vµo c¸c th«ng tin l­u tr÷ trong sæ lý lÞch HSCB ta t¹m chia hai lo¹i th«ng tin nh­ sau: T.tin vµo HT T.tin ra khái hÖ thèng HT Qu¶n lý c¸n bé 1.1. Th«ng tin vµo hÖ thèng - Th«ng tin vÒ hå s¬ c¸ nh©n (C¸c CB míi ®­îc chuyÓn ®Õn hay míi ®­îc biªn chÕ), nã bao gåm tÊt c¶ c¸c tr­êng ®­îc l­u tr÷ trong sæ hå s¬ lý lÞch c¸n bé, khi nhËp HS th× c¸n bé qu¶n lý ph¶i nhËp toµn bé c¸c th«ng tin liªn quan ®Õn c¸n bé trong sæ lý lÞch c¸n bé vµo m¸y tÝnh. - Th«ng tin thay ®æi vÒ c¸ nh©n hµng n¨m nh­: lªn l­¬ng, lªn chøc vô, §¶ng, §oµn...hµng n¨m CBTC yªu cÇu nh÷ng c«ng chøc trong c¬ quan khai thªm phÇn bæ sung lý lÞch c¸ nh©n, ®©y lµ viÖc lµm b¾t buéc mµ c¸c CB vÒ qu¶n lý nh©n sù ph¶i cËp nhËt nh÷ng th«ng tin thay ®æi ®ã vµo trong sæ lý lÞch CB. - Th«ng tin vÒ häc tËp, b»ng cÊp: hµng n¨m c¬ quan th­êng cö CB ®i häc ë c¸c tr­êng §H vµ c¸c líp båi d­ìng nghiÖp vô cña ngµnh, sè CB ®· hoµn thµnh nhiÖm vô vÒ tiÕp tôc c«ng t¸c trong c¬ quan. - Th«ng tin khen th­ëng kû luËt: ®©y lµ nh÷ng th«ng tin cã thÓ x¶y ra hµng n¨m ®èi víi CBCC v× vËy nã còng ®­îc coi lµ th«ng tin vµo cña hÖ thèng. - Th«ng tin vÒ c¸n bé thuyªn chuyÓn c«ng t¸c: C¸n bé trong c¸c ®¬n vÞ cã thÓ chuyÓn qua c¸c phßng ban kh¸c nh­ng vÉn n»m trong c¬ quan, ®Ó xö lý viÖc thay ®æi nµy b»ng c¸ch ta chØ thay ®æi m· phßng hay m· ban cßn c¸c th«ng tin kh¸c vÉn gi÷ nguyªn. - Th«ng tin vÒ c¸n bé bÞ chÕt ®ét xuÊt, hay th«i viÖc ®©y lµ phÇn thay ®æi mµ kh«ng dù ®o¸n tr­íc ®­îc, viÖc nµy th­êng Ýt x¶y ra nh­ng chóng ta còng cÇn ph¶i tÝnh ®Õn. 1.2. Th«ng tin ra khái hÖ thèng TrÝch yÕu lý lÞch C¸c b¶ng thèng kª theo yªu cÇu cña l·nh ®¹o T×m kiÕm th«ng tin vÒ mét c¸ nh©n nµo ®ã Thèng kª theo dâi nh©n sù toµn c¬ quan Thèng kª vÒ t×nh h×nh häc vÊn Danh s¸ch ®Ò b¹t bæ nhiÖm Thèng kª chøc vô Thèng kª tr×nh ®é chÝnh trÞ Thèng kª tr×nh ®é ngo¹i ng÷ Thèng kª phßng, ban Danh s¸ch CB chuyÓn c«ng t¸c Dach s¸ch CB lªn l­¬ng Danh s¸ch CB nghØ h­u Danh s¸ch CB ®i häc Thèng kª khen th­ëng kû luËt. II. ThiÕt kÕ c¬ së d÷ liÖu cho hÖ thèng qu¶n lý c¸n bé Sù thay ®æi th«ng tin vµo ®Òu ¶nh h­ëng tíi th«ng tin ra khái hÖ thèng. Mäi sù thay ®æi t¹o nªn luång d÷ liÖu mang tÝnh tù nhiªn chÞu sù ¶nh h­ëng cña hÖ thèng DL vµ nh­ vËy ®Ó x©y dùng ®­îc ch­¬ng tr×nh ta cã thÓ chia th«ng tin thµnh nh÷ng tÖp chÝnh gåm: c¸c tËp tin dïng ®Ó l­u gi÷ th«ng tin vµ tËp tin thèng kª ®Þnh kú, t×m kiÕm theo yªu cÇu nµo ®ã cña ng­êi qu¶n lý. Trong hÖ thèng qu¶n lý th«ng tin vÊn ®Ò quan t©m lµ th«ng tin cña hÖ thèng ®­îc lÊy ë ®©u, viÖc khai th¸c DL nh­ thÕ nµo? ng­êi sö dông khai th¸c ch­¬ng tr×nh nh­: nhËp, söa, thªm bít DL do vËy khi thiÕt kÕ File CSDL, chóng ta cÇn quan t©m ®Õn DL nµo cÇn l­u tr÷, kiÓu DL ®­îc l­u tr÷, sè bé nhí giµnh cho nã ®Ó ®ì l·ng phÝ bé nhí. ViÖc t¸ch th«ng tin lµm cho CSDL gän nhÑ h¬n, ®ång thêi viÖc tæ chøc l­u tr÷ th«ng tin khoa häc h¬n dÉn ®Õn c«ng viÖc t×m kiÕm th«ng tin sÏ nhanh h¬n, lµm gi¶m bé nhí vµ tÇn sè truy cËp. H¬n n÷a l­u tr÷ khoa häc sÏ ®ì th«ng tin chång chÐo nhau, th«ng tin kh«ng ®­îc chuÈn ho¸ dÉn ®Õn d­ thõa th«ng tin vµ t×m kiÕm sÏ khã kh¨n vµ thiÕu chÝnh x¸c... Tõ nh÷ng nhËn ®Þnh trªn ta thiÕt kÕ c¸c tr­êng DL t­¬ng øng víi c¸c kiÓu DL nh­ sau: - M· nh©n viªn: Tªn tr­êng lµ MANV cã kiÓu DL lµ Text ®é réng lµ 10. - Tªn phßng ban: Tªn tr­êng lµ: TENPHONG cã kiÓu DL lµ Text ®é réng lµ 20. - Chøc vô: Tªn tr­êng lµ CV cã kiÓu DL lµ Text ®é réng lµ 20. - Hä vµ tªn: Tªn tr­êng lµ HOTEN cã kiÓu DL lµ Text, ®é réng lµ 30. - Ngµy sinh: Tªn tr­êng lµ NSINH cã kiÓu DL lµ Date cã ®é réng lµ 10. - N¬i sinh (n¬i m×nh sinh ra): Tªn tr­êng lµ NOISINH cã kiÓu DL lµ Text cã ®é réng lµ 30. - Quª qu¸n (n¬i sinh cña bè mÑ ®Î): §Ó phï hîp dïng kiÓu DL Text cã ®é réng lµ 30, tªn tr­êng lµ QUEQUAN - Giíi tÝnh: Tªn tr­êng lµ GIOITINH, cã kiÓu DL lµ Text cã ®é réng lµ 3. - N¬i th­êng tró: Tªn tr­êng lµ NOITT, cã kiÓu DL lµ Text cã ®é réng lµ 30. - §Þa chØ liªn l¹c: Tªn tr­êng lµ DIACHI, cã kiÓu DL lµ Text ®é réng lµ 30. - §iÖn tho¹i: Tªn tr­êng lµ §T, cã kiÓu DL lµ Text ®é réng lµ 10. - D©n téc: Tªn tr­êng lµ DANTOC, cã kiÓu DL lµ Text ®é réng 10 (kinh, tµy nïng...). - Tr×nh ®é häc vÊn: Tªn tr­êng lµ TRINHDOHV, cã kiÓu DL lµ Text, ®é réng 30 (12/12, C/m«n KT, Kü s­, gi¸o s­...). - T«n gi¸o: Tªn tr­êng lµ TONGIAO, cã kiÓu DL lµ Text, ®é réng 15 (phËt gi¸o, håi gi¸o, cao ®µi, hoµ h¶o...). - Sè chøng minh nh©n d©n: Tªn tr­êng SOCMND, cã kiÓu DL lµ Text, ®é réng 13. - Ngµy cÊp: Tªn tr­êng lµ NGAYCAP, cã kiÓu DL Date, ®é réng 10. - N¬i cÊp: Tªn tr­êng lµ NOICAP, cã kiÓu DL lµ Text, ®é réng 30 (CA tØnh hoÆc TP trùc thuéc TW....) - Thµnh phÇn gia ®×nh: BÇn n«ng, CB, tiÓu t­ s¶n...cã kiÓu DL Text ®é réng 20, tªn tr­êng lµ THANHPHANG§. - Tr×nh ®é chÝnh trÞ: S¬ cÊp, trung cao cÊp...tªn tr­êng lµ TRINHDOCT, cã kiÓu DL Text ®é réng 15. - Tr×nh ®é ngo¹i ng÷: §H Anh ng÷, Ph¸p ng÷, Trung ng÷, cã kiÓu DL lµ Text, ®é réng lµ 43, tªn tr­êng lµ TRINH§¤NN - Ngµy vµo ngµnh: Tªn tr­êng lµ NGAYVAON cã kiÓu DL lµ Date, ®éng réng 10. - Ngµy vµo §CSVN: Tªn tr­êng lµ NGAYVAO§ kiÓu DL lµ Date, cã ®é réng lµ 40. - Chøc vô: Tªn tr­êng lµ CHUCVU, cã kiÓu DL Text, ®é réng lµ 20 (chøc vô ®¶ng, ®oµn thÓ, nh­: gi¸m ®èc, tr­ëng phßng, bÝ th­...). - BËc l­¬ng (hÖ sè l­¬ng, møc bËc l­¬ng): Cã kiÓu DL NUMBER, ®é réng lµ 8, tr­êng DL lµ BACLUONG - Khen th­ëng (n¨m khen th­ëng, néi dung khen th­ëng, cÊp quyÕt ®Þnh): Tªn tr­êng lµ KHENTHUONG, kiÓu DL lµ Text, ®é réng 30. - Kû luËt (th¸ng, n¨m, h×nh thøc kû luËt, cÊp quyÕt ®Þnh): Tªn tr­êng KYLUAT, kiÓu d÷ liÖu lµ Text, ®é réng. 1.T§NN. MDB (tr×nh ®é ngo¹i ng÷). Do sè ngo¹i ng÷ h¹n chÕ nªn ta dïng ®é réng cña tr­êng nµy lµ 2 vµ nã cã thÓ l­u tr÷ tèi ®a lµ 100 tªn ngo¹i ng÷ kh¸c nhau, tªn tr­êng ngo¹i ng÷ nh­: tiÕng Anh, tiÕng Ph¸p, tiÕng §øc, tiÕng Trung Quèc... vµ tr­êng nµy cã ®é réng lµ 15. STT Tªn tr­êng KiÓu DL §é réng Null Gi¶i thÝch 1 MaNN Text 2 No M· ngo¹i ng÷ 2 T§NN Text 15 No Tªn ngo¹i ng÷ 3 GC Text 255 yes Ghi chó 2.T§HV.MDB (Tr×nh ®é häc vÊn) T­¬ng tù nh­ File T§NN.MDB, ta còng thiÕt kÕ File CSDL nµy cã hai tr­êng. STT Tªn tr­êng KiÓu DL §é réng Gi¶i thÝch 1 MaHV Text 2 M· häc vÊn 2 T§HV Text 15 B»ng cÊp m· CB ®¹t ®­îc 3 GC Text 255 Ghi chó 3.CHUCVU.MDB (Chøc vô). File nµy chøa danh s¸ch c¸c chøc vô t­¬ng ®­¬ng cña CB, gåm cã gi¸ trÞ nh­: Gi¸m ®èc, phã gi¸m ®èc, tr­ëng, phã phßng, c¸n bé, cã 2 tr­êng lµ: M· vµ tªn chøc vô kiÓu DL lµ Text, ®é réng lµ 20. STT Tªn tr­êng KiÓu DL §é réng Gi¶i thÝch 1 MaCV Text 2 M· chøc vô 2 CHUCVU Text 20 Chøc vô 3 GC Text 255 Ghi chó 4.PHONG.MDB (Phßng). File nµy gåm danh s¸ch c¸c phßng trong c¬ quan gåm m· nh©n viªn vµ tªn phßng, cã 2 tr­êng, m· cã ®é réng lµ 2 phßng cã ®é réng lµ 40, cã kiÓu DL lµ Text. STT Tªn tr­êng KiÓu DL §é réng Gi¶i thÝch 1 MaP Text 2 M· phßng 2 PHONG Text 40 Tªn phßng 3 GC Text 255 Ghi chó 5.DT.MDB (D©n téc) T­¬ng tù nh­ File T§NN.MDB, ta còng thiÕt kÕ File CSDL nµy cã hai tr­êng. STT Tªn tr­êng KiÓu DL §é réng Gi¶i thÝch 1 MaDT Text 2 M· d©n téc 2 TDT Text 15 Tªn d©n téc 3 GC Text 255 Ghi chó 6.CT.MDB (ChÝnh trÞ) T­¬ng tù nh­ File T§NN.MDB, ta còng thiÕt kÕ File CSDL nµy cã hai tr­êng. STT Tªn tr­êng KiÓu DL §é réng Gi¶i thÝch 1 MaCT Text 2 M· chÝnh trÞ 2 TCT Text 30 Tªn chÝnh trÞ 3 GC Text 255 Ghi chó 7.HOSOCB.MDB ( Hå s¬ c¸n bé). File HOSOCB (Hå s¬ c¸n bé) lµ File chÝnh cña hÖ thèng qu¶n lý CB, trong hå s¬ chóng ta l­u tr÷ tÊt c¶ c¸c th«ng tin liªn quan ®Õn CB. Do ®ã nã kh¸ lín vµ cång kÒnh nªn ta ph¶i l­îc bít sao cho th«ng tinh l­u tr÷ võa ®ñ nh­ng kh«ng thiÕu vµ c¸c th«ng tin ph¶i ®­îc chuÈn ho¸ hay ®­îc thay thÕ b»ng c¸c m· ®Ó cho DL cµng gän nhÑ. STT Tªn tr­êng KiÓu DL §é réng Gi¶i thÝch 1 Manv Text 10 M· nh©n viªn 2 TenPB Text 20 Tªn phßng ban 3 MaCV Text 2 M· Chøc vô 4 Hoten Text 30 Hä tªn 5 Ngaysinh Date 10 Ngµy sinh 6 Noisinh Text 30 N¬I sinh 7 Quequan Text 30 Quª qu¸n 8 Gioitinh Text 3 Giíi tÝnh 9 Noithuongtru Text 30 N¬I th­êng tró 10 §iachi Text 30 §Þa chØ liªn l¹c 11 Tel Text 10 §iÖn tho¹i 12 MaDT Text 2 M· D©n téc 13 MaTDHV Text 2 M· Tr×nh ®é häc vÊn 14 Tongiao Text 15 T«n gi¸o 15 So CMND Text 15 Sè chøng minh nh©n d©n 16 Ngaycap Date 10 Ngµy cÊp 17 Noicap Text 30 N¬i cÊp 18 Thanhphang® Text 10 Thµnh phÇn gia ®×nh 19 Trinhdoct Text 15 Tr×nh ®é chÝnh trÞ 20 MaNN Text 2 M· Tr×nh ®é ngo¹i ng÷ 21 Ngayvn Date 10 Ngµy vµo ngµnh 22 Ngayvao §CSVN Date 10 Ngµy vµo §¶ng CSVN 23 Chuvu Text 20 Chøc vô hiÖn t¹i 24 Bacluong Text 8 BËc l­¬ng 25 Khenthuong Text 30 Khen th­ëng 26 Kyluat Text 20 Kû luËt 27 Namnghih­u Text 10 N¨m nghØ h­u 28 MaCT Text 2 M· ChÝnh trÞ 3.2. BiÓu ®å thùc thÓ liªn kÕt 3.4. ThiÕt kÕ modul ch­¬ng tr×nh Ch­¬ng tr×nh qu¶n lý c¸n bé bao gåm nhiÒu chøc n¨ng riªng biÖt nh­ ®· ®­îc m­u t¶ trong biÓu ®å chøc n¨ng cña hÖ thèng, nh­ vËy khi thiÕt kÕ ch­¬ng tr×nh qu¶n lý c¸n bé ta thiÕt kÕ tõng modul cho mçi chøc n¨ng t­¬ng øng, nh­ vËy khi ch­¬ng tr×nh lçi sÏ dÔ ph¸t hiÖn vµ söa ch÷a, mçi modul chÝnh ta l¹i chia tiÕp thµnh modul con, cø nh­ vËy cho ®Õn khi kh«ng chia ®­îc n÷a th× dõng. Ch­¬ng 4 ph©n tÝch vµ thiÕt kÕ HÖ thèng I. Môc ®Ých Ph©n tÝch lµ c«ng viÖc ®Çu tiªn kh«ng thÓ thiÕu ®­îc trong qu¸ tr×nh x©y dùng hÖ qu¶n trÞ trªn m¸y tÝnh. Kh«ng thÓ ®­a tin häc hãa trong vÊn ®Ò qu¶n lý mµ kh«ng qua giai ®o¹n ph©n tÝch. HiÖu qu¶ ®em l¹i cña hÖ thèng phô thuéc vµo ®é n«ng s©u cña kÕt qu¶ ph©n tÝch ban ®Çu Môc ®Ých cña nã lµ x¸c ®Þnh xem bé phËn nµo cña hÖ thèng nªn xö lý b»ng m¸y tÝnh, vµ bé phËn nµo ®ã con ng­êi thùc hiÖn. Tæng quan vÒ c¸c c«ng t¸c qu¶n lý ë trªn, ta thÊy r»ng ch­¬ng tr×nh qu¶n lý nh©n sù khi ch­a sö dông m¸y tÝnh, c¸c c«ng cô nh­ thªm nh©n viªn, thªm nh©n viªn… ®Òu do con ng­êi lµm, nªn viÖc nhËp thªm, l­u tr÷ vµ t×m kiÕm rÊt khã kh¨n v× sè l­îng TÝnh to¸n rÊt lín. S¬ ®å chøc n¨ng cña hÖ thèng qu¶n lý c¸n bé Qu¶n lý CB CËp nhËt Tra cøu B¸o c¸o Hå s¬ Hä vµ tªn Danh s¸ch CB phßng Danh môc phßng ban Chøc vô Danh s¸ch CB lªn l­¬ng Danh môc chøc vô Tra cøu theo yªu cÇu Danh s¸ch CB nghØ h­u In CB chuyÓn CT Danh môc tr×nh ®é Thay ®æi nh©n sù Tho¸t II. S¬ ®å luång d÷ liÖu §Ó x¸c ®Þnh ®­îc yªu cÇu cña c«ng viÖc th× ng­êi ta ph¶i ph©n tÝch s¬ ®å luång d÷ liÖu, s¬ ®å luång d÷ liÖu nªu ra mét m« h×nh vÒ hÖ thèng th«ng tin chuyÓn vËn qua c¸c qu¸ tr×nh hoÆc c¸c chøc n¨ng kh¸c nhau. §iÒu quan träng lµ ph¶i cã s½n c¸c th«ng tin vµo vµ biÕt ®­îc yªu cÇu cña th«ng tin ra tr­íc khi cho thùc hiÖn mét qu¸ tr×nh. C¸c thµnh phÇn cña biÓu ®å luång d÷ liÖu · C¸c chøc n¨ng xö lý: Lµ c¸c chøc n¨ng dïng ®Ó chØ ra mét chøc n¨ng hay mét qu¸ tr×nh. Chøc n¨ng quan träng trong m« h×nh luång d÷ liÖu lµ biÕn ®æi th«ng tin tõ ®Çu vµo theo mét c¸ch nµo ®ã. · T¸c nh©n ngoµi: Lµ mét ng­êi, mét nhãm ng­êi ë bªn ngoµi lÜnh vùc nghiªn cøu cña hÖ thèng, nh­ng cã trao ®æi th«ng tin vÒ hÖ thèng. · T¸c nh©n trong: Lµ mét chøc n¨ng hoÆc mét qu¸ tr×nh ë bªn trong hÖ thèng ®­îc m« t¶ ë trang kh¸c cña biÓu ®å, nh­ng cã trao ®æi th«ng tin víi hÖ thèng. · Luång d÷ liÖu: Lµ luång th«ng tin vµo ra cña mét qu¸ tr×nh hoÆc mét chøc n¨ng xö lý, mòi tªn chØ ra h­íng cña luång th«ng tin. · Kho d÷ liÖu: Lµ luång th«ng tin l­u tr÷ trong mét kho¶ng thêi gian ®Ó mét hoÆc nhiÒu chøc n¨ng truy nhËp vµo, chóng cã thÓ lµ c¸c tÖp d÷ liÖu ®­îc l­u trong m¸y tÝnh. 1. BiÓu ®å luång DL møc ng÷ c¶nh B¸o c¸o Ban tæ chøc CB TT thay ®æi NS HÖ thèng qu¶n lý c¸n bé T.tin tra cøu T.tin vÒ CB C¸n bé BiÓu ®å møc ng÷ c¶nh cho chóng ta thÊy c¸i nh×n kh¸i qu¸t cña hÖ thèng. §©y lµ giai ®o¹n ho¹ch ®Þnh ban ®Çu cña qu¸ tr×nh ph©n tÝch ®­îc dïng ®Ó v¹ch ph¹m vi ho¹t ®éng cña hÖ thèng, nã bao gåm c¸c thµnh phÇn nh­ sau: - T¸c nh©n ngoµi hÖ thèng. - HÖ thèng * T¸c nh©n ngoµi "C¸n bé" cña hÖ thèng nh©n sù, cung cÊp cho ta nh÷ng th«ng tin trong hå s¬ c¸n bé, th«ng tin nµy ®­îc cËp nhËt vµo hÖ thèng l­u tr÷ vµ xö lý DL. * T¸c nh©n ngoµi "Phßng tæ chøc" ®­a vµo nh÷ng th«ng tin yªu cÇu ®èi víi hÖ thèng nh­: in danh s¸ch nh÷ng c¸n bé, thèng kª nh÷ng c¸n bé cã ®é tuæi < 40, tr¶ l¹i nh÷ng thèng kª, b¸o c¸o theo yªu cÇu cña cÊp trªn. 2. BiÓu ®å luång DL chøc n¨ng cña hÖ thèng møc ®Ønh. Phßng tæ chøc C¸n bé 1. NhËp d÷ liÖu 3. B¸o c¸o Hå s¬ Thay ®æi nh©n sù B¸o c¸o Hå s¬ D÷ liÖu ®· xö lý 2. Tra cøu yªu cÇu TT sau tra cøu Cho ta thÊy ®­îc c¸c chøc n¨ng chÝnh cña hÖ thèng, gåm phÇn DL tra cøu, thèng kª theo ®Þnh kú. Chøc n¨ng nhËp DL lµm nhiÖm vô nhËp c¸c th«ng tin vÒ CB vµo File HOSOCB, cã kiÓm tra DL tr­íc khi nhËp vµ nhËp c¸c danh môc phô trî nh­: danh s¸ch phßng, ®¬n vÞ, chøc vô..., chøc n¨ng nµy rÊt quan träng v× DL cã chÝnh x¸c hay kh«ng, c¸ch l­u tr÷ th«ng tin cã khoa häc hay kh«ng ®Òu ¶nh h­ëng rÊt lín ®Õn qu¸ tr×nh khai th¸c th«ng tin sau nµy. Chøc n¨ng tra cøu: Dïng ®Ó phô cho viÖc tra cøu t×m kiÕm do l·nh ®¹o yªu cÇu. Th«ng tin phôc vô cho viÖc tra cøu gåm c¸c File CSDL mµ hÖ thèng ®ang l­u tr÷ mµ c¸c yªu cÇu mµ ng­êi sö dông ®­a vµo hÖ thèng.Chøc n¨ng nhËp danh s¸ch b¸o c¸o th«ng th­êng ®­îc chia lµm 2 lo¹i: lo¹i thø nhÊt lµ chÕ ®é thèng kª th­êng xuyªn cã thÓ bÊt cø lóc nµo mµ l·nh ®¹o yªu cÇu, lo¹i nµy th«ng tin th­êng phong phó v× cã sù kÕt hîp gi÷a th«ng tin l­u tr÷ vµ th«ng tin yªu cÇu. Lo¹i thø hai lµ thèng kª theo ®Þnh kú, th¸ng, quý, n¨m nã mang tÝnh æn ®Þnh. BiÓu ®å dßng d÷ liÖu møc 1 chøc n¨ng nhËp Ban tæ chøc c¸n bé Hå s¬ c¸n bé 1.1 NhËp, söa d÷ liÖu 1.2 danh môc chøc vô Danh môc Hå s¬ c¸n bé T.tin vÒ c¸n bé Yªu cÇu söa ®æi D÷ liÖu D÷ liÖu D÷ liÖu 1.3 danh môc PB D÷ liÖu T.tin T.tin 1.4 danh môc T§ D÷ liÖu T.tin S¬ ®å dßng d÷ liÖu møc 2 chøc n¨ng tra cøu Ban tæ chøc CB Tra cøu theo tªn Tra cøu theo yªu cÇu Hå s¬ Tr¶ lêi Tra cøu theo CV Tr¶ lêi Yªu cÇu Tr¶ lêi D÷ liÖu D÷ liÖu Yªu cÇu Yªu cÇu BiÓu ®å dßng d÷ liÖu møc 3 chøc n¨ng b¸o c¸o DS c¸n bé lªn l­¬ng DS c¸n bé ®¬n vÞ TK theo chøc vô In CB chuyÓn c.t¸c DS c¸n bé lªn l­¬ng DS c¸n bé cña ®¬n vÞ T. kª theo chøc vô In CB chuyÓn ®æi Phßng tæ chøc c¸n bé DL ®· qua xö lý DL ®· qua xö lý DL ®· qua xö lý Hå s¬ c¸n bé Yªu cÇu Yªu cÇu DL ®· qua xö lý Hå s¬ c¸n bé Hå s¬ c¸n bé Ch­¬ng V C¸c form chÝnh vµ code ch­¬ng tr×nh I . Mét sè form chÝnh cña ch­¬ng tr×nh 1. Form th«ng tin vÒ c¸ nh©n H×nh 2: Giao diÖn form-th«ng tin tõng c¸ nh©n 2. Form th«ng tin vÒ tr×nh ®é häc vÊn H×nh 3: Giao diÖn form-thèng kª vÒ tr×nh ®é häc vÊn 3. Form th«ng tin vÒ c¸n bé ®i häc H×nh 4: Giao diÖn form-danh s¸ch c¸n bé ®i häc 4 Form danh s¸ch c¸n bé lªn l­¬ng H×nh 5: Giao diÖn form-danh s¸ch c¸n bé lªn l­¬ng 5. Form danh s¸ch c¸n bé nghØ h­u H×nh 6: Giao diÖn form-danh s¸ch c¸n bé nghØ h­u II. Mét sè Code cña ch­¬ng tr×nh Option Explicit Dim nut As Integer Private Sub CboChucvu_GotFocus() CboChucvu.SelStart = 0 CboChucvu.SelLength = Len(CboChucvu.Text) End Sub Private Sub CboHovaten_Click(Area As Integer) AdoDihoc.Recordset.MoveFirst Do Until AdoDihoc.Recordset.EOF If AdoDihoc.Recordset.Fields(0).Value = CboHovaten.BoundText Then CboMahoso.Text = AdoDihoc.Recordset.Fields(0).Value TxtNgaysinh.Text = AdoDihoc.Recordset.Fields(2).Value CboPhong.Text = AdoDihoc.Recordset.Fields("Phßng").Value CboChucvu.Text = AdoDihoc.Recordset.Fields("Chøc vô").Value TxtKhenthuong.Text = AdoDihoc.Recordset.Fields("Khen th­ëng").Value TxtKyluat.Text = AdoDihoc.Recordset.Fields("Kû luËt").Value Exit Do End If AdoDihoc.Recordset.MoveNext Loop End Sub Private Sub CboHovaten_GotFocus() CboHovaten.SelStart = 0 CboHovaten.SelLength = Len(CboHovaten.Text) End Sub Private Sub CboMahoso_Click(Area As Integer) AdoDihoc.Recordset.MoveFirst Do Until AdoDihoc.Recordset.EOF If AdoDihoc.Recordset.Fields(0).Value = CboMahoso.BoundText Then CboHovaten.Text = AdoDihoc.Recordset.Fields(1).Value TxtNgaysinh.Text = AdoDihoc.Recordset.Fields(2).Value CboPhong.Text = AdoDihoc.Recordset.Fields("Phßng").Value CboChucvu.Text = AdoDihoc.Recordset.Fields("Chøc vô").Value TxtKhenthuong.Text = AdoDihoc.Recordset.Fields("Khen th­ëng").Value TxtKyluat.Text = AdoDihoc.Recordset.Fields("Kû luËt").Value Exit Do End If AdoDihoc.Recordset.MoveNext Loop End Sub Private Sub CboMahoso_GotFocus() CboMahoso.SelStart = 0 CboMahoso.SelLength = Len(CboMahoso.Text) End Sub Private Sub CboPhong_GotFocus() CboPhong.SelStart = 0 CboPhong.SelLength = Len(CboPhong.Text) End Sub Private Sub CmdCapnhat_Click() Dim db As Database Dim rs As Recordset Set db = OpenDatabase(App.Path & "\nhansu.mdb") Set rs = db.OpenRecordset("Dihoc") Select Case nut Case 1: On Error GoTo loi1: If (IsNull(TxtNganhhoc.Text)) Or (IsNull(TxtTruonghoc.Text)) Then MsgBox "D÷ liÖu b¹n ®­a vµo bÞ sai", vbOKOnly + vbCritical, "KiÓm tra" CboMahoso.SetFocus Exit Sub End If rs.AddNew rs.Fields(0).Value = UCase(CboMahoso.Text) rs.Fields(1).Value = CboHovaten.Text rs.Fields(2).Value = TxtNgaysinh.Text rs.Fields(3).Value = CboPhong.Text rs.Fields(4).Value = CboChucvu.Text rs.Fields(5).Value = TxtKhenthuong.Text rs.Fields(6).Value = TxtKyluat.Text rs.Fields(7).Value = TxtNganhhoc.Text rs.Fields(8).Value = TxtTruonghoc.Text rs.Fields(9).Value = TxtNgayth.Text rs.Update Data1.Refresh Data1.Recordset.MoveLast Call Capnhat Exit Sub loi1: MsgBox "D÷ liÖu b¹n ®­a vµo bÞ sai", vbOKOnly + vbCritical, "KiÓm tra" CboMahoso.SetFocus Case 2: On Error GoTo loi2: rs.MoveFirst Do Until rs.EOF If rs.Fields(0).Value = CboMahoso.Text Then rs.Delete End If rs.MoveNext Loop Data1.Refresh Call Capnhat Exit Sub loi2: MsgBox "D÷ liÖu b¹n ®­a vµo bÞ sai", vbOKOnly + vbCritical, "KiÓm tra" CboMahoso.SetFocus Case Else: MsgBox "B¹n ch­a chän tr¹ng th¸i ho¹t ®éng cña hÖ thèng", vbOKOnly + vbInformation, "Th«ng b¸o" End Select End Sub Private Sub CmdDuyet_Click(Index As Integer) Select Case Index Case 0 Data1.Recordset.MoveFirst Case 1 Data1.Recordset.MovePrevious If Data1.Recordset.BOF Then Data1.Recordset.MoveFirst End If Case 2 Data1.Recordset.MoveNext If Data1.Recordset.EOF Then Data1.Recordset.MoveLast End If Case 3 Data1.Recordset.MoveLast End Select Call Capnhat End Sub Private Sub CmdIn_Click() RptDihoc.Label7.Caption = RptDihoc.Label7.Caption & Mid(TxtNgayth.Text, 7, 4) RptDihoc.Show End Sub Private Sub CmdThem_Click() CboMahoso.Enabled = True CboHovaten.Enabled = True TxtNgaysinh.Enabled = True CboPhong.Enabled = True CboChucvu.Enabled = True TxtKhenthuong.Enabled = True TxtKyluat.Enabled = True TxtNganhhoc.Enabled = True TxtTruonghoc.Enabled = True MDIHethong.StatusBar1.Panels(2).Text = "Thªm d÷ liÖu" CboMahoso.SetFocus nut = 1 End Sub Private Sub CmdThoat_Click() Unload Me End Sub Private Sub CmdThoat_LostFocus() CboMahoso.SetFocus End Sub Private Sub CmdXoa_Click() CboMahoso.Enabled = True CboHovaten.Enabled = False TxtNgaysinh.Enabled = False CboPhong.Enabled = False CboChucvu.Enabled = False TxtKhenthuong.Enabled = False TxtKyluat.Enabled = False TxtNganhhoc.Enabled = False TxtTruonghoc.Enabled = False MDIHethong.StatusBar1.Panels(2).Text = "Xo¸ d÷ liÖu" CboMahoso.SetFocus nut = 2 End Sub Private Sub Form_Load() Dim s As String AdoDihoc.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=" & App.Path & "\nhansu.mdb" AdoDihoc.RecordSource = "Select * from QHoso" AdoDihoc.Refresh AdoPhong.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=" & App.Path & "\nhansu.mdb" AdoPhong.RecordSource = "Select * from QPhong" AdoPhong.Refresh AdoChucvu.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=" & App.Path & "\nhansu.mdb" AdoChucvu.RecordSource = "Select * from QChucvu" AdoChucvu.Refresh Data1.DatabaseName = App.Path & "\nhansu.mdb" Data1.RecordSource = "QDihoc" Data1.Refresh Call Capnhat MDIHethong.StatusBar1.Panels(2).Text = "Danh s¸ch c¸n bé ®i häc" On Error GoTo loi CboMahoso.Text = Data1.Recordset.Fields(0).Value CboHovaten.Text = Data1.Recordset.Fields(1).Value If Not IsNull(Data1.Recordset.Fields(2).Value) Then TxtNgaysinh.Text = Data1.Recordset.Fields(2).Value End If CboPhong.Text = Data1.Recordset.Fields(3).Value CboChucvu.Text = Data1.Recordset.Fields(4).Value TxtKhenthuong.Text = Data1.Recordset.Fields(5).Value TxtKyluat.Text = Data1.Recordset.Fields(6).Value TxtNganhhoc.Text = Data1.Recordset.Fields(7).Value TxtTruonghoc.Text = Data1.Recordset.Fields(8).Value If Not IsNull(Data1.Recordset.Fields(9).Value) Then TxtNgayth.Text = Data1.Recordset.Fields(9).Value End If loi: End Sub Private Sub Form_Unload(Cancel As Integer) MDIHethong.StatusBar1.Panels(2).Text = "" End Sub Private Sub GrdHoso_Click() On Error GoTo loi CboMahoso.Text = Data1.Recordset.Fields(0).Value CboHovaten.Text = Data1.Recordset.Fields(1).Value If Not IsNull(Data1.Recordset.Fields(2).Value) Then TxtNgaysinh.Value = Data1.Recordset.Fields(2).Value End If CboPhong.Text = Data1.Recordset.Fields(3).Value CboChucvu.Text = Data1.Recordset.Fields(4).Value TxtKhenthuong.Text = Data1.Recordset.Fields(5).Value TxtKyluat.Text = Data1.Recordset.Fields(6).Value TxtNganhhoc.Text = Data1.Recordset.Fields(7).Value TxtTruonghoc.Text = Data1.Recordset.Fields(8).Value If Not IsNull(Data1.Recordset.Fields(9).Value) Then TxtNgayth.Value = Data1.Recordset.Fields(9).Value End If loi: End Sub Private Sub TxtKhenthuong_GotFocus() TxtKhenthuong.SelStart = 0 TxtKhenthuong.SelLength = Len(TxtKhenthuong.Text) End Sub Private Sub TxtKyluat_GotFocus() TxtKyluat.SelStart = 0 TxtKyluat.SelLength = Len(TxtKyluat.Text) End Sub Private Sub TxtNganhhoc_GotFocus() TxtNganhhoc.SelStart = 0 TxtNganhhoc.SelLength = Len(TxtNganhhoc.Text) End Sub Private Sub TxtNgaysinh_GotFocus() TxtNgaysinh.SelStart = 0 TxtNgaysinh.SelLength = Len(TxtNgaysinh.Text) End Sub Private Sub TxtNgayth_GotFocus() TxtNgayth.SelStart = 0 TxtNgayth.SelLength = Len(TxtNgayth.Text) End Sub Private Sub TxtTruonghoc_GotFocus() TxtTruonghoc.SelStart = 0 TxtTruonghoc.SelLength = Len(TxtTruonghoc.Text) End Sub Sub Capnhat() On Error GoTo loi CboMahoso.Text = Data1.Recordset.Fields(0).Value CboHovaten.Text = Data1.Recordset.Fields(1).Value If Not IsNull(Data1.Recordset.Fields(2).Value) Then TxtNgaysinh.Value = Data1.Recordset.Fields(2).Value End If CboPhong.Text = Data1.Recordset.Fields(3).Value CboChucvu.Text = Data1.Recordset.Fields(4).Value TxtKhenthuong.Text = Data1.Recordset.Fields(5).Value TxtKyluat.Text = Data1.Recordset.Fields(6).Value TxtNganhhoc.Text = Data1.Recordset.Fields(7).Value TxtTruonghoc.Text = Data1.Recordset.Fields(8).Value If Not IsNull(Data1.Recordset.Fields(9).Value) Then TxtNgayth.Value = Data1.Recordset.Fields(9).Value End If loi: End Sub Option Explicit Dim nut As Integer Private Sub CmdCapnhat_Click() Dim db As Database Dim rs As Recordset Set db = OpenDatabase(App.Path & "\nhansu.mdb") Set rs = db.OpenRecordset("donvi") Select Case nut Case 1: On Error GoTo loi1 rs.AddNew rs.Fields(0).Value = UCase(Txtmadonvi.Text) rs.Fields(1).Value = Txtdonvi.Text rs.Fields(2).Value = Txtghichu.Text rs.Update Data1.Refresh Data1.Recordset.MoveLast Call Capnhat Exit Sub loi1: MsgBox "D÷a liÖu b¹n nhËp vµo bÞ sai", vbOKOnly + vbCritical, "KiÓm tra" Case 2: On Error GoTo loi2 rs.MoveFirst Do Until rs.EOF If rs.Fields(0).Value = Txtmadonvi.Text Then rs.Delete End If rs.MoveNext Loop Data1.Refresh Call Capnhat Exit Sub loi2: MsgBox "D÷a liÖu b¹n nhËp vµo bÞ sai", vbOKOnly + vbCritical, "KiÓm tra" Case 3: On Error GoTo loi3 rs.MoveFirst Do Until rs.EOF If rs.Fields(0).Value = Txtmadonvi.Text Then rs.Edit rs.Fields(1).Value = Txtdonvi.Text rs.Fields(2).Value = Txtghichu.Text rs.Update End If rs.MoveNext Loop Data1.Refresh Call Capnhat Exit Sub loi3: MsgBox "D÷a liÖu b¹n nhËp vµo bÞ sai", vbOKOnly + vbCritical, "KiÓm tra" Case Else MsgBox "B¹n ch­a chän tr¹ng th¸i ho¹t ®éng", vbOKOnly + vbCritical, "KiÓm tra" End Select End Sub Private Sub CmdDuyet_Click(Index As Integer) Select Case Index Case 0 Data1.Recordset.MoveFirst Case 1 Data1.Recordset.MovePrevious If Data1.Recordset.BOF Then Data1.Recordset.MoveFirst End If Case 2 Data1.Recordset.MoveNext If Data1.Recordset.EOF Then Data1.Recordset.MoveLast End If Case 3 Data1.Recordset.MoveLast End Select Call Capnhat End Sub Private Sub CmdSua_Click() Txtmadonvi.Enabled = True Txtdonvi.Enabled = True Txtghichu.Enabled = True nut = 3 MDIHethong.StatusBar1.Panels(2).Text = "Söa d÷ liÖu" End Sub Private Sub CmdThem_Click() Txtmadonvi.Enabled = True Txtdonvi.Enabled = True Txtghichu.Enabled = True nut = 1 MDIHethong.StatusBar1.Panels(2).Text = "Thªm d÷ liÖu" End Sub Private Sub CmdThoat_Click() Unload Me End Sub Private Sub CmdThoat_LostFocus() Txtmadonvi.SetFocus End Sub Private Sub CmdXoa_Click() Txtmadonvi.Enabled = True Txtdonvi.Enabled = False Txtghichu.Enabled = False nut = 2 MDIHethong.StatusBar1.Panels(2).Text = "Xo¸ d÷ liÖu" End Sub Private Sub DBGrid1_Click() On Error GoTo loi Txtmadonvi.Text = Data1.Recordset.Fields(0).Value Txtdonvi.Text = Data1.Recordset.Fields(1).Value Txtghichu.Text = Data1.Recordset.Fields(2).Value loi: End Sub Private Sub Form_Load() Data1.DatabaseName = App.Path & "\nhansu.mdb" Data1.RecordSource = "qdonvi" Data1.Refresh Call Capnhat DBGrid1.Columns(1).Width = 2000 DBGrid1.Columns(2).Width = 3000 End Sub Private Sub Form_Unload(Cancel As Integer) MDIHethong.StatusBar1.Panels(2).Text = "" End Sub Private Sub Txtdonvi_GotFocus() Txtdonvi.SelStart = 0 Txtdonvi.SelLength = Len(Txtdonvi.Text) End Sub Private Sub Txtghichu_GotFocus() Txtghichu.SelStart = 0 Txtghichu.SelLength = Len(Txtghichu.Text) End Sub Private Sub Txtmadonvi_GotFocus() Txtmadonvi.SelStart = 0 Txtmadonvi.SelLength = Len(Txtmadonvi.Text) End Sub Sub Capnhat() On Error GoTo loi Txtmadonvi.Text = Data1.Recordset.Fields(0).Value Txtdonvi.Text = Data1.Recordset.Fields(1).Value Txtghichu.Text = Data1.Recordset.Fields(2).Value loi: End Sub Option Explicit Dim nut As Integer Private Sub CboChinhtri_GotFocus() CboChinhtri.SelStart = 0 CboChinhtri.SelLength = Len(CboChinhtri.Text) End Sub Private Sub CboChucvu_GotFocus() CboChucvu.SelStart = 0 CboChucvu.SelLength = Len(CboChucvu.Text) End Sub Private Sub CboChucvuht_GotFocus() CboChucvuht.SelStart = 0 CboChucvuht.SelLength = Len(CboChucvuht.Text) End Sub Private Sub CboDantoc_GotFocus() CboDantoc.SelStart = 0 CboDantoc.SelLength = Len(CboDantoc.Text) End Sub 'Private Sub CboDonvi_Click(Area As Integer) 'CboDonvi.SelStart = 0 'CboDonvi.SelLength = Len(CboDonvi.Text) 'End Sub Private Sub CboHocvan_GotFocus() CboHocvan.SelStart = 0 CboHocvan.SelLength = Len(CboHocvan.Text) End Sub Private Sub CboNgoaingu_GotFocus() CboNgoaingu.SelStart = 0 CboNgoaingu.SelLength = Len(CboNgoaingu.Text) End Sub Private Sub CboPhong_GotFocus() CboPhong.SelStart = 0 CboPhong.SelLength = Len(CboPhong.Text) End Sub Private Sub CmdCapnhat_Click() Dim db As Database Dim rs As Recordset Set db = OpenDatabase(App.Path & "\nhansu.mdb") Set rs = db.OpenRecordset("hoso") Select Case nut Case 1: On Error GoTo loi1 rs.AddNew rs.Fields(0).Value = UCase(Txtmahoso.Text) rs.Fields(1).Value = Txthovaten.Text rs.Fields(2).Value = TxtNgaysinh.Text rs.Fields(3).Value = ChkGioitinh.Value rs.Fields(4).Value = Txtnoisinh.Text rs.Fields(5).Value = TxtQue.Text rs.Fields(6).Value = TxtNoithuongtru.Text rs.Fields(7).Value = TxtDiachi.Text rs.Fields(8).Value = TxtSDT.Text rs.Fields(9).Value = CboDantoc.BoundText rs.Fields(10).Value = CboHocvan.BoundText rs.Fields(11).Value = TxtTongiao.Text rs.Fields(12).Value = TxtSoCMND.Text rs.Fields(13).Value = TxtNgaycap.Text rs.Fields(14).Value = TxtNoicap.Text rs.Fields(15).Value = TxtThanhphangd.Text rs.Fields(16).Value = CboChinhtri.BoundText rs.Fields(17).Value = CboNgoaingu.BoundText rs.Fields(18).Value = TxtNgayvaonganh.Text If TxtNgayvaodang.Text "__/__/____" Then rs.Fields(19).Value = TxtNgayvaodang.Text End If rs.Fields(20).Value = CboPhong.BoundText rs.Fields(21).Value = CboChucvu.BoundText rs.Fields(22).Value = CboChucvuht.BoundText rs.Fields(23).Value = TxtBacluong.Text rs.Fields(24).Value = TxtKhenthuong.Text rs.Fields(25).Value = TxtKyluat.Text 'rs.Fields(26).Value = CboDonvi.BoundText rs.Fields(26).Value = Val(TxtNamnghihuu.Text) rs.Update Data1.Refresh Data1.Recordset.MoveLast Call Capnhat Exit Sub loi1: MsgBox "D÷a liÖu b¹n nhËp vµo bÞ sai", vbOKOnly + vbCritical, "KiÓm tra" Case 2: On Error GoTo loi2 rs.MoveFirst Do Until rs.EOF If rs.Fields(0).Value = Txtmahoso.Text Then rs.Delete End If rs.MoveNext Loop Data1.Refresh Call Capnhat Exit Sub loi2: MsgBox "D÷a liÖu b¹n nhËp vµo bÞ sai", vbOKOnly + vbCritical, "KiÓm tra" Case 3: On Error GoTo loi3 rs.MoveFirst Do Until rs.EOF If rs.Fields(0).Value = Txtmahoso.Text Then rs.Edit rs.Fields(1).Value = Txthovaten.Text rs.Fields(2).Value = TxtNgaysinh.Text rs.Fields(3).Value = ChkGioitinh.Value rs.Fields(4).Value = Txtnoisinh.Text rs.Fields(5).Value = TxtQue.Text rs.Fields(6).Value = TxtNoithuongtru.Text rs.Fields(7).Value = TxtDiachi.Text rs.Fields(8).Value = TxtSDT.Text rs.Fields(9).Value = CboDantoc.BoundText rs.Fields(10).Value = CboHocvan.BoundText rs.Fields(11).Value = TxtTongiao.Text rs.Fields(12).Value = TxtSoCMND.Text rs.Fields(13).Value = TxtNgaycap.Text rs.Fields(14).Value = TxtNoicap.Text rs.Fields(15).Value = TxtThanhphangd.Text rs.Fields(16).Value = CboChinhtri.BoundText rs.Fields(17).Value = CboNgoaingu.BoundText rs.Fields(18).Value = TxtNgayvaonganh.Text If TxtNgayvaodang.Text "__/__/____" Then rs.Fields(19).Value = TxtNgayvaodang.Text End If rs.Fields(20).Value = CboPhong.BoundText rs.Fields(21).Value = CboChucvu.BoundText rs.Fields(22).Value = CboChucvuht.BoundText rs.Fields(23).Value = TxtBacluong.Text rs.Fields(24).Value = TxtKhenthuong.Text rs.Fields(25).Value = TxtKyluat.Text 'rs.Fields(26).Value = CboDonvi.BoundText rs.Fields(26).Value = Val(TxtNamnghihuu.Text) rs.Update End If rs.MoveNext Loop Data1.Refresh Call Capnhat Exit Sub loi3: MsgBox "D÷a liÖu b¹n nhËp vµo bÞ sai", vbOKOnly + vbCritical, "KiÓm tra" Case Else MsgBox "B¹n ch­a chän tr¹ng th¸i ho¹t ®éng", vbOKOnly + vbCritical, "KiÓm tra" End Select End Sub Private Sub CmdDuyet_Click(Index As Integer) Select Case Index Case 0 Data1.Recordset.MoveFirst Case 1 Data1.Recordset.MovePrevious If Data1.Recordset.BOF Then Data1.Recordset.MoveFirst End If Case 2 Data1.Recordset.MoveNext If Data1.Recordset.EOF Then Data1.Recordset.MoveLast End If Case 3 Data1.Recordset.MoveLast End Select Call Capnhat End Sub Private Sub CmdIn_Click() 'rpt Dim db As Database Dim rs As Recordset Dim rs1 As Recordset Dim s As String s = "Delete * from Hoso1" Set db = OpenDatabase(App.Path & "\nhansu.mdb") Set rs = db.OpenRecordset("QHoso") Set rs1 = db.OpenRecordset("Hoso1") db.Execute s rs.MoveFirst Do Until rs.EOF rs1.AddNew rs1.Fields(0).Value = rs.Fields("Hä vµ tªn").Value rs1.Fields(1).Value = Year(rs.Fields("Ngµy sinh").Value) rs1.Fields(2).Value = rs.Fields("Quª").Value rs1.Fields(3).Value = rs.Fields("N¬i th­êng tró").Value If rs.Fields("Giíi tÝnh").Value = 1 Then rs1.Fields(4).Value = "Nam" Else rs1.Fields(4).Value = "N÷" End If rs1.Fields(5).Value = rs.Fields("Chøc vô").Value rs1.Fields(6).Value = rs.Fields("Häc vÊn").Value rs1.Update rs.MoveNext Loop RptNhansu.Show End Sub Private Sub CmdSua_Click() Call Capnhat Txtmahoso.Enabled = True Txthovaten.Enabled = True TxtNgaysinh.Enabled = True ChkGioitinh.Enabled = True Txtnoisinh.Enabled = True TxtQue.Enabled = True TxtNoithuongtru.Enabled = True TxtDiachi.Enabled = True TxtSDT.Enabled = True CboDantoc.Enabled = True CboHocvan.Enabled = True TxtTongiao.Enabled = True TxtSoCMND.Enabled = True TxtNgaycap.Enabled = True TxtNoicap.Enabled = True TxtThanhphangd.Enabled = True CboChinhtri.Enabled = True CboNgoaingu.Enabled = True TxtNgayvaonganh.Enabled = True TxtNgayvaodang.Enabled = True CboPhong.Enabled = True CboChucvu.Enabled = True CboChucvuht.Enabled = True TxtBacluong.Enabled = True TxtKhenthuong.Enabled = True TxtKyluat.Enabled = True 'CboDonvi.Enabled = True TxtNamnghihuu.Enabled = True nut = 3 MDIHethong.StatusBar1.Panels(2).Text = "Söa d÷ liÖu" Txtmahoso.SetFocus End Sub Private Sub CmdThem_Click() Call Capnhat Txtmahoso.Enabled = True Txthovaten.Enabled = True TxtNgaysinh.Enabled = True ChkGioitinh.Enabled = True Txtnoisinh.Enabled = True TxtQue.Enabled = True TxtNoithuongtru.Enabled = True TxtDiachi.Enabled = True TxtSDT.Enabled = True CboDantoc.Enabled = True CboHocvan.Enabled = True TxtTongiao.Enabled = True TxtSoCMND.Enabled = True TxtNgaycap.Enabled = True TxtNoicap.Enabled = True TxtThanhphangd.Enabled = True CboChinhtri.Enabled = True CboNgoaingu.Enabled = True TxtNgayvaonganh.Enabled = True TxtNgayvaodang.Enabled = True CboPhong.Enabled = True CboChucvu.Enabled = True CboChucvuht.Enabled = True TxtBacluong.Enabled = True TxtKhenthuong.Enabled = True TxtKyluat.Enabled = True 'CboDonvi.Enabled = True TxtNamnghihuu.Enabled = True nut = 1 MDIHethong.StatusBar1.Panels(2).Text = "Thªm d÷ liÖu" Txtmahoso.SetFocus End Sub Private Sub CmdThoat_Click() Unload Me End Sub Private Sub CmdThoat_LostFocus() Txtmahoso.SetFocus End Sub Private Sub CmdXoa_Click() 'Call Capnhat Txtmahoso.Enabled = True Txthovaten.Enabled = False TxtNgaysinh.Enabled = False ChkGioitinh.Enabled = False Txtnoisinh.Enabled = False TxtQue.Enabled = False TxtNoithuongtru.Enabled = False TxtDiachi.Enabled = False TxtSDT.Enabled = False CboDantoc.Enabled = False CboHocvan.Enabled = False TxtTongiao.Enabled = False TxtSoCMND.Enabled = False TxtNgaycap.Enabled = False TxtNoicap.Enabled = False TxtThanhphangd.Enabled = False CboChinhtri.Enabled = False CboNgoaingu.Enabled = False TxtNgayvaonganh.Enabled = False TxtNgayvaodang.Enabled = False CboPhong.Enabled = False CboChucvu.Enabled = False CboChucvuht.Enabled = False TxtBacluong.Enabled = False TxtKhenthuong.Enabled = False TxtKyluat.Enabled = False 'CboDonvi.Enabled = False TxtNamnghihuu.Enabled = False nut = 2 MDIHethong.StatusBar1.Panels(2).Text = "Xo¸ d÷ liÖu" Txtmahoso.SetFocus End Sub Private Sub DBGrid1_Click() On Error GoTo loi Txtmahoso.Text = Data1.Recordset.Fields(0).Value Txthovaten.Text = Data1.Recordset.Fields(1).Value TxtNgaysinh.Value = Data1.Recordset.Fields(2).Value ChkGioitinh.Value = Data1.Recordset.Fields(3).Value Txtnoisinh.Text = Data1.Recordset.Fields(4).Value TxtQue.Text = Data1.Recordset.Fields(5).Value TxtNoithuongtru.Text = Data1.Recordset.Fields(6).Value TxtDiachi.Text = Data1.Recordset.Fields(7).Value TxtSDT.Text = Data1.Recordset.Fields(8).Value CboDantoc.Text = Data1.Recordset.Fields(9).Value CboHocvan.Text = Data1.Recordset.Fields(10).Value TxtTongiao.Text = Data1.Recordset.Fields(11).Value TxtSoCMND.Text = Data1.Recordset.Fields(12).Value TxtNgaycap.Value = Data1.Recordset.Fields(13).Value TxtNoicap.Text = Data1.Recordset.Fields(14).Value TxtThanhphangd.Text = Data1.Recordset.Fields(15).Value CboChinhtri.Text = Data1.Recordset.Fields(16).Value CboNgoaingu.Text = Data1.Recordset.Fields(17).Value TxtNgayvaonganh.Text = Data1.Recordset.Fields(18).Value If Not IsNull(Data1.Recordset.Fields(19).Value) Then TxtNgayvaodang.Text = Data1.Recordset.Fields(19).Value Else TxtNgayvaodang.Text = "__/__/____" End If CboPhong.Text = Data1.Recordset.Fields(20).Value CboChucvu.Text = Data1.Recordset.Fields(21).Value CboChucvuht.Text = Data1.Recordset.Fields(22).Value TxtBacluong.Text = Val(Data1.Recordset.Fields(23).Value) TxtKhenthuong.Text = Data1.Recordset.Fields(24).Value TxtKyluat.Text = Data1.Recordset.Fields(25).Value 'CboDonvi.Text = Data1.Recordset.Fields(26).Value TxtNamnghihuu.Value = Data1.Recordset.Fields(26).Value loi: End Sub Private Sub Form_Load() Data1.DatabaseName = App.Path & "\nhansu.mdb" Data1.RecordSource = "qhoso" Data1.Refresh Call Capnhat Adochinhtri.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=" & App.Path & "\nhansu.mdb" Adochinhtri.RecordSource = "select * from qchinhtri" Adochinhtri.Refresh AdoChucvu.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=" & App.Path & "\nhansu.mdb" AdoChucvu.RecordSource = "select * from qchucvu" AdoChucvu.Refresh AdoDantoc.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=" & App.Path & "\nhansu.mdb" AdoDantoc.RecordSource = "select * from qdantoc" AdoDantoc.Refresh AdoDonvi.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=" & App.Path & "\nhansu.mdb" AdoDonvi.RecordSource = "Select * from QDonvi" AdoDonvi.Refresh AdoHocvan.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=" & App.Path & "\nhansu.mdb" AdoHocvan.RecordSource = "Select * from qhocvan" AdoHocvan.Refresh AdoNgoaingu.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=" & App.Path & "\nhansu.mdb" AdoNgoaingu.RecordSource = "select * from qngoaingu" AdoNgoaingu.Refresh AdoPhong.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=" & App.Path & "\nhansu.mdb" AdoPhong.RecordSource = "select * from qphong" AdoPhong.Refresh End Sub Private Sub Form_Unload(Cancel As Integer) MDIHethong.StatusBar1.Panels(2).Text = "" End Sub Private Sub TxtBacluong_GotFocus() TxtBacluong.SelStart = 0 TxtBacluong.SelLength = Len(TxtBacluong.Text) End Sub Private Sub TxtDiachi_GotFocus() TxtDiachi.SelStart = 0 TxtDiachi.SelLength = Len(TxtDiachi.Text) End Sub Private Sub TxtKhenthuong_GotFocus() TxtKhenthuong.SelStart = 0 TxtKhenthuong.SelLength = Len(TxtKhenthuong.Text) End Sub Private Sub TxtKyluat_GotFocus() TxtKyluat.SelStart = 0 TxtKyluat.SelLength = Len(TxtKyluat.Text) End Sub Private Sub TxtNamnghihuu_GotFocus() TxtNamnghihuu.SelStart = 0 TxtNamnghihuu.SelLength = Len(TxtNamnghihuu.Text) End Sub Private Sub TxtNgaycap_GotFocus() TxtNgaycap.SelStart = 0 TxtNgaycap.SelLength = Len(TxtNgaycap.Text) End Sub Private Sub TxtNgaysinh_GotFocus() TxtNgaysinh.SelStart = 0 TxtNgaysinh.SelLength = Len(TxtNgaysinh.Text) End Sub Private Sub Txthovaten_GotFocus() Txthovaten.SelStart = 0 Txthovaten.SelLength = Len(Txthovaten.Text) End Sub Private Sub Txtmahoso_GotFocus() Txtmahoso.SelStart = 0 Txtmahoso.SelLength = Len(Txtmahoso.Text) End Sub Private Sub TxtNgayvaodang_GotFocus() TxtNgayvaodang.SelStart = 0 TxtNgayvaodang.SelLength = Len(TxtNgayvaodang.Text) End Sub Private Sub TxtNgayvaonganh_GotFocus() TxtNgayvaonganh.SelStart = 0 TxtNgayvaonganh.SelLength = Len(TxtNgayvaonganh.Text) End Sub Private Sub TxtNoicap_GotFocus() TxtNoicap.SelStart = 0 TxtNoicap.SelLength = Len(TxtNoicap.Text) End Sub Private Sub Txtnoisinh_GotFocus() Txtnoisinh.SelStart = 0 Txtnoisinh.SelLength = Len(Txtnoisinh.Text) End Sub Private Sub TxtNoithuongtru_GotFocus() TxtNoithuongtru.SelStart = 0 TxtNoithuongtru.SelLength = Len(TxtNoithuongtru.Text) End Sub Private Sub TxtQue_GotFocus() TxtQue.SelStart = 0 TxtQue.SelLength = Len(TxtQue.Text) End Sub Private Sub TxtSDT_GotFocus() TxtSDT.SelStart = 0 TxtSDT.SelLength = Len(TxtSDT.Text) End Sub Private Sub TxtSoCMND_GotFocus() TxtSoCMND.SelStart = 0 TxtSoCMND.SelLength = Len(TxtSoCMND.Text) End Sub Private Sub TxtThanhphangd_GotFocus() TxtThanhphangd.SelStart = 0 TxtThanhphangd.SelLength = Len(TxtThanhphangd.Text) End Sub Private Sub TxtTongiao_GotFocus() TxtTongiao.SelStart = 0 TxtTongiao.SelLength = Len(TxtTongiao.Text) End Sub Sub Capnhat() On Error GoTo loi Txtmahoso.Text = Data1.Recordset.Fields(0).Value Txthovaten.Text = Data1.Recordset.Fields(1).Value TxtNgaysinh.Value = Data1.Recordset.Fields(2).Value ChkGioitinh.Value = Data1.Recordset.Fields(3).Value Txtnoisinh.Text = Data1.Recordset.Fields(4).Value TxtQue.Text = Data1.Recordset.Fields(5).Value TxtNoithuongtru.Text = Data1.Recordset.Fields(6).Value TxtDiachi.Text = Data1.Recordset.Fields(7).Value TxtSDT.Text = Data1.Recordset.Fields(8).Value CboDantoc.Text = Data1.Recordset.Fields(9).Value CboDantoc.Refresh CboHocvan.Text = Data1.Recordset.Fields(10).Value TxtTongiao.Text = Data1.Recordset.Fields(11).Value TxtSoCMND.Text = Data1.Recordset.Fields(12).Value TxtNgaycap.Value = Data1.Recordset.Fields(13).Value TxtNoicap.Text = Data1.Recordset.Fields(14).Value TxtThanhphangd.Text = Data1.Recordset.Fields(15).Value CboChinhtri.Text = Data1.Recordset.Fields(16).Value CboNgoaingu.Text = Data1.Recordset.Fields(17).Value TxtNgayvaonganh.Text = Data1.Recordset.Fields(18).Value If Not IsNull(Data1.Recordset.Fields(19).Value) Then TxtNgayvaodang.Text = Data1.Recordset.Fields(19).Value Else TxtNgayvaodang.Text = "__/__/____" End If CboPhong.Text = Data1.Recordset.Fields(20).Value CboChucvu.Text = Data1.Recordset.Fields(21).Value CboChucvuht.Text = Data1.Recordset.Fields(22).Value TxtBacluong.Text = Val(Data1.Recordset.Fields(23).Value) TxtKhenthuong.Text = Data1.Recordset.Fields(24).Value TxtKyluat.Text = Data1.Recordset.Fields(25).Value TxtNamnghihuu.Value = Data1.Recordset.Fields(26).Value loi: End Sub Option Explicit Dim nut As Integer Private Sub CmdCapnhat_Click() Dim db As Database Dim rs As Recordset Set db = OpenDatabase(App.Path & "\nhansu.mdb") Set rs = db.OpenRecordset("hocvan") Select Case nut Case 1: On Error GoTo loi1 rs.AddNew rs.Fields(0).Value = UCase(Txtmahocvan.Text) rs.Fields(1).Value = Txthocvan.Text rs.Fields(2).Value = Txtghichu.Text rs.Update Data1.Refresh Data1.Recordset.MoveLast Call Capnhat Exit Sub loi1: MsgBox "D÷a liÖu b¹n nhËp vµo bÞ sai", vbOKOnly + vbCritical, "KiÓm tra" Case 2: On Error GoTo loi2 rs.MoveFirst Do Until rs.EOF If rs.Fields(0).Value = Txtmahocvan.Text Then rs.Delete End If rs.MoveNext Loop Data1.Refresh Call Capnhat Exit Sub loi2: MsgBox "D÷a liÖu b¹n nhËp vµo bÞ sai", vbOKOnly + vbCritical, "KiÓm tra" Case 3: On Error GoTo loi3 rs.MoveFirst Do Until rs.EOF If rs.Fields(0).Value = Txtmahocvan.Text Then rs.Edit rs.Fields(1).Value = Txthocvan.Text rs.Fields(2).Value = Txtghichu.Text rs.Update End If rs.MoveNext Loop Data1.Refresh Call Capnhat Exit Sub loi3: MsgBox "D÷a liÖu b¹n nhËp vµo bÞ sai", vbOKOnly + vbCritical, "KiÓm tra" Case Else MsgBox "B¹n ch­a chän tr¹ng th¸i ho¹t ®éng", vbOKOnly + vbCritical, "KiÓm tra" End Select End Sub Private Sub CmdDuyet_Click(Index As Integer) Select Case Index Case 0 Data1.Recordset.MoveFirst Case 1 Data1.Recordset.MovePrevious If Data1.Recordset.BOF Then Data1.Recordset.MoveFirst End If Case 2 Data1.Recordset.MoveNext If Data1.Recordset.EOF Then Data1.Recordset.MoveLast End If Case 3 Data1.Recordset.MoveLast End Select Call Capnhat End Sub Private Sub CmdSua_Click() Txtmahocvan.Enabled = True Txthocvan.Enabled = True Txtghichu.Enabled = True nut = 3 MDIHethong.StatusBar1.Panels(2).Text = "Söa d÷ liÖu" End Sub Private Sub CmdThem_Click() Txtmahocvan.Enabled = True Txthocvan.Enabled = True Txtghichu.Enabled = True nut = 1 MDIHethong.StatusBar1.Panels(2).Text = "Thªm d÷ liÖu" End Sub Private Sub CmdThoat_Click() Unload Me End Sub Private Sub CmdThoat_LostFocus() Txtmahocvan.SetFocus End Sub Private Sub CmdXoa_Click() Txtmahocvan.Enabled = True Txthocvan.Enabled = False Txtghichu.Enabled = False nut = 2 MDIHethong.StatusBar1.Panels(2).Text = "Xo¸ d÷ liÖu" End Sub Private Sub DBGrid1_Click() On Error GoTo loi Txtmahocvan.Text = Data1.Recordset.Fields(0).Value Txthocvan.Text = Data1.Recordset.Fields(1).Value Txtghichu.Text = Data1.Recordset.Fields(2).Value loi: End Sub Private Sub Form_Load() Data1.DatabaseName = App.Path & "\nhansu.mdb" Data1.RecordSource = "qhocvan" Data1.Refresh Call Capnhat DBGrid1.Columns(1).Width = 2000 DBGrid1.Columns(2).Width = 3000 End Sub Private Sub Form_Unload(Cancel As Integer) MDIHethong.StatusBar1.Panels(2).Text = "" End Sub Private Sub Txthocvan_GotFocus() Txthocvan.SelStart = 0 Txthocvan.SelLength = Len(Txthocvan.Text) End Sub Private Sub Txtghichu_GotFocus() Txtghichu.SelStart = 0 Txtghichu.SelLength = Len(Txtghichu.Text) End Sub Private Sub Txtmahocvan_GotFocus() Txtmahocvan.SelStart = 0 Txtmahocvan.SelLength = Len(Txtmahocvan.Text) End Sub Sub Capnhat() On Error GoTo loi Txtmahocvan.Text = Data1.Recordset.Fields(0).Value Txthocvan.Text = Data1.Recordset.Fields(1).Value Txtghichu.Text = Data1.Recordset.Fields(2).Value loi: End Sub TµI liÖu tham kh¶o 1. Microsof ViSual BaSic 6.0 & LËp tr×nh c¬ së d÷ liÖu -NguyÔn ThÞ Ngäc Mai - Nhµ xuÊt b¶n gi¸o dôc. 2. C¬ së d÷ liÖu kiÕn thøc vµ thùc hµnh-Vò §øc Thi - NXB thèng kª 3. Ph©n tÝch vµ thiÕt kÕ hÖ thèng tin häc - Nhµ xuÊt b¶n giao th«ng vËn t¶i KÕt luËn Môc ®Ých cña ®å ¸n nµy lµ tin häc ho¸ viÖc qu¶n lý nh©n sù cña Chi côc Dù tr÷ Sãc S¬n, thùc hiÖn tù ®éng ho¸ mét sè c«ng viÖc thñ c«ng. Khi ®­a ch­¬ng tr×nh vµo øng dông phÇn thao t¸c cña ng­êi sö dông chØ ®¬n gi¶n lµ sè liÖu c¸c th«ng tin gèc cña ®èi t­îng cÇn qu¶n lý. HÖ thèng tù ®éng ho¸ xö lý theo c¸c yªu cÇu, hÖ thèng con cho phÐp in c¸c b¸o c¸o, c¸c danh s¸ch thèng kª, ®¶m b¶o cung cÊp th«ng tin chÝnh x¸c, kÞp thêi vµ trung thùc phôc vô cho c«ng t¸c qu¶n lý vµ chØ ®¹o. Lµ mét ®Ò tµi nghiªn cøu cã øng dông thùc tÕ, kinh nghiÖm nghiªn cøu chuyªn m«n ch­a nhiÒu, h¬n n÷a trong mét thêi gian ng¾n võa nghiªn cøu, võa viÕt ch­¬ng tr×nh, v× vËy ch­¬ng tr×nh kh«ng tr¸nh khái nh÷ng mÆt h¹n chÕ vµ thiÕu xãt. Xin kÝnh mong ®­îc sù chØ b¶o vµ gãp ý gióp t«i hoµn thµnh ®å ¸n nµy. Mét lÇn n÷a t«i xin ch©n thµnh c¶m ¬n thµy gi¸o Hå V¨n H­¬ng, c¶m ¬n c¸c thÇy, c¸c c« ®· h­íng dÉn trùc tiÕp t«i hoµn thµnh ®å ¸n nµy, t«i còng xin ch©n thµnh c¶m ¬n thÇy gi¸o ph¶n biÖn vµ c¸c thÇy c«, b¹n bÌ ®ång nghiÖp ®· gióp ®ì t«i hoµn thµnh b¶n ®å ¸n nµy./. Môc lôc Tªn môc trang. *lêi c¶m ¬n 1 *®Æt vÊn ®Ò 2 ch­¬ng I :kh¶o s¸t hÖ thèng hiÖn t¹I +HÖ thèng tæ chøc c¸n bé vµ ho¹t ®äng cña c¬ quan 3 +C¸ch thøc tæ chøc vµ l­u tr÷ th«ng tinhiÖn t¹i 6 +Danh s¸ch c¸n bé c«ng chøc n¨m 2003 10 +Danh s¸ch c¸n bé n©ng l­¬ng n¨m 2003 12 +Danh s¸ch ®¶ng viªn n¨m 2003 12 +Danh s¸ch theo tr×nh ®é nh©n viªn 13 ch­¬ng II : tin øng dông cña tin häc qu¶n lý +Mét sè kh¸i niÖm c¬ b¶n vÒ qu¶n lý vµ øng dông tin häc trong c«ng t¸c qu¶n lý 15 +Giíi thiÖu vÒ mic rosoft access 20 +Ng«n ng÷ vi sua basic 6.0 27 +Mèi liªn hÖ gi÷a access vµ visual basic 31 ch­¬ng III : thiÕt kÕ c¬ së d÷ liÖu. +Th«ng tin vµo ra cña hÖ thèng 33 +ThiÕt kÕ c¬ së d÷ liÖu cho hÖ thèng qu¶n lý c¸n bé 35 ch­¬ng IV : ph©n tÝch vµ thiÕt kÕ hÖ thèng . +Môc ®Ých 42 +S¬ ®å chøc n¨ng cña hÖ thèng qu¶n lý c¸n bé 43 +S¬ ®å luång d÷ liÖu 44 ch­¬ng v : c¸c form chÝnh vµ c¸c code ch­¬ng tr×nh. +Mét sè form chÝnh cña ch­¬ng tr×nh 51 +Mét sè code cña ch­¬ng tr×nh 51 *tµI liÖu tham kh¶o 81 *kÕtluËn 82 *môc lôc 83 *nhÇn xÐt cña gi¸o viªn 85