Lời đầu tiên tất cả thành viên nhóm 5 xin gửi lời chào đến thầy và các bạn
sinh viên trong lớp DL08TH. Kính chúc thầy cùng các bạn sinh viên nhiều sức khoẻ
để thành công trong cuộc sống. Nhóm 5 rất hân hạnh khi nhận làm đề tài về thiết kế
trang web. Xuất phát từ nhu cầu thực tiễn trong nghề nghiệp là giáo viên nên nhóm
chúng tôi chọn đề tài thiết kế web cho một trường học. Với lòng nhiệt quyết ham
học hỏi và sáng tạo nhóm chúng tôi đã cùng nhau thảo luận. Sau một thời gian làm
thử nghiệm, cuối cùng nhóm chúng tôi đã cơ bản hoàn thành đề tài được giao.trang
web của nhóm 5 chúng tôi làm có tên là “Trường THCS Phan Chu Trinh”.
Lần đầu tiên làm đề tài web mang tính chuyên môn cao, cùng với vốn kiến
thức còn hạn chế và thời gian tìm hiểu rất ít; do đa số thành viên trong nhóm đều
phải đi làm hằng ngày, nên chắc hẳn đề tài của chúng tôi còn rất nhiều điểm thiếu
sót và hạn chế. Rất mong được sự đóng góp ý kiến tận tình của thầy cùng các bạn
trong lớp để đề tài của nhóm chúng tôi được hoàn thiện hơn.
23 trang |
Chia sẻ: luyenbuizn | Lượt xem: 1292 | Lượt tải: 1
Bạn đang xem trước 20 trang nội dung tài liệu Báo cáo môn lập trình web1: Website thông tin cho trường TH Cơ sở, để xem tài liệu hoàn chỉnh bạn click vào nút DOWNLOAD ở trên
GVHD: ThS.Bùi Duy Tuấn tinvn.com.vn
Báo cáo đề tài môn lập trình web1: Website thông tin cho trường TH Cơ sở
Trang 1
MỤC LỤC Trang
I. LỜI NÓI ĐẦU VÀ LÝ DO CHỌN ĐỀ TÀI 2
II. GIỚI THIỆU NHÓM 2
III. MÔ TẢ CHƯƠNG TRÌNH VÀ CÔNG CỤ SỬ DỤNG 2
IV. CÁC BIỂU MẪU LIÊN QUAN 3
V. SƠ ĐỒ CHỨC NĂNG 6
VI. THIẾT KẾ GIAO DIỆN 8
VII. CÁC BẢNG CƠ SỞ DỮ LIỆU 11
VIII. THỰC HIỀN 12
IX. LỜI KẾT 13
GVHD: ThS.Bùi Duy Tuấn tinvn.com.vn
Báo cáo đề tài môn lập trình web1: Website thông tin cho trường TH Cơ sở
Trang 2
I - LỜI NÓI ĐẦU:
Lời đầu tiên tất cả thành viên nhóm 5 xin gửi lời chào đến thầy và các bạn
sinh viên trong lớp DL08TH. Kính chúc thầy cùng các bạn sinh viên nhiều sức khoẻ
để thành công trong cuộc sống. Nhóm 5 rất hân hạnh khi nhận làm đề tài về thiết kế
trang web. Xuất phát từ nhu cầu thực tiễn trong nghề nghiệp là giáo viên nên nhóm
chúng tôi chọn đề tài thiết kế web cho một trường học. Với lòng nhiệt quyết ham
học hỏi và sáng tạo nhóm chúng tôi đã cùng nhau thảo luận. Sau một thời gian làm
thử nghiệm, cuối cùng nhóm chúng tôi đã cơ bản hoàn thành đề tài được giao.trang
web của nhóm 5 chúng tôi làm có tên là “Trường THCS Phan Chu Trinh”.
Lần đầu tiên làm đề tài web mang tính chuyên môn cao, cùng với vốn kiến
thức còn hạn chế và thời gian tìm hiểu rất ít; do đa số thành viên trong nhóm đều
phải đi làm hằng ngày, nên chắc hẳn đề tài của chúng tôi còn rất nhiều điểm thiếu
sót và hạn chế. Rất mong được sự đóng góp ý kiến tận tình của thầy cùng các bạn
trong lớp để đề tài của nhóm chúng tôi được hoàn thiện hơn.
II - CÁC THÀNH VIÊN TRONG NHÓM 5 CÙNG THAM GIA LÀM ĐỀ TÀI
Nhóm 5 lớp DL08TH khóa học 2008- 2010 gồm các thành viên:
- Lê Nguyễn Hoàng Vũ
- Phạm Đức Minh Hải
- Nguyễn Thăng Thành
- Trần Thị Thúy Phượng
- Trần Thị Dung
III-MÔ TẢ CHƯƠNG TRÌNH, TÀI LIỆU THAM KHẢO VÀ CÔNG
CỤ SỬ DỤNG:
-Trang web trường THCS Phan Chu Trinh có các trang chính: trang chủ, trang đăng
nhập, trang đăng ký, trang giới thiệu, trang liên hệ góp ý, trang xem điểm, trang tin
tức và trang quản trị.
Công việc chính của Website:
+ Giới thiệu về tổ chức nhà trường.
+ Phát sinh thành viên mới đăng ký.
GVHD: ThS.Bùi Duy Tuấn tinvn.com.vn
Báo cáo đề tài môn lập trình web1: Website thông tin cho trường TH Cơ sở
Trang 3
+ Cho phép thành viên được viết góp ý, xem và sửa thông tin đăng nhập của cá
nhân.
+ Cho phép người quản trị thêm/xóa /sửa dữ liệu trong CSDL, quản lý thành viên,
xem góp ý.
+ Tìm kiếm thông tin giáo dục qua các website liên kết.
-Trong quá trình thực hiện đề tài, nhóm 5 có sử dụng một số tài liệu tham khảo như:
Giáo trình VB 6.0, giáo trình lập trình web asp.net, và một số tài liệu khác trên
mạng.
- Công cụ sử dụng: Ngôn ngữ lập trình Vb.net 2005, microsoft access, notepad…
IV-CÁC BIÊU MẪU LIÊN QUAN:
A. ADMIN :
1.Biểu mẫu 1 :thêm thông tin vào dữ liệu
2.Biểu mẫu 2 : Quản lý thành viên
3.. Biểu mẫu 3 : xử lý góp ý
GVHD: ThS.Bùi Duy Tuấn tinvn.com.vn
Báo cáo đề tài môn lập trình web1: Website thông tin cho trường TH Cơ sở
Trang 4
4. Biểu mẫu 4 : thay đổi mật khẩu của quản trị
B.THÀNH VIÊN :
1. Biểu mẫu 1 :Đăng Ký
GVHD: ThS.Bùi Duy Tuấn tinvn.com.vn
Báo cáo đề tài môn lập trình web1: Website thông tin cho trường TH Cơ sở
Trang 5
2.Biểu mẫu 2 : Đăng nhập
3.Biểu mẫu 3 : Góp ý
4.Biểu mẫu 4 : Sửa thông tin đăng nhập
GVHD: ThS.Bùi Duy Tuấn tinvn.com.vn
Báo cáo đề tài môn lập trình web1: Website thông tin cho trường TH Cơ sở
Trang 6
V - SƠ ĐỒ CHỨC NĂNG :
A. ADMIN:
BẮT ĐẦU
ĐĂNG
NHẬP
Admin
Thoát
Thay đổi mật
khẩu
Xử lý góp ý
Quản lý thành viên
Cập nhật thông
tin
Phân quyền
người dùng
Xem
trang
khác
GVHD: ThS.Bùi Duy Tuấn tinvn.com.vn
Báo cáo đề tài môn lập trình web1: Website thông tin cho trường TH Cơ sở
Trang 7
B. THÀNH VIÊN:
GVHD: ThS.Bùi Duy Tuấn tinvn.com.vn
Báo cáo đề tài môn lập trình web1: Website thông tin cho trường TH Cơ sở
Trang 8
VI – THIẾT KẾ GIAO DIỆN:
GVHD: ThS.Bùi Duy Tuấn tinvn.com.vn
Báo cáo đề tài môn lập trình web1: Website thông tin cho trường TH Cơ sở
Trang 9
1. TRANG CHỦ
MENU chính gồm có:
- Trang chủ
- Trang giới thiệu
- Trang tin tức sự kiện
- Trang các tổ chuyên môn
- Trang hỗ trợ học sinh
- Trang liên hệ
- Đăng ký
- Đăng nhập
Các thành phần phụ :
- Trang “Cổng thông tin” thi và tuyển sinh.
- Liện kết website.
- Trang mạng giáo dục “edu.com”
- Trang thư viện
- Imports System.Data
- Imports System.Data.OleDb
- Imports System.IO
- Partial Class TrangChu
GVHD: ThS.Bùi Duy Tuấn tinvn.com.vn
Báo cáo đề tài môn lập trình web1: Website thông tin cho trường TH Cơ sở
Trang 10
- Inherits System.Web.UI.Page
- Public conn As New OleDbConnection()
- Public code As New ConnectionDB()
- Protected Sub Page_Load(ByVal sender As Object, ByVal e As
System.EventArgs) Handles Me.Load
- Session("noidung") = ""
- 'If Not IsPostBack Then
- ketnodulieu()
- ' End If
- End Sub
- Sub ketnodulieu()
- conn = code.Conn()
- Dim docghi As OleDbDataAdapter
- docghi = New OleDbDataAdapter("select * from TinTuc",
conn)
- Dim dataset As DataSet = New DataSet()
- docghi.Fill(dataset, "TinTuc")
- DataList_TinTuc.DataSource =
dataset.Tables("TinTuc").DefaultView
- DataList_TinTuc.DataBind()
- End Sub
- Protected Sub DataList_TinTuc_ItemDataBound(ByVal sender
As Object, ByVal e As
System.Web.UI.WebControls.DataListItemEventArgs) Handles
DataList_TinTuc.ItemDataBound
- Dim dong As Integer = e.Item.ItemIndex
- If dong < 0 Then Exit Sub
-
- Dim TieuDe As Label
- TieuDe = e.Item.FindControl("Label_NoiDung")
- TieuDe.Text = Left(e.Item.DataItem("TieuDe"), 120) & "..."
-
- Dim ChiTiet As HyperLink
- ChiTiet = e.Item.FindControl("HyperLink_Xem")
- 'Session("noidung") = e.Item.DataItem("NoiDung")
- 'ChiTiet.NavigateUrl = "TrangChu.aspx"
- ChiTiet.NavigateUrl = "~\TinTuc_TrangChu\" &
e.Item.DataItem("NoiDung")
-
- Dim Hinh As HyperLink
- Hinh = e.Item.FindControl("HyperLink_Hinh")
GVHD: ThS.Bùi Duy Tuấn tinvn.com.vn
Báo cáo đề tài môn lập trình web1: Website thông tin cho trường TH Cơ sở
Trang 11
- Hinh.ImageUrl = "~\image\" & e.Item.DataItem("Hinh")
- End Sub
- End Class
2. TRANG GIỚI THIỆU
3. TRANG ĐĂNG KÝ
GVHD: ThS.Bùi Duy Tuấn tinvn.com.vn
Báo cáo đề tài môn lập trình web1: Website thông tin cho trường TH Cơ sở
Trang 12
Thành viên đăng ký phải điền đầy đủ thông tin vào các ô: Tên đăng ký, mật
khẩu, nhập lại mật khẩu, họ tên, ngày sinh, địa chỉ mail. Sau đó nhấp vào nút
“Đăng ký” và chờ hiển thị thông báo “đăng ký thành công”.
4. TRANG ĐĂNG NHẬP
Gõ thông tin bạn đã đăng ký là thành viên để vào đăng nhập.
GVHD: ThS.Bùi Duy Tuấn tinvn.com.vn
Báo cáo đề tài môn lập trình web1: Website thông tin cho trường TH Cơ sở
Trang 13
Bạn có thể thay đổi thông tin đăng nhập của cá nhân ( ngoại trừ tên đăng
nhập)
* Lưu ý: nếu bạn đã đăng nhập rồi thì không được đăng nhập lại. Máy sẽ
thông báo lỗi “ Bạn đã đăng nhập”.
5. TRANG QUẢN TRỊ
Quản trị cũng có các quyền như các thành viên khác. Đồng thời có thêm các độc
quyền sau: cập nhật thông tin lên trang web, xem và xóa thông tin thành viên, xem và xóa
thư góp ý của thành viên.
6. TRANG LIÊN HỆ GÓP Ý
7. Imports System
8. Imports System.Web
9. Imports System.Web.UI
10. Imports System.Web.UI.Control
11. Imports System.Data
12. Imports System.Data.OleDb
13. Imports System.IO
14. Partial Class MasterPage 'Lớp kế thừa MasterPage
15. Inherits System.Web.UI.MasterPage 'Kế thừa 1
lớp System.Web.UI.MasterPage (Chính nó)
16. Public Code As New ConnectionDB() ' Khai báo
và khởi tạo biến code kiểu là ConnectionDB()
17. Public Conn As New OleDbConnection()
GVHD: ThS.Bùi Duy Tuấn tinvn.com.vn
Báo cáo đề tài môn lập trình web1: Website thông tin cho trường TH Cơ sở
Trang 14
18. Protected Sub Page_Load(ByVal sender As
Object, ByVal e As System.EventArgs) Handles
Me.Load
19. label_Date.Text = Day(Now) & "-" &
Month(Now) & "-" & Year(Now)
20. ' label_Date.Text =
Date.Today.ToString(dd / mm / yyyy)
21. If (Session("DangNhapThanhCongAdmin") =
True) Then
22. Label2.Visible = True
23. Label2.Text = "Chào mừng:" & " " &
Session("TenDangNhap").ToString() & ". Bạn có
quyền quản trị"
24. Button1.Visible = True
25. Button2.Visible = True
26. Button2.Text = "Quản trị"
27. End If
28. If (Session("DangNhapThanhCongUser") =
True) Then
29. Label2.Visible = True
30. Label2.Text = "Chào mừng thành
viên:" & " " & Session("TenDangNhap").ToString()
31. Button1.Visible = True
32. Button2.Visible = True
33. Button2.Text = "Sửa thông tin"
34. End If
35. If (Not IsPostBack = True) Then
36. hienthiDropdownlistWeb()
37. Conn = Code.Conn() 'Mở CSDL dựa vào
hàm conn() trong lớp ConnectionDB()
38. Dim StringSQL As String
39. Dim DataSet1 As New DataSet
40. Dim row, i As Integer
41. StringSQL = "select Menu1 from
Menu1"
42. DataSet1 =
Code.DataAdapter_DataSet(StringSQL, "Menu1") 'Buoc
5 + 6
43. 'Buoc 7
44. i = 0
GVHD: ThS.Bùi Duy Tuấn tinvn.com.vn
Báo cáo đề tài môn lập trình web1: Website thông tin cho trường TH Cơ sở
Trang 15
45. row =
DataSet1.Tables("Menu1").Rows.Count 'Biến row chứa
tổng số dòng của dataset1 ở Tables("Menu1")
46. If (row > 0) Then ' Kiểm tra sự tồn
tại của dữ liệu
47. While (i < row) ' Duyệt
Tables("Menu1")của dataset1
48. Dim Menu1 As String
49. Dim MenuItem1 As New
MenuItem() ' khai báo và khởi tạo biến MenuItem1
kiểu MenuItem (dạng control)
50. Dim i1, row1 As Integer
51. Menu1 =
DataSet1.Tables("Menu1").Rows(i)("Menu1").ToString
() ' Lấy dữ liệu kiểu string của dòng thứ i của
cột Menu1 trong Tables("Menu1") của DataSet1
52. MenuItem1.Text = Menu1 'Gán
thuộc tính text của MenuItem1 là Menu1
53. MenuDoc1.Items.AddAt(i,
MenuItem1) 'add MenuItem1 vào vị trí thứ i trong
MenuDoc1
54. StringSQL = "select Menu2
from Menu2 where Menu2.Menu1='" & Menu1 & "'"
55. Dim DataSet2 As New DataSet
56. DataSet2 =
Code.DataAdapter_DataSet(StringSQL, "Menu2")
57. i1 = 0
58. row1 =
DataSet2.Tables("Menu2").Rows.Count
59. If (row1 > 0) Then
60. While (i1 < row1)
61. Dim Menu2 As String
62. Dim MenuItem2 As New
MenuItem()
63. Menu2 =
DataSet2.Tables("Menu2").Rows(i1)("Menu2").ToStrin
g()
64. MenuItem2.Text =
Menu2
65.
MenuDoc1.Items(i).ChildItems.AddAt(i1, MenuItem2)
GVHD: ThS.Bùi Duy Tuấn tinvn.com.vn
Báo cáo đề tài môn lập trình web1: Website thông tin cho trường TH Cơ sở
Trang 16
' add MenuItem2 vào vị trí thứ i1 ở Item thứ i
trong MenuDoc1
66. i1 = i1 + 1
67. End While
68. End If
69. i = i + 1
70. End While
71. End If
72. End If
73. End Sub
74.
75. Protected Sub MenuDoc1_MenuItemClick(ByVal
sender As Object, ByVal e As
System.Web.UI.WebControls.MenuEventArgs) Handles
MenuDoc1.MenuItemClick
76. Dim menu As String
77. menu = MenuDoc1.SelectedItem.Text
78. Select Case menu
79. Case "Trang Chủ"
80.
Response.Redirect("~/TrangChu.aspx")
81.
82. Case "Giới Thiệu"
83.
Response.Redirect("~/GioiThieu/GioiThieu.aspx")
84.
85. Case "Tin Tức & Sự Kiện"
86.
Response.Redirect("~/TinTuc_SuKien/TinGiaoDuc.aspx
")
87. Case "Tin Giáo Dục"
88.
Response.Redirect("~/TinTuc_SuKien/TinGiaoDuc.aspx
")
89. Case "Tin Nhà Trường"
90.
Response.Redirect("~/TinTuc_SuKien/TinNhaTruong.as
px")
91.
92. Case "Các Tổ Chuyên Môn"
GVHD: ThS.Bùi Duy Tuấn tinvn.com.vn
Báo cáo đề tài môn lập trình web1: Website thông tin cho trường TH Cơ sở
Trang 17
93.
Response.Redirect("~/CacToChuyenMon/CacToChuyenMon
.aspx")
94. Case "Tổ Toán"
95.
Response.Redirect("~/CacToChuyenMon/ToToan.aspx")
96. Case ("Tổ Anh Văn")
97.
Response.Redirect("~/CacToChuyenMon/AnhVan.aspx")
98. Case ("Tổ Lý - Tin")
99.
Response.Redirect("~/CacToChuyenMon/ToLy.aspx")
100. Case ("Tổ Văn - Sử - Địa - CD")
101.
Response.Redirect("~/CacToChuyenMon/ToVan.aspx")
102. Case ("Tổ Hóa - Sinh - Thể dục")
103.
Response.Redirect("~/CacToChuyenMon/ToHoa_Sinh_TD.
aspx")
104. Case ("Tổ Hành Chính")
105.
Response.Redirect("~/CacToChuyenMon/ToHanhChinh.as
px")
106.
107. Case ("Hỗ Trợ Học Sinh")
108.
Response.Redirect("~/HoTroHocSinh/HuongDanOnTap.as
px")
109. Case ("Hướng Dẫn Ôn Tập")
110.
Response.Redirect("~/HoTroHocSinh/HuongDanOnTap.as
px")
111. Case ("Thời Khóa Biểu")
112.
Response.Redirect("~/HoTroHocSinh/ThoiKhoaBieu.asp
x")
113. Case ("Xem Điểm")
114.
Response.Redirect("~/HoTroHocSinh/XemDiem.aspx")
115.
116. Case "Dành Cho Giáo Viên"
GVHD: ThS.Bùi Duy Tuấn tinvn.com.vn
Báo cáo đề tài môn lập trình web1: Website thông tin cho trường TH Cơ sở
Trang 18
117.
Response.Redirect("~/GiaoVien/GiaoVien.aspx")
118. Case "Quản Lý Lớp"
119.
Response.Redirect("~/GiaoVien/QuanLyLopHoc.aspx")
120. Case "Quản Lý Học Sinh"
121.
Response.Redirect("~/GiaoVien/QuanLyDanhSachLop.as
px")
122. Case "Quản Lý Môn Học"
123.
Response.Redirect("~/GiaoVien/QuanLyMonHoc.aspx")
124. Case "Quản Lý Điểm"
125.
Response.Redirect("~/GiaoVien/QuanLyDiem.aspx")
126.
127. Case "Trang Quản Trị"
128.
Response.Redirect("~/Trangadmin.aspx")
129.
130. Case "Liên Hệ"
131.
Response.Redirect("~/LienHe/LienHe.aspx")
132. End Select
133. End Sub
134. Public Sub hienthiDropdownlistWeb()
135. DropDownList1.Items.Clear()
136. DropDownList1.Items.Add("----- Website
liên kết ----- ")
137. DropDownList1.Items.Add("Sở DGDT Bà Rịa
Vũng Tàu")
138. DropDownList1.Items.Add("Bộ Giáo dục Đào
tạo")
139. DropDownList1.Items.Add("Diễn đàn Giáo
dục")
140. DropDownList1.Items.Add("Báo Bà Rịa Vũng
Tàu")
141. End Sub
142. Protected Sub
DropDownList1_SelectedIndexChanged(ByVal sender As
Object, ByVal e As System.EventArgs) Handles
DropDownList1.SelectedIndexChanged
GVHD: ThS.Bùi Duy Tuấn tinvn.com.vn
Báo cáo đề tài môn lập trình web1: Website thông tin cho trường TH Cơ sở
Trang 19
143. Dim a As String
144. a = DropDownList1.SelectedItem.Text
145. If a = "Sở DGDT Bà Rịa Vũng Tàu" Then
146.
Response.Redirect("
vungtau.gov.vn/")
147. End If
148. If a = "Bộ Giáo dục Đào tạo" Then
149.
Response.Redirect("")
150. End If
151. If a = "Diễn đàn Giáo dục" Then
152.
Response.Redirect("")
153. End If
154. If a = "Báo Bà Rịa Vũng Tàu" Then
155.
Response.Redirect("
vn")
156. End If
157. End Sub
158. Protected Sub Button1_Click(ByVal sender As
Object, ByVal e As System.EventArgs) Handles
Button1.Click
159. Session("DangNhapThanhCongUser") = False
160. Session("DangNhapThanhCongAdmin") =
False
161. Label2.Visible = False
162. Button1.Visible = False
163. Button2.Visible = False
164. Response.Redirect("~\TrangChu.aspx")
165. End Sub
166. Protected Sub Button2_Click(ByVal sender As
Object, ByVal e As System.EventArgs) Handles
Button2.Click
167. If Button2.Text = "Quản trị" Then
168.
Response.Redirect("~\Trangadmin\AdminChinh.aspx")
169. End If
170. If Button2.Text = "Sửa thông tin" Then
GVHD: ThS.Bùi Duy Tuấn tinvn.com.vn
Báo cáo đề tài môn lập trình web1: Website thông tin cho trường TH Cơ sở
Trang 20
171.
Response.Redirect("~\ThanhVien\SuaThongTin_TV.aspx
")
172. End If
173. End Sub
174. Protected Sub ImageButton1_Click(ByVal
sender As Object, ByVal e As
System.Web.UI.ImageClickEventArgs) Handles
ImageButton1.Click
175.
Response.Redirect("")
176. End Sub
177.
178. Protected Sub ImageButton2_Click(ByVal
sender As Object, ByVal e As
System.Web.UI.ImageClickEventArgs) Handles
ImageButton2.Click
179.
Response.Redirect("")
180. End Sub
181.
182. Protected Sub ImageButton3_Click(ByVal
sender As Object, ByVal e As
System.Web.UI.ImageClickEventArgs) Handles
ImageButton3.Click
183. Response.Redirect("")
184. End Sub
185.
186. Protected Sub ImageButton4_Click(ByVal
sender As Object, ByVal e As
System.Web.UI.ImageClickEventArgs) Handles
ImageButton4.Click
187.
Response.Redirect("")
188. End Sub
189. End Class
190.
GVHD: ThS.Bùi Duy Tuấn tinvn.com.vn
Báo cáo đề tài môn lập trình web1: Website thông tin cho trường TH Cơ sở
Trang 21
Thành viên có thể gửi những ý kiến cá nhân cho người quản trị tham khảo bằng cách gõ
thông tin vào các ô và nhấp nút “ Gởi” để chuyển đi, hoặc nút “Xóa” để viết lại.
Imports System.Data
Imports System.Data.OleDb
Imports System.IO
Partial Class TrangHienThongTin
Inherits System.Web.UI.Page
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles
Me.Load
Dim duongdan As String = "~\TinTuc_TrangChu\" & Session("noidung")
duongdan = Server.MapPath(duongdan)
Dim file As FileStream = New FileStream(duongdan, FileMode.OpenOrCreate,
FileAccess.Read)
Dim doc As StreamReader = New StreamReader(File)
Dim thongtin As String
thongtin = ""
Dim i As Boolean
i = False
While (doc.EndOfStream = i)
thongtin = thongtin + doc.ReadLine() + ""
End While
GVHD: ThS.Bùi Duy Tuấn tinvn.com.vn
Báo cáo đề tài môn lập trình web1: Website thông tin cho trường TH Cơ sở
Trang 22
Label1.Text = thongtin
End Sub
End Class
VII – CÁC BẢNG CƠ SỞ DỮ LIỆU:
1.Bảng tin tức & sự kiện
2. Bảng menu 1 và 2
3.Bảng đăng ký
GVHD: ThS.Bùi Duy Tuấn tinvn.com.vn
Báo cáo đề tài môn lập trình web1: Website thông tin cho trường TH Cơ sở
Trang 23
VIII – THỰC HIỆN:
- HẠN CHẾ: Mới thực hiện khoảng 85% dự án nên:
+ Giao diện trang web còn đơn giản.
+ Cơ sở dữ liệu còn hạn chế .
+ Thông tin chưa phong phú và đa dạng.
- HƯỚNG PHÁT TRIỂN:
Qua việc thực hiện đề tài lần này, mong muốn của nhóm là sẽ dần nâng
cao kỹ năng lập trình mà trong tương lai sẽ hoàn thiện chương trình theo
hướng :
+Hoàn thiện giao diện đẹp mắt, thuận tiện cho việc kiểm tra và thao tác
hơn.
+Thông tin cập nhật phong phú và phù hợp với từng thời điểm.
+Dữ liệu phải đảm bảo an toàn và bảo mật.
VII. LỜI KẾT
Đề tài này đã giúp các thành viên trong nhóm nắm được các thao tác để có
thể thiết kế một trang web đơn giản; bước đầu làm quen viết chương trình dù là
chương trình nhỏ.
Qua việc thực hiện đề tài lần này đem lại cho nhóm 5 nhiều điều: Sự hiểu biết
lẫn nhau về thông tin của mỗi thành viên trong nhóm được phát triển thêm một tầm
cao mới. Nếu như trước đây các thành viên mới hiểu biết sơ về nhau, thì nay sự tin
cậy lẫn nhau đã bước sang một nấc thang mới, với sự hiểu rõ cá tính và khả năng
từng thành viên .
Nhóm 5 hy vọng đó sẽ là những lợi thế tốt để mọi thành viên hợp tác hoàn
thành tốt các đề tài trong tương lai ở các bộ môn tin học nói riêng và các môn học
nói chung.
Xin chân thành cám ơn Thầy Bùi Duy Tuấn đã giúp đỡ Nhóm 5 hoàn thành đề
tài này.
Vũng Tàu, ngày 01 tháng 6 năm 2009
Nhóm thực hiện
Nhóm 5
Các file đính kèm theo tài liệu này:
- Tinvn_Tieuluan_web1_01_p.pdf