Xây dưng hệ thống chương trình quản lý giảng dạy tại trường đại học kỹ thuật đà nẵng 4

Xây dưng hệ thống chương trình quản lý giảng dạy tại trường đại học kỹ thuật đà nẵng

Xỏy dổỷng hóỷ thọỳng chổồng trỗnh quaớn lyù giaớng daỷy 28 CHặNG III: XY DặNG M HầNH LGIC Dặẻ LIU Muỷc õờch cuớa phỏửn naỡy õi xỏy dổỷng mọ hỗnh logic tổỡ mọ hỗnh yù nióỷm dổợ lióỷu õaợ õổồỹc phỏn tờch, rọửi chuyóứn thaỡnh mọ hỗnh logic dổợ lióỷu cạc tãûp Sau âọ quút âënh lm âỉa cäng củ pháưn mãưm ph håüp, thêch håüp våïi cạc cáúu trục dỉỵ liãûu m ta âa âënh nghéa I M HầNH LOGIC Dặẻ LIU: KHOA (Makhoa, Tenkhoa) DIADIEM (MaDD, Diadiem, Phong) NAMHOC (Namhoc, Hocky) KHHT (#Namhoc, #Malop, TuanBD, TuanKT, Bdthi, KTThi, Bdthuctap, KTThuctap) LOP (Malop, #Makhoa, #MaDD, Hockhoa, SoSV) HOC (#Malop, #Mamonhoc, Thu, Tiet) MONHOC (Mamonhoc, Tenmonhoc, SotietLT, Btlon, TN_TH, #MaGV, Ghichu) CONGTAC (#Malop, #MaGV, Ngaydi, Ngayve) GIAOVIEN (MaGV, TenGV, Chucdanh) DOAN (MaDA, TenDA, #MaGV) LAMDA (#MaDA, #MaLop, TuanBD, TuanKT) II XY DặNG M HầNH LOGIC CAẽC TP: Nguyón tàõc chuøn âäøi cạc thỉûc thãø thnh cạc tãûp: mäùi thỉûc thãø âỉåüc tảo thnh mäüt bng (Table) hãû qun trë cå såí dỉỵ liãûu Microsoft Access v tãûp chè mủc ca Cạc thüc ca thỉûc thãø tảo thnh cạc trỉåìng (Field) ca cạc bng Âàûng Th KHOA CÄNG NGHÃÛ THÄNG TIN Xáy dæûng hãû thäúng chæång trỗnh quaớn lyù giaớng daỷy 29 Dổồùi õỏy laỡ caùc thỉûc thãø â phán têch åí cạc pháưn trãn âỉåüc chuøn âäøi thnh cạc bng (Table) cạc tãûp (File) cå såí dỉỵ liãûu Microsoft Access våïi tãn l DATA.MDB • Thỉûc thãø KHOA: Table Tãn chè mủc KHOA KHOA Cạc trỉåìng Khọa chè Kiãøu dỉỵ Makhoa Makhoa T10 mủc Tenkhoa liãûu T40 • Thỉûc thãø LÅÏP: Table Tãn chè mủc LÅÏP LOP Cạc trỉåìng Khọa chè Kiãøu dỉỵ Malop Malop T10 Makhoa Makhoa T10 MaDD MaDD T10 muûc liãûu Hockhoa T10 SoSV N3 • Thỉûc thãø ÂËA ÂIÃØM: Table Âàûng Thoü Tãn chè muûc KHOA CÄNG NGHÃÛ THÄNG TIN Xỏy dổỷng hóỷ thọỳng chổồng trỗnh quaớn lyù giaớng daỷy ÂËA ÂIÃØM DIADIE M Cạc trỉåìng Khọa chè 30 Kiãøu dỉỵ mủc MaDD MaDD liãûu T10 Diadiem T50 Phong T10 • Thỉûc thãø NÀM HC: Tãn chè Table mủc NÀM HC NAMHO C Cạc trỉåìng Khọa chè Kiãøu dỉỵ Namhoc Namhoc T10 mủc Hocky liãûu T10 • Thỉûc thãø KÃÚ HOẢCH HC: Table Tãn chè mủc KÃÚ HOẢCH HC KHTT Cạc trỉåìng Khọa chè Kiãøu dỉỵ mủc liãûu Namhoc Namhoc T10 Malop Malop T10 TuanBD TuanKT N2 BDThi N2 KTThi N2 BDThuctap Âàûng Thoü N2 N2 KHOA CÄNG NGHÃÛ THÄNG TIN Xỏy dổỷng hóỷ thọỳng chổồng trỗnh quaớn lyù giaớng dảy 31 N2 KTThuctap • Thỉûc thãø HC: Table Tãn chè HC HOC Cạc trỉåìng Khọa chè mủc Kiãøu dỉỵ muûc liãûu Malop Malop T10 Mamonhoc Mamonhoc T10 Thu T7 Tiet T4 • Thỉûc thãø MÄN HC: Table Tãn chè MÄN HC MONHOC Cạc trỉåìng Khọa chè mủc Kiãøu dỉỵ muûc Mamonhoc liãûu Mamonhoc T10 Tenmonhoc T40 SotietLT N3 BTlon N2 TN_TH N2 Ghichu T40 • Thỉûc thãø GIẠO VIÃN: Table GIẠO VIÃN Âàûng Th Tãn chè GIAOVIE mủc KHOA CNG NGH THNG TIN Xỏy dổỷng hóỷ thọỳng chổồng trỗnh qun l ging dảy 32 N Cạc trỉåìng Khọa chè Kiãøu dỉỵ MaGV MaGV T10 mủc liãûu TenGV T30 Chucdanh T30 • Thỉûc thãø CÄNG TẠC: Table Tãn chè mủc CÄNG TẠC CONGTAC Cạc trỉåìng Khọa chè Kiãøu dỉỵ Malop Malop T10 MaGV MaGV T10 muûc liãûu Ngaydi D Ngayve D • Thỉûc thãø LM ÂÄƯ ẠN: Table Tãn chè mủc LM ÂÄƯ ẠN LAMDA Cạc trỉåìng Khọa chè Kiãøu dỉỵ mủc liãûu Malop Malop T10 MaDA MaDA T10 TuanBD N2 TuanKT N2 • Thỉûc thãø ÂÄƯ ẠN: Table Âàûng Thoü Tãn chè KHOA CÄNG NGHÃÛ THÄNG TIN Xáy dæûng hóỷ thọỳng chổồng trỗnh quaớn lyù giaớng daỷy 33 muỷc ÂÄƯ ẠN DOAN Cạc trỉåìng Khọa chè Kiãøu dỉỵ mủc MaDA liãûu MaDA T10 TenDA T40 III HÅÜP THỈÏC HỌA M HầNH Dặẻ LIU BI Xặ LYẽ Sặ KIN: Sau phán têch thiãút kãú hãû thäúng, xáy dæûng mä hỗnh logic dổợ lióỷu caùc tóỷp, õóứ chổùng toớ rũng tãûp dỉỵ liãûu vỉìa âỉåüc tảo åí trãn tha mn cạc xỉí l bi toạn qun l ging dảy tải trỉåìng Âải hc K thût  nàơng Ta âi xáy dỉûng cạc mädun thût toạn sau: III.1 Cạc th tủc âàng k (pháưn hãû thäúng): ­ Âàng k ngỉåìi sỉí dủng ­ Thay âäøi máût kháøu ngỉåìi sỉí dủng  Âàng k ngỉåìi sỉí dủng: Âãø bo âm ngổồỡi truy nhỏỷp vaỡ sổớ duỷng chổồng trỗnh hồỹp phaùp Ngỉåìi sỉí dủng phi vo âụng máût kháøu âãø cọ thóứ sổớ duỷng õổồỹc chổồng trỗnh Nóỳu ngổồỡi duỡng khọng coù mỏỷt khỏứu thỗ khọng vaỡo õổồỹc chổồng trỗnh Private Sub Command1_Click() If (Len(Tuser.Text) > 0) And -> (Len(Tpass.Text) > 0) Then Data1.Recordset.MoveLast Data1.Recordset.AddNew Tuser.Text = "" Tpass.Text = "" Else If (Len(Tuser.Text) = 0) And (Len(Tpass.Text) = 0) Then p.Caption = " User Name ?, Password ?" Âàûng Thoü KHOA CÄNG NGHÃÛ THÄNG TIN Xáy dæûng hãû thäúng chæång trỗnh quaớn lyù giaớng daỷy 34 Tuser.SetFocus Else If (Len(Tuser.Text) = 0) And (Len(Tpass.Text) > 0) Then p.Caption = "User Name ?" Tuser.SetFocus End If If (Len(Tuser.Text) > 0) And (Len(Tpass.Text) = 0) Then p.Caption = "Password ?" Tpass.SetFocus End If End If End If End Sub  Thay âäøi máût kháøu ngỉåìi sỉí dủng: Ngỉåìi dng cọ thãø thay õọứi mỏỷt khỏứu cuớa mỗnh õaợ õng nhỏỷp vaỡo chổồng trỗnh qua Form Change PassWord vaỡ tờnh baớo mỏỷt váùn âỉåüc bo âm dỉåïi cạc kê tỉû Function CheckPassword() Dim CmpCmp SqlStr$ = "Select * From Baove " 'Set tdyna = tDana.CreateDynaset(SqlStr$) Cmp = StrComp(UCase$(tOldpassword.Text), "SUPERVISOR") If Cmp = Then Cmp = StrComp(UCase$(TnewPassword.Text), "7775") If Cmp = Then CheckPassword = True Else CheckPassword = False End If Else StrFind$ = "UserName = "" &tOldpassword.Text&" Âàûng Thoü KHOA CÄNG NGHÃÛ THÄNG TIN Xáy dæûng hãû thäúng chæång trỗnh quaớn lyù giaớng daỷy 35 tdyna.FindFisrt Strfind$ If Not tdyna.NoMatch Then Cmp StrComp(tdyna!Password, UCase$(TnewPassword.Text)) If Cmp = Then CheckPassword = True Else CheckPassword = False End If End If End If End Function III.2 Caïc thuáût toaïn cáûp nháût (âàng k) qun l: ­ Phán phng hc ­ Phán cäng ging dảy ­ Láûp kãú hoảnh hc táûp ­ Phán thåìi khọa biãøu  Phán phng hc: Private Sub SSCommand1_Click(Index As Integer) Data1.Recordset.AddNew Data1.Recordset.Update Data1.Recordset.MoveLast Data1.Refresh End Sub  Phán cäng ging dảy: Private Sub SSCommand1_Click(Index As Integer) Data1.Recordset.AddNew Data1.Recordset.Update Âàûng Thoü KHOA CÄNG NGHÃÛ THÄNG TIN Xáy dổỷng hóỷ thọỳng chổồng trỗnh quaớn lyù giaớng daỷy 36 Data1.Recordset.MoveLast End Sub Private Sub SSCommand2_Click(Index As Integer) Data1.Recordset.Delete Data1.Recordset.MoveLast End Sub  Láûp kãú hoaûnh hoüc táûp: Private Sub SSCommand1_Click(Index As Integer) Data1.Recordset.AddNew Data1.Recordset.Update Data1.Recordset.MoveLast End Sub Private Sub SSCommand2_Click(Index As Integer) Data1.Recordset.Delete Data1.Recordset.MoveLast End Sub  Phán thåìi khoïa biãøu: Private Sub SSCommand1_Click(Index As Integer) Data5.Recordset.AddNew Data5.Recordset.Update Data5.Recordset.MoveLast End Sub Âàûng Thoü KHOA CÄNG NGHÃÛ THÄNG TIN Xáy dổỷng hóỷ thọỳng chổồng trỗnh quaớn lyù giaớng daỷy 37 Private Sub SSCommand2_Click(Index As Integer) Data5.Recordset.Delete Data5.Recordset.MoveLast End Sub III.3 Cạc thût toạn xỉí l bạo cạo (cạc cáu lãûnh truy vỏỳn dổợ lióỷu SQL): Muỷc õờch cuớa chổồng trỗnh l âỉa âỉåüc thåìi khọa biãøu cho tỉìng låïp, thåìi khọa biãøu cho cạc låïp tỉìng khọa, phán cäng ging dảy cho cạc giạo viãn, bng kãú hoảch hc táûp cho tỉìng låïp, tỉìng khọa Âàûc biãût cáưn xem nhanh caïc thäng tin lëch hoüc cho caïc låïp, quaù trỗnh cọng taùc cuớa tổỡng giaùo vión tổỡng hc k Hay l biãút âỉåüc låïp no âọ âang hoỹc taỷi phoỡng hoỹc sọỳ mỏỳy, mọn hoỹc gỗ, giạo viãn no dảy ­ Phán cäng cho cạc giạo viãn dảy k ­ Phán cäng giạo viãn dảy theo låïp ­ Phán thåìi khọa biãøu cho cạc låïp ­ Phán thåìi khọa biãøu cho cạc khọa ­ Kãú hoaûch hoüc táûp cho låïp ­ Kãú hoaûch hoüc táûp cho cạc khọa hc III.3.1 Phán cäng cho cạc giạo viãn dảy k: Data1.RecordSource = "select distinctrow monhoc.malop, monhoc.tenmonhoc, monhoc.sotietlt, monhoc.diadiem, monhoc.magv, monhoc.tengv, monhoc.chucdanh, monhoc.namhoc, monhoc.hocky, hoc.thu, hoc.tiet ,monhoc.ghichu from hoc inner join monhoc on (hoc.mamonhoc = monhoc.mamonhoc) and (hoc.malop = monhoc.malop) and (hoc.namhoc = monhoc.namhoc) and (hoc.hocky = monhoc.hocky)where (monhoc.namhoc = '" & trim(right(text1.text, 10)) & "') and (monhoc.hocky = '" & trim(right(combo1.text, 10)) & "') and (monhoc.magv = '" & trim(right(text2.text, 10)) & "')order by monhoc.malop,hoc.thu,hoc.tiet " III.3.2 Phán cäng giạo viãn dảy theo låïp: Data1.RecordSource = "select distinctrow hoc.namhoc, hoc.hocky, hoc.malop, hoc.mamonhoc, hoc.thu, hoc.tiet, monhoc.namhoc, monhoc.hocky, Âàûng Thoü KHOA CÄNG NGHÃÛ THÄNG TIN Xáy dæûng hãû thọỳng chổồng trỗnh quaớn lyù giaớng daỷy 38 monhoc.mamonhoc, monhoc.tenmonhoc, monhoc.sotietlt, monhoc.magv, monhoc.tengv, monhoc.chucdanh, monhoc.diadiem, monhoc.ghichu from hoc inner join monhoc on (hoc.hocky = monhoc.hocky) and (hoc.namhoc = monhoc.namhoc) and (hoc.malop = monhoc.malop) and (hoc.mamonhoc = monhoc.mamonhoc) where (monhoc.magv = '" & trim(right(text1.text, 10)) & "') and (hoc.namhoc = '" & trim(right(text2.text, 10)) & "') and (hoc.hocky = '" & trim(right(combo1.text, 10)) & "')and (hoc.malop = '" & trim(right(text3.text, 10)) & "') order by hoc.malop" III.3.3 Phán thåìi khọa biãøu cho caïc låïp data1.recordsource = "select distinctrow lop.malop, lop.phong, lop.namhoc, lop.hocky, hoc.mamonhoc, hoc.tenmonhoc, hoc.thu, hoc.tiet, monhoc.magv, monhoc.tengv from (lop inner join hoc on (lop.hocky = hoc.hocky) and (lop.namhoc = hoc.namhoc) and (lop.malop = hoc.malop)) inner join monhoc on (hoc.malop = monhoc.malop) and (hoc.hocky = monhoc.hocky) and (hoc.namhoc = monhoc.namhoc) and (hoc.mamonhoc = monhoc.mamonhoc)where (hoc.malop = '" & trim(right(text1.text, 10)) & "')and (hoc.namhoc = '" & trim(right(text2.text, 10)) & "')and (hoc.hocky = '" & trim(right(combo1.text, 10)) & "') order by thu " III.3.4 Phán thåìi khọa biãøu cho cạc khọa: data1.recordsource = "select distinctrow monhoc.tenmonhoc, monhoc.sotietlt, monhoc.tengv, monhoc.malop, monhoc.namhoc, monhoc.hocky, hoc.thu, hoc.tiet, lop.phong, lop.khoahoc from lop inner join (hoc inner join monhoc on (monhoc.hocky = hoc.hocky) and (monhoc.namhoc = hoc.namhoc) and (monhoc.malop = hoc.malop) and (hoc.mamonhoc = monhoc.mamonhoc)) on (lop.hocky = hoc.hocky) and (lop.namhoc = hoc.namhoc) and (lop.malop = hoc.malop)where (hoc.namhoc = '" & trim(right(text1.text, 10)) & "')and (hoc.hocky = '" & trim(right(combo1.text, 10)) & "') and (lop.khoahoc = '" & trim(right(text2.text, 10)) & "') order by lop.malop asc, hoc.thu asc" III.3.5 Kãú hoaûch hoüc táûp cho låïp data1.recordsource = "select distinctrow kehoach.ghichu1, kehoach.malop, kehoach.tenda, kehoach.sothoc, kehoach.tuanbd, kehoach.tuankt, kehoach.sotthi, kehoach.batdauthi, kehoach.ketthucthi, kehoach.sottt, lop.phong, lop.khoa, lop.khoahoc, monhoc.tenmonhoc, monhoc.sotietlt, monhoc.btlon, monhoc.tenda, monhoc.tnth, kehoach.bdthuctap, kehoach.ktthuctap, kehoach.namhoc, kehoach.hocky from (monhoc inner join kehoach on (monhoc.hocky = kehoach.hocky) and (monhoc.namhoc = kehoach.namhoc) and (monhoc.malop = kehoach.malop)) inner join lop on Âàûng Thoü KHOA CÄNG NGHÃÛ THÄNG TIN Xỏy dổỷng hóỷ thọỳng chổồng trỗnh quaớn lyù giaớng daûy 39 (kehoach.hocky = lop.hocky) and (kehoach.namhoc = lop.namhoc) and (kehoach.malop = lop.malop)where (kehoach.namhoc = '" & trim(right(text1.text, 10)) & "')and (kehoach.hocky = '" & trim(right(combo1.text, 10)) & "') and (kehoach.malop = '" & trim(right(text2.text, 10)) & "') order by monhoc.tenmonhoc asc" III.3.6 Kãú hoảch hc táûp cho cạc khọa hoüc: data1.recordsource = "select distinctrow lop.khoahoc, lop.hocky, lop.namhoc, lop.khoa, lop.malop, kehoach.ghichu1, kehoach.tenda, kehoach.sothoc, kehoach.tuanbd, kehoach.tuankt, kehoach.sotthi, kehoach.batdauthi, kehoach.ketthucthi, kehoach.sottt, kehoach.bdthuctap, kehoach.ktthuctap from kehoach inner join lop on (kehoach.hocky = lop.hocky) and (kehoach.namhoc = lop.namhoc) and (kehoach.malop = lop.malop) where (lop.namhoc = '" & trim(right(text1.text, 10)) & "')and (lop.hocky = '" & trim(right(combo1.text, 10)) & "') and (lop.khoahoc = '" & trim(right(text2.text, 10)) & "') order by lop.malop asc" Âàûng Thoü KHOA CÄNG NGHÃÛ THÄNG TIN ... Thu T7 Tiet T4 • Thỉûc thãø MÄN HC: Table Tãn chè MÄN HC MONHOC Cạc trỉåìng Khọa chè mủc Kiãøu dỉỵ mủc Mamonhoc liãûu Mamonhoc T10 Tenmonhoc T40 SotietLT N3 BTlon N2 TN_TH N2 Ghichu T40 • Thỉûc... Table Tãn chè mủc KHOA KHOA Cạc trỉåìng Khọa chè Kiãøu dổợ Makhoa Makhoa T10 muỷc Tenkhoa lióỷu T40 ã Thổỷc thãø LÅÏP: Table Tãn chè mủc LÅÏP LOP Cạc trỉåìng Khọa chè Kiãøu dỉỵ Malop Malop T10... quaớn l ging dảy 33 mủc ÂÄƯ ẠN DOAN Cạc trỉåìng Khọa chè Kiãøu dỉỵ mủc MaDA liãûu MaDA T10 TenDA T40 III HĩP THặẽC HOẽA M HầNH Dặẻ LIU BI XỈÍ L SỈÛ KIÃÛN: Sau phán têch thiãút kãú hóỷ thọỳng, xỏy