giới thiệu chung về trường tiểu học kim đồng

http://kilobooks.com THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN CH T NG QUAN TR NG TI U H C KIM - Tr ng ti u h c Kim NG ng: OBO OK S CO M I Gi i thi u chung v tr Thông tin chung NG I ng ti u h c Kim ng - N m thành l p: 1987 - Hi u tr ng: Võ th thu Oanh N m khuôn viên r ng rãi, v i m t c s v t ch t t t, tr ng có g n 40 phịng h c m t s phòng ph c v cho h c sinh có nhu c u bán trú nâng cao hi u qu gi ng d y phát huy kh n ng sáng t o c a h c sinh, nhà tr ng có m t phịng tr ng bày s n ph m b ng th công, h i ho , v n, th , báo t ng… h c sinh t sáng tác cu c thi d p thi đua Nhà tr ng cịn có m t phịng máy vi tính g m h n 20 máy nh m giúp h c sinh s m ti p c n v i công ngh thông tin M t th ch t c a h c sinh c ng đ c nhà tr ng tr ng b ng vi c đ u t d ng c th thao nh c u lơng, bóng bàn, c t K t lúc thành l p tr tác d ng d y cho m i đ i t h c sinh tr ng c vua… ng đ n Hàng n m tr ng th c hi n công ng h c sinh N m h c 2003-2004 t ng s ng 1675 h c sinh đ c chia làm 31 l p cho kh i, kh i có nhi u l p nh t kh i l p có l p Cịn kh i l p đ n kh i l p c đ t theo th t ch A, B, C… Tr KIL m i kh i có l p Tên l p đ ng có đ i ng giáo viên có kinh nghi m khơng ng ng h c t p rèn luy n nâng cao đ o đ c, ph m ch t, trình đ chun mơn ln h t s c công tác gi ng d y T ch c c a nhà tr ng http://kilobooks.com THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN đáp ng đ y đ cho vi c d y h c cho m t l nhà tr ng h c sinh l n, ng có 52 giáo viên 15 cán b công nhân viên công tác ph c v ng hi u tr ng Võ Th Thu Oanh KIL OBO OKS CO M cho vi c d ng d y Lãnh đ o c a tr v i hai hi u phó M t hi u phó chun v cơng tác chun môn, ch đ o vi c gi ng d y nâng cao ch t l ng d y h c, cịn hi u phó cịn l i ph trách ch đ o m t v c s v t ch t, ho t đ ng thi đua, v n ngh … c a tr nhà tr sinh ng Ngoài đ i ng giáo viên ph c v cơng tác gi ng d y, ng cịn có đ i ng cơng nhân viên ph c v sinh ho t cho nh ng h c bán trú, m t s cán b ph c v cơng tác đồn đ i, ch t ch cơng đồn Giáo viên đ c chia thành t khác nhau, m i t ng v i m t kh i l p ví d , t bao g m giáo viên ch nhi m kh i 1, t bao g m giáo viên ch nhi m c a kh i 2… cho đ n kh i l p Ngồi t cịn có thêm t t ngo i ng , t tin h c, t v n th m đ i v i kh i l p m t giáo viên ch nhi m đ c phân công gi ng d y nh ng môn c b n nh :Toán, ti ng vi t, đ o đ c Cịn nh ng mơn n ng u có giáo viên thu c t n ng u đ m nhi m vi c gi ng d y Ch c n ng c a tr “ Nhà n Có đ ng i m i giáo d c ti u h c vào r t nhi u l nh v c mà ng, c nhân dân c ng nh ngành Giáo d c đào t o ta mong đ i c s thành công hay không b c đ u c a s nghi p đ i m i ph thu c ph n l n vào đ i ng giáo viên s ch đ o c a cán b qu n lý nhà tr ng.” Nh n th c đ c u đó, c ng v i tình u ngh nghi p s tâm huy t th h tr , nhà tr c ng nh h ng h t s c vi c truy n th ki n th c v n hoá ng cho h c sinh nh ng ph m ch t đ o đ c cao đ p http://kilobooks.com THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN C ng gi ng nh b t kì m t tr ng ti u h c toàn qu c, tr ng th c hi n d ng d y cho môn h c sinh c b n nh : toán, v n, ti ng vi t, KIL OBO OKS CO M t p làm v n, đ o đ c, đ a lý, l ch s … tốn ti ng vi t hai mơn cơng c Ngồi cịn có m t s mơn n ng u nh nh c, ho , tin h c, v n th m Ngồi nh ng ti t h c tr ng, nhà tr ng th ch c nh ng đ t tham quan, ngo i khoá b ng vi c th c t ng xuyên t c a môn nh : l ch s , h i ho , v n h c, đ a lý, v n ngh …Nh m nâng cao s hi u bi t c ng nh nh n th c c a h c sinh v m i m t M c tiêu c a nhà tr M t ng i tr c a gia đình, nhà tr ng ng thành hồn thi n nh q trình giáo d c ng, xã h i Trong tr t i m i m t v đ i s ng c a ng ng h c có nh h ng r t l n i sau nh ti n tài, đ a v nhân ph m… Th i gian b t đ u làm quen v i ch s đ u tiên t c th i gian h c ti u h c kho ng th i gian nh y c m có tính ch t quan tr ng vi c giáo d c đào t o nên m t ng i, v y nhà tr ng ln tr ng c hai m t:giáo d c đào t o M c tiêu c th c a n m h c 2003-2004 100% đ u h c sinh tiên ti n, h c sinh tiên ti n xu t s c chi m 45%, h nh ki m t t đ t 100%… Các công tác qu n lý t i tr Công tác qu n lý t i tr n: ng hi n có nhi m v : - Qu n lý h c sinh: Có nhi m v qu n lý lí l ch c a h c sinh, qu n lý vi c h c t p c a h c sinh nh m s , vi c ngh h c tr , vi ph m k lu t, khen th ng … đ a báo cáo vào cu i n m ho c cu i kì cho lãnh đ o, hay in b ng đI m cho h c sinh http://kilobooks.com THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN - Qu n lý cán b công nhân viên: Cán b công nhân viên tr ng g m ch t ch cơng đồn, nh ng cán KIL OBO OKS CO M b làm cơng tác đồn, đ i…, b ph n b o đ m v sinh, b o v , s l i ph c v sinh ho t cho h c sinh bán trú, đ i ng g m 15 ng Ngoài vi c qu n lý nhân s l ng c a cán b công nhân viên cịn có cơng vi c qu n lý chi tiêu ph c v trú i n u ng cho h c sinh bán - Qu n lý giáo viên ây đ tài mà em nghiên c u, công tác qu n lý s đ rõ II c làm ph n sau c a đ tài Gi i thi u đ tài nghiên c u M c đích c a đ tài th c hi n vi c d ng d y cho th t t t đ t hi u qu cao x ng đáng v i nh ng danh hi u mà s giáo d c trao t ng lòng tin c a ph huynh, vi c qu n lý giáo viên , ki m tra công tác d ng d y, ki m tra k t qu h c t p c a h c sinh mà giáo viên gi ng d y c ng nh c a m i giáo viên luôn đ Tuy nhiên v i s l đ ng ngh a v i l ý th c trách nhi m c th c hi n nghiêm túc th ng xuyên ng giáo viên cán b công nhân viên l n ng công vi c ,thông tin d li u s r t nhi u nh ng hi n t i vi c qu n lý giáo viên tr ng ch y u b ng gi y t r t c ng k nh khó nh d nh m l n ví d mu n bi t giáo viên ch nhi m c a m t l p đó; bi t m t giáo viên nh ng mu n bi t giáo viên d y l p thu c t , nhóm hay mu n tìm ki m thơng tin v m t giáo viên b t kì ,thêm thơng tin v m t giáo viên m i chuy n đ n ,lo i b thông tin m t giáo viên http://kilobooks.com THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN m i chuy n …thì vi c tìm ki m x lý thông tin r t m t th i gian khó kh n KIL OBO OKS CO M Bên c nh vi c qu n lý giáo viên v m t nh d gi , h s s sách, vào m , qu n lý vi c ngh d y ,đi tr c a giáo viên di n gi y t nên đ th c hi n m t cách nghiêm túc xác vơ khó kh n ch m ch p d n đ n vi c báo cáo có tính t ng h p phân tích cao khơng th th c hi n đ x lí thơng tin c th ng xuyên c n nhi u th i gian khó kh n Nh ng thơng tin v giáo viên h i đ ng thi đua khen th c a tr ng thu đ c sau đ t thi đua ki m tra s đ chuy n cho ch t ch h i đ ng , hi u tr có ph n th đ c th kí h i đ ng ng, hi u phó xem xét đ cu i tháng ng ,k lu t x ng đáng Ngồi nh ng thơng tin c chuy n cho h i đ ng tra, ki m tra c a s giáo d c v vi c thi đua d y t t h c t t gi a tr tr ng k lu t ng ng phân lo i ch t l ng đào t o gi a th c hi n t t công vi c qu n lý giáo viên đ m b o cho công tác d y h c đ t k t qu cao, H th ng qu n lý giáo viên đ thi t k cho g n v i công tác qu n lý b ng ph ngày Các ch tiêu qu n lý tra c u đ c phân tích ng pháp th cơng hàng c thi t k đ giúp ng tác qu n lí d dàng u hành Bài toán qu n lý giáo viên đ i làm công c thi t k nh m gi m b t s c ng k nh ph c t p công tác qu n lý giáo viên tr c Nh ng h th ng c ng khơng có s thay đ i v m t nghi p v qu n lý giáo viên so v i qu n lý b ng th cơng, mà cho phép th c hi n cơng tác qu n lý nhanh, xác ti t ki m th i gian, g n nh an toàn h n H th ng qu n lý có th đ a b n báo cáo thông tin c a cán b m t cách nhanh nh t v i đ xác cao nh t Cơng vi c tra c u tìm ki m c ng đ c quan tâm v i thi t k phân tích giúp cho h http://kilobooks.com THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN th ng thao tác v i đ xác cao H th ng c ng đ m nh n vi c b o v an toàn d li u cho phép chép d li u nh m tránh m t mát thông tin Bài c phân tích thi t k c s d li u cho h th ng không c ng KIL OBO OKS CO M toán đ k nh, tránh tình tr ng th a thơng tin nh ng v n đ m b o yêu c u c a toán Lý ch n đ tài Trong q trình tìm hi u cơng tác qu n lý gi ng d y th i đ c s g i ý c a ng ih ng d n th c t p, cô hi u tr tr ng, đ ng ng Võ Th Thu Oanh em ch n đ tài : “Phân tích thi t k h th ng thông tin qu n lý giáo viên t I tr H th ng m i s h ng ti u h c Kim ng ” ng vào m c tiêu: - Ph c v công tác qu n lý m t cách thu n ti n nh t máy tính: xem, tìm ki m, th ng kê… - đ a báo cáo V i h th ng vi c qu n lý giáo viên s r t d dàng, đ t n th i gian thu n ti n ây c ng lí đ em ch n làm đ tài Ch ng trình đ c vi t b ng h qu n tr c s d li u Access 2000 ngôn ng l p trình visiual basic 6.0 Access m t h th ng qu n lý c s d li u m nh m ph bi n M t khác Visiual basic 6.0 ngơn ng l p trình h t s c linh đ ng d s d ng v y mà s k t h p c a Vb 6.0 Access 2000 s xây d ng lên m t h th ng ng d ng hoàn h o http://kilobooks.com KIL OBO OKS CO M THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN CH PH NG II NG PHÁP LU N PHÂN TÍCH VÀ THI T K H TH NG THƠNG TIN QU N LÝ Thơng tin, h th ng thông tin I Thông tin Có th nói thơng tin v a ngun li u đ u vào v a s n ph m d u c a h th ng qu n lý Thông tin th n n c a qu n lý c ng gi ng nh n ng l ng th n n c a m i ho t đ ng Khơng có thơng tin khơng có ho t đ ng qu n lý đích th c Thông tin t mt H thông qu n lý Tt môi tr ng Thông tin quy t đ nh Thông tin tác nghi p it ng qu n lý http://kilobooks.com THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN KIL OBO OKS CO M H th ng thông tin H th ng thông tin t p h p nh ng ng i, thi t b ph n c ng, ph n m m, d li u…th c hi n ho t đ ng thu th p, l u tr , x lý phân ph i thông tin m t t p ràng bu c đ Nó đ c th hi n b i nh ng ng h c ho c không tin h c c g i môi tr ng i, th t c, d li u thi t b tin u vào c a h th ng thông tin đ c l y t ngu n đ c x lý b i h th ng s d ng v i d li u đ l u tr t tr c K t qu x lý đ c c chuy n đ n đích ho c c p nh t vào kho l u tr d li u Ngu n Thu th p X lý l u tr ích Phân phát Kho d li u Phân lo i h th ng thông tin m t t ch c H th ng thông tin qu n lý MIS (management information system), h th ng qu n lý ho t đ ng c a t ch c , ho t đ ng n m đI u n tác nghi p, u n qu n lý ho c l p k ho ch chi n l Chúng d a ch y u vào c s d li u đ m c c c t o b i h x lí giao http://kilobooks.com THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN d ch c ng nh t ngu n d li u t ch c Nói chung, chúng t o báo cáo cho nhà qu n lí m t cách đ nh kì ho c theo yêu c u KIL OBO OKS CO M Mơ hình c a h th ng thơng tin Mơ hình n đ nh nh t Mơ hình logic (góc nhìn qu n lý ) Cái gì? đ làm gì? Cái gì? đâu, nào? Mơ hình v t lý ngồi (Góc nhìn s d ng) Mơ hình v t lí (Góc nhìn k thu t Nh th Mơ hình thay đ i nh t a Mơ hình logic Mơ t h th ng làm gì: d li u mà thu th p, x lí mà ph i th c hi n, kho đ ch a k t qu ho c d li u đ l y cho x lý nh ng thông tin mà h th ng s n sinh Mơ hình tr l i câu h i “cái gì?” “ làm gì?” Nó khơng quan tâm t i ph đ a m c ng nh th i m mà d li u đ ng ti n đ c s d ng c ng nh c x lí b Mơ hình v t lý ngồi Mơ hình ý t i nh ng khía c nh nhìn th y đ c c a h th ng nh v t mang d li u v t mang k t qu c ng nh hình th c c a đ u vào c a đ u ra, Ph b ph n, ng ng ti n đ thao tác v i h th ng, nh ng d ch v i v trí cơng tác ho t đ ng x lý, th t c th công c ng nh nh ng y u t v đ a m th c hi n x lý d li u,lo i hình ho c bàn phím đ c s d ng Mơ hình c ng ý t i m t th i gian c a h th ng, ngh a v nh ng th i m mà ho t đ ng x http://kilobooks.com THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN lý d li u khác x y Nó tr l i câu h i: Cái gì? Ai? đâu Khi nào? KIL OBO OKS CO M c Mơ hình v t lý trong: Mơ hình liên quan t i nh ng khía c nh v t lý c a h th ng nhiên không ph i nhìn c a ng ì s d ng mà c a nhân viên k thu t Ch ng h n nh ng thơng tin liên quan t i lo i trang thi t b đ dùng đ th c hi n h th ng, dung l c ng kho l u tr và t c đ x lý c a thi t b , t ch c v t lý c a d li u kho ch a, c u trúc c a ch nào? ng trình ngơn ng th hi n Mơ hình gi i đáp câu h i: Nh th M i mơ hình m t k t qu c a m t góc nhìn khác nhau, mơ hình logic k t qu c a góc nhìn qu n lý, mơ hình v t lý ngồi góc nhìn s d ng mơ hình v t lý góc nhìn c a k thu t Ba mơ hình có đ n đ nh khác nhau, mơ hình logic n đ nh nh t mơ hình v t lý hay bi n đ i nh t Khi thi t k ch đ th c hi n ch ng trình c n tính t i trang thi t b ng trình II Khái quát v vi c phát tri n m t h th ng thông tin Nguyên nhân d n đ n vi c phát tri n h th ng thông tin M c tiêu cu i c a nh ng c g ng phát tri n h th ng thông tin cung c p cho nh ng thành viên c a t ch c nh ng công c qu n lý t t nh t Phát tri n m t h th ng thông tin bao g m vi c phân tích h th ng t n t i, Thi t k m t h th ng m i, th c hi n ti n hành cài đ t Phân tích m t h th ng b t đ u t vi c thu th p d li u ch nh đ n chúng đ đ a đ c chu n đốn v tình hình th c t Thi t k nh m xác đ nh b ph n c a h th ng m i có kh n ng c i thi n tình tr ng hi n t i xây d ng mơ hình logic mơ hình v t lý ngồi c a h th ng http://kilobooks.com THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN Set rscuatoi = modatabase.OpenRecordset("chucvu") rscuatoi.MoveLast KIL OBO OKS CO M rscuatoi.MoveFirst Demchucvu = rscuatoi.RecordCount ReDim Machucvu(Demchucvu), chucvu(Demchucvu), Matenchucvu(Demchucvu) For phuc = To Demchucvu Machucvu(phuc) = rscuatoi!Machucvu chucvu(phuc) = rscuatoi!chucvu Matenchucvu(phuc) = rscuatoi!chucvu rscuatoi.MoveNext Next phuc rscuatoi.Close Case "hedaotao" Set modatabase = OpenDatabase("c:\xuanphuc\qlgiaovien.mdb") Set rscuatoi = modatabase.OpenRecordset("hedaotao") rscuatoi.MoveLast rscuatoi.MoveFirst Demhedaotao = rscuatoi.RecordCount ReDim Mahedt(Demhedaotao), hedaotao(Demhedaotao), Matenhedaotao(Demhedaotao) For phuc = To Demhedaotao Mahedt(phuc) = rscuatoi!Mahedt hedaotao(phuc) = rscuatoi!hedaotao Matenhedaotao(phuc) = rscuatoi!hedaotao rscuatoi.MoveNext Next phuc http://kilobooks.com THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN rscuatoi.Close Case "trinhdovanhoa" KIL OBO OKS CO M Set modatabase = OpenDatabase("c:\xuanphuc\qlgiaovien.mdb") Set rscuatoi = modatabase.OpenRecordset("trinhdovanhoa") rscuatoi.MoveLast rscuatoi.MoveFirst Demtrinhdovh = rscuatoi.RecordCount ReDim Matdvh(Demtrinhdovh), tdvh(Demtrinhdovh), Matentrinhdovh(Demtrinhdovh) For phuc = To Demtrinhdovh Matdvh(phuc) = rscuatoi!Matdvh tdvh(phuc) = rscuatoi!tdvh Matentrinhdovh(phuc) = rscuatoi!tdvh rscuatoi.MoveNext Next phuc rscuatoi.Close Case "trinhdochuyenmon" Set modatabase = OpenDatabase("c:\xuanphuc\qlgiaovien.mdb") Set rscuatoi = modatabase.OpenRecordset("trinhdochuyenmon") rscuatoi.MoveLast rscuatoi.MoveFirst Demtrinhdocm = rscuatoi.RecordCount ReDim Matdcm(Demtrinhdocm), Matentrinhdocm(Demtrinhdocm) For phuc = To Demtrinhdocm Matdcm(phuc) = rscuatoi!Matdcm tdcm(phuc) = rscuatoi!tdcm tdcm(Demtrinhdocm), http://kilobooks.com THƯ VIỆN ĐIỆN TỬ TRỰC TUYEÁN Matentrinhdocm(phuc) = rscuatoi!tdcm rscuatoi.MoveNext KIL OBO OKS CO M Next phuc rscuatoi.Close Case "gioitinh" Set modatabase = OpenDatabase("c:\xuanphuc\qlgiaovien.mdb") Set rscuatoi = modatabase.OpenRecordset("gioitinh") rscuatoi.MoveLast rscuatoi.MoveFirst Demgioitinh = rscuatoi.RecordCount ReDim Magt(Demgioitinh), Matengioitinh(Demgioitinh) For phuc = To Demgioitinh Magt(phuc) = rscuatoi!Magt gioitinh(phuc) = rscuatoi!gioitinh Matengioitinh(phuc) = rscuatoi!gioitinh rscuatoi.MoveNext Next phuc rscuatoi.Close End Select End Sub gioitinh(Demgioitinh), http://kilobooks.com THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN Public Sub NapTT() 'Dim dbgv As Database KIL OBO OKS CO M Dim rs As Recordset Dim MySql As String MySql = "SELECT DISTINCT [dantoc] FROM dantoc" Set rs = dbgv.OpenRecordset(MySql, dbOpenSnapshot) If rs.RecordCount Then With rs MoveLast MoveFirst Do While Not EOF frmtracuu.cbodantoc.AddItem (.Fields(0).Value) MoveNext Loop End With End If End Sub MySql = "SELECT DISTINCT [chucvu] FROM chucvu" Set rs = dbgv.OpenRecordset(MySql, dbOpenSnapshot) If rs.RecordCount Then With rs MoveLast MoveFirst Do While Not EOF frmtracuu.cbochucvu.AddItem (.Fields(0).Value) MoveNext Loop http://kilobooks.com THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN End With End If KIL OBO OKS CO M MySql = "SELECT DISTINCT [dantoc] FROM dantoc" Set rs = dbgv.OpenRecordset(MySql, dbOpenSnapshot) If rs.RecordCount Then With rs MoveLast MoveFirst Do While Not EOF frmtracuu.cbodantoc.AddItem (.Fields(0).Value) MoveNext Loop End With End If 88888888888888888 Option Explicit Dim i As Integer Dim giaovien_database As Database Dim rsmoi As Recordset Dim chuyen As Database Dim Demrecord As Recordset Dim Demrecords As Recordset Private Sub cmd_nhapmoi_Click() Call nhapmoi Call khoitao 'Set chuyen = OpenDatabase("C:\xuanphuc\qlgiaovien.mdb") http://kilobooks.com THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN 'Set Demrecord = chuyen.OpenRecordset("Select *from giaovien") 'chuyen.Close KIL OBO OKS CO M 'Demrecord.MoveLast txt_msgv.SetFocus End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Form_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then SendKeys "{TAB}" End Sub Public Sub khoitao1() For phuc = To Demgioitinh cmb_gioitinh.AddItem Matengioitinh(phuc) Next phuc cmb_dantoc.ListIndex = -1 For phuc = To Demdantoc cmb_dantoc.AddItem Matendantoc(phuc) Next phuc cmb_dantoc.ListIndex = -1 For phuc = To Demchucvu http://kilobooks.com THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN cmb_chucvu.AddItem Matenchucvu(phuc) Next phuc KIL OBO OKS CO M cmb_chucvu.ListIndex = -1 For phuc = To Demtongiao cmb_tongiao.AddItem Matentongiao(phuc) Next phuc cmb_tongiao.ListIndex = -1 For phuc = To Demtrinhdovh cmb_trinhdovh.AddItem Matentrinhdovh(phuc) Next phuc cmb_trinhdovh.ListIndex = -1 For phuc = To Demhedaotao cmb_hedaotao.AddItem Matenhedaotao(phuc) Next phuc cmb_hedaotao.ListIndex = -1 For phuc = To Demtrinhdocm cmb_trinhdocm.AddItem Matentrinhdocm(phuc) Next phuc cmb_trinhdocm.ListIndex = -1 End Sub Public Sub khoitao() cmb_dantoc = "" cmb_tongiao = "" http://kilobooks.com THƯ VIỆN ĐIỆN TỬ TRỰC TUYEÁN cmb_trinhdovh = "" cmb_chucvu = "" KIL OBO OKS CO M cmb_trinhdocm = "" cmb_hedaotao = "" txt_msgv.Text = "" txt_hoten.Text = "" msk_ngaysinh.Mask = "" cmb_gioitinh = "" txt_noisinh.Text = "" txt_quequan.Text = "" txt_choohn.Text = "" txt_nvn.Text = "" txt_nvt.Text = "" txt_socmt.Text = "" txt_mucluong.Text = "" txt_hsl.Text = "" txt_msn.Text = "" txt_dtnr.Text = "" txt_bacluong.Text = "" opt_chua.Value = False opt_roi.Value = True http://kilobooks.com THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN End Sub Dim i As Long i=1 Call khoitao KIL OBO OKS CO M Private Sub Form_Load() Set giaovien_database = OpenDatabase("C:\xuanphuc\qlgiaovien.mdb") Set rsmoi = giaovien_database.OpenRecordset("giaovien") ' rsmoi.Index = "msgv" taodanhmuc "gioitinh" taodanhmuc "dantoc" taodanhmuc "tongiao" taodanhmuc "chucvu" taodanhmuc "trinhdovanhoa" taodanhmuc "hedaotao" taodanhmuc "trinhdochuyenmon" khoitao1 frmhosogv.MousePointer = End Sub Public Sub nhapmoi() rsmoi.AddNew If Len(Trim$(txt_msgv.Text)) = Then MsgBox ("B n ph i nh p vào mã s giáo viên") http://kilobooks.com THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN rsmoi!msgv = Null Else End If KIL OBO OKS CO M rsmoi!msgv = txt_msgv.Text rsmoi!hoten = Trim$(txt_hoten.Text) If Len(Trim$(msk_ngaysinh.Text)) = Then rsmoi!ngaysinh = Null Else rsmoi!ngaysinh = msk_ngaysinh.FormattedText End If Rsmoi!noisinh = Trim$(txt_noisinh.Text) Rsmoi!quequan = Trim$(txt_quequan.Text) Rsmoi!choohn = Trim$(txt_choohn.Text) Rsmoi!nvnganh = txt_nvn.Text Rsmoi!nvtruong = txt_nvt.Text Rsmoi!socmt = txt_socmt.Text Rsmoi!mucluong = txt_mucluong.Text Rsmoi!hsluong = txt_hsl.Text Rsmoi!msngach = txt_msn.Text Rsmoi!dtnr = txt_dtnr.Text Rsmoi!bacluong = txt_bacluong.Text Rsmoi!gioitinh = Trim$(cmb_gioitinh.Text) Rsmoi!dantoc = Trim$(cmb_dantoc.Text) Rsmoi!chucvu = Trim$(cmb_chucvu.Text) Rsmoi!tongiao = Trim$(cmb_tongiao.Text) Rsmoi!trinhdovanhoa = Trim$(cmb_trinhdovh.Text) http://kilobooks.com THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN Rsmoi!trinhdochuyenmon = Trim$(cmb_trinhdocm.Text) rsmoi.Update End Sub KIL OBO OKS CO M Rsmoi!hedaotao = Trim$(cmb_hedaotao.Text) Private Sub txt_ngaysinh_Change() End Sub 'Private Sub msk_ngaysinh_LostFocus() 'If Not datestringvalid(msk_ngaysinh.FormattedText) Then 'MsgBox "fsfsfsfsfs", 48, Me.Caption ' msk_ngaysinh.SetFocus 'End If 'End Sub Private Sub txt_nvn_Change() End Sub VIII K t lu n http://kilobooks.com KIL OBO OKS CO M THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN DANH M C CÁC TÀI LI U THAM KH O Giáo trình H TH NG THÔNG TIN QU N LÝ Tác gi : TS Tr ng V n Tú – TS Tr n Th Song Minh Nxb Th ng kê n m 2000 MICROSOFT VISIUAL BASIC 6.0 VÀ L P TRÌNH C S D Ch biên: Nguy n Th Ng c Mai NXB Giáo d c n m 2000 Giáo trình C S D LI U, ACCESS Tác gi : Ths Tr n Công U n NXB Th ng kê n m 2000 Giáo trình C U TRÚC D Tác gi : pts Hàn Vi t Thu n NXB Th ng kê n m 1999 LI U LI U http://kilobooks.com KIL OBO OKS CO M THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN http://kilobooks.com THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN Phân tích thi t k h th ng thơng tin qu n lý giáo viên t I tr ti u h c Kim ng ng CH KIL OBO OKS CO M M CL C NG I T NG QUAN TR NG TI U H C KIM I Gi i thi u chung v tr ng ti u h c Kim NG ng: 1 Thông tin chung T ch c c a nhà tr Ch c n ng c a tr M c tiêu c a nhà tr ng ng ng Các công tác qu n lý t i tr II n: Gi i thi u đ tài nghiên c u M c đích c a đ tài Lý ch n đ tài CH NG II PH NG PHÁP LU N PHÂN TÍCH VÀ THI T K H TH NG THÔNG TIN QU N LÝ I Thông tin, h th ng thông tin Thông tin H th ng thông tin Phân lo i h th ng thông tin m t t ch c Mơ hình c a h th ng thông tin II Khái quát v vi c phát tri n m t h th ng thông tin 10 III Ph ng pháp phát tri n h th ng thơng tin 11 Tích h p t p đ ch t o m t c s d li u 20 IV Phân tích h th ng thơng tin qu n lý 24 http://kilobooks.com THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN CH NG III 25 THI T K H TH NG THÔNG TIN QU N LÝ T I TR I NG .25 KIL OBO OKS CO M H C KIM NG TI U c t h thông hi n t i 25 II S đ lu ng thông tin IFD 26 III S đ ch c n ng nghi p v qu n lý c a tr ng 29 IV S đ ch c n ng nghi p v BFD c a công tác qu n lý giáo viên 29 BFD ti n trình 29 BFD ti n trình 30 BFD ti n trình 30 V S đ lu ng d li u c a h th ng .31 VI Thi t k c s d li u t thông tin đ u 32 VII Danh sách c u trúc b ng c s d li u 33 VIII K t lu n .63 ... T K H TH NG THÔNG TIN QU N LÝ T I TR TI U H C KIM I NG NG c t h thông hi n t i Hi n t i, công tác qu n lý giáo viên toàn b ng ph tr ng ti u h c kim đ ng hồn ng pháp th cơng Ngh a là, h s , lý... agtablehandle.MoveNext '' Wend ''End Sub Public Sub taodanhmuc(ByVal chungloai As String) Dim modatabase As Database Dim rscuatoi As Recordset Select Case chungloai Case "tongiao" Set modatabase = OpenDatabase("c:\xuanphuc\qlgiaovien.mdb")... nh ng đ c bi t giai đo n đánh gía yêu c u c ánh giá tính kh thi ánh giá kh thi c a m t d án nói chung xem có y u t ng n c n nhà phân tích th c hi n, cài đ t m t cách thành công gi i pháp đ xu