TABLE OF CONTENT
Introduction_________________________________________________________________________1
GROUP REPORT________________________________________________________________1
Visual Application Sketch___________________________________________________________1
Menu Form_____________________________________________________________________3 Menu Form Codes_____________________________________________________________3
LoginCreate Form_____________________________________________________________________4 Login TabPage 1___________________________________________________________4 Create A New Account TabPage 2_________________________________________________5 LoginCreate Form Codes_________________________________________________________5
Customer Form__________________________________________________________________7 Customer Form Codes___________________________________________________________8
Advertise Form_____________________________________________________________________9 Advertise Form Codes_______________________________________________________10
Payment From_____________________________________________________________________11 Payment Form Codes_______________________________________________________12
Staff_Login Form_____________________________________________________________________13 Staff_Login Form Codes_________________________________________________________14
Staff Form_____________________________________________________________________15 Add Customer TabPage 1________________________________________________________15 Search and Delete Customer TabPage 2____________________________________________16 Update Customer TabPage 3__________________________________________________17 Staff Form Codes____________________________________________________________17
Complaint Form_____________________________________________________________________22 Complaint 1 TabPage 1__________________________________________________________22 Complaint 2 TabPage 2__________________________________________________________23 Complaint Form Codes_________________________________________________________23
INDIVIDUAL REPORT___________________________________________________________26
Menu Form_____________________________________________________________________25
Menu Form: Planning Objects, Properties and Settings______________________________26
Menu Form Event Procedures__________________________________________________26
Login and Create a New Account Form________________________________________________27 Login Tab___________________________________________________________________28
Create A New Account Tab__________________________________________________29
Login and Create New Account Form: Planning Objects, Properties and Settings__________30 LoginCreate Form Event Procedures____________________________________________31
Customer Form____________________________________________________________________32 Customer Form: Planning, Objects and Settings___________________________________33 Customer Form Event Procedures_____________________________________________34
Advertise Form___________________________________________________________________35 Advertise Form: Planning Objects, Properties and Settings_____________________________37 Advertise Form Event Procedures_____________________________________________38
Payment Form_____________________________________________________________________39 Payment Form: Planning Objects, Properties and Settings___________________________41 Payment Form Event Procedures_____________________________________________42
Staff_Login_____________________________________________________________________43
Staff_Login Form: Planning Objects, Properties and Settings__________________________44 Staff_Login Form Event Procedures________________________________________________45
Staff Form_____________________________________________________________________45 Add Customer (TabPage 1) ______________________________________________________46 Search and Delete Customer (TabPage 2) ___________________________________________47 Update Customer (TabPage 3) ___________________________________________________48 Staff Form: Planning Objects, Properties and Settings________________________________49 Staff (TabPage 1) ______________________________________________________49 Staff (TabPage 2) _______________________________________________________50 Staff (TabPage 3) ___________________________________________________50 Staff Form Event Procedures_________________________________________________52
Complaint Form____________________________________________________________________52 Complaint Form: Planning Objects, Properties and Settings_____________________________54 Complaint Form Event Procedures________________________________________________55
What Part I Undertook In the Assignment_________________________________________________56
Conclusion_____________________________________________________________________57
Reference_____________________________________________________________________58
INTRODUCTION
This system is all about Multi Vision Services (MVS) in which the Staff can Login to their accounts which can only be updated by the Admin. This Staff can Add, Search and Delete Customer, Update Customer that has already been added. Individuals or Customers has their own page in with they can Create their personal Account make enquiry about their adverts and even make payment etc. Below are discussions about what we did with my Group member and my individual Report. The system is created with Visual Studio, Standard Edition 2005.
GROUP REPORT
Below is the Gantt chart of how we did our System Design and Documentation of our system. Fig 0.0 Gantt chart on how we went about our Assignment
VISUAL APPLICATION SKETCH
Below are all the sketches of our design also a print screen of the each and every DataBase we have created for every Form
Below is the Organization chart of all the design of all the assignment. Fig 0.1 Showing the Organization Chart of all the system Design.

MENU FORM

Fig 1.0 Sketch of the Menu Form
MENU FORM CODES:
Public Class Menu Private Sub Menu_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If CheckBox1.Checked = True Then LoginCreate.Show() ElseIf CheckBox3.Checked = True Then Staff_Login.Show() ElseIf CheckBox4.Checked = True Then Complaint.Show() End If End Sub Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click Me.Close() End Sub Private Sub LoginToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LoginToolStripMenuItem.Click LoginCreate.Show() Me.Hide() End Sub
End Class
LoginCreate FORM:
LOGIN TABPAGE1 Fig 2.0 Sketch of the Login Form (Login TabPage1)

CREATE A NEW ACCOUNT TABPAGE2

Fig 2.1 Sketch Create New Account Form (Create New Account TabPage 2) Fig 2.2 Print Screen of Create New Account Form DataBase
LOGINCREATE FORM CODES:
Imports System.Data.OleDb
Imports System.Drawing
Imports System.IO

Public Class LoginCreate Dim query As OleDbCommand Public con As New System.Data.OleDb.OleDbConnection("provider = microsoft.jet.oledb.4.0;data source = " & Application.StartupPath & "\createaccount.mdb;") Private Sub Login_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load File.SetAttributes(Application.StartupPath & "\createaccount.mdb", FileAttributes.Normal) End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Try Dim x As String If TextBox4.Text = TextBox5.Text Then x = MessageBox.Show("Do you want to confirm save new user", "confirm", MessageBoxButtons.YesNo) If x = vbYes Then query = New OleDbCommand("INSERT INTO ca(uname,pword)values('" & TextBox3.Text & "','" & TextBox4.Text & "')", con) con.Open() query.ExecuteNonQuery() con.Close() MsgBox("Record saved") End If Else MsgBox("Please Re-enter your password") End If Catch ex As Exception MsgBox("Not Saved") End Try End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Try Dim cmds As New OleDbCommand("SELECT * FROM ca WHERE uname = '" & TextBox1.Text & "'", con) Dim x As OleDbDataReader con.Open() x = cmds.ExecuteReader() x.Read() If TextBox1.Text = x.Item("uname") Then If TextBox2.Text = x.Item("pword") Then Timer1.Enabled = True MsgBox("Username and Password are Correct") Else MsgBox("Password is Wrong") End If Else MsgBox("Username is Wrong") End If Catch ex As Exception MsgBox("No User") End Try con.Close() End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick If ProgressBar1.Value < 100 Then ProgressBar1.Value = ProgressBar1.Value + 5 Label8.Text = ProgressBar1.Value Else Timer1.Enabled = False Customer.Show() Me.Close() End If End Sub Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click Me.Close() End Sub Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged TextBox1.Focus() End Sub
End Class
CUSTOMER FORM Fig 3.0 Sketch of the Customer Form Fig 3.1 Print Screen of Customer Form DataBase
CUSTOMER FORM CODES:
Imports System.IO
Imports System.Data.OleDb
Public Class Customer Public con As New System.Data.OleDb.OleDbConnection("provider=microsoft.jet.oledb.4.0;data source=" & Application.StartupPath & "\customer.mdb;") Private Sub Customer_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load File.SetAttributes(Application.StartupPath & "\customer.mdb", FileAttributes.Hidden) End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Try Dim query As OleDbCommand query = New OleDbCommand("insert into cus(fname,lname,address,country,city,zip,phone,dob,company) values ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & ComboBox1.Text & "','" & TextBox4.Text & "','" & MaskedTextBox1.Text & "','" & MaskedTextBox2.Text & "','" & TextBox5.Text & "','" & TextBox6.Text & "')", con) con.Open() query.ExecuteNonQuery() con.Close() MsgBox("Saved") Advertise.Show() Me.Hide() Catch ex As Exception MsgBox("You Have To Type In Your Details") End Try End Sub Private Sub DateTimePicker1_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DateTimePicker1.ValueChanged TextBox5.Text = DateTimePicker1.Value.Date End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click TextBox1.Clear() TextBox2.Clear() TextBox3.Clear() TextBox4.Clear() TextBox5.Clear() TextBox6.Clear() MaskedTextBox1.Clear() MaskedTextBox2.Clear() ComboBox1.Text = "Select" TextBox1.Focus() End Sub Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click TextBox1.Clear() TextBox2.Clear() TextBox3.Clear() TextBox4.Clear() TextBox5.Clear() TextBox6.Clear() MaskedTextBox1.Clear() MaskedTextBox2.Clear() End Sub Private Sub ExitToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem1.Click Me.Close() End Sub
End Class
ADVERTISE FORM Fig 4.0 Sketch of the Advert Form Fig 4.1 Print Screen of Advert Form DataBase
ADVERT FORM CODES:
Imports System.Data.OleDb
Imports System.Drawing
Imports System.IO
Public Class Advertise Public con As New System.Data.OleDb.OleDbConnection("provider=microsoft.jet.oledb.4.0;data source=" & Application.StartupPath & "\advertisement.mdb;") Private Sub Advertise_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load File.SetAttributes(Application.StartupPath & "\advertisement.mdb", FileAttributes.Hidden) End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Try Dim x, y As Integer If ComboBox1.SelectedItem = "Local" Then x = 50 ElseIf ComboBox1.SelectedItem = "Regional" Then x = 100 ElseIf ComboBox1.SelectedItem = "National" Then x = 150 End If If ComboBox2.SelectedItem = "Morning" Then y = 50 ElseIf ComboBox2.SelectedItem = "Afternoon" Then y = 100 ElseIf ComboBox2.SelectedItem = "Night" Then y = 200 End If TextBox3.Text = CInt(MaskedTextBox2.Text) * 10 + y + x Dim w, z As Integer If ComboBox1.SelectedItem = "Local" Then w = 0 ElseIf ComboBox1.SelectedItem = "National" Then w = 50 ElseIf ComboBox1.SelectedItem = "Regional" Then w = 100 End If If ComboBox2.SelectedItem = "Morning" Then z = 50 ElseIf ComboBox2.SelectedItem = "Afternoon" Then z = 100 ElseIf ComboBox2.SelectedItem = "Night" Then z = 200 End If TextBox4.Text = CInt(MaskedTextBox2.Text) * 8 + w + z TextBox5.Text = CInt(TextBox3.Text) + CInt(TextBox4.Text) TextBox5.Text = CDbl(TextBox5.Text).ToString("c") TextBox4.Text = CDbl(TextBox4.Text).ToString("c") TextBox3.Text = CDbl(TextBox3.Text).ToString("c") Catch ex As Exception MsgBox("Input Error") End Try End Sub
PAYMENT FORM Fig 5.0 Sketch of the Payment Form Fig 5.1 Print Screen of Payment Form DataBase
PAYMENT FORM CODES:
Imports System.IO
Imports System.Drawing
Imports System.Data.OleDb
Public Class Payment Public con As New System.Data.OleDb.OleDbConnection("provider = microsoft.jet.oledb.4.0;data source = " & Application.StartupPath & "\Payment.mdb;") Private Sub Payment_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load File.SetAttributes(Application.StartupPath & "\Payment.mdb", FileAttributes.Normal) TextBox8.Text = Advertise.TextBox5.Text End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Try TextBox1.Focus() Dim query As OleDbCommand query = New OleDbCommand("insert into payme(Fname,Lname,Address1,Address2,City,StateProv,PinCode,Country,CrdCard,ExpDate,ExpMonth,Amount)values('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "','" & TextBox6.Text & "','" & MaskedTextBox1.Text & "','" & ComboBox1.Text & "','" & TextBox7.Text & "','" & ComboBox2.Text & "','" & ComboBox3.Text & "','" & TextBox8.Text & "')", con) con.Open() query.ExecuteNonQuery() con.Close() MsgBox("Transaction Made") MessageBox.Show("Do You Want To Make Another Transaction", "confirm", MessageBoxButtons.YesNo) Catch ex As Exception MessageBox.Show("do you want to go back to the Advert Form", "confirm", MessageBoxButtons.YesNo) Advertise.Show() Me.Close() End Try End Sub Private Sub ComboBox3_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged End Sub Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click TextBox7.Text = "Master Card" End Sub Private Sub PictureBox2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox2.Click TextBox7.Text = "Visa Card" End Sub Private Sub PictureBox4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox4.Click TextBox7.Text = "PayPal" End Sub Private Sub PictureBox3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox3.Click TextBox7.Text = "FPX (meps)" End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Advertise.Show() Me.Hide() End Sub Private Sub ToolTip1_Popup(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PopupEventArgs) Handles ToolTip1.Popup End Sub Private Sub ExitToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem1.Click Me.Close() End Sub Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click TextBox1.Clear() TextBox2.Clear() TextBox3.Clear() TextBox8.Clear() MaskedTextBox1.Clear() ComboBox1.Text = "Select" ComboBox2.Text = "Select" ComboBox3.Text = "Select" TextBox1.Focus() End Sub
End Class
STAFF_LOGIN FORM

Fig 6.0 Sketch of the Staff_Login Form

Fig 6.1 Print Screen of Staff_Login Form DataBase
STAFF_LOGIN FORM CODES:
Imports System.Data.OleDb
Imports System.IO
Public Class Staff_Login Dim query As OleDbCommand Public con As New System.Data.OleDb.OleDbConnection("provider = microsoft.jet.oledb.4.0;data source = " & Application.StartupPath & "\StaffLogin.mdb;") Private Sub Staff_Login_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load File.SetAttributes(Application.StartupPath & "\StaffLogin.mdb", FileAttributes.Normal) End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Try Dim cmds As New OleDbCommand("SELECT * FROM slog WHERE StaffUname = '" & TextBox1.Text & "'", con) Dim x As OleDbDataReader con.Open() x = cmds.ExecuteReader() x.Read() If TextBox1.Text = x.Item("StaffUname") Then 'MsgBox("Username is Correct") If TextBox2.Text = x.Item("StaffPword") Then MsgBox("Username and Password are Correct") Staff.Show() Me.Hide() Else MsgBox("Password is Wrong") End If Else MsgBox("Username is Wrong") End If Catch ex As Exception MsgBox("No User") End Try con.Close() End Sub Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged TextBox1.Focus() End Sub
End Class
STAFF FORM:
ADD CUSTOMER TABPAGE 1 Fig 7.0 Sketch of the Staff Form (Add Customer TabPage 1) Fig 7.1 Print Screen of Staff Form (Add Customer TabPage 1) DataBase

SEARCH AND DELETE CUSTOMER TABPAGE 2 Fig 7.2 Sketch of the Staff Form (Search and Delete Customer TabPage 2)

UPDATE CUSTOMER TABPAGE 3 Fig 7.3 Sketch of the Staff Form (Update Customer TabPage 3)
STAFF FORM CODES:
Imports System.Data.OleDb
Imports system.drawing
Imports System.IO
Public Class Staff Dim query As OleDbCommand Public con As New System.Data.OleDb.OleDbConnection("provider = Microsoft.jet.OleDB.4.0;Data Source = " & Application.StartupPath & "\AddStaff.mdb;") Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click Try Dim x As String x = MessageBox.Show("Do you want to confirm save new user", "confirm", MessageBoxButtons.YesNo) query = New OleDbCommand("INSERT INTO atext(Num,Fname,Mname,Lname,Email,Website,City,State,Province,Country,Phone,Fax,AType,ATime)values('" & NumericUpDown1.Text & "','" & TextBox1.Text & "','" & TextBox2.Text & "', '" & TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "','" & TextBox6.Text & "','" & TextBox7.Text & "','" & TextBox8.Text & "','" & ComboBox1.Text & "','" & MaskedTextBox1.Text & "','" & MaskedTextBox2.Text & "','" & ComboBox2.Text & "','" & ComboBox3.Text & "')", con) con.Open() query.ExecuteNonQuery() MsgBox("Record saved") con.Close() Catch ex As Exception MsgBox("NAME ALREADY EXISTS") End Try End Sub Private Sub Staff_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load File.SetAttributes(Application.StartupPath & "\AddStaff.mdb", FileAttributes.Hidden) Try Dim ds As New DataSet Dim dr As DataRow Dim dt As New DataTable Dim adptr As New OleDbDataAdapter("select * from atext", con) adptr.Fill(ds, "atext") dt = ds.Tables(0) ComboBox7.Items.Clear() For Each dr In dt.Rows ComboBox7.Items.Add(dr.Item("Num")) ComboBox4.Items.Add(dr.Item("Num")) Next Catch ex As Exception MsgBox("The Database could not be found.. Try Again!!") End Try End Sub Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click Try TabPage2.Refresh() Dim cmds As New OleDbCommand("SELECT * FROM atext WHERE Num = " & ComboBox7.SelectedItem & "", con) Dim x As OleDbDataReader con.Open() x = cmds.ExecuteReader() x.Read() TextBox18.Text = x.Item("Num") Label27.Text = x.Item("Fname") Label28.Text = x.Item("Mname") Label29.Text = x.Item("Lname") Label30.Text = x.Item("Email") Label31.Text = x.Item("Website") Label32.Text = x.Item("City") Label33.Text = x.Item("State") Label34.Text = x.Item("Province") Label35.Text = x.Item("Country") Label36.Text = x.Item("Phone") Label37.Text = x.Item("Fax") Label38.Text = x.Item("AType") Label39.Text = x.Item("ATime") con.Close() Catch ex As Exception MsgBox("No Form is Selected") End Try End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Button1.Focus() NumericUpDown1.Text = "Add Customer" TextBox1.Text = "" TextBox2.Text = "" TextBox3.Text = "" TextBox4.Text = "" TextBox5.Text = "" TextBox6.Text = "" TextBox7.Text = "" TextBox8.Text = "" ComboBox1.Text = "Select" ComboBox2.Text = "Select" ComboBox3.Text = "Select" MaskedTextBox1.Text = "" MaskedTextBox2.Text = "" Static x As Integer = 0 x = x + 1 NumericUpDown1.Text = x End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Try TabPage2.Refresh() Dim x As String x = MessageBox.Show("Are You Sure You Want To Delete This Record", "Record Deleted", MessageBoxButtons.YesNo) If x = vbYes Then Dim cmds As New OleDbCommand("DELETE * FROM atext WHERE num = " & ComboBox7.SelectedItem & "", con) 'Dim x As OleDbDataReader con.Open() cmds.ExecuteReader() MessageBox.Show("Record Deleted") con.Close() ComboBox7.Items.Remove(ComboBox7.SelectedItem) Else MessageBox.Show("Record Not Deleted") End If Catch ex As Exception MsgBox("You've Deleted The Form") End Try End Sub Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click TextBox18.Text = "" Label27.Text = "" Label28.Text = "" Label29.Text = "" Label30.Text = "" Label31.Text = "" Label32.Text = "" Label33.Text = "" Label34.Text = "" Label35.Text = "" Label36.Text = "" Label37.Text = "" Label38.Text = "" Label39.Text = "" ComboBox7.Text = "Select" End Sub Private Sub ComboBox4_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox4.SelectedIndexChanged End Sub Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click Dim cmds As New OleDbCommand("SELECT * FROM atext WHERE Num = " & ComboBox4.SelectedItem & "", con) Try Dim x As OleDbDataReader con.Open() x = cmds.ExecuteReader() x.Read() TextBox9.Text = x.Item("Fname") TextBox10.Text = x.Item("Mname") TextBox11.Text = x.Item("Lname") TextBox12.Text = x.Item("Email") TextBox13.Text = x.Item("Website") TextBox14.Text = x.Item("City") TextBox15.Text = x.Item("State") TextBox16.Text = x.Item("Province") ComboBox5.Text = x.Item("Country") MaskedTextBox3.Text = x.Item("Phone") MaskedTextBox4.Text = x.Item("Fax") ComboBox6.Text = x.Item("AType") ComboBox8.Text = x.Item("ATime") con.Close() Catch ex As Exception MsgBox("No Form is Selected") End Try End Sub Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click Dim str As String = "UPDATE atext SET Fname='" & TextBox9.Text & "',Mname='" & TextBox10.Text & "', Lname='" & TextBox11.Text & "',Email='" & TextBox12.Text & "',Website='" & TextBox13.Text & "',City='" & TextBox14.Text & "',State='" & TextBox15.Text & "',Province='" & TextBox16.Text & "',Country='" & ComboBox5.Text & "',Phone='" & MaskedTextBox3.Text & "',Fax='" & MaskedTextBox4.Text & "',AType='" & ComboBox6.Text & "',ATime='" & ComboBox8.Text & "' WHERE Num= " & ComboBox4.Text & "" Dim cmnds As New OleDbCommand(str, con) con.Open() cmnds.ExecuteNonQuery() con.Close() ComboBox4.Items.Add(ComboBox4.SelectedItem) MsgBox("FORM UPDATED") End Sub Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click ComboBox7.Refresh() ComboBox4.Refresh() End Sub Private Sub TabPage2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TabPage2.Click End Sub Private Sub ExitToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem1.Click TextBox1.Clear() TextBox2.Clear() TextBox3.Clear() TextBox4.Clear() TextBox5.Clear() TextBox6.Clear() TextBox7.Clear() TextBox8.Clear() MaskedTextBox1.Clear() MaskedTextBox2.Clear() ComboBox1.Text = "Select" ComboBox2.Text = "Select" ComboBox3.Text = "Select" End Sub Private Sub ExitToolStripMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem2.Click Me.Close() End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click TextBox1.Clear() TextBox2.Clear() TextBox3.Clear() TextBox4.Clear() TextBox5.Clear() TextBox6.Clear() TextBox7.Clear() TextBox8.Clear() MaskedTextBox1.Clear() MaskedTextBox2.Clear() ComboBox1.Text = "Select" ComboBox2.Text = "Select" ComboBox3.Text = "Select" TextBox1.Focus() End Sub Private Sub ComboBox7_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox7.SelectedIndexChanged ComboBox7.Focus() End Sub Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged End Sub
COMPLAINT FORM:
Complaint 1 TabPage1 Fig 8.0 Sketch of the Complaint Form (Complaint 1 TabPage 1)

Complaint 2 TabPage2 Fig 8.1 Sketch of the Complaint Form (Complaint 2 TabPage 2) Fig 8.2 Print Screen of Complaint Form (Complaint 1&2 TabPage) DataBase
COMPLAINT FORM CODES:
Imports System.IO
Imports System.Data.OleDb
Public Class Complaint Public con As New System.Data.OleDb.OleDbConnection("provider=microsoft.jet.oledb.4.0;data source=" & Application.StartupPath & "\Complaint.mdb;") Private Sub Complaint_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load File.SetAttributes(Application.StartupPath & "\Complaint.mdb", FileAttributes.Hidden) End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim query As OleDbCommand query = New OleDbCommand("insert into cuscomp(intal,Fname,Sname,Address,Email,Phone,Dte,Country,ZipCode,AdDate,PayMade,Subject,cuscompt)values('" & ComboBox1.Text & "','" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & MaskedTextBox1.Text & "','" & TextBox5.Text & "','" & ComboBox2.Text & "','" & MaskedTextBox2.Text & "','" & TextBox6.Text & "','" & ComboBox3.Text & "','" & TextBox7.Text & "','" & RichTextBox1.Text & "')", con) con.Open() query.ExecuteNonQuery() con.Close() MsgBox("COMPLAINT SENT") End Sub Private Sub DateTimePicker1_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DateTimePicker1.ValueChanged TextBox5.Text = DateTimePicker1.Value.Date End Sub Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click TextBox1.Clear() TextBox2.Clear() TextBox3.Clear() TextBox4.Clear() TextBox5.Clear() TextBox6.Clear() MaskedTextBox1.Clear() MaskedTextBox2.Clear() ComboBox1.Text = "Select" ComboBox2.Text = "Select" ComboBox3.Text = "Select" ComboBox1.Focus() End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click TextBox1.Clear() TextBox2.Clear() TextBox3.Clear() TextBox4.Clear() TextBox5.Clear() TextBox6.Clear() MaskedTextBox1.Clear() MaskedTextBox2.Clear() ComboBox1.Text = "Select" ComboBox2.Text = "Select" ComboBox3.Text = "Select" ComboBox1.Focus() End Sub Private Sub ExitToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem1.Click Me.Close() End Sub
End Class
INDIVIDUAL REPORT
MENU FORM
The Menu Form is all about the combination of everything that we have designed; in short it’s the first page of the system immediately after the Splash Screen. All the Forms created in this system are linked to this form. The Background has been replaced with a picture, this is like the Logo of the system with the name MVS. The Menu Form comprises of a Label, A GroupBox and a Button. There is a MenuStrip in and almost all the functions a menustrip should have. Look at fig 9.0 Fig 9.0 showing the Menu Form

The GroupBox comprises of 3 CheckBoxes in which each CheckBox is Linked to other forms, when you Select any of this checkboxes you have to click on the Button which is ENTER by the way to access the form. Below is a brief discussion about the CheckBoxes in the GroupBox:
• ADVERT: When you check this Item the Login form for the Customer is the Form that first appears. So when you have an Account you can Login and enter all the other forms.
• STAFF: When the Staff CheckBox is checked, you will encounter the Staff_Login Form in which only the Staffs can Access
• COMPLAINT: This Form is all about a Customer having a problem with his advert and any other problem. This page is accessible by anyone

MENU FORM: PLANNING OBJECTS PROPERTIES AND SETTINGS
OBJECT PROPERTY SETTINGS
Menu Form Name Menu Background MVS Picture
Label1 Text Main Menu Font Algerian,27,Style=Bold
GroupBox1 Text Select Font 9,Style=Bold
CheckBox1 Text Advert Font Algerian,24pt,Style=Bold Checked False
CheckBox3 Text Staff Font Algerian,24pt,Style=Bold Checked False
CheckBox4 Text Complaint Font Algerian,24pt,Style=Bold Checked False
Buttoon1 Name Button1 Text Enter

PROCEDURE ACTIONS-PSEUDOCODE
Button1_Click Enters the CheckBoxes
CheckBox1_CheckedChanged Opens Customer Form when Button1 is clicked
CheckBox3_CheckedChanged Opens Staff_Login
CheckBox4_CheckedChanged Opens Complain Form
MENU FORM EVENT PROCEDURES Fig 9.1 showing the Flowchart of Menu Form
LOGIN AND CREATE A NEW ACCOUNT FORM
This form is all about the Customer. This is the first Page the Customer will see after the Menu form. In this form there is a Tab control which comprises of 2 Tabs. The first is the Login Tab and the second Tab is the Create New Account Tab. As in fig 10.0 Fig 10.0 Showing the Two Tabs In this Tab you can’t Login unless you have an Account. When you login without an account a MessageBox will Appear with the message “No User”. Fig 10.1 Fig 10.1 when nothing is typed or you have no Account
This is when the Create A New Account comes into use, the customer will first create a new account be he/she can Login in the first Tab.
Below is an illustrative discussion about the Two Tabs:
• LOGIN TAB: As long as you have an account i.e. if you have created one already you will have access to this page. The second TextBox has come certain characteristics like having a Password character (passchr) which has been changed to star (*). In this page there is a ProgressBar with a Marquee property. Look at Fig 10.2

Fig 10.2 showing Login Tab

If you make a mistake in the Username a MessageBox will appear, see Fig 10.3

Fig 10.3 When Username is wrong

UseSystemPass is changed to True. When you fill up the username and password and click on the Button with the name Login, A MessageBox will appear with the message Username and password are correct, when you the Ok you will proceed to the next form as in fig 10.4

Fig 10.4 when you’ve Login Successfully

• CREATE A NEW ACCOUNT TAB: this Tab will allow you to create a new account. There are 3 Textboxes in which the first one is the New Username Box, the Second one is the New Password Box and the third one is the Verify Password Box. When you click Create Account you will be registered in the DataBase giving you accessibility to Login Form. See fig 10.5

Fig 10.5 showing Tab 2 (Create A New User)

When you click on create Account a Message Box will appear with the message “Do you want to confirm save new User. See fig 10.6 Fig 10.6 Confirm new User.
LOGIN AND CREATE NEW ACCOUNT FORM: PLANNING OBJECTS PROPERTIES AND SETTINGS
OBJECT PROPERTY SETTINGS
Form1 Form Name Form1 Background Color Dark Gray
TabControl1 TabPage1 Login TabPage2 Create A New Account
TabPage1 Name Login Background Color Dark Gray
Label6 Text
Login
PictureBox1 Name PictureBox1 Size Mode Zoom Visible True
Label1 Text Username
TextBox1 Name TextBox1 Text (Blank)
Label2 Text Password
TextBox2 Name TextBox2 Text (Blank)
Button2 Name Button2 Text Login
ProgressBar1 Name ProgressBar1 Style Marquee
Label8 Text Counting progressbar from 1-100
Timer Name Timer1 Enabled False Interval 100

TabPage2 Name Create A New Account Background Color Dark Gray
Label5 Text Create A New Account Here
Picture Box2 Name PictureBox2 Size Mode Zoom Visible True
Label3 Text New Username
TextBox3 Name TextBox3 Text (Blank)
Label4 Text New Password
TextBox4 Name TextBox4 Text (Blank)
Label7 Text Verify Password
TextBox5 Name TextBox5 Text (Blank)
Button1 Name Button1 Text Create Account

LOGINCREATE FORM EVENT PROCEDURES
PROCEDURE ACTIONS_PSEUDOCODE
Button1_Click Creates New Account for
Button2_Click Logins to Customer Form
ExitToolStripMenuItem_Click Ends the project/form
ProgressBar1 Moves with the time and opens when password is correct

Fig 10.7 showing the Flowchart of LoginCreate Form

CUSTOMER FORM
In this form there are many Items. When you are through filling this page, you then click next which will save all your data in our database. The next button has the name Clear which clears all the boxes when desired when mistakes are made. Look at Fig 11.0 Fig 11.0 showing an Example of customer form when filled.
When Next is clicked a MessageBox will automatically appear with the message “Saved” and then it will proceed to the next form (Advertisement). See fig 11.1 Fig 11.1 When Customer form is saved.
There is also a MenuStrip in which File is the only function there with Clear and Exit in it.

CUSTOMER FORM: PLANNING OBJECTS PROPERTIES AND SETTINGS
OBJECT PROPERTY SETTING
Customer Form Name Customer Form Text Customer Background Color
Dark Gray
Label10 Text Customer Form Font 10pt,Style=Bold
Label1 Text First Name
Textbox1 Name TextBox1 Text (Blank)
Label2 Text Last Name
TextBox2 Name TextBox2 Text (Blank)
Label3 Text Address
TextBox3 Name TextBox3 Text (Blank)
Label4 Text Country
ComboBox1 Name ComboBox1 Text List of Countries (A-Z)
Label5 Text City
TextBox4 Name TextBox4 Text (Blank)
Label6 Text Zip Code
MaskedTextBox1 Name MaskedTextBox1 Text (Blank) Mask Zip Code
Label7 Text Phone No
MaskedTextBox2 Name MaskedTextBox2 Text (Blank) Mask Phone Number
Label8 Text DOB
TextBox5 Name TextBox5 Text (Blank) ReadOnly True
DateTimePicker1 Name DateTimepicker1
Label9 Text Company
TextBox6 Name TextBox6 Text (Blank)
Button1 Name Button1 Text Next
Button2 Name Button2 Text Clear
MenuStrip1 Name MenuStrip1
FileToolStripMenuItem Text File
ExitToolStripMenuItem Text Clear
ExitToolStripMenuItem1 Text Exit

CUSTOMER FORM EVENT PROCEDURES
PROCEDURE ACTIONS_PSEUDOCODE
Button1_Click Opens Advertisement Form
Button2_Click Clears all the Boxes in this Form Reset the focus in the first Box

ExitToolStripMenuItem_Click Clears all the Boxes in this Form Reset the focus in the first Box
ExitToolStripMenuItem1_Click Ends the project/Form

Fig 11.2 showing the Flowchart of Customer Form

ADVERTISE FORM
This Form is designed to allow Customers to input the Type and also to Calculate and get the Exact price of the kind of Advert they want. This page will give a Customer an idea on what he wants. If he hasn’t made up his mind he can just check the prices and choose which one he prefers. There are different tools in this form. Look at fig 12.0 Fig 12.0 showing an example the Advertisement Form when filled
Let’s say I am about to fill this form, to begin:
In this form there are ComboBoxes you have to select from to calculate the price of your Advert. When you through with form all you have to do is click the Calculate Button and the result will appear in the GroupBox with the name “Charges”
The Channel Payment which is 10%, Agency Charges Payment of 8%, lastly, the Total Payment which shows you both the Channel and Agency Charges as the Total
There is a MenuStrip in which File is the only function there with Clear and Exit in it.
Finally, in this Advertisement Form there are 3 Buttons which are the must important Icons in the Form because they perform almost all the functions.
• First Button: This is the Clear Button.
• Second Button: This is the Calculate Button which will do all the calculations.
• Third and Last Button: Is the Pay Now Button, this will Send you directly to the Payment Form If you are ready to make Payment. A messageBox will appear with the message “Saved”. Look at fig 12.1

Fig 12.1 when the Transaction is saved.
ADVERTISEMENT FORM: PLANNING OBJECTS PROPERTIES AND SETTINGS
OBJECT PROPERTY SETTING
MenuStrip1 Name MenuStrip1
FileToolStripMenuItem Text File
ExitToolStripMenuItem Text Clear
ExitToolStripMenuItem1 Text Exit

Label9 Text Advertisement
Label1 Text Date of Advert
TextBox1 Name TextBox1 Text (Blank) ReadOnly True
DateTimePicker1 Name DateTimePicker1
Labe l2 Text Time of Advert
MaskedTextBox1 Name MaskedTextBox1 Text (Blank) Mask Time Eu/Military DateTime
Label3 Text It’s a
ComboBox1 Name ComboBox1 Text What time you want the advert
Label4 Text Advertisement
Label5 Text Broadcast Time
ComboBox2 Name ComboBox2 Text Morning, Evening, Night
Label8 Text Duration of Advert
MaskedTextBox2 Name MaskedTextBox2 Text (Blank) Mask
Label11 Text In seconds
GroupBox1 Text Charges
Label6 Text Channel Payment: 10%
TextBox3 Name TextBox3 Text (Blank) ReadOnly True
Label7 Text Agency Charges: 8%
TextBox4 Name TextBox4 Text
(Blank)
ReadOnly True
Label Text Total Payment
TextBox5 Name Textbox5 Text (Blank) ReadOnly True
Label12 Text Note that all Transaction will be Processed in 48 Hours
Button1 Name Button1 Text Calculate
Button2 Name Button2 Text Clear
Button3 Name Button3 Text Pay Now

ADVERTISEMENT FORM EVENT PROCEDURES
PROCEDURE ACTIONS_PSEUDOCODE
Button1_Click Calculates and displays prices in the GroupBox1
Button2_Click Clears all the Boxes in this Form Reset the focus in the first Box
Button3_Click Opens Payment Form
DateTimePicker1_ValueChanged Displays the Date in Textbox1_TextChanged=ReadOnly
ExitToolStripMenuItem_Click Clears all the Boxes in this Form Reset the focus in the first Box
ExitToolStripMenuItem1_Click Ends the Project/Form

Fig 12.2 showing the Flowchart of Advertise Form

PAYMENT FORM
In this Form there are different Boxes that are displayed in the form. This Form is created to aid the Customer in making payment. This page is seen immediately after filling the Advertisement Form. This Form also has a MenuStrip in which file is displayed there, in the File we have Clear and Exit. See fig 13.0 Fig 13.0 Example of the Form when filled
Their are pictures of different payment methods like Mastercard, Visa Card, PayPal etc. Once you click on any of the pictures the name appears in a TextBox.t he price will automatically appear in a textbox. The TextBox is a read only Box. When you are through, you can just click on the Button “Make Payment” and MessageBox will appear with the message “Transaction Made”. See fig 13.1 Fig 13.1 when Make payment button is clicked
After this message has appeared and messageBox will appear with the message “Do you want to make another transaction?” See fig 13.2 Fig 13.2 MessageBox asking you whether you want to make another transaction or not.
PAYMENT FORM: PLANNING OBJECTS PROPERTIES AND SETTINGS
OBJECT PROPERTY SETTINGS
MenuStrip1 Name MenuStrip1
FileToolStripMenuItem Text File
ExitToolStripMenuItem Text Clear
ExitToolStripMenuItem1 Text Exit

Payment Name Payment Background Dark Gray
Label12 Text Payment Font 10pt,Style=Bold
Label1 Text First Name
Textbox1 Name Textbox1 Text (Blank)
Label2 Text Last Name
Textbox2 Name Textbox2 Text (Blank)
Label3 Text Address 1
Textbox3 Name Textbox3 Text (Blank)
Label4 Text Address 2
Textbox4 Name Textbox4 Text (Blank)
Label5 Text City
Textbox5 Name Textbox5 Text (Blank)
Label6 Text State/Prov
Textbox6 Name Textbox6 Text (Blank)
Label7 Text Pin Code*
MaskedTextBox1 Name MaskedTextBox1 Mask Numbers
Label8 Text Country
ComboBox1 Name ComboBox1 Text List of Countries (A-Z)
Label9 Text
Credit Card #*
TextBox7 Name TextBox7 Text (Blank)
Label13 Name Label13 Text (Blank)
PictureBox1 SizeMode Zoom
PictureBox2 SizeMode Zoom
PictureBox3 SizeMode Zoom
PictureBox4 SizeMode Zoom
PictureBox5 SizeMode Zoom
PictureBox6 SizeMode Zoom
Label10 Text Expiration*
ComboBox2 Name ComboBox2 Text From 1-12
ComboBox3 Name Combobox3 Text From 2010-2016
Label11 Text Amount*
Button1 Name Button1 Text Make Payment
Button2 Name Button2 Text Cancel

PAYMENT FORM EVENT PROCEDURES
PROCEDURE ACTIONS_PSEUDOCODE
Button1_Click Displays MessageBox for Payment
Button2_Click Sends you back to Advert Form(Payment_load)
PictureBox1-6 Displays the name of picture selectes in TextBox7_TextChanged
TextBox8_Click Calls Advert Form.TextBox5_TextChanged=ReadOnly
ExitToolStripMenuItem_Click Clears all the Boxes in this Form Reset the focus in the first Box
ExitToolStripMenuItem1_Click Ends the Project/Form

Fig 13.3 showing the Flowchart of Payment Form
STAFF_LOGIN
The staff login form is the page that allows only staff to Login. You can only be added by the Admin in the DataBase. See fig 13.0 when you have logged in you will be sent directly to the Staff Form. Fig 14.0 showing Staff_login Form

The MessageBox will display with the Message “Username and Password are Correct” see fig 14.1 Fig 14.1 when logged into Staff Form.

STAFF_LOGIN FORM: PLANNING OBJECTS PROPERTIES AND SETTINGS
OBJECT PROPERTY SETTING
Staff_Login Form Name Staff_Login Background Color Dark Gray
Label1 Text Staff Login
Label2 Text Staff Username
TextBox1 Name TextBox1 Text (Blank)
Label3 Text Staff Password
TextBox2 Name TextBox2 Text (Blank)
Button1 Name
Button1
Text Login

STAFF LOGIN FORM EVENT PROCEDURES
PROCEDURE ACTIONS_PSEUDOCODE
Button1_Click Opens Staff_load (Staff Form)

Fig 14.2 showing the Flowchart of Staff_Login Form

STAFF FORM
In the Staff Form there is a TabControl and in tis TabControl we have 3 TabPages, Each of this TabPages has its own use. Only the Staff is given permission to access this page. See fig 15.0. This Form also has a MenuStrip in which file is displayed there, in the File we have Clear, Refresh and Exit. Fig 15.0 showing the Staff TabControl and Tabpages.
Below is a brief explanation of each of the TabPages:
• ADD CUSTOMER (TabPage 1): In this page the Staff can add a Customer by filling in his details. By clicking the Add Customer Button, +1 will be added to the NumericUpDown beside it which is the Number of the Customer you are searching. The next Button is for clearing all the Boxes and the last Button is the save Button. See fig 15.1 Fig 15.1 showing Add Customer (TabPage 1)

When you click on the Save Button a MessageBox will appear with the message”” to confirm if you want to save new user and another messageBox will appear with the message “Record Saved”. See fig 15.2

Fig 15.2 showing messageboxes that appears when the saved button is clicked

• SEARCH AND DELETE CUSTOMER (Tabpage 2): This page comprises of labels in which you can search for all the Customers you have already saved in the Add Customer Tab. There are three Buttons in this page which are Search, Remove Customer and Clear. See fig 15.3

Fig 15.3 showing Search and Delete Customer (TabPage2)

Using the ComboBox, you can select the Customer you are searching for to either view their details or to remove them. Then the Clear button. When you click on the “Remove Customer” Button a MessageBox will appear with the message”Record Deleted” another messageBox will appear with the message “Record Deleted”. See fig 15.4

Fig 15.4 showing messageboxes that appears when the Remove Customer button is clicked

• UPDATE CUSTOMER (Tabpage 3): In this page you can search for a Customer that needs to be Updated and Edit his details. You can do that by selecting the Customer in Form No ComboBox and the click on the Open Form Button. When the details are displayed you can then edit them and then click on the Update Customer. See fig 15.5 After doing all the above a MessageBox will be displayed telling you “Form Updated” See fig 15.6 Fig 15.6 showing MessageBox when Form is Updated.
STAFF FORM: PLANNING OBJECTS PROPERTIES AND SETTINGS
STAFF (TabPage1) STAFF (TabPage2)
OBJECT PROPERTY SETTING
Staff Form Name Staff Background Color Dark Gray
TabControl1 Name TabControl1 Background Color Dark Gray
Tabpage2 Name TabPage2 Background Color Dark Gray Tab Name Search and Delete Customer
ComboBox7 Name ComboBox7 Text List From DataBase
Button9 Name Button9 Text Search
TextBox18 Name TextBox18 Text From ComboBox7 ReadOnly True
Button2 Name Button2 Text Remove Customer
Button10 Name Button10 Text Clear
Label27 Text (Blank)
Label28 Text (Blank)
Label29 Text (Blank)
Label30 Text (Blank)
Label31 Text (Blank)
Label32 Text (Blank)
Label33 Text (Blank)
Label34 Text (Blank)
Label35 Text (Blank)
Label36 Text (Blank)
Label37 Text (Blank)
Label38 Text (Blank)
Label39 Text (Blank)

STAFF (TabPage3)
OBJECT PROPERTY SETTING
Staff Form Name Staff Background Color Dark Gray
TabControl1 Name TabControl1 Background Color Dark Gray
Tabpage1 Name TabPage1 Background Color Dark Gray Tab Name Add Customer
Label40 Text Form No
ComboBox4 Name
ComboBox4
Text From DataBase
Button5 Name Button5 Text Open Form
Label26 Text First Name
TextBox9 Name TextBox9 Text (Blank)
Label25 Text Middle Name
TextBox10 Name TextBox10 Text (Blank)
Label24 Text Last Name
TextBox11 Name TextBox11 Text (Blank)
Label23 Text Email
TextBox12 Name TextBox12 Text (Blank)
Label22 Text Website
TextBox13 Name TextBox13 Text (Blank)
Label21 Text City
TextBox14 Name TextBox14 Text (Blank)
Label20 Text State
TextBox15 Name TextBox15 Text (Blank)
Label19 Text Province
TextBox16 Name TextBox16 Text (Blank)
Label18 Text Country
ComboBox5 Name ComboBox5 Text List of Countries (A-Z)
Label17 Text Phone No
MaskedTextBox3 Name MaskedTextBox3 Text (Blank) Mask Phone Number
Label16 Text Fax No
MaskedTextBox4 Name MaskedTextBox4 Text (Blank) Mask Phone Number
Label15 Text Advert Type
ComboBox6 Name ComboBox6 Text Local, National, Regional
Label14 Text Advert Time
ComboBox8 Name ComboBox8 Text Morning, Evening, Night
Button8 Name Button8 Text Update Customer

STAFF FORM EVENT PROCEDURES
PROCEDURE ACTIONS_PSEUDOCODE
Button1_Click Add a Number to NumericUpDown1
Button3_Click Clears all the Boxes in this Form Reset the focus in the first Box
Button4_Click Saves the Form TABPAGE2
Button9_Click Search Customer from the Database
Button2_Click Deletes Customer in the Database
Button10_Click Clears all the Boxes in this Form Reset the focus in the first Box TABPAGE3
Button5_Click Searches and opens Customer form from the Database
Button8_Click When you’ve Updated the Customer it saves it
ExitToolStripMenuItem_Click Refreshes all the Tabpages
ExitToolStripMenuItem1_Click Clears all the Boxes in this Form Reset the focus in the first Box
ExitToolStripMenuItem2_Click Ends the project/form

COMPLAINT
In this Form I used 2 Tabs which are Complaint 1 and Complaint2. The second tab is a continuation of the first, so immediately after filling the first form you will have to go to the next Tab to complete the Complaint. At the top left of the TabControl1 there is a MenuStrip with the name File, in this File there are different options to choose from which are Clear and Exit. These options are for both Tabs which are Complaint 1 and 2. See fig 16.0 Fig 16.0 showing the MenuStrip and the TabControl1.
Below will be a detailed explanation of the two Tabs:
• COMPLAINT 1 (TabPage1): In this tab there are a lot of boxes which in this case has there different uses. Filling the first page you can only clear this page with the button by the bottom left. See Fig 16.1

Fig 16.1 showing Complaint 1 (TabPage1)

• There is not much to be discussed in this page. This Tab is all about writing all your complaint in details. The last item in this Tab is a Send Button which you can click after filling the First and Second Tab. See Fig 16.2 and 16.3

Fig 16.2 showing complaint 2 (TabPage2) Fig 16.3 showing message after clicking Send.
COMPLAINT FORM: PLANNING OBJECTS PROPERTIES AND SETTINGS
OBJECT PROPERTY SETTING
Complaint Form Name Complaint Background Color Dark Gray
TabControl1 Name TabControl1 Background Color Dark Gray
TabPage1 Name TabPage1 Background Color Dark Gray Tab Name Complaint 1
Label2 Text Complaint
Label2 Text Initial
ComboBox1 Name ComboBox1 Text Mr., Mrs., Ms.
Label3 Text First Name
TextBox1 Name TextBox1 Text (Blank)
Label4 Text Surname
TextBox2 Name TextBox2 Text (Blank)
Label5 Text Address
TextBox3 Name TextBox3 Text (Blank)
Label6 Text Email Address
TextBox4 Name TextBox4 Text (Blank)
Label7 Text Phone No
MaskedTextBox1 Name MaskedTextBox1 Text (Blank) Mask Phone Number
Label8 Text Date
TextBox5 Name TextBox5 Text (Blank) ReadOnly True
DateTimePicker1 Name DateTimePicker1
Label9 Text Country
ComboBox2 Name
ComboBox2
Text List of Countries (A-Z)
Label10 Text Zip Code
MaskedTextBox2 Name MaskedTextBox2 Text (Blank) Mask Zip Code
Label11 Text Advert Date
TextBox6 Name TextBox6 Text (Blank)
Label12 Text Payment Made
ComboBox3 Name ComboBox3 Text Yes/No
Button2 Name Button2 Text Clear
Label16 Text Go to the next Tab to Complete your Complain

TabPage2 Name TabPage2 Background Color Dark Gray
Label13 Text Complaint Form Font 9pt, Style=Bold
Label14 Text Subject:
TextBox7 Name TextBox7 Text (Blank)
Label15 Text Complaint:
RichTextBox1 Name RichTextBox1 Text (Blank)
Button1 Name Button1 Text Send

COMPLAINT FORM EVENT PROCEDURES
PROCEDURE ACTIONS_PSEUDOCODE
Button5_Click Displays Message saying “Complaint Sent”
Button8_Click Clears all the Boxes in this Form Reset the focus in the first Box
DateTimePicker1_ValueChanged Displays date in TextBox5_TextChanged=ReadOnly
ExitToolStripMenuItem_Click Clears all the Boxes in this Form Reset the focus in the first Box
ExitToolStripMenuItem1_Click Ends the project/form

Fig 16.4 showing the Flowchart of Complaint Form

WHAT PART I UNDERTOOK IN THE ASSIGNMENT
Because of how short the time of the assignment is, the system design and documentation was shared equally between me and my Group member. So in short we have been doing the assignment from the beginning

CONCLUSION
In conclusion this assignment has been very tasking and demanding. But with the help of Madam Manimala correcting and checking our codes and everything. It has been a little bit easier. I hope that the documentation is as clear and simple to understand to my readers as possible.

REFERENCE
Brian Noyes, 2006, Data Binding with Windows Forms 2.0: Programming Smart Client Data Applications with .NET, edition Addison-Wesley Professional, published by wesley, US
Jean-Luc David, Tony Loton, Erik Gunvaldson, Christopher Bowen, Noah Coad, Darren Jeffor, 2006, Professional Visual Studio 2005 Team System, , Published by Wrox
Julia Case Bradley, Anita C Millspaugh, Programming in Visual Basic.NET 2005 Edition. 2005, pub Ventura Publisher, UK
Marcus Heege, 2006, Expert Visual C++/CLI: .NET for Visual C++ Programmers, published by Apress, UK