APPLICATION SOFTWARE SOURCE CODE

Public Class Initializing

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
Me.Hide()
Securit.Show()
Timer1.Stop()
End Sub
End Class

Public Class Securit

Private Sub TextBox1_MouseClick(sender As Object, e As MouseEventArgs) Handles
TextBox1.MouseClick
TextBox1.Clear()
TextBox1.ForeColor = Color.Black
End Sub
Private Sub TextBox2_MouseClick(sender As Object, e As MouseEventArgs) Handles
TextBox2.MouseClick
TextBox2.Clear()
TextBox2.ForeColor = Color.Black
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If TextBox1.Text = "admin" And TextBox2.Text = "password" Then
Me.Hide()
Form1.Show()
Else
MessageBox.Show("Invalid username or password")
End If
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Application.ExitThread()
End Sub
End Class

Imports System.Data.SqlClient

Imports QRCoder

Imports System.IO.Ports

Imports System.Threading

Imports FireSharp.Config
Imports FireSharp.Response

Imports FireSharp.Interfaces

Imports System.IO

Imports System.Data

Imports QRCoder.QRCodeGenerator

Imports Newtonsoft.Json

Public Class Form1

Private fcon As New FirebaseConfig() With

{ AuthSecret = "BdP2A2M36anP0A0UFg9dxYXKIlHk7tP2GVGviSbs",

.BasePath = https://eastmeridianb-default-rtdb.firebaseio.com/ }

Private Client As IFirebaseClient

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

Try

Client = New FireSharp.FirebaseClient(fcon)

Catch

MessageBox.Show("There was a problem in Internet!")

End Try

ResidentData()

Resident_FormerData()

SUB_VEHICLE()

AnnouncementData()

VisitorData()

Visitor_VehicleData()
 UpcomingReservationData()

ongoingreservation()

InfrastracturesData()

Eventa()

EVENTS_ONGO()

EVENTS_FIN()

OngoingProjects()

UpcomingProjects()

finishedprojects()

CanceledProjects()

FinancesEvent()

FinanceProj()

FinishedReservation()

canceled_reservation()

residentinquiry()

residentreport()

Dim conn As SqlConnection = New SqlConnection(" Data Source=.\SQLEXPRESS;Initial

Catalog=SUBDIVISION;Integrated Security=True")

conn.Open()

conn.Close()

'PRESIDENT

Dim cons As New SqlConnection

Dim cms As New SqlCommand

 cons = New SqlConnection("server=localhost;data source = DESKTOP-PALMA\SQLEXPRESS;
database = SUBDIVISION; Integrated Security = True")

Dim quee As String = "Select * from HOA_Officers where Position=@Position"

cons.Open()

cms = New SqlCommand(quee, cons)

cms.Parameters.AddWithValue("@Position", Label204.Text)

Dim da As New SqlDataAdapter(cms)

Dim dt As New DataTable

da.Fill(dt)

If (dt.Rows.Count > 0) Then

Dim img() As Byte

img = dt.Rows(0)(3)

Dim ms As New MemoryStream(img)

PictureBox6.Image = Image.FromStream(ms)

Label227.Text = dt.Rows(0)(1).ToString

Label197.Text = dt.Rows(0)(2).ToString

cons.Close()

End If

'VICE PRESIDENT

Dim cont As New SqlConnection

Dim cmc As New SqlCommand

cont = New SqlConnection("server=localhost;data source = DESKTOP-PALMA\SQLEXPRESS; database

= SUBDIVISION; Integrated Security = True")

Dim vice As String = "Select * from HOA_Officers where Position=@Position"

 cont.Open()

cmc = New SqlCommand(vice, cont)

cmc.Parameters.AddWithValue("@Position", Label236.Text)

Dim vic As New SqlDataAdapter(cmc)

Dim vi As New DataTable

vic.Fill(vi)

If (vi.Rows.Count > 0) Then

Dim img() As Byte

img = vi.Rows(0)(3)

Dim ms As New MemoryStream(img)

PictureBox7.Image = Image.FromStream(ms)

Label229.Text = vi.Rows(0)(1).ToString

Label198.Text = vi.Rows(0)(2).ToString

cont.Close()

End If

'SECRETARY

Dim sec As New SqlConnection

Dim scr As New SqlCommand

sec = New SqlConnection("server=localhost;data source = DESKTOP-PALMA\SQLEXPRESS; database

= SUBDIVISION; Integrated Security = True")

Dim secr As String = "Select * from HOA_Officers where Position=@Position"

sec.Open()

scr = New SqlCommand(secr, sec)

 scr.Parameters.AddWithValue("@Position", Label206.Text)

Dim sect As New SqlDataAdapter(scr)

Dim sca As New DataTable

sect.Fill(sca)

If (sca.Rows.Count > 0) Then

Dim img() As Byte

img = sca.Rows(0)(3)

Dim ms As New MemoryStream(img)

PictureBox8.Image = Image.FromStream(ms)

Label230.Text = sca.Rows(0)(1).ToString

Label205.Text = sca.Rows(0)(2).ToString

sec.Close()

End If

'AUDITOR

Dim auditor As New SqlConnection

Dim audit As New SqlCommand

auditor = New SqlConnection("server=localhost;data source = DESKTOP-PALMA\SQLEXPRESS;

database = SUBDIVISION; Integrated Security = True")

Dim audtr As String = "Select * from HOA_Officers where Position=@Position"

auditor.Open()

audit = New SqlCommand(audtr, auditor)

audit.Parameters.AddWithValue("@Position", Label207.Text)

Dim audits As New SqlDataAdapter(audit)

 Dim aud As New DataTable

audits.Fill(aud)

If (aud.Rows.Count > 0) Then

Dim img() As Byte

img = aud.Rows(0)(3)

Dim ms As New MemoryStream(img)

PictureBox12.Image = Image.FromStream(ms)

Label231.Text = aud.Rows(0)(1).ToString

Label218.Text = aud.Rows(0)(2).ToString

auditor.Close()

End If

'TREASURER

Dim Treasurer As New SqlConnection

Dim Treasure As New SqlCommand

Treasurer = New SqlConnection("server=localhost;data source = DESKTOP-PALMA\SQLEXPRESS;

database = SUBDIVISION; Integrated Security = True")

Dim Trease As String = "Select * from HOA_Officers where Position=@Position"

Treasurer.Open()

Treasure = New SqlCommand(Trease, Treasurer)

Treasure.Parameters.AddWithValue("@Position", Label208.Text)

Dim Treas As New SqlDataAdapter(Treasure)

Dim Tre As New DataTable

Treas.Fill(Tre)
 If (Tre.Rows.Count > 0) Then

Dim img() As Byte

img = Tre.Rows(0)(3)

Dim ms As New MemoryStream(img)

PictureBox10.Image = Image.FromStream(ms)

Label232.Text = Tre.Rows(0)(1).ToString

Label219.Text = Tre.Rows(0)(2).ToString

Treasurer.Close()

End If

'SECURITY GUARD

Dim Security As New SqlConnection

Dim Guard As New SqlCommand

Security = New SqlConnection("server=localhost;data source = DESKTOP-PALMA\SQLEXPRESS;

database = SUBDIVISION; Integrated Security = True")

Dim Secure As String = "Select * from HOA_Officers where Position=@Position"

Security.Open()

Guard = New SqlCommand(Secure, Security)

Guard.Parameters.AddWithValue("@Position", Label209.Text)

Dim Gua As New SqlDataAdapter(Guard)

Dim sty As New DataTable

Gua.Fill(sty)

If (sty.Rows.Count > 0) Then

Dim img() As Byte

 img = sty.Rows(0)(3)

Dim ms As New MemoryStream(img)

PictureBox9.Image = Image.FromStream(ms)

Label233.Text = sty.Rows(0)(1).ToString

Label237.Text = sty.Rows(0)(2).ToString

Security.Close()

End If

End Sub

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click

If Panel5.Visible = True Then

Panel5.Visible = False

Else

Panel3.Visible = False

Panel4.Visible = False

Panel5.Visible = True

End If

End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

If Panel3.Visible = True Then

Panel3.Visible = False

Else

Panel3.Visible = True

Panel4.Visible = False
 Panel5.Visible = False

End If

End Sub

Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click

If Panel4.Visible = True Then

Panel4.Visible = False

Else

Panel3.Visible = False

Panel4.Visible = True

Panel5.Visible = False

End If

End Sub

Private Sub Button128_Click(sender As Object, e As EventArgs)

'BUTTON BACKGROUND START

Button1.BackColor = Color.Transparent

Button6.BackColor = Color.Transparent

Button8.BackColor = Color.Transparent

Button11.BackColor = Color.Transparent

Button9.BackColor = Color.Transparent

Button13.BackColor = Color.Transparent

Button12.BackColor = Color.Transparent

Button18.BackColor = Color.Transparent

Button7.BackColor = Color.Transparent
 Button129.BackColor = Color.Transparent

Button16.BackColor = Color.Transparent

Button10.BackColor = Color.Transparent

Button14.BackColor = Color.Transparent

Button19.BackColor = Color.Transparent

'BUTTON BACKGROUND END

DashboardPanel.Visible = False

ResidentsPanel.Visible = False

ResidentVehiclePanel.Visible = False

AnnouncementsPanel.Visible = False

ResidentInquiriesPanel.Visible = False

ReservationPanel.Visible = False

InfrastracturePanel.Visible = False

VisitorsPanel.Visible = False

VisitorVehiclePanel.Visible = False

MeetingsPanel.Visible = False

ProjectPanel.Visible = False

FinancesPanel.Visible = False

ReportPanel.Visible = False

'PANEL BACK

Panel29.Width = 32

Panel29.Enabled = False

End Sub
Private Sub Button22_Click(sender As Object, e As EventArgs)

Panel18.Visible = True

End Sub

Private Sub Button29_Click(sender As Object, e As EventArgs)

Panel19.Visible = True

End Sub

Private Sub Button23_Click(sender As Object, e As EventArgs)

Panel21.Visible = True

End Sub

'RESIDENT ADD BUTTON

Private Sub Button40_Click(sender As Object, e As EventArgs) Handles Button40.Click

Dim alam As String = Label18.Text

Dim Category As String = Label22.Text

Dim Code As String = TextBox5.Text

Dim FullName As String = TextBox41.Text

Dim FName As String = TextBox6.Text

Dim MName As String = TextBox7.Text

Dim LName As String = TextBox70.Text

Dim BLK As String = TextBox9.Text

Dim LOT As String = TextBox25.Text

Dim Gender As String = TextBox10.Text

Dim CNUM As String = TextBox42.Text

Dim Position As String = TextBox80.Text

 Dim App As String = TextBox43.Text

Dim DReg As String = Label135.Text

Dim query As String = "INSERT INTO Residents

VALUES(@Category,@QR_Number,@Full_Name,@First_Name,@Middle_Name,@Last_Name,@BLK,@L
OT,@Gender,@Contact_Number,@Position,@App_Code,@Date_Registered,@Picture)"

Using con As SqlConnection = New SqlConnection(" Data Source=DESKTOP-PALMA\

SQLEXPRESS;Initial Catalog=SUBDIVISION;Integrated Security=True")

Using cmd As SqlCommand = New SqlCommand(query, con)

Dim ms As New MemoryStream

PictureBox2.Image.Save(ms, PictureBox2.Image.RawFormat)

con.Open()

cmd.Parameters.AddWithValue("@Category", Category)

cmd.Parameters.AddWithValue("@QR_Number", Code)

cmd.Parameters.AddWithValue("@Full_Name", FullName)

cmd.Parameters.AddWithValue("@First_Name", FName)

cmd.Parameters.AddWithValue("@Middle_Name", MName)

cmd.Parameters.AddWithValue("@Last_Name", LName)

cmd.Parameters.AddWithValue("@BLK", BLK)

cmd.Parameters.AddWithValue("@LOT", LOT)

cmd.Parameters.AddWithValue("@Gender", Gender)

cmd.Parameters.AddWithValue("@Contact_Number", CNUM)

cmd.Parameters.AddWithValue("@Position", Position)

cmd.Parameters.AddWithValue("@App_Code", App)

cmd.Parameters.AddWithValue("@Date_Registered", DReg)
 cmd.Parameters.AddWithValue("Picture", ms.ToArray())

cmd.ExecuteNonQuery()

SerialPort1 = New SerialPort

SerialPort1.PortName = "COM4"

SerialPort1.BaudRate = 9600

SerialPort1.DataBits = 8

SerialPort1.StopBits = StopBits.One

SerialPort1.Handshake = Handshake.None

SerialPort1.DtrEnable = True

SerialPort1.RtsEnable = True

SerialPort1.NewLine = vbCrLf

SerialPort1.Open()

SerialPort1.Write("AT" & vbCrLf)

Threading.Thread.Sleep(200)

SerialPort1.WriteLine("AT+GMGF=1" & Chr(13))

Threading.Thread.Sleep(200)

SerialPort1.WriteLine("AT+CMGS=" & Chr(34) & (TextBox42.Text) & Chr(34))

Threading.Thread.Sleep(200)

SerialPort1.WriteLine(TextBox37.Text & Chr(26))

Threading.Thread.Sleep(200)

SerialPort1.Close()

con.Close()

End Using
 End Using

Dim querys As String = "INSERT INTO ESMS VALUES(@Numbenga,@Alamids)"

Using con As SqlConnection = New SqlConnection(" Data Source=DESKTOP-PALMA\

SQLEXPRESS;Initial Catalog=Subdivision;Integrated Security=True")

Using cmd As SqlCommand = New SqlCommand(querys, con)

con.Open()

cmd.Parameters.AddWithValue("@Numbenga", CNUM)

cmd.Parameters.AddWithValue("@Alamids", alam)

cmd.ExecuteNonQuery()

con.Close()

End Using

End Using

Dim std As New Resid() With

{ .FullName = TextBox58.Text,

.QRcode = TextBox5.Text,

.ContactNumber = TextBox42.Text,

.Password = TextBox43.Text,

.Block = TextBox9.Text,

.Lot = TextBox25.Text }

Dim setter = Client.Set("SUBDIVISION/" + TextBox43.Text, std)

Panel24.Visible = False

ResidentData()

End Sub
 Private Sub Button50_Click(sender As Object, e As EventArgs) Handles Button50.Click

'SAVE QR CODE IN COMPUTER

Dim sd As New SaveFileDialog

sd.FileName = TextBox41.Text

sd.Filter = "PNG Files only (*.Png)|*.png"

If sd.ShowDialog() = Windows.Forms.DialogResult.OK Then

Try

PictureBox13.Image.Save(sd.FileName, System.Drawing.Imaging.ImageFormat.Png)

MessageBox.Show("Succesfully Saved")

Catch ex As Exception

End Try

End If

End Sub

'RESIDENT SHOW DATA ON DATAGRIDVIEW'

Public Sub ResidentData()

Dim query As String = " SELECT Full_Name, Gender, BLK, LOT, Contact_Number, Position,
Date_Registered, QR_Number FROM Residents"

Using con As SqlConnection = New SqlConnection("Data Source=.\SQLEXPRESS;Initial

Catalog=SUBDIVISION;Integrated Security=True")

Using cmd As SqlCommand = New SqlCommand(query, con)

Using da As New SqlDataAdapter()

da.SelectCommand = cmd

Using dt As New DataTable()

da.Fill(dt)
 DataGridView6.DataSource = dt

End Using

End Using

End Using

End Using

End Sub

'RESIDENT REMOVE BUTTON

Private Sub Button53_Click(sender As Object, e As EventArgs) Handles Button53.Click

Dim conn As New SqlConnection

Dim cmd As New SqlCommand

conn = New SqlConnection("server=localhost;data source = DESKTOP-PALMA\SQLEXPRESS;

database = SUBDIVISION; Integrated Security = True")

Dim querys As String = "Select * from Residents where QR_Number=@QR_Number"

conn.Open()

cmd = New SqlCommand(querys, conn)

cmd.Parameters.AddWithValue("@QR_Number", TextBox5.Text)

Dim das As New SqlDataAdapter(cmd)

Dim dts As New DataTable

das.Fill(dts)

If (dts.Rows.Count > 0) Then

Dim img() As Byte

img = dts.Rows(0)(14)

Dim ms As New MemoryStream(img)

PictureBox2.Image = Image.FromStream(ms)

TextBox79.Text = dts.Rows(0)(0).ToString

TextBox5.Text = dts.Rows(0)(2).ToString

TextBox41.Text = dts.Rows(0)(3).ToString

TextBox6.Text = dts.Rows(0)(4).ToString

TextBox7.Text = dts.Rows(0)(5).ToString

TextBox70.Text = dts.Rows(0)(6).ToString

TextBox9.Text = dts.Rows(0)(7).ToString

TextBox25.Text = dts.Rows(0)(8).ToString

TextBox10.Text = dts.Rows(0)(9).ToString

TextBox42.Text = dts.Rows(0)(10).ToString

TextBox80.Text = dts.Rows(0)(11).ToString

TextBox43.Text = dts.Rows(0)(12).ToString

If TextBox10.Text = "Male" Then

CheckBox2.Checked = True

CheckBox3.Checked = False

Else

CheckBox2.Checked = False

CheckBox3.Checked = True

End If

If TextBox80.Text = "Owner" Then

CheckBox10.Checked = True

CheckBox9.Checked = False
 Else

CheckBox10.Checked = False

CheckBox9.Checked = True

End If

End If

Button91.Visible = False

Button93.Visible = False

Button53.Visible = False

Button92.Enabled = False

Panel8.BringToFront()

Panel8.Visible = True

ResidentData()

End Sub

'RESIDENT REMOVE BUTTON (NO)

Private Sub Button21_Click(sender As Object, e As EventArgs) Handles Button21.Click

Button53.Visible = False

Button93.Visible = False

Button91.Visible = False

Panel8.Visible = False

Button92.Enabled = True

End Sub

'REMOVE RESIDENT
 Private Sub Button22_Click_1(sender As Object, e As EventArgs) Handles Button22.Click

Dim Full As String = TextBox41.Text

Dim FName As String = TextBox6.Text

Dim MName As String = TextBox7.Text

Dim LName As String = TextBox70.Text

Dim BLK As String = TextBox9.Text

Dim LOT As String = TextBox25.Text

Dim Gender As String = TextBox10.Text

Dim CNUM As String = TextBox42.Text

Dim Position As String = TextBox80.Text

Dim Dreg As String = Label135.Text

Dim Dlea As String = Label135.Text

Dim query As String = "INSERT INTO Former_Residents

VALUES(@Full_Name,@First_Name,@Middle_Name,@Last_Name,@BLK,@LOT,@Gender,@Contact_N
umber,@Position,@Date_Registered,@Date_Leave,@Picture)"

Using con As SqlConnection = New SqlConnection(" Data Source=DESKTOP-PALMA\

SQLEXPRESS;Initial Catalog=SUBDIVISION;Integrated Security=True")

Using cmd As SqlCommand = New SqlCommand(query, con)

Dim ms As New MemoryStream

PictureBox2.Image.Save(ms, PictureBox2.Image.RawFormat)

con.Open()

cmd.Parameters.AddWithValue("@Full_Name", Full)

cmd.Parameters.AddWithValue("@First_Name", FName)
 cmd.Parameters.AddWithValue("@Middle_Name", MName)

cmd.Parameters.AddWithValue("@Last_Name", LName)

cmd.Parameters.AddWithValue("@BLK", BLK)

cmd.Parameters.AddWithValue("@LOT", LOT)

cmd.Parameters.AddWithValue("@Gender", Gender)

cmd.Parameters.AddWithValue("@Contact_Number", CNUM)

cmd.Parameters.AddWithValue("@Position", Position)

cmd.Parameters.AddWithValue("@Date_Registered", Dreg)

cmd.Parameters.AddWithValue("@Date_Leave", Dlea)

cmd.Parameters.AddWithValue("Picture", ms.ToArray())

cmd.ExecuteNonQuery()

con.Close()

Dim res = Client.Delete("SUBDIVISION/" + TextBox43.Text)

End Using

End Using

Dim ID As String = TextBox79.Text

Dim quer As String = "DELETE FROM Residents WHERE ID=@ID"

Using con As SqlConnection = New SqlConnection("Data Source=.\SQLEXPRESS;Initial

Catalog=SUBDIVISION;Integrated Security=True ")

Using cmd As SqlCommand = New SqlCommand(quer, con)

con.Open()
 cmd.Parameters.AddWithValue("@ID", ID)

Dim unused = cmd.ExecuteNonQuery()

con.Close()

End Using

End Using

Panel8.Visible = False

Button91.Visible = False

Button93.Visible = False

Button53.Visible = False

Button92.Enabled = True

Resident_FormerData()

ResidentData()

End Sub

'FORMER RESIDENT DELETE

Private Sub Button96_Click(sender As Object, e As EventArgs) Handles Button96.Click

Dim Contact_Number As String = TextBox10.Text

Dim quer As String = "DELETE FROM Former_Residents WHERE

Contact_Number=@Contact_Number"

Using con As SqlConnection = New SqlConnection("Data Source=.\SQLEXPRESS;Initial

Catalog=SUBDIVISION;Integrated Security=True ")

Using cmd As SqlCommand = New SqlCommand(quer, con)

cmd.Parameters.AddWithValue("@Contact_Number", TextBox96.Text)

con.Open()

Dim unused = cmd.ExecuteNonQuery()

 con.Close()

End Using

End Using

Panel10.Visible = False

Button95.Visible = False

Button41.Visible = False

Resident_FormerData()

MessageBox.Show("DELETED")

End Sub

'RESIDENT UPDATE BUTTON

Private Sub Button37_Click(sender As Object, e As EventArgs) Handles Button37.Click

Dim ID As String = TextBox79.Text

Dim Code As String = TextBox5.Text

Dim FullName As String = TextBox41.Text

Dim FName As String = TextBox6.Text

Dim MName As String = TextBox7.Text

Dim LName As String = TextBox70.Text

Dim BLK As String = TextBox9.Text

Dim LOT As String = TextBox25.Text

Dim Gender As String = TextBox10.Text

Dim CNUM As String = TextBox42.Text

Dim Position As String = TextBox80.Text

Dim App As String = TextBox43.Text

 Dim query As String = "UPDATE Residents SET
QR_Number=@QR_Number,Full_Name=@Full_Name,First_Name=@First_Name,Middle_Name=@Midd
le_Name,Last_Name=@Last_Name,BLK=@BLK,LOT=@LOT,Gender=@Gender,Contact_Number=@Conta
ct_Number,Position=@Position,App_Code=@App_Code,Picture=@Picture WHERE ID=@ID"

Using con As SqlConnection = New SqlConnection(" Data Source=DESKTOP-PALMA\

SQLEXPRESS;Initial Catalog=SUBDIVISION;Integrated Security=True")

Using cmd As SqlCommand = New SqlCommand(query, con)

Dim ms As New MemoryStream

PictureBox2.Image.Save(ms, PictureBox2.Image.RawFormat)

cmd.Parameters.AddWithValue("@ID", ID)

cmd.Parameters.AddWithValue("@QR_Number", Code)

cmd.Parameters.AddWithValue("@Full_Name", FullName)

cmd.Parameters.AddWithValue("@First_Name", FName)

cmd.Parameters.AddWithValue("@Middle_Name", MName)

cmd.Parameters.AddWithValue("@Last_Name", LName)

cmd.Parameters.AddWithValue("@BLK", BLK)

cmd.Parameters.AddWithValue("@LOT", LOT)

cmd.Parameters.AddWithValue("@Gender", Gender)

cmd.Parameters.AddWithValue("@Contact_Number", CNUM)

cmd.Parameters.AddWithValue("@Position", Position)

cmd.Parameters.AddWithValue("@App_Code", App)

cmd.Parameters.AddWithValue("Picture", ms.ToArray())

con.Open()

cmd.ExecuteNonQuery()
 con.Close()

Dim std As New Resid() With

.FullName = TextBox58.Text,

.QRcode = TextBox5.Text,

.ContactNumber = TextBox42.Text,

.Password = TextBox43.Text,

.Block = TextBox9.Text,

.Lot = TextBox25.Text

Dim setter = Client.Update("SUBDIVISION/" + TextBox43.Text, std)

End Using

End Using

Panel24.Visible = False

Button53.Visible = False

Button93.Visible = False

Button91.Visible = False

Button92.Enabled = True

ResidentData()

End Sub

'RESIDENT CELLCLICK AT DATAGRIDVIEW

Private Sub DataGridView6_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles

DataGridView6.CellClick
 Button93.Visible = True

Button91.Visible = True

Button53.Visible = True

Dim index As Integer

index = e.RowIndex

Dim selectedRow As DataGridViewRow

selectedRow = DataGridView6.Rows(index)

TextBox5.Text = selectedRow.Cells(7).Value.ToString()

End Sub

Private Sub DataGridView12_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles

DataGridView12.CellClick

'FORMER RESIDENT CELLCLICK AT DATAGRIDVIEW

Button95.Visible = True

Button41.Visible = True

Dim index As Integer

index = e.RowIndex

Dim selectedRow As DataGridViewRow

selectedRow = DataGridView12.Rows(index)

TextBox96.Text = selectedRow.Cells(4).Value.ToString()

End Sub

'RESIDENT CANCEL BUTTON

Private Sub Button39_Click(sender As Object, e As EventArgs) Handles Button39.Click

 Panel24.Visible = False

Button53.Visible = False

Button93.Visible = False

Button91.Visible = False

Button92.Enabled = True

End Sub

'GENERATE VISITOR QR CODE

Private Sub Button43_Click_1(sender As Object, e As EventArgs)

Dim rn As New Random

TextBox17.Text = rn.Next(100000000, 900000000)

Dim gen As New QRCodeGenerator

Dim data = gen.CreateQrCode(TextBox17.Text, QRCodeGenerator.ECCLevel.Q)

Dim code As New QRCode(data)

PictureBox3.Image = code.GetGraphic(6)

End Sub

'VISITOR SHOW DATA ON DATAGRIDVIEW

Public Sub VisitorData()

Dim query As String = " SELECT First_Name, Middle_Name, Last_Name, Gender, Contact_Number,
Date_Registered, Code_ID FROM Visitors"

Using con As SqlConnection = New SqlConnection("Data Source=.\SQLEXPRESS;Initial

Catalog=SUBDIVISION;Integrated Security=True")

Using cmd As SqlCommand = New SqlCommand(query, con)

Using da As New SqlDataAdapter()

da.SelectCommand = cmd
 Using dt As New DataTable()

da.Fill(dt)

DataGridView2.DataSource = dt

End Using

End Using

End Using

End Using

End Sub

Private Sub DataGridView2_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles

DataGridView2.CellClick

'VISITOR CELLCLICK AT DATAGRIDVIEW

Button109.Enabled = True

Button110.Enabled = True

Button111.Enabled = True

Button109.Visible = True

Button110.Visible = True

Button111.Visible = True

Dim index As Integer

index = e.RowIndex

Dim selectedRow As DataGridViewRow

selectedRow = DataGridView2.Rows(index)

TextBox104.Text = selectedRow.Cells(4).Value.ToString()

TextBox11.Text = selectedRow.Cells(4).Value.ToString()
End Sub

'VISITOR SAVE BUTTON

Private Sub Button105_Click(sender As Object, e As EventArgs) Handles Button105.Click

SerialPort1 = New SerialPort

SerialPort1.PortName = "COM4"

SerialPort1.BaudRate = 9600

SerialPort1.DataBits = 8

SerialPort1.StopBits = StopBits.One

SerialPort1.Handshake = Handshake.None

SerialPort1.DtrEnable = True

SerialPort1.RtsEnable = True

SerialPort1.NewLine = vbCrLf

SerialPort1.Open()

SerialPort1.Write("AT" & vbCrLf)

Threading.Thread.Sleep(200)

SerialPort1.WriteLine("AT+GMGF=1" & Chr(13))

Threading.Thread.Sleep(200)

SerialPort1.WriteLine("AT+CMGS=" & Chr(34) & (TextBox11.Text) & Chr(34))

Threading.Thread.Sleep(200)

SerialPort1.WriteLine(TextBox47.Text & Chr(26))

Threading.Thread.Sleep(200)
 SerialPort1.Close()

Dim CATEGORY As String = Label27.Text

Dim CODE As String = TextBox17.Text

Dim FULLNAME As String = TextBox45.Text

Dim FIRSTNAME As String = TextBox14.Text

Dim MIDDLENAE As String = TextBox15.Text

Dim LASTNAME As String = TextBox16.Text

Dim GENDER As String = TextBox52.Text

Dim CONTACTNUMBER As String = TextBox11.Text

Dim DATEREG As String = Label135.Text

Dim query As String = "INSERT INTO Visitors

VALUES(@Category,@Code,@Full_name,@First_name,@Middle_name,@Last_name,@Gender,@Conta
ct_Number,@Date_Registered,@Picture)"

Using con As SqlConnection = New SqlConnection(" Data Source=DESKTOP-PALMA\

SQLEXPRESS;Initial Catalog=SUBDIVISION;Integrated Security=True")

Using cmd As SqlCommand = New SqlCommand(query, con)

Dim ms As New MemoryStream

PictureBox3.Image.Save(ms, PictureBox3.Image.RawFormat)

con.Open()

cmd.Parameters.AddWithValue("@Category", CATEGORY)

cmd.Parameters.AddWithValue("@Code", CODE)

cmd.Parameters.AddWithValue("@Full_name", FULLNAME)

cmd.Parameters.AddWithValue("@First_name", FIRSTNAME)

cmd.Parameters.AddWithValue("@Middle_name", MIDDLENAE)
 cmd.Parameters.AddWithValue("@Last_name", LASTNAME)

cmd.Parameters.AddWithValue("@Gender", GENDER)

cmd.Parameters.AddWithValue("@Contact_Number", CONTACTNUMBER)

cmd.Parameters.AddWithValue("@Date_Registered", DATEREG)

cmd.Parameters.AddWithValue("Picture", ms.ToArray())

cmd.ExecuteNonQuery()

con.Close()

VisitorData()

Panel23.Visible = False

DataGridView2.Enabled = True

Button112.Enabled = True

Button109.Visible = False

Button110.Visible = False

Button111.Visible = False

End Using

End Using

Dim conn As SqlConnection = New SqlConnection(" Data Source=.\SQLEXPRESS;Initial

Catalog=SUBDIVISION;Integrated Security=True")

conn.Open()

Dim cmd3 As New SqlCommand("SELECT COUNT (*) FROM Visitors", conn)

Dim Visitor = Convert.ToString(cmd3.ExecuteScalar)

Label155.Text = Visitor

Label214.Text = Visitor
 conn.Close()

End Sub

Private Sub Button26_Click_1(sender As Object, e As EventArgs) Handles Button26.Click

'SAVE QR CODE IN COMPUTER

Dim sd As New SaveFileDialog

sd.FileName = TextBox45.Text

sd.Filter = "PNG Files only (*.Png)|*.png"

If sd.ShowDialog() = Windows.Forms.DialogResult.OK Then

Try

PictureBox14.Image.Save(sd.FileName, System.Drawing.Imaging.ImageFormat.Png)

MessageBox.Show("Succesfully Saved")

Catch ex As Exception

End Try

End If

End Sub

'VISITOR UPDATE BUTTON

Private Sub Button57_Click(sender As Object, e As EventArgs) Handles Button57.Click

Dim ID As String = TextBox17.Text

Dim Full As String = TextBox45.Text

Dim Fname As String = TextBox14.Text

Dim Mname As String = TextBox15.Text

Dim Lname As String = TextBox16.Text

Dim Gen As String = TextBox52.Text

 Dim Cnum As String = TextBox11.Text

Dim query As String = "UPDATE Visitors SET

Code_ID=@Code_ID,Full_Name=@Full_Name,First_Name=@First_Name,Middle_Name=@Middle_Nam
e,Last_Name=@Last_Name,Gender=@Gender,Contact_Number=@Contact_Number, Picture=@Picture
WHERE Contact_Number=@Contact_Number"

Using con As SqlConnection = New SqlConnection(" Data Source=.\SQLEXPRESS;Initial

Catalog=SUBDIVISION;Integrated Security=True")

Using cmd As SqlCommand = New SqlCommand(query, con)

Dim ms As New MemoryStream

PictureBox3.Image.Save(ms, PictureBox3.Image.RawFormat)

cmd.Parameters.AddWithValue("@Code_ID", ID)

cmd.Parameters.AddWithValue("@Full_Name", Full)

cmd.Parameters.AddWithValue("@First_Name", Fname)

cmd.Parameters.AddWithValue("@Middle_Name", Mname)

cmd.Parameters.AddWithValue("@Last_Name", Lname)

cmd.Parameters.AddWithValue("@Gender", Gen)

cmd.Parameters.AddWithValue("@Contact_Number", Cnum)

cmd.Parameters.AddWithValue("Picture", ms.ToArray())

con.Open()

cmd.ExecuteNonQuery()

con.Close()

Panel23.Visible = False

DataGridView2.Enabled = True

Button112.Enabled = True
 VisitorData()

End Using

End Using

End Sub

Imports System.Data.SqlClient
Public Class CRResident
Dim con1 As SqlConnection
Dim cmd1 As SqlCommand
Dim adp1 As SqlDataAdapter
Dim dtb As New DataTable
Sub viewdata()
cmd1 = New SqlCommand("select * from Residents", con1)
adp1 = New SqlDataAdapter(cmd1)
adp1.Fill(dtb)
con1.Close()
con1.Dispose()
End Sub
Private Sub CrystalReportViewer1_Load(sender As Object, e As EventArgs) Handles
CrystalReportViewer1.Load
dtb.Clear()
con1 = New SqlConnection(" Data Source=DESKTOP-PALMA\SQLEXPRESS;Initial
Catalog=SUBDIVISION;Integrated Security=True")
Dim myrpt As New CrystalReport2

viewdata()
myrpt.Database.Tables("Residents").SetDataSource(dtb)
CrystalReportViewer1.ReportSource = Nothing
CrystalReportViewer1.ReportSource = myrpt
End Sub
End Class

Public Class Eventa

Public Property Category() As String = ""

Public Property Title() As String = ""
Public Property Location() As String = ""
Public Property Description() As String = ""
 Public Property DateTime() As String = ""
Public Property Time_Start() As String = ""
Public Property Time_End() As String = ""
Public Property Host() As String = ""
End Class
Public Class Announce
Public Property DateTime() As String = ""
Public Property Message() As String = ""
End Class
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If TextBox1.Text = "admin" And TextBox2.Text = "password" Then
Me.Hide()
Form2.Show()
Else
MessageBox.Show("Invalid username or password")
End If
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Application.ExitThread()
End Sub
End Class
Imports System.Data.SqlClient
Imports System.Data
Imports System.IO
Imports System.IO.Ports
Imports System.Threading
Public Class Form2
Private Sub Panel1_MouseHover(sender As Object, e As EventArgs) Handles
Panel1.MouseHover
Panel1.Width = 500
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
Application.ExitThread()
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Me.Hide()
logins.Show()
End Sub
 Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Me.Hide()
logout.Show()
End Sub
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
People_All_Log_In.Show()
End Sub
Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
Vehicle_All_Log_In.Show()
End Sub
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
People_All_Log_Out.Show()
End Sub
Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
Vehicle_All_Log_Out.Show()
End Sub
Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
Me.Hide()
Registration_of_visitor.Show()
End Sub
Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click
Me.Hide()
Registration_of_vehicle.Show()
End Sub

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick

Dim conn As SqlConnection = New SqlConnection(" Data Source=.\SQLEXPRESS;Initial
Catalog=SUBDIVISION;Integrated Security=True")
conn.Open()
'RESIDENTS
Dim pod As New SqlCommand("SELECT COUNT (*) FROM Residents", conn)
Dim JIL = Convert.ToString(pod.ExecuteScalar)
Label28.Text = JIL
Label38.Text = JIL
'VISITORS
Dim kol As New SqlCommand("SELECT COUNT (*) FROM Visitors", conn)
Dim kij = Convert.ToString(kol.ExecuteScalar)
Label30.Text = kij
Label33.Text = kij
 'SUBDIVION
Dim mij As New SqlCommand("SELECT COUNT (*) FROM Subdivision_Vehicles", conn)
Dim koj = Convert.ToString(mij.ExecuteScalar)
Label29.Text = koj
Label60.Text = koj
'OUTSIDE
Dim koas As New SqlCommand("SELECT COUNT (*) FROM Outside_Vehicles", conn)
Dim soka = Convert.ToString(koas.ExecuteScalar)
Label31.Text = soka
Label32.Text = soka
'RESIDENTS IN
Dim cmd1 As New SqlCommand("SELECT COUNT (*) FROM LOG_IN_HUMAN WHERE
Category='RESIDENT'", conn)
Dim Residentin = Convert.ToString(cmd1.ExecuteScalar)
Label3.Text = Residentin
'RESIDENTS OUT
Dim cmd2 As New SqlCommand("SELECT COUNT (*) FROM LOG_OUT_HUMAN WHERE
Category='RESIDENT'", conn)
Dim Residentout = Convert.ToString(cmd2.ExecuteScalar)
Label4.Text = Residentout
'VISITOR IN
Dim cmd3 As New SqlCommand("SELECT COUNT (*) FROM LOG_IN_HUMAN WHERE
Category='VISITOR'", conn)
Dim visitorin = Convert.ToString(cmd3.ExecuteScalar)
Label6.Text = visitorin
'VISITOR OUT
Dim cmd4 As New SqlCommand("SELECT COUNT (*) FROM LOG_OUT_HUMAN WHERE
Category='VISITOR'", conn)
Dim visitorout = Convert.ToString(cmd4.ExecuteScalar)
Label8.Text = visitorout
'SUB VEHI IN
Dim cmd5 As New SqlCommand("SELECT COUNT (*) FROM LOG_IN_VEHICLES WHERE
[From]='SUBDIVISION'", conn)
Dim subin = Convert.ToString(cmd5.ExecuteScalar)
Label16.Text = subin
'SUB VEHI OUT
Dim cmd6 As New SqlCommand("SELECT COUNT (*) FROM LOG_OUT_VEHICLES WHERE
[From]='SUBDIVISION'", conn)
Dim subout = Convert.ToString(cmd6.ExecuteScalar)
 Label14.Text = subout
'OUT VEHI IN
Dim cmd7 As New SqlCommand("SELECT COUNT (*) FROM LOG_IN_VEHICLES WHERE
[From]='OUTSIDE'", conn)
Dim outinveh = Convert.ToString(cmd7.ExecuteScalar)
Label12.Text = outinveh
'OUT VEHI OUT
Dim cmd8 As New SqlCommand("SELECT COUNT (*) FROM LOG_OUT_VEHICLES WHERE
[From]='OUTSIDE'", conn)
Dim outoutveh = Convert.ToString(cmd8.ExecuteScalar)
Label10.Text = outoutveh
'RESIDENT ALL IN
Dim QWA As New SqlCommand("SELECT COUNT (*) FROM ALL_LOG_IN_HUMAN WHERE
Category='RESIDENT'", conn)
Dim ASQ = Convert.ToString(QWA.ExecuteScalar)
Label48.Text = ASQ
'VISITOR ALL IN
Dim qws As New SqlCommand("SELECT COUNT (*) FROM ALL_LOG_IN_HUMAN WHERE
Category='VISITOR'", conn)
Dim ase = Convert.ToString(qws.ExecuteScalar)
Label35.Text = ase
'SUB VEHI ALL IN
Dim DSQ As New SqlCommand("SELECT COUNT (*) FROM ALL_LOG_IN_VEHICLES WHERE
[From]='SUBDIVISION'", conn)
Dim QSAD = Convert.ToString(DSQ.ExecuteScalar)
Label57.Text = QSAD
'OUT VEHI ALL IN
Dim RWE As New SqlCommand("SELECT COUNT (*) FROM ALL_LOG_IN_VEHICLES WHERE
[From]='OUTSIDE'", conn)
Dim WEQ = Convert.ToString(RWE.ExecuteScalar)
Label49.Text = WEQ
'RESIDENT ALL IN
Dim ASC As New SqlCommand("SELECT COUNT (*) FROM ALL_LOG_OUT_HUMAN WHERE
Category='RESIDENT'", conn)
Dim SAC = Convert.ToString(ASC.ExecuteScalar)
Label46.Text = SAC
'VISITOR ALL IN
Dim ZXA As New SqlCommand("SELECT COUNT (*) FROM ALL_LOG_OUT_HUMAN WHERE
Category='VISITOR'", conn)
 Dim SQA = Convert.ToString(ZXA.ExecuteScalar)
Label34.Text = SQA
'SUB VEHI ALL IN
Dim DSW As New SqlCommand("SELECT COUNT (*) FROM ALL_LOG_OUT_VEHICLES WHERE
[From]='SUBDIVISION'", conn)
Dim ASW = Convert.ToString(DSW.ExecuteScalar)
Label56.Text = ASW
'OUT VEHI ALL IN
Dim XDS As New SqlCommand("SELECT COUNT (*) FROM ALL_LOG_OUT_VEHICLES WHERE
[From]='OUTSIDE'", conn)
Dim SXD = Convert.ToString(XDS.ExecuteScalar)
Label47.Text = SXD
conn.Close()
Imports System.Data.SqlClient
Imports System.Data
Imports System.IO
Imports System.IO.Ports
Imports System.Threading
Public Class logins
Dim cmd As SqlCommand
Dim conn As SqlConnection
Private Sub logins_Load(sender As Object, e As EventArgs) Handles Me.Load
Dim conn As SqlConnection = New SqlConnection(" Data Source=DESKTOP-PALMA\
SQLEXPRESS;Initial Catalog=SUBDIVISION;Integrated Security=True")
conn.Open()
Dim cmd3 As New SqlCommand("SELECT COUNT (*) FROM LOG_IN_HUMAN", conn)
Dim LOGIN = Convert.ToString(cmd3.ExecuteScalar)
Label20.Text = LOGIN
Dim cmd5 As New SqlCommand("SELECT COUNT (*) FROM LOG_IN_VEHICLES", conn)
Dim wOGIs = Convert.ToString(cmd5.ExecuteScalar)
Label21.Text = wOGIs
conn.Close()
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Me.Hide()
Form2.Show()
End Sub
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
Label28.Text = Format(Now, "yyyy MMM dd ddd")
 Label14.Text = Format(Now, "hh:mm:ss tt")
Label30.Text = Date.Now.ToString("MMM dd ddd yyyy hh:mm:ss tt")
If Label14.Text = TextBox5.Text Then
Dim conn As SqlConnection = New SqlConnection(" Data Source=.\
SQLEXPRESS;Initial Catalog=SUBDIVISION;Integrated Security=True")
conn.Open()
Dim cmd1 As New SqlCommand("TRUNCATE TABLE LOG_IN_HUMAN", conn)
Dim Resident = Convert.ToString(cmd1.ExecuteScalar)
Dim cmd2 As New SqlCommand("TRUNCATE TABLE LOG_IN_VEHICLES", conn)
Dim Residents = Convert.ToString(cmd2.ExecuteScalar)
conn.Close()
Dim con As SqlConnection = New SqlConnection(" Data Source=DESKTOP-PALMA\
SQLEXPRESS;Initial Catalog=SUBDIVISION;Integrated Security=True")
con.Open()
Dim cmd3 As New SqlCommand("SELECT COUNT (*) FROM LOG_IN_HUMAN", con)
Dim LOGIN = Convert.ToString(cmd3.ExecuteScalar)
Label20.Text = LOGIN
Dim cmd4 As New SqlCommand("SELECT COUNT (*) FROM LOG_IN_VEHICLES", con)
Dim LOGINs = Convert.ToString(cmd4.ExecuteScalar)
Label21.Text = LOGINs
con.Close()
End If
End Sub
Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles
TextBox1.TextChanged
If TextBox1.Text.Length = 10 Then
conn = New SqlConnection("server=localhost;data source = DESKTOP-PALMA\
SQLEXPRESS; database = SUBDIVISION; Integrated Security = True")
Dim query As String = "Select * from Residents where QR_Number=@QR_Number"
conn.Open()
cmd = New SqlCommand(query, conn)
cmd.Parameters.AddWithValue("@QR_Number", TextBox1.Text)
Dim da As New SqlDataAdapter(cmd)
Dim dt As New DataTable
da.Fill(dt)
If (dt.Rows.Count > 0) Then
Dim img() As Byte
img = dt.Rows(0)(14)
Dim ms As New MemoryStream(img)
 PictureBox1.Image = Image.FromStream(ms)
Label16.Text = dt.Rows(0)(1).ToString
Label17.Text = dt.Rows(0)(3).ToString
Label27.Text = dt.Rows(0)(10).ToString
Label23.Text = dt.Rows(0)(9).ToString
TextBox3.Text = "Hi " & Label17.Text & "! You entered the East meridian
phase 1a bianca subdivision on " & Label30.Text
Label15.Text = dt.Rows(0)(2).ToString
TextBox1.Clear()
Else
Dim querys As String = "Select * from Visitors where Code_ID=@Code_ID"
cmd = New SqlCommand(querys, conn)
cmd.Parameters.AddWithValue("@Code_ID", TextBox1.Text)
Dim das As New SqlDataAdapter(cmd)
Dim dts As New DataTable
das.Fill(dts)
If (dts.Rows.Count > 0) Then
Dim img() As Byte
img = dts.Rows(0)(9)
Dim ms As New MemoryStream(img)
PictureBox1.Image = Image.FromStream(ms)
Label16.Text = dts.Rows(0)(0).ToString
Label17.Text = dts.Rows(0)(2).ToString
Label27.Text = dts.Rows(0)(7).ToString
Label23.Text = dts.Rows(0)(6).ToString
TextBox3.Text = "Hi " & Label17.Text & "! You entered the East
meridian phase 1a bianca subdivision on " & Label30.Text
Label15.Text = dts.Rows(0)(1).ToString
TextBox1.Clear()
Else
Dim queryas As String = "Select * from Outside_Vehicles where
Code_ID=@Code_ID"
cmd = New SqlCommand(queryas, conn)
cmd.Parameters.AddWithValue("@Code_ID", TextBox1.Text)
Dim daqw As New SqlDataAdapter(cmd)
Dim dtqw As New DataTable
daqw.Fill(dtqw)
If (dtqw.Rows.Count > 0) Then
Dim img() As Byte
 img = dtqw.Rows(0)(10)
Dim ms As New MemoryStream(img)
PictureBox2.Image = Image.FromStream(ms)
Label39.Text = dtqw.Rows(0)(0).ToString
Label40.Text = dtqw.Rows(0)(4).ToString
Label13.Text = dtqw.Rows(0)(5).ToString
Label12.Text = dtqw.Rows(0)(7).ToString
Label10.Text = dtqw.Rows(0)(8).ToString
Label9.Text = dtqw.Rows(0)(6).ToString
Label3.Text = dtqw.Rows(0)(1).ToString
Label48.Text = dtqw.Rows(0)(2).ToString
TextBox4.Text = "Hi " & Label3.Text & "! your vehicle has been
LOGGED IN at " & Label30.Text & " to East Meridian Phase 1A Bianca Subdivision"
Label46.Text = dtqw.Rows(0)(3).ToString
TextBox1.Clear()
Else
Dim zxc As String = "Select * from Subdivision_Vehicles where
Code_ID=@Code_ID"
cmd = New SqlCommand(zxc, conn)
cmd.Parameters.AddWithValue("@Code_ID", TextBox1.Text)
Dim daser As New SqlDataAdapter(cmd)
Dim dtser As New DataTable
daser.Fill(dtser)
If (dtser.Rows.Count > 0) Then
Dim img() As Byte
img = dtser.Rows(0)(10)
Dim ms As New MemoryStream(img)
PictureBox2.Image = Image.FromStream(ms)
Label39.Text = dtser.Rows(0)(0).ToString
Label40.Text = dtser.Rows(0)(4).ToString
Label13.Text = dtser.Rows(0)(5).ToString
Label12.Text = dtser.Rows(0)(7).ToString
Label10.Text = dtser.Rows(0)(8).ToString
Label9.Text = dtser.Rows(0)(6).ToString
Label3.Text = dtser.Rows(0)(1).ToString
Label48.Text = dtser.Rows(0)(2).ToString
TextBox4.Text = "Hi " & Label3.Text & "! your vehicle has
been LOGGED IN at " & Label30.Text & " to East Meridian Phase 1A Bianca Subdivision"
Label46.Text = dtser.Rows(0)(3).ToString
 TextBox1.Clear()
Else
Panel8.Visible = True
TextBox1.Clear()
End If
TextBox1.Clear()
End If
TextBox1.Clear()
End If
TextBox1.Clear()
conn.Close()
End If
TextBox1.Clear()
End If
End Sub
Private Sub Label15_TextChanged(sender As Object, e As EventArgs) Handles
Label15.TextChanged
'INSERT LOGIN
Dim CATEGORY As String = Label16.Text
Dim CODE As String = Label15.Text
Dim FULLNAME As String = Label17.Text
Dim DATES As String = Label28.Text
Dim TIME As String = Label14.Text
'SAVE IN DAILY LOG
Dim querys As String = "INSERT INTO LOG_IN_HUMAN
VALUES(@Category,@Code_ID,@Full_Name,@Date,@Time)"
Using con As SqlConnection = New SqlConnection(" Data Source=DESKTOP-PALMA\
SQLEXPRESS;Initial Catalog=SUBDIVISION;Integrated Security=True")
Using cmd As SqlCommand = New SqlCommand(querys, con)
con.Open()
cmd.Parameters.AddWithValue("@Category", CATEGORY)
cmd.Parameters.AddWithValue("@Code_ID", CODE)
cmd.Parameters.AddWithValue("@Full_Name", FULLNAME)
cmd.Parameters.AddWithValue("@Date", DATES)
cmd.Parameters.AddWithValue("@Time", TIME)
cmd.ExecuteNonQuery()
con.Close()
TextBox1.Clear()
End Using
 End Using
Dim quert As String = "INSERT INTO ALL_LOG_IN_HUMAN
VALUES(@Category,@Code_ID,@Full_Name,@Date,@Time)"
Using con As SqlConnection = New SqlConnection(" Data Source=DESKTOP-PALMA\
SQLEXPRESS;Initial Catalog=SUBDIVISION;Integrated Security=True")
Using cmd As SqlCommand = New SqlCommand(quert, con)
con.Open()
cmd.Parameters.AddWithValue("@Category", CATEGORY)
cmd.Parameters.AddWithValue("@Code_ID", CODE)
cmd.Parameters.AddWithValue("@Full_Name", FULLNAME)
cmd.Parameters.AddWithValue("@Date", DATES)
cmd.Parameters.AddWithValue("@Time", TIME)
cmd.ExecuteNonQuery()
con.Close()
TextBox1.Clear()
End Using
End Using
Dim conn As SqlConnection = New SqlConnection(" Data Source=DESKTOP-PALMA\
SQLEXPRESS;Initial Catalog=SUBDIVISION;Integrated Security=True")
conn.Open()
Dim cmd3 As New SqlCommand("SELECT COUNT (*) FROM LOG_IN_HUMAN", conn)
Dim LOGIN = Convert.ToString(cmd3.ExecuteScalar)
Label20.Text = LOGIN
conn.Close()
SerialPort1 = New SerialPort
SerialPort1.PortName = "COM4"
SerialPort1.BaudRate = 9600
SerialPort1.DataBits = 8
SerialPort1.StopBits = StopBits.One
SerialPort1.Handshake = Handshake.None
SerialPort1.DtrEnable = True
SerialPort1.RtsEnable = True
SerialPort1.NewLine = vbCrLf
SerialPort1.Open()
SerialPort1.Write("AT" & vbCrLf)
Threading.Thread.Sleep(200)
SerialPort1.WriteLine("AT+GMGF=1" & Chr(13))
Threading.Thread.Sleep(200)
SerialPort1.WriteLine("AT+CMGS=" & Chr(34) & (Label27.Text) & Chr(34))
 Threading.Thread.Sleep(200)
SerialPort1.WriteLine(TextBox3.Text & Chr(26))
Threading.Thread.Sleep(200)
SerialPort1.Close()
End Sub
Private Sub Label46_TextChanged(sender As Object, e As EventArgs) Handles
Label46.TextChanged
'INSERT LOG IN VEHICLE
Dim FROM As String = Label39.Text
Dim RFID As String = Label46.Text
Dim OWNER As String = Label3.Text
Dim PLATE_Num As String = Label10.Text
Dim DATES As String = Label28.Text
Dim TIME As String = Label14.Text
'SAVE IN DAILY LOGS
Dim querys As String = "INSERT INTO LOG_IN_VEHICLES
VALUES(@From,@RFID_Number,@Owner_Name,@Plate_Number,@Date,@Time)"
Using con As SqlConnection = New SqlConnection(" Data Source=DESKTOP-PALMA\
SQLEXPRESS;Initial Catalog=SUBDIVISION;Integrated Security=True")
Using cmd As SqlCommand = New SqlCommand(querys, con)
con.Open()
cmd.Parameters.AddWithValue("@From", FROM)
cmd.Parameters.AddWithValue("@RFID_Number", RFID)
cmd.Parameters.AddWithValue("@Owner_Name", OWNER)
cmd.Parameters.AddWithValue("@Plate_Number", PLATE_Num)
cmd.Parameters.AddWithValue("@Date", DATES)
cmd.Parameters.AddWithValue("@Time", TIME)
cmd.ExecuteNonQuery()
con.Close()
TextBox1.Clear()
End Using
End Using
Dim quert As String = "INSERT INTO ALL_LOG_IN_VEHICLES
VALUES(@From,@RFID_Number,@Owner_Name,@Plate_Number,@Date,@Time)"
Using con As SqlConnection = New SqlConnection(" Data Source=DESKTOP-PALMA\
SQLEXPRESS;Initial Catalog=SUBDIVISION;Integrated Security=True")
Using cmd As SqlCommand = New SqlCommand(quert, con)
con.Open()
cmd.Parameters.AddWithValue("@From", FROM)
 cmd.Parameters.AddWithValue("@RFID_Number", RFID)
cmd.Parameters.AddWithValue("@Owner_Name", OWNER)
cmd.Parameters.AddWithValue("@Plate_Number", PLATE_Num)
cmd.Parameters.AddWithValue("@Date", DATES)
cmd.Parameters.AddWithValue("@Time", TIME)
cmd.ExecuteNonQuery()
con.Close()
TextBox1.Clear()
End Using
End Using
Dim conn As SqlConnection = New SqlConnection(" Data Source=DESKTOP-PALMA\
SQLEXPRESS;Initial Catalog=SUBDIVISION;Integrated Security=True")
conn.Open()
Dim cmd3 As New SqlCommand("SELECT COUNT (*) FROM LOG_IN_VEHICLES", conn)
Dim LOGIN = Convert.ToString(cmd3.ExecuteScalar)
Label21.Text = LOGIN
conn.Close()
SerialPort1 = New SerialPort
SerialPort1.PortName = "COM4"
SerialPort1.BaudRate = 9600
SerialPort1.DataBits = 8
SerialPort1.StopBits = StopBits.One
SerialPort1.Handshake = Handshake.None
SerialPort1.DtrEnable = True
SerialPort1.RtsEnable = True
SerialPort1.NewLine = vbCrLf
SerialPort1.Open()
SerialPort1.Write("AT" & vbCrLf)
Threading.Thread.Sleep(200)
SerialPort1.WriteLine("AT+GMGF=1" & Chr(13))
Threading.Thread.Sleep(200)
SerialPort1.WriteLine("AT+CMGS=" & Chr(34) & (Label48.Text) & Chr(34))
Threading.Thread.Sleep(200)
SerialPort1.WriteLine(TextBox4.Text & Chr(26))
Threading.Thread.Sleep(200)
SerialPort1.Close()
End Sub
Private Sub Button27_Click(sender As Object, e As EventArgs) Handles Button27.Click
People_Daily_Log.Show()
 End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Vehicle_Daily_Log_In.Show()
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
Panel8.Visible = False
End Sub
End Class
Imports System.Data.SqlClient
Public Class People_All_Log_In
Dim con1 As SqlConnection
Dim cmd1 As SqlCommand
Dim adp1 As SqlDataAdapter
Dim dtb As New DataTable
Sub viewdata()
cmd1 = New SqlCommand("select * from ALL_LOG_IN_HUMAN", con1)
adp1 = New SqlDataAdapter(cmd1)
adp1.Fill(dtb)
con1.Close()
con1.Dispose()
End Sub
Private Sub CrystalReportViewer2_Load(sender As Object, e As EventArgs) Handles
CrystalReportViewer2.Load
dtb.Clear()
con1 = New SqlConnection(" Data Source=DESKTOP-PALMA\SQLEXPRESS;Initial
Catalog=SUBDIVISION;Integrated Security=True")
Dim myrpt As New CrystalReport5
viewdata()
myrpt.Database.Tables("ALL_LOG_IN_HUMAN").SetDataSource(dtb)
CrystalReportViewer2.ReportSource = Nothing
CrystalReportViewer2.ReportSource = myrpt
End Sub
End Class