Mohd ezree bin abdullah ma041007 masters of civil

……………………………………
MOHD EZREE BIN ABDULLAH
MA041007
Master’s of Civil Engineering (Highway and Transportation)

103
Instruction: Please tick ( √ ) in the given space where the rating scales:
5 - Totally Agree
4 - Agree
3 - Partially Agree
2 - Disagree
1 - Totally Agree
SECTION A: ADMINISTRATION SYSTEM DESIGN (to be answered by
administrator only)
NO. QUESTION 5 4 3 2 1
1 The systems provide the security level.
2 Highway Information and Road Accident Module help to
store and update the information easily.
3 LOS Calculation Module helps to evaluate the LOS
accurately.
SECTION B: PRESENTATION DESIGN
NO. QUESTION 5 4 3 2 1
1 Interface designs are suitable and interesting.
2 The system used exact font that can be read clearly.
3 Graphics, images and colour are effective and interesting.
4 The function of the icon used is easy to understand.
5 The graphic text positions are consistent.
6 The system provide user friendly interface.

104
SECTION C: CALCULATION DESIGN
NO. QUESTION 5 4 3 2 1
1 The instructions are easy to understand.
2 User(s) have choice to calculate the LOS.
3 Calculations process save time.
4 Results are accurate.
5 The results are clearly showed.
6 User(s) can view the previous results easily.
SECTION D: INFORMATION DESIGN
NO. QUESTION 5 4 3 2 1
1 The system can give the information for highway and road
accident
2 Information delivered can be understood clearly and easily.
3 The information searching process save time.
SECTION E: OVERALL SYSTEM DESIGN
NO. QUESTION 5 4 3 2 1
1 The system is easy to use.
2 The information searching process save time.
3 I am satisfied with the system development.
-THANK YOU-

105
Coding for Login Form
Private Sub cmdAdmin_Click()
If Txtid.Text = "" Then
MsgBox "Please enter your ID!", vbCritical + vbOKCancel, "LORIS"
ElseIf Txtpass.Text = "" Then
MsgBox "Please enter your password!", vbCritical + vbOKCancel, "LORIS"
Else
DataPass.Refresh
DataPass.Recordset.FindFirst ("ID = '" & Txtid.Text & "'")
If DataPass.Recordset.NoMatch = False Then
If DataPass.Recordset.Fields("Pass") = Txtpass.Text Then
Unload Me
frmMenu.Show
Else
MsgBox "Incorrect ID and password!", vbCritical + vbOKCancel, "LORIS"
End If
Else
MsgBox "Incorrect ID and password!", vbCritical + vbOKCancel, "LORIS"
End If
End If
End Sub
Private Sub cmdUser_Click()
Unload Me
frmMenuuser.Show
End Sub
Private Sub Form_Load()
Txtid.Text = ""
Txtpass.Text = ""
End Sub
Private Sub Label3_Click()
frmExit.Show
End Sub
Coding for Highway Information Module
Dim operasi, ops As Integer
Dim nocheck As Integer
Private Sub z_Click()
End Sub
Private Sub MultiPage1_Change()
End Sub
Private Sub CmdAdd_Click()
kosong_form
cmdEdit.Enabled = False
CmdRpt.Enabled = False
End Sub
Private Sub CmdEdit_Click()
operasi = 2
check_atas
End Sub

106
Private Sub CmdFind_Click()
FrmFind.Refresh
FrmFind.ListView1.ColumnHeaders.Clear
FrmFind.LblMsg.Caption = "Form Road"
FrmFind.Show
End Sub
Private Sub CmdResetD_Click()
txtNo3.Text = ""
txtFrom3.Text = ""
txtTo3.Text = ""
cboDrainage.Text = "Concrete"
txtLhs3.Text = ""
txtLhs4.Text = ""
txtRhs3.Text = ""
txtRhs4.Text = ""
txtNotes3.Text = ""
End Sub
Private Sub CmdResetP_Click()
txtNo1.Text = ""
txtFrom1.Text = ""
txtTo1.Text = ""