II CƠ SỞ PHƯƠNG PHÁP LUẬN CỦA VIỆC THIẾT KẾ WEBSITE
6 Một số giao diện chính của website
Kết luận
Trong suốt thời gian thực tập của mình, em đã tìm hiểu về nơi thực tập (công ty TNHH Trí Tuệ Nhân Tạo), tìm hiểu các qui trình thiết kế web site, các kĩ thuật và công cụ hỗ trợ đặc biệt là ngôn ngữ thiết kế mô hình UML. Em tin rằng công cụ này đã phát huy được sức mạnh của nó trong quá trình thiết kế web site.
Để thiết kế được một phần mềm hay web site chuyên nghiệp cần có một đội ngũ thiết kế, thời gian và kinh phí. Với những ràng buộc như vậy, báo cáo tốt nghiệp không tránh khỏi những thiếu xót, rất mong được sự đóng góp ý kiến của cô giáo.
Em xin chân thành cảm ơn các anh chị phòng phần mềm công ty TNHH Trí Tuệ Nhân Tạo và cô giáo – Ts. Trần Thị Thu Hà đã tận tình giúp đỡ em hoàn thành đề tài này!
Tài liệu tham khảo
1. Ngôn ngữ mô hình hướng đối tượng UML 2. Giáo trình cơ sở dữ liệu 1
3. Giáo trình cơ sở dữ liệu 2
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 = 0 ' lấy lỗi về - nhưng không dùng
Try
myConn = New
System.Data.SqlClient.SqlConnection(gsCon)
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 - 1 lblErrorMessage.Text = ""
Dim loged As Boolean = False Dim UserTrue As Boolean = False Dim PasswordTrue As Boolean = False For i As Integer = 0 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()
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 do
txtUserName.ReadOnly = False txtPassword.ReadOnly = False btnDangNhap.Text = "Đăng nhâ ̣p" Else
lblErrorMessage.Text = "Ba ̣n đang đă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 bản 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)
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
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
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
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