Xây dựng một chương trình đào tạo từ xa một môn học

Lêi nãi ®Çu B­íc sang thÕ kØ XXI, khoa häc kü thuËt ngµy cµng ph¸t triÓn nh­ vò b·o, trong ®ã khoa häc c«ng nghÖ ph¸t triÓn rÊt m¹nh mÏ, ®Æc biÖt lµ khoa häc m¸y tÝnh hay cßn gäi lµ “C«ng nghÖ Th«ng tin”. Nã ®· x©m nhËp vµo mäi lÜnh vùc cña KHKT, kinh tÕ, chÝnh trÞ, gi¶i trÝ… C«ng nghÖ m¸y tÝnh ®em l¹i cho con ng­êi nh÷ng kh¶ n¨ng kú diÖu mµ tr­íc ®©y con ng­êi t­ëng nh­ kh«ng thÓ lµm ®­îc. Tõ nh÷ng c«ng viÖc, nhu cÇu ®¬n gi¶n hµng ngµy cho ®Õn viÖc lËp tr×nh, x©y dùng c¸c ch­¬ng tr×nh khoa häc kü thuËt lín. M¸y tÝnh ®· trë thµnh trî thñ ®¾c lùc nhÊt gióp con ng­êi cËp nhËt, t×m kiÕm, thiÕt kÕ vµ l­u tr÷ th«ng tin mét c¸ch hiÖu qu¶ nhÊt. Cïng víi sù ph¸t triÓn vÒ nhu cÇu l­u tr÷, xö lý, trao ®æi th«ng tin, c«ng nghÖ phÇn mÒm còng ph¸t triÓn nh»m ®¸p øng nhu cÇu ®Æt ra hµng ngµy.Tõ khi xuÊt hiÖn c¸c hÖ CSDL c¸c t¸c gi¶ kh«ng ngõng cung cÊp, ph¸t triÓn vµ h×nh thµnh nhiÒu hÖ CSDL míi. Nh»m ®¸p øng c¸c yªu cÇu ®Æt ra hiÖn nay vÒ viÖc qu¶n trÞ CSDL th× hÖ qu¶n trÞ CSDL SQL Server còng kh«ng ngõng n©ng cÊp, ph¸t triÓn vµ më réng nh÷ng phiªn b¶n SQL Server 6.0, SQL Server 6.5 vµ SQL Server 7.0 vµ nay lµ SQL Server 2000. SQL Server ra ®êi cã nh÷ng ­u ®iÓm sau: Cho phÐp qu¶n trÞ CSDL lín, cã tèc ®é xö lý d÷ liÖu nhanh ®¸p øng nhu cÇu vÒ thêi gian. Cho phÐp nhiÒu ng­êi cïng khai th¸c trong mét thêi ®iÓm ®èi víi mét CSDL vµ toµn bé hÖ qu¶n trÞ CSDL. Cã hÖ thèng b¶o mËt cao, hç trî m¹nh mÏ viÖc triÓn khai CSDL ph©n t¸n vµ cung cÊp dÞch vô Internet. Cho phÐp lËp tr×nh kÕt nèi víi nhiÒu ng«n ng÷ lËp tr×nh kh¸c nh­ Visual Basic, Visual C++.. Víi vèn kiÕn thøc ®· ®­îc häc t¹i tr­êng vµ còng phÇn nµo thÊy ®­îc nh÷ng nhu cÇu cÊp thiÕt cña x· héi trong giai ®o¹n mµ tin häc ph¸t triÓn nh­ vò b·o, chóng em mong muèn thiÕt kÕ mét ch­¬ng tr×nh cã thÓ øng dông ®­îc vµo thùc tÕ. V× vËy chóng em ®· chän ®Ò tµi: “X©y dùng mét ch­¬ng tr×nh ®µo t¹o tõ xa mét m«n häc” víi nh÷ng néi dung chÝnh nh­ sau: C¸c gi¸o viªn cã thÓ cËp nhËt bµi gi¶ng vµ bµi tËp trªn Visual Basic, c¸c chøc n¨ng kh¸c ®­îc thùc hiÖn trªn Website. Tuy nhiªn, kh¶ n¨ng cßn h¹n chÕ nªn kh«ng tr¸nh khái nh÷ng thiÕu sãt.V× vËy, chóng em mong thÇy c« cïng c¸c b¹n ®ãng gãp ý kiÕn ®Ó ch­¬ng tr×nh cña chóng em ®­îc hoµn thiÖn h¬n. Cuèi cïng chóng em xin ch©n thµnh c¶m ¬n sù gi¶ng d¹y vµ gióp ®ì rÊt nhiÖt t×nh cña thÇy gi¸o TrÇn §¨ng C«ng ®· gióp chóng em hoµn thµnh ch­¬ng tr×nh nµy. §µo t¹o tõ xa mét m«n häc víi chøc n¨ng cËp nhËt bµi gi¶ng trªn Visual Basic, c¸c chøc n¨ng kh¸c trªn Web Ph©n tÝch bµi to¸n Bµi to¸n: §µo t¹o tõ xa mét häc: Yªu cÇu: 1. Gi¸o viªn cËp nhËt bµi gi¶ng, tr¶ bµi vµ chÊm bµi trªn Visual Basic. 2. C¸c chøc n¨ng cßn l¹i thùc hiÖn trªn Web. Môc ®Ých cña ®Ò tµi Trong nh÷ng n¨m thËp niªn 90, do nÒn kinh tÕ n­íc ta cßn kÐm ph¸t triÓn, nh÷ng thµnh tùu khoa häc c«ng nghÖ kü thuËt ch­a ®­îc øng dông réng r·i nªn viÖc häc vµ vÉn cßn mang tÝnh thñ c«ng nghÜa lµ c¶ ng­êi d¹y vµ ng­êi häc vÉn ph¶i tËp trung ë mét n¬i míi cã thÓ ®¸p øng ®­îc c¶ hai nhu cÇu nµy. HiÖn nay nÒn kinh tÕ ngµy cµng ph¸t triÓn, nhu cÇu vÒ häc vµ d¹y còng ®­îc t¨ng theo. Do vËy, mét lo¹t nh÷ng ch­¬ng tr×nh ®µo tõ xa ra ®êi khi mµ c«ng nghÖ th«ng tin ngµy cµng ph¸t triÓn nh»m môc ®Ých ®¸p øng ®­îc c¶ hai nhu cÇu trªn. §µo t¹o tõ xa lµ mét ®Ò tµi mang tÝnh chÊt thùc tÕ, lµm gi¶m bít chi phÝ cho viÖc d¹y vµ häc mµ hiÖu qu¶ l¹i cao. Ch­¬ng tr×nh nµy khi ®­îc hoµn thiÖn h¬n th× cã thÓ øng dông trong thùc tÕ. Khi ®ã nã sÏ gióp cho c¶ ng­êi cã nhu cÇu muèn häc vµ ng­êi muèn d¹y cã thÓ thùc hiÖn mong muèn cña m×nh mét c¸ch nhanh chãng vµ hiªu qu¶ h¬n, chi phÝ rÎ h¬n so víi tr­íc ®©y. Do ®ã qu¶n trÞ CSDL ®· ®­îc ®­a vµo øng dông réng r·i trong lÜnh ®µo t¹o m«n häc tõ xa. HÖ thèng míi nµy ®· cã thÓ cËp nhËt ®­îc danh s¸ch gi¸o viªn, c¸c bµi gi¶ng cña gi¸o viªn…hµng ngµy mµ Ýt bÞ sai sãt vµ th­êng xuyªn h¬n. S¬ §å Ph©n CÊp Chøc N¨ng §µo t¹o tõ xa Chøc n¨ng trªn VB Chøc n¨ng trªn Website CËp NhËt bµi gi¶ng T×m kiÕm c©u hái Tra Cøu CËp NhËt gi¸o viªn CËp NhËt bµi tËp C¬ së d÷ liÖu bµi to¸n Modul Ch­¬ng Tr×nh Ch­¬ng Tr×nh Visual Basic Gi¸o viªn vµ ng­êi qu¶n lý muèn vµo ®­îc hÖ thèng cÇn ph¶i login vµo hÖ thèng th«ng qua mét mËt khÈu chung Form Login Sau khi vµo ®­îc hÖ thèng, form chÝnh cña ch­¬ng tr×nh ®­îc bËt ra ®Ó ng­êi dïng lùa chän Form chÝnh §èi víi ng­êi qu¶n lý, khi cÇn nhËp danh s¸ch nhøng gi¸o viªn míi hoÆc ®Ó xem danh s¸ch nh÷ng gi¸o viªn ®· cã, cÇn lùa chän vµo menu He Thong/Nhap Giao vien  Form Nhap Giao Vien §èi víi gi¸o viªn cÇn nhËp bµI gi¶ng vµ bµi tËp cña m×nh th× cÇn vµo menu He Thong/Nhap bai giang hoÆc He Thong/Nhap bai tap Form Nhap bai giang Form Nhap bai tap §Ó xem c©u hái cña häc viªn, cÇn vµo menu Cau Hoi Hoc Sinh  Form Cau Hoi Hoc Sinh  Víi chøc n¨ng kh¸c trªn Web, ®Ó vµo xem trang Web vµ tham gia häc b¹n cÇn cã tªn ®¨ng nhËp vµ mËt khÈu Trang ®¨ng nhËp ®ång thêi lµ trang chñ NÕu b¹n ch­a ph¶i lµ thµnh viªn b¹n cÇn vµo trang ®¨ng ký ®Ó nhËp tªn ®¨ng ký vµ mËt khÈu cña m×nh Trang §¨ng ký Khi ®· hoµn tÊt thñ tôc ®¨ng nhËp hoÆc ®¨ng ký, b¹n cã thÓ tham gia vµo ch­¬ng tr×nh häc Trang bµi gi¶ng Ngoµi ra häc viªn cã thÓ ®Æt ra c©u hái ®èi víi bµi gi¶ng Trang c©u hái D­íi ®©y lµ code cña nh÷ng trang c¬ b¶n cña hÖ thèng Login trong Visual Basic Private Sub Command1_Click() On Error GoTo loi Dim i As Integer, n As Integer Dim TimThay As Boolean Set oSQLServer = New SQLDMO.SQLServer oSQLServer.Connect Text3.Text, Text1.Text, Text2.Text n = oSQLServer.Databases.Count TimThay = False For i = 1 To n If oSQLServer.Databases(i).Name = "CSDLDTTX" Then TimThay = True Exit For End If Next i If TimThay = False Then oSQLServer.ExecuteImmediate "Create Database CSDLDTTX" oSQLServer.DisConnect oSQLServer.ReConnect MsgBox "Ch­¬ng tr×nh ch¹y lÇn ®Çu", vbInformation, "Thong bao" Set oDB = oSQLServer.Databases("CSDLDTTX") oDB.ExecuteImmediate "Create Table Sinhvien(ID int not null primary key ,TenDN ntext,PassSV ntext)" oDB.ExecuteImmediate "Create Table Giaovien(ID int not null primary key ,HoTen ntext,Ngaysinh datetime,Diachi nvarchar(50), Dienthoai int)" oDB.ExecuteImmediate "Create Table Baigiang(ID int not null primary key ,Ten ntext,NgayCN datetime,NDCT ntext,Giaovien int references Giaovien(ID))" oDB.ExecuteImmediate "Create Table Baitap(ID int not null primary key ,NgayCN datetime,BG int references Baigiang(ID),Giaovien int references Giaovien(ID),NoidungBT ntext,NoiDungDABT ntext)" oDB.ExecuteImmediate "Create Table CauhoiSV(ID int not null primary key ,Ten ntext,NgayCN datetime,BT int references BaiTap(ID))" Else Set oDB = oSQLServer.Databases("CSDLDTTX") End If Main.Show Exit Sub loi: MsgBox "Kh«ng kÕt nèi", vbExclamation, "Thong bao" End Sub Login trªn Web <% dim Username, Password, Servername Servername="server" Username=Request.Form("txtUser") Password=Request.Form("txtPass") Set cn = Server.CreateObject("ADODB.Connection") Set cn = Getconnection Set rs = Server.CreateObject("ADODB.Recordset") '==================================================== 'Kiem tra mat khau Set rs = cn.Execute("SELECT * FROM Sinhvien WHERE TenDN='" & Username & "' and passSV='" & password & "'") If rs.EOF then response.write "Dang nhap khong thanh cong" response.write "Quay lai" response.end else Response.Redirect("tranghoc.htm") End if '==================================================== Function GetConnection() Set objConnection=server.CreateObject("ADODB.Connection") strConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=CSDLDTTX;Data Source=server" objConnection.Open strConnectionString set GetConnection = objConnection End Function %> CËp nhËt bµi gi¶ng trong Visual Basic Private Sub cmdexit_Click() Dim i As String i = MsgBox("Ban Co Muon Thoat Khong", vbQuestion + vbYesNo, "Thong Bao") If i = vbNo Then Exit Sub Else Unload Me End If End Sub Private Sub cmdnew_Click() set_null Text1.SetFocus End Sub Private Sub set_null() Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" RichTextBox1.Text = "" End Sub Private Sub cmdOK_Click() frm_Giaovien.Show End Sub Private Sub cmdsave_Click() Dim i As String Dim thongbao As Boolean thongbao = False If (Trim(Text1.Text) = "") Or (Trim(Text2.Text) = "") Or (Trim(Text3.Text) = "") Or (Trim(Text4.Text) = "") Or (Trim(RichTextBox1.Text) = "") Then MsgBox " Ban Nhap Thieu Du Lieu", vbExclamation, "Chu Y" Exit Sub End If 'Adodc1.Recordset.MoveFirst Do While Not Adodc1.Recordset.EOF If Adodc1.Recordset.Fields("ID") = Text1.Text Then thongbao = True Exit Do End If Adodc1.Recordset.MoveNext Loop If thongbao = True Then MsgBox "Ban Nhap Trung Ma [" & Text1.Text & "]", vbExclamation, "chu Y" Exit Sub Else Adodc1.Recordset.AddNew Adodc1.Recordset.Fields("ID") = Text1.Text Adodc1.Recordset.Fields("Ten") = Text2.Text Adodc1.Recordset.Fields("NgayCN") = Text3.Text Adodc1.Recordset.Fields("NDCT") = RichTextBox1.Text Adodc1.Recordset.Fields("GiaoVien") = Text4.Text Adodc1.Recordset.Update set_null MsgBox "Da xong" End If Text5.Text = "" End Sub Private Sub cmdsua_Click() Dim thongbao As Boolean thongbao = False If Adodc1.Recordset.RecordCount > 0 Then Adodc1.Recordset.MoveFirst Do While Not Adodc1.Recordset.EOF If Adodc1.Recordset.Fields("ID") = Text5.Text Then thongbao = True Exit Do End If Adodc1.Recordset.MoveNext Loop If thongbao = True Then Text1.Text = Adodc1.Recordset.Fields("ID") Text2.Text = Adodc1.Recordset.Fields("Ten") Text3.Text = Adodc1.Recordset.Fields("NgayCN") Text4.Text = Adodc1.Recordset.Fields("GiaoVien") RichTextBox1.Text = Adodc1.Recordset.Fields("NDCT") Else MsgBox "Ma Khong Tim Thay", vbInformation, "Thong Bao" End If Else MsgBox "Khong Co Ban Ghi", vbExclamation, "Chu Y" End If End Sub Private Sub cmdxoa_Click() Dim i As String If Adodc1.Recordset.RecordCount > 0 Then i = MsgBox("Ban Co Muon Xoa Khong", vbQuestion + vbYesNo, "Thong Bao") If i = vbNo Then Exit Sub Else Adodc1.Recordset.Delete End If Else MsgBox "Khong Co Ban ghi", vbExclamation, "Chu Y" End If End Sub Private Sub Form_Load() Adodc1.Visible = False Adodc1.RecordSource = "select * from Baigiang" End Sub KÕt luËn §µo t¹o tõ xa lµ mét ch­¬ng tr×nh hay mang nhiÒu ý nghÜa thiÕt thùc. Tuy nhiªn, ®Ó ch­¬ng tr×nh nµy hoµn thiÖn h¬n vµ thùc tÕ h¬n n÷a ®ßi hái cÇn cã nhiÒu thêi gian. Trong khu«n khæ mét bµi tËp lín m«n häc, chóng em ch­a thÓ bao qu¸t hÕt c¸c t×nh huèng vµ hoµn chØnh ch­¬ng tr×nh. Do vËy, thiÕu sãt lµ ®IÒu kh«ng tr¸nh khái. RÊt mong nhËn ®­îc sù ®ãng gãp ý kiÕn cña thÇy c« vµ c¸c b¹n ®Ó ch­¬ng tr×nh hoµn thiÖn h¬n. Mét lÇn n÷a, chóng em xin c¶m ¬n thÇy gi¸o TrÇn §¨ng C«ng ®· gióp ®ì chóng em lµm ch­¬ng tr×nh nµy. Nhãm sinh viªn NguyÔn ThÞ Thanh Loan NguyÔn Thanh H¶i Tµi liÖu tham kh¶o C¸c bµi gi¶ng vµ thùc hµnh trªn líp cña thÇy gi¸o TrÇn §¨ng C«ng. Nh÷ng bµi tËp thùc hµnh ASP, tæng hîp vµ biªn so¹n VN-GUIDE, NXB Thèng Kª. Gi¸o tr×nh HÖ Qu¶n trÞ C¬ së D÷ liÖu SQL – Server.