-
Notifications
You must be signed in to change notification settings - Fork 0
/
Adminportal.vb
52 lines (39 loc) · 1.79 KB
/
Adminportal.vb
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
Public Class Adminportal
Public passlesfistname As String
Public passlesuserlastname As String
Public passlesuserID As String
Public lespacer As String = " "
'Public UserNo As String
Public Sub New(ByVal lesfistname, leslastname, userName)
InitializeComponent()
Me.Label5dd.Text = lesfistname + lespacer + leslastname
'Me.Label6.Text = leslastname
passlesfistname = lesfistname
passlesuserlastname = leslastname
passlesuserID = userName
'receptionistADD.MyUserNo = lesfistname
End Sub
Private Sub ExitButton_Click(sender As Object, e As EventArgs) Handles ExitButton.Click
Me.Close()
intro_form.Show()
End Sub
Private Sub Adminportal_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Me.WindowState = FormWindowState.Maximized
End Sub
Private Sub PictureBox2_Click(sender As Object, e As EventArgs) Handles PictureBox2.Click
Dim receptionistADD As New receptionistADD(passlesfistname, passlesuserlastname, passlesuserID)
receptionistADD.Show()
End Sub
Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click
Dim studentadDetails As New studentadDetails(passlesfistname, passlesuserlastname, passlesuserID)
studentadDetails.Show()
End Sub
Private Sub PictureBox4_Click(sender As Object, e As EventArgs) Handles PictureBox4.Click
Dim addgrade As New addgrade(passlesfistname, passlesuserlastname, passlesuserID)
addgrade.Show()
End Sub
Private Sub PictureBox5_Click(sender As Object, e As EventArgs) Handles PictureBox5.Click
Dim schooldetail As New schooldetail(passlesfistname, passlesuserlastname, passlesuserID)
schooldetail.Show()
End Sub
End Class