XÂY DỰNG WEBSITE “SINH VIÊN NỘI TRÚ ĐẠI HỌC KINH TẾ QUỐC DÂN

XÂY DỰNG WEBSITE “SINH VIÊN NỘI TRÚ ĐẠI HỌC KINH TẾ QUỐC DÂN"

Website: http://www.docs.vn Email : lienhe@docs.vn Tel : 0918.775.368 Mục lục Lời nói đầu .3 I GIỚI THIỆU VỀ CÔNG TY VÀ XÁC ĐỊNH ĐỀ TÀI THỰC TẬP .4 1.Giới thiệu chung công ty Các lĩnh vực hoạt động 1.1 Các sản phẩm dịch vụ .4 1.2 Cơ cấu tổ chức 1.3 Đối tác .11 Xác định đề tài .12 2.1 Lý chọn đề tài 12 2.2 Mục tiêu đề tài 13 2.3 Dự kiến 14 II CƠ SỞ PHƯƠNG PHÁP LUẬN CỦA VIỆC THIẾT KẾ WEBSITE 15 Tổng quan internet 15 1.1 Cách thức truyền thông Internet 16 1.2 Các dịch vụ Internet 16 Giới thiệu SQL Server 2000 17 2.1 Giới Thiệu Về Transact SQL (T-SQL) 18 2.1.1 Cú Pháp Của T-SQL: 22 2.1.2 Các thành phần Control-Of Flow 25 2.1.3 Thực Thi Các Câu Lệnh SQL 25 2.1.4 Cấu Trúc Vật Lý Của Một SQL Server Database 26 2.1.5 Cấu Trúc Logic Của Một SQL Server Database 27 Asp.Net 34 3.1 Khác biệt ASP.NET ASP 34 3.2 Kiểu mẫu RESQUEST/RESPONSE 36 3.3 Kiểu mẫu EVENT-DRIVEN 37 Sơ lược NetFramework CLR .37 (Common Language Runtime) 37 Website: http://www.docs.vn Email : lienhe@docs.vn Tel : 0918.775.368 Website: http://www.docs.vn Email : lienhe@docs.vn Tel : 0918.775.368 III XÂY DỰNG WEBSITE “SINH VIÊN NỘI TRÚ ĐẠI HỌC KINH TẾ QUỐC DÂN” 42 Chức .43 1.1 Cung cấp thông tin 43 1.2 Quản lí danh sách sinh viên 44 1.3 Đăng kí vào kí túc xá, chuyển phòng cho sinh viên 44 1.4 Quản lí khách vào kí túc xá .44 1.5 Tạo diễn đàn cho sinh viên 44 1.6 Quản lí người dùng (phân quyền người sử dụng) 45 Sơ đồ website: 46 2.1 Sinh viên đối tượng khác truy cập đến website: 46 2.2 Ban quản lí kí túc xá .47 2.3Cập nhật thông tin 47 2.4Quản lí sinh viên 47 Các chức chính: 50 3.1Đăng kí (Register) 51 3.2Đăng nhập 53 3.3Thêm/ Sửa/ Xóa thơng tin 55 3.4 Tìm kiếm thơng tin 57 3.5Quản lí quyền 59 3.6Quản lí người dùng 60 Một số giao diện website .64 Website: http://www.docs.vn Email : lienhe@docs.vn Tel : 0918.775.368 Website: http://www.docs.vn Email : lienhe@docs.vn Tel : 0918.775.368 Lời nói đầu Cơng nghệ thơng tin ngày phát triển đẻ web site không ngừng lớn mạnh số lượng chất lượng Từ trang web quen thuộc www.google.com người dùng tìm thấy nhiều web site lĩnh vực: văn hố, thời sự, khoa học cơng nghệ, làm đẹp, nấu ăn, thể thao, ca nhạc, phim ảnh…Độc giả click chuột vào đâu? Tất nhiên vào địa chứa thông tin người dùng tìm kiếm, hay web site ấn tượng Ngày nay, việc tự tạo trang web cho riêng khơng cịn điều khó khăn Chẳng hạn như, truy cập vào trang web 360.yahoo.com , người dùng dễ dàng tạo web site cá nhân, tự thiết kế giao diện, nội dung Blog theo phong cách riêng Tuy nhiên, web site vậy, phần lớn mang tính giải trí, để tạo trang web có sức sống bền lâu thân phải mang lại lợi ích cho nhiều người Giao diện bắt mắt yếu tố quan trọng để người xem click chuột đến web site bạn Nhưng yếu tố định giữ chân độc giả lại nội dung mà web site cung cấp Đi theo lối mịn lựa chọn có nhiều thách thức, nhiên, tham gia khóa học lí thú qui trình thiết kế web site cơng ty TNHH Trí Tuệ Nhân Tạo, em chọn nơi thực tập công ty định hướng đề tài thực tập thiết kế web site theo lối Do thời gian kinh nghiệm hạn chế nên báo cáo khơng tránh khỏi thiếu xót Rất mong phê bình, góp ý giáo – Ts.Trần Thị Thu Hà Website: http://www.docs.vn Email : lienhe@docs.vn Tel : 0918.775.368 Website: http://www.docs.vn Email : lienhe@docs.vn Tel : 0918.775.368 I GIỚI THIỆU VỀ CÔNG TY VÀ XÁC ĐỊNH ĐỀ TÀI THỰC TẬP Giới thiệu chung công ty Tên công ty : AI.Co.ltd (Artificial intelligence Limited Company) Giám đốc : Hoàng Ngọc Trung Địa : Nhà CT2B, Lê Đức Thọ, Mĩ Đình, Hà Nội Loại hình doanh nghiệp: Công ty TNHH Số điện thoại: 04.7870.216 Fax :04 787 0216 Website : Email http://www.aivietnam.net : aivietnam@aivietnam.net Các lĩnh vực hoạt động • Sản xuất gia cơng phần mềm • Đào tạo hỗ trợ đào tạo • Cung cấp hệ thống phần mềm phục vụ đào tạo • Nghiên cứu, phát triển tư vấn giải pháp cơng nghệ • In ấn, xuất tài liệu cơng nghệ thơng tin • Thiết kế, thi cơng bảo trì hệ thống mạng WAN, LAN • Sản xuất sửa chữa thiết bị điện, điện tử 1.1 Các sản phẩm dịch vụ • Phần mềm quản lí đào tạo hỗ trợ đào tạo Website: http://www.docs.vn Email : lienhe@docs.vn Tel : 0918.775.368 Website: http://www.docs.vn Email : lienhe@docs.vn Tel : 0918.775.368 o Phần mềm quản lí đào tạo – TMS o Trường học trực tuyến (Elearning) – School online o Thư viện điện tử - LMS o Phần mềm thi trực tuyến – Testing & Certification • Phần mềm y tế o Từ điển y học – MD o Hệ chuyên gia y học - ME • Phần mềm quản lí doanh nghiệp o Hệ thống quản lý nhân - HRDS o Hệ thống quản lý hoạt động doanh nghiệp o Hệ thống chăm sóc khách hàng o Hệ thống quản lý khách sạn – HMS • Ứng dụng thương mại điện tử o Web site cho doanh nghiệp o Giải pháp quản lý doanh nghiệp môi trường Web Website: http://www.docs.vn Email : lienhe@docs.vn Tel : 0918.775.368 Website: http://www.docs.vn Email : lienhe@docs.vn Tel : 0918.775.368 1.2 Cơ cấu tổ chức Giám đốc P Nghiên cứu đào tạo P Phần mềm Bộ phận Phân tích thiết kế P.Lập trình Bộ phận Kiểm thử Bộ phận Kiểm soát chất lượng Bộ phận Thiết kế đồ hoạ Website: http://www.docs.vn Email : lienhe@docs.vn Tel : 0918.775.368 Bộ phận Triển khai tư vấn khách hàng Website: http://www.docs.vn Email : lienhe@docs.vn Tel : 0918.775.368 • Phòng phần mềm: Mục tiêu: thay thao tác nghiệp vụ thủ công, tiếp cận phương pháp quản lý đại nhằm nâng cao hiệu hoạt động sản xuất kinh doanh • Bộ phận phân tích thiết kế Website: http://www.docs.vn Email : lienhe@docs.vn Tel : 0918.775.368 Website: http://www.docs.vn Email : lienhe@docs.vn Tel : 0918.775.368 Đưa giải pháp phần mềm toàn diện,đề xuất phương án tốt để hỗ trợ khách hàng việc xác định yêu cầu mục tiêu dự án • Phịng lập trình Biến vẽ thiết kế thành phần mềm hay web site • Bộ phận kiểm thử Kiểm thử tất phần mềm, phát lỗi trình chạy thử nhằm chuyển giao cho khách hàng sản phẩm phần mềm có chất lượng cao Website: http://www.docs.vn Email : lienhe@docs.vn Tel : 0918.775.368 Website: http://www.docs.vn Email : lienhe@docs.vn Tel : 0918.775.368 • Bộ phận kiểm sốt chất lượng Bộ phận có nhiệm vụ kiểm tra giám sát chất lượng sản phẩm trước chuyển giao để đảm bảo chất lượng hoàn hảo nhất, thoả mãn yêu cầu khách hang • Bộ phận triển khai tư vấn khách hàng Đội ngũ triển khai, bảo trì hỗ trợ Khách hàng đưa sản phẩm phần mềm đến với Khách hàng, đáp ứng nhu cầu thay đổi Khách hang • Bộ phận thiết kế đồ hoạ Website: http://www.docs.vn Email : lienhe@docs.vn Tel : 0918.775.368 Website: http://www.docs.vn Email : lienhe@docs.vn Tel : 0918.775.368 • Phòng đào tạo nghiên cứu Xây dựng chương trình, nội dung đào tạo, tài liệu nghiên cứu để thực việc đào tạo cho sinh viên, hỗ trợ cho sinh viên tự học, cung cấp cho tổ chức đào tạo doanh nghiệp CNTT Xây dựng hệ thống chia sẻ tin tức, tài nguyên cho cộng đồng CNTT Website: http://www.docs.vn Email : lienhe@docs.vn Tel : 0918.775.368 Website: http://www.docs.vn Email : lienhe@docs.vn Tel : 0918.775.368 Website: http://www.docs.vn Email : lienhe@docs.vn Tel : 0918.775.368 Website: http://www.docs.vn Email : lienhe@docs.vn Tel : 0918.775.368 Một số giao diện website Trang chủ Website: http://www.docs.vn Email : lienhe@docs.vn Tel : 0918.775.368 Website: http://www.docs.vn Email : lienhe@docs.vn Tel : 0918.775.368 Giao diện đăng nhập hệ thống Website: http://www.docs.vn Email : lienhe@docs.vn Tel : 0918.775.368 Website: http://www.docs.vn Email : lienhe@docs.vn Tel : 0918.775.368 Quản lý user Website: http://www.docs.vn Email : lienhe@docs.vn Tel : 0918.775.368 Website: http://www.docs.vn Email : lienhe@docs.vn Tel : 0918.775.368 Quản lý user type Website: http://www.docs.vn Email : lienhe@docs.vn Tel : 0918.775.368 Website: http://www.docs.vn Email : lienhe@docs.vn Tel : 0918.775.368 Quản lý sinh viên Website: http://www.docs.vn Email : lienhe@docs.vn Tel : 0918.775.368 Website: http://www.docs.vn Email : lienhe@docs.vn Tel : 0918.775.368 Kết luận Trong suốt thời gian thực tập mình, em tìm hiểu nơi thực tập (cơng ty TNHH Trí Tuệ Nhân Tạo), tìm hiểu qui trình thiết kế web site, kĩ thuật cơng cụ hỗ trợ đặc biệt ngôn ngữ thiết kế mơ hình UML Em tin cơng cụ phát huy sức mạnh q trình thiết kế web site Để thiết kế phần mềm hay web site chuyên nghiệp cần có đội ngũ thiết kế, thời gian kinh phí Với ràng buộc vậy, báo cáo tốt nghiệp không tránh khỏi thiếu xót, mong đóng góp ý kiến cô giáo Em xin chân thành cảm ơn anh chị phịng phần mềm cơng ty TNHH Trí Tuệ Nhân Tạo giáo – Ts Trần Thị Thu Hà tận tình giúp đỡ em hồn thành đề tài này! Website: http://www.docs.vn Email : lienhe@docs.vn Tel : 0918.775.368 Website: http://www.docs.vn Email : lienhe@docs.vn Tel : 0918.775.368 Tài liệu tham khảo Ngôn ngữ mơ hình hướng đối tượng UML Giáo trình sở liệu Giáo trình sở liệu Các thông tin tham khảo Internet Website: http://www.docs.vn Email : lienhe@docs.vn Tel : 0918.775.368 Website: http://www.docs.vn Email : lienhe@docs.vn Tel : 0918.775.368 Phụ Lục Mã nguồn xây dựng website Login Dim DataBase As String = "QLSV" Dim ServerName As String = "SERVER" Dim sqlUser As String = "sa" Dim sqlPwd As String = "sa" Dim _User, _Password As String Dim myConn As System.Data.SqlClient.SqlConnection 'Khi click vào nút Đăng Nhâ ̣p Protected Sub btnDangNhap_Click(ByVal sender As Object, ByVal e As System.EventArgs) 'Session("UserName") = txtUserName.Text 'Session("Password") = txtPassword.Text If btnDangNhap.Text = "Đăng xuấ t" Then Session("User") = Nothing Session("Password") = Nothing lblErrorMessage.Text = "Ba ̣n đã đăng xuấ t thành công!" Response.Redirect(" /Default.aspx") Exit Sub End If lblErrorMessage.Text = Session("UserName") Dim myConn As System.Data.SqlClient.SqlConnection Dim gsCon As String = "" gsCon = gsCon & "Server = " & ServerName & ";" & "Database = " & DataBase & ";" & _ "UID = " & sqlUser & ";" & "Pwd = " & sqlPwd Dim strSQL As String = "Select UserName,[Password] from tblUser" Dim a As Integer = ' lấ y lỗi về - không dùng Try myConn = New System.Data.SqlClient.SqlConnection(gsCon) Dim myCom As System.Data.SqlClient.SqlCommand = _ Website: http://www.docs.vn Email : lienhe@docs.vn Tel : 0918.775.368 Website: http://www.docs.vn Email : lienhe@docs.vn Tel : 0918.775.368 New System.Data.SqlClient.SqlCommand(strSQL, myConn) myConn.Open() Dim DataSet1 As New System.Data.DataSet() Dim Adapter1 As New System.Data.SqlClient.SqlDataAdapter(myCom) Adapter1.Fill(DataSet1, "bang1") Dim length As Integer = DataSet1.Tables("bang1").Rows.Count - lblErrorMessage.Text = "" Dim loged As Boolean = False Dim UserTrue As Boolean = False Dim PasswordTrue As Boolean = False For i As Integer = To length If txtUserName.Text = DataSet1.Tables("bang1").Rows(i)(0).ToString() Then UserTrue = True ' Kiem tra mat khau If txtPassword.Text = DataSet1.Tables("bang1").Rows(i)(1).ToString() Then PasswordTrue = True End If End If Next If UserTrue = False Then lblErrorMessage.Text = "Tên đăng nhâ ̣p không hơ ̣p lê ̣!" Exit Sub End If If PasswordTrue = False Then lblErrorMessage.Text = "Mâ ̣t khẩ u không hơ ̣p lê ̣!" Exit Sub End If If UserTrue = True And PasswordTrue = True Then loged = True Session("User") = txtUserName.Text Session("Password") = txtPassword.Text Response.Redirect(" /Default.aspx") End If Catch ex As Exception myConn.Close() Website: http://www.docs.vn Email : lienhe@docs.vn Tel : 0918.775.368 Website: http://www.docs.vn Email : lienhe@docs.vn Tel : 0918.775.368 lblErrorMessage.Text = ex.Message() End Try End Sub Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) If Session("User") Is Nothing Then 'Nothing to txtUserName.ReadOnly = False txtPassword.ReadOnly = False btnDangNhap.Text = "Đăng nhâ ̣p" Else lblErrorMessage.Text = "Ba ̣n đăng nhâ ̣p với tài khoản " & Session("User") txtUserName.ReadOnly = True txtPassword.ReadOnly = True btnDangNhap.Text = "Đăng xuấ t" End If End Sub Thêm ghi Public Overloads Function NewRecord( _ ByVal UserId0Value As String, _ ByVal UserName0Value As String, _ ByVal UserTypeValue As String, _ ByVal PasswordValue As String, _ ByVal FirstNameValue As String, _ ByVal LastNameValue As String, _ ByVal EmailValue As String _ ) As KeyValue Dim rec As IPrimaryKeyRecord = CType(Me.CreateRecord(), IPrimaryKeyRecord) rec.SetString(UserId0Value, UserId0Column) rec.SetString(UserName0Value, UserName0Column) rec.SetString(UserTypeValue, UserTypeColumn) rec.SetString(PasswordValue, PasswordColumn) rec.SetString(FirstNameValue, FirstNameColumn) rec.SetString(LastNameValue, LastNameColumn) Website: http://www.docs.vn Email : lienhe@docs.vn Tel : 0918.775.368 Website: http://www.docs.vn Email : lienhe@docs.vn Tel : 0918.775.368 rec.SetString(EmailValue, EmailColumn) rec.Create() 'update the DB so any DB-initialized fields (like autoincrement IDs) can be initialized Dim key As KeyValue = rec.GetID() Return key End Function Public Overridable Sub GetUIData() Me.DataSource.Parse(Me.Email.Text, TblUserTable.Email) Me.DataSource.Parse(Me.FirstName.Text, TblUserTable.FirstName) Me.DataSource.Parse(Me.LastName.Text, TblUserTable.LastName) If (Not Me.Password.TextMode = TextBoxMode.Password) OrElse (Not Me.Password.Text.Trim() = "") Then Dim PasswordformattedValue As String = Me.DataSource.Format(TblUserTable.Password) If Me.Password.Text.Trim() PasswordformattedValue Then Me.DataSource.Parse(Me.Password.Text, TblUserTable.Password) End If End If Website: http://www.docs.vn Email : lienhe@docs.vn Tel : 0918.775.368 Website: http://www.docs.vn Email : lienhe@docs.vn Tel : 0918.775.368 Me.DataSource.Parse(Me.UserId1.Text, TblUserTable.UserId0) Me.DataSource.Parse(Me.UserName1.Text, TblUserTable.UserName0) Me.DataSource.Parse(Me.UserType.Text, TblUserTable.UserType) End Sub Public Overrides Sub DataBind() MyBase.DataBind() ' Make sure that the DataSource is initialized If Me.DataSource Is Nothing Then Return End If ' Store the checksum The checksum is used to ' ensure the record was not changed by another user If Not Me.DataSource.GetCheckSumValue() Is Nothing AndAlso _ (Me.CheckSum Is Nothing OrElse Me.CheckSum.Trim="") Then Me.CheckSum = Me.DataSource.GetCheckSumValue().Value End If ' For each field, check to see if a value is specified If a value is specified, ' then format the value for display If no value is specified, use the default value (formatted) If Me.DataSource.IsCreated OrElse Me.DataSource.EmailSpecified Then Website: http://www.docs.vn Email : lienhe@docs.vn Tel : 0918.775.368 Website: http://www.docs.vn Email : lienhe@docs.vn Tel : 0918.775.368 Dim formattedValue As String = Me.DataSource.Format(TblUserTable.Email) Me.Email.Text = formattedValue Else Me.Email.Text = TblUserTable.Email.Format(TblUserTable.Email.DefaultValue) End If If Me.DataSource.IsCreated OrElse Me.DataSource.FirstNameSpecified Then Dim formattedValue As String = Me.DataSource.Format(TblUserTable.FirstName) Me.FirstName.Text = formattedValue Else Me.FirstName.Text = TblUserTable.FirstName.Format(TblUserTable.FirstName.Default Value) End If If Me.DataSource.IsCreated OrElse Me.DataSource.LastNameSpecified Then Dim formattedValue As String = Me.DataSource.Format(TblUserTable.LastName) Me.LastName.Text = formattedValue Else Me.LastName.Text = TblUserTable.LastName.Format(TblUserTable.LastName.Default Value) End If If Me.DataSource.IsCreated OrElse Me.DataSource.PasswordSpecified Then Dim formattedValue As String = Me.DataSource.Format(TblUserTable.Password) Me.Password.Text = formattedValue Else Me.Password.Text = TblUserTable.Password.Format(TblUserTable.Password.DefaultV alue) End If Website: http://www.docs.vn Email : lienhe@docs.vn Tel : 0918.775.368 Website: http://www.docs.vn Email : lienhe@docs.vn Tel : 0918.775.368 If Me.DataSource.IsCreated OrElse Me.DataSource.UserId0Specified Then Dim formattedValue As String = Me.DataSource.Format(TblUserTable.UserId0) Me.UserId1.Text = formattedValue Else Me.UserId1.Text = TblUserTable.UserId0.Format(TblUserTable.UserId0.DefaultValu e) End If If Me.DataSource.IsCreated OrElse Me.DataSource.UserName0Specified Then Dim formattedValue As String = Me.DataSource.Format(TblUserTable.UserName0) Me.UserName1.Text = formattedValue Else Me.UserName1.Text = TblUserTable.UserName0.Format(TblUserTable.UserName0.Defa ultValue) End If If Me.DataSource.IsCreated OrElse Me.DataSource.UserTypeSpecified Then Dim formattedValue As String = Me.DataSource.Format(TblUserTable.UserType) Me.UserType.Text = formattedValue Else Me.UserType.Text = TblUserTable.UserType.Format(TblUserTable.UserType.DefaultV alue) End If Me.IsNewRecord = True If Me.DataSource.IsCreated Then Me.IsNewRecord = False Me.RecordUniqueId = Me.DataSource.GetID.ToXmlString() End If Website: http://www.docs.vn Email : lienhe@docs.vn Tel : 0918.775.368 ... WebForm1.aspx Trong hộp địa (Address) III XÂY DỰNG WEBSITE “SINH VIÊN NỘI TRÚ ĐẠI HỌC KINH TẾ QUỐC DÂN” Mục đích web site Website đời với mong muốn việc quản lí sinh viên nội trú thuận tiện, dễ dàng Đồng.. .Website: http://www.docs.vn Email : lienhe@docs.vn Tel : 0918.775.368 III XÂY DỰNG WEBSITE “SINH VIÊN NỘI TRÚ ĐẠI HỌC KINH TẾ QUỐC DÂN” 42 Chức ... tế, đáp ứng nhu cầu định người sử dụng Là sinh viên năm cuối trường ĐH Kinh tế Quốc Dân, em mong muốn đề tài thực tập ứng dụng thực tế, hữu ích, thiết thực mà đối tượng sử dụng gần gũi sinh viên