3 .6Quản lí người dùng
6 Một số giao diện chính của website
Quản lý sinh viê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
q 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 hồ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 = "Bạ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)
Dim myCom As System.Data.SqlClient.SqlCommand = _ New System.Data.SqlClient.SqlCommand(strSQL, myConn)
myConn.Open()
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)
'Nothing to do
txtUserName.ReadOnly = False txtPassword.ReadOnly = False btnDangNhap.Text = "Đăng nhập" Else
lblErrorMessage.Text = "Bạ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
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
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.Defaul tValue)
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.Defaul tValue) 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.Default Value) 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.DefaultVal ue) 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.Def aultValue) 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.Default Value) End If Me.IsNewRecord = True If Me.DataSource.IsCreated Then Me.IsNewRecord = False Me.RecordUniqueId = Me.DataSource.GetID.ToXmlString() End If