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

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à khoahọ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ọilĩ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 khoahọc kỹ thuật lớn Máy tính đã trở thành trợ thủ đắc lực nhất giúp con ngờicập nhật, tìm kiếm, thiết kế và lu 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 lu trữ, xử lý, trao đổi thông tin, côngnghệ 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ừngnâng cấp, phát triển và mở rộng những phiên bản SQL Server 6.0, SQLServer 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 ứngnhu 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ộtCSDL 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ântá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 VisualBasic, 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 đợcnhữ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ăngkhá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ếusót.Vì vậy, chúng em mong thầy cô cùng các bạn đóng góp ý kiến để chơngtrì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

2

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áttriển, những thành tựu khoa học công nghệ kỹ thuật cha đợc ứng dụng rộngrã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ờihọ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ả hainhu 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 chiphí cho việc dạy và học mà hiệu quả lại cao Chơng trình này khi đợc hoànthiệ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ìnhmộ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 đàotạ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áoviê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ênhơ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

Tra Cøu

CËp NhËt gi¸o viªn

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

6

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ớihoặc để xem danh sách những giáo viên đã có, cần lựa chọn vào menu HeThong/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µomenu He Thong/Nhap bai giang hoÆc He Thong/Nhap bai tap

8

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

10

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ọcbạ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 cha 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

12

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

14

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

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 primarykey ,TenDN ntext,PassSV ntext)"

oDB.ExecuteImmediate "Create Table Giaovien(ID int not null primarykey ,HoTen ntext,Ngaysinh datetime,Diachi nvarchar(50), Dienthoai int)" oDB.ExecuteImmediate "Create Table Baigiang(ID int not null primarykey ,Ten ntext,NgayCN datetime,NDCT ntext,Giaovien int referencesGiaovien(ID))"

oDB.ExecuteImmediate "Create Table Baitap(ID int not null primarykey ,NgayCN datetime,BG int references Baigiang(ID),Giaovien intreferences Giaovien(ID),NoidungBT ntext,NoiDungDABT ntext)"

16

oDB.ExecuteImmediate "Create Table CauhoiSV(ID int not null primarykey ,Ten ntext,NgayCN datetime,BT int references BaiTap(ID))"

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 "<a href=""javascript:window.history.back(1)"">Quay lai</a>"

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()

Private Sub cmdsave_Click()

Do While Not Adodc1.Recordset.EOF

If Adodc1.Recordset.Fields("ID") = Text1.Text Then

If thongbao = True Then

MsgBox "Ban Nhap Trung Ma [" & Text1.Text & "]", vbExclamation,

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

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

Tµi liÖu tham kh¶o

1 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

2 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ª

3 Gi¸o tr×nh HÖ Qu¶n trÞ C¬ së D÷ liÖu SQL – Server