Microsoft Office Access 2003 Professional Results in Microsoft Office

Generator QR in Microsoft Office Microsoft Office Access 2003 Professional Results

"UserFirstName, " & _ "UserLastName, " & _ "Company, " & _ "DateCreated) values('" & _ Replace(txtUserNameText, "'", "''") & " ', '" & _ Replace(txtPasswordText, "'", "''") & " ', '" & _ txtUserEmailAddressText & "', '" & _ Replace(txtUserFirstNameText, "'", "''") & "', '" & _ Replace(txtUserLastNameText, "'", "''") & "','" & _ Replace(txtCompanyText, "'", "''") & "', '" & _ Now() & "')" ' Set the command query objCMDCommandText = strSQL ' Close the reader objDRClose() ' Execute the query objCMDExecuteNonQuery() ' Send the user to the log in page ServerTransfer("defaultaspx") Else If blnResult = True Then ' Indicate there is a user with the name already ShowErrorText = "- The User Name you & _ "selected has already been taken<BR>" End If If txtPasswordText <> txtVerifyPasswordText Then ' Indicate the passwords do not match ShowErrorText = "- Your password entries do not match" End If ShowErrorVisible = True End If End Sub

When the user clicks Submit, we first have to ensure that another user doesn t have the same username A select statement is used to see if the same username exists If so, we will set the error label to indicate that they need to pick another one A second check is also done to ensure that the two entered passwords match If they don t, an error is added to the label control

If the username is unique and the passwords are correct, the user is set up in the Users table An insert query is created with the appropriate parameters Once the registration is complete, the user is sent to the login page Next, we are going to review administrative features of the ticket system These pages will be utilized primarily by users who are administrators Add a new web form to the project and save it as AdminTicketManagment aspx This page will display the list of tickets that the logged-in administrator currently owns The navigation for the application will be a simple series of buttons at the top of the page We will need options to create a ticket, search tickets, view unclaimed tickets, and log out Add four buttons with appropriate text at the top of the page The Click events of each of these buttons will send the user to the appropriate page For the Logout button, the session variables that store the user ID will need to be cleared The button names from the sample application can be found in Listing 6-9 Next, add a label control that says Claimed Tickets Below that, add a data grid to the page Name the data grid dgClaimedTickets The data grid is going to need seven columns set up The simplest way to set up the columns is to use the property builder feature of the control Table 6-1 shows the columns for the data grid and settings for the columns

Column Header Text View Ticket Detail Settings 1) URL ViewStatusHistoryaspx 2) URL Field TicketID 3) URL Format String TicketHistoryaspx ticketid={0} 1) URL ProcArchiveTicketaspx 2) URL Field TicketID 3) URL Format String ProcArchiveTicketaspx ticketid={0} 1) Data Field TicketID 1) Data Field TicketDescription 1) Data Field Company 1) Data Field UserFullName 1) Data Field StatusName Description Hyperlink that will show the ticket history

TicketID data field TicketDescription data field Company data field The full name of the user, which is created in the query The name of the last status set for the ticket

TABLE 6-1

Note that for the two hyperlink columns the ticket ID is passed on the URL to the target pages The {0} on the URL format string indicates to the data grid to place the URL field value in that spot of the string Figure 6-8 shows the layout design of the page The code for this page is fairly straightforward The heavy lifting is done by the Claimed_Tickets query that was created earlier Listing 6-9 show the code for the page

Listing 6-9

Private Sub Page_Load(ByVal sender As SystemObject, _ ByVal e As SystemEventArgs) Handles MyBaseLoad 'Put user code to initialize the page here Dim objConn As New OleDbOleDbConnection() Dim strSQL As String Dim objCMD As New OleDbOleDbCommand() Dim objDa As New OleDbOleDbDataAdapter() Dim objDs As New DataDataSet() ' Open the DB connection objConnConnectionString = Application("strConn") objConnOpen() ' Retrieve the claimed tickets strSQL = "select * from claimed_tickets where OwnerID=" & _ Session("UserID") ' Set the command connection objCMDConnection = objConn ' Set the command query objCMDCommandText = strSQL ' Set the command for the data adapter objDaSelectCommand = objCMD ' Retrieve the data and set to the data source dgClaimedTicketsDataSource = _ objDaSelectCommandExecuteReader() ' Bind the data to the grid dgClaimedTicketsDataBind() End Sub