anu3

Imports System.Data.Odbc
Public Class menuutama

    Private Sub menuutama_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Guna.UI.Lib.GraphicsHelper.ShadowForm(Me)
        Guna.UI.Lib.GraphicsHelper.DrawLineShadow(GunaPanel4, Color.Black, 40, 7, Guna.UI.WinForms.VerHorAlign.HorizontalBottom)

        Guna.UI.Lib.GraphicsHelper.DrawLineShadow(btnbuatlaporan, Color.Black, 60, 1, Guna.UI.WinForms.VerHorAlign.HorizontalBottom)
        Guna.UI.Lib.GraphicsHelper.DrawLineShadow(btnceklaporan, Color.Black, 60, 1, Guna.UI.WinForms.VerHorAlign.HorizontalBottom)
        Guna.UI.Lib.GraphicsHelper.DrawLineShadow(btndatamasyarakat, Color.Black, 60, 1, Guna.UI.WinForms.VerHorAlign.HorizontalBottom)
        Guna.UI.Lib.GraphicsHelper.DrawLineShadow(btndatapetugas, Color.Black, 60, 1, Guna.UI.WinForms.VerHorAlign.HorizontalBottom)
        Guna.UI.Lib.GraphicsHelper.DrawLineShadow(btnlistlaporan, Color.Black, 60, 1, Guna.UI.WinForms.VerHorAlign.HorizontalBottom)

        Call id_pengaduan()
        Call bersihkanceklaporan()
    End Sub
    Sub bersihsemua()
        Call bersihkanceklaporan()
        Call bersihkanpengaduan()
    End Sub
    Private Sub GunaButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GunaButton1.Click
        End
    End Sub

    Private Sub GunaButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GunaButton2.Click
        Me.WindowState = FormWindowState.Minimized
    End Sub

    Private Sub GunaAdvenceButton6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GunaAdvenceButton6.Click
        End
    End Sub

    Private Sub GunaAdvenceButton7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GunaAdvenceButton7.Click
        login.Show()
        Me.Close()
    End Sub


    Private Sub GunaAdvenceButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnceklaporan.Click
        If btnceklaporan.Checked = True Then
            gbceklaporan.Visible = True
            gbceklaporan.BringToFront()
            gbceklaporan.Dock = DockStyle.Fill
            gbbuatlaporan.Visible = False
        End If
    End Sub

    '===========================================================Buat Pengaduan==========================================
    Private Sub btnbuatlaporan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbuatlaporan.Click
        If btnbuatlaporan.Checked = True Then
            gbbuatlaporan.Visible = True
            gbbuatlaporan.Dock = DockStyle.Fill
            gbbuatlaporan.BringToFront()
        End If
    End Sub
    Sub id_pengaduan()
        Call koneksi()
        cmd = New OdbcCommand("select id_pengaduan from pengaduan order by id_pengaduan desc", conn)
        dr = cmd.ExecuteReader
        dr.Read()
        If Not dr.HasRows Then
            idpengaduan.Text = "PG-" + Format(Now, "ddMMyy") + "1"
        Else
            If Microsoft.VisualBasic.Mid(dr(0), 4, 6) = Format(Now, "ddMMyy") Then
                Dim anu As String = Microsoft.VisualBasic.Right(dr(0), 1) + 1
                idpengaduan.Text = "PG-" + Format(Now, "ddMMyy") + anu
            Else
                idpengaduan.Text = "PG-" + Format(Now, "ddMMyy") + "1"
            End If
        End If

    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        GunaLabel7.Text = rubahtgl(Format(Now, "dddd, dd-MMMM-yyyy"))
    End Sub

    Private Sub GunaAdvenceButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GunaAdvenceButton1.Click
        On Error Resume Next
        OpenFileDialog1.Reset()
        OpenFileDialog1.ShowDialog()
        OpenFileDialog1.Filter = "(*.jpg) | *.jpg | (*.png) | *.png"
        tempatpoto.Text = OpenFileDialog1.FileName
        GunaPictureBox1.Load(tempatpoto.Text)
    End Sub
    Sub bersihkanpengaduan()
        RichTextBox1.Clear()
        OpenFileDialog1.Reset()
        tempatpoto.ResetText()
        GunaPictureBox1.ResetText()
        GunaPictureBox1.Image = Nothing
    End Sub
    Private Sub GunaAdvenceButton2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GunaAdvenceButton2.Click
        If RichTextBox1.Text = "" Or RichTextBox1.Text = "Isi laporan" Or tempatpoto.Text = "" Then
            MessageBox.Show("Silakan isi laporannya terlebih dahulu", "", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
            Exit Sub
        Else
            Call koneksi()
            Dim newtext As String
            Dim oldtext As String = tempatpoto.Text
            newtext = oldtext.Replace("\", "\\")
            cmd = New OdbcCommand("insert into pengaduan values('" & idpengaduan.Text & "','" & Format(Now, "yyyy-MM-dd") & "','" & nik.Text & "','" & RichTextBox1.Text & "','" & newtext & "','0')", conn)
            cmd.ExecuteNonQuery()
            MessageBox.Show("Terima Kasih,Pengaduan sudah dikirim jika ingin melihat status pengaduan silakan masukan ID pengaduan = '" & idpengaduan.Text & "' di cek pegaduan", "", MessageBoxButtons.OK, MessageBoxIcon.Information)
            Call id_pengaduan()
            Call bersihkanpengaduan()
        End If
    End Sub

    Private Sub RichTextBox1_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles RichTextBox1.GotFocus
        If RichTextBox1.Text = "Isi laporan" Then
            RichTextBox1.Text = ""
        End If
    End Sub

    Private Sub RichTextBox1_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles RichTextBox1.LostFocus
        If RichTextBox1.Text = "" Then
            RichTextBox1.Text = "Isi laporan"
        End If
    End Sub
    '===========================================================cek Pengaduan==========================================
    Sub bersihkanceklaporan()
        GunaLineTextBox1.Text = ""
        RichTextBox2.Clear()
        RichTextBox3.Clear()
        pnlisilaporan.Visible = False
        pnlisitanggapan.Visible = False
    End Sub
    Private Sub GunaAdvenceButton4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GunaAdvenceButton4.Click
        Call koneksi()
        cmd = New OdbcCommand("select * from pengaduan where id_pengaduan = '" & GunaLineTextBox1.Text & "'", conn)
        dr = cmd.ExecuteReader
        dr.Read()
        If Not dr.HasRows Then
            MessageBox.Show("ID Pengaduan Tidak ditemukan silakan cek kembali idnya", "", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
            Exit Sub
        Else
            pnlisilaporan.Visible = True
            RichTextBox2.Text = dr!isi_laporan
            GunaPictureBox2.Load(dr!foto)
            If dr!status = "0" Then
                status_laporan.Text = "Terkirim"
            Else
                status_laporan.Text = dr!status
            End If

            Call koneksi()
            cmd = New OdbcCommand("select * from tanggapan where id_pengaduan = '" & GunaLineTextBox1.Text & "'", conn)
            dr = cmd.ExecuteReader
            dr.Read()
            If Not dr.HasRows Then
                GunaPanel9.Visible = False
                pnlisitanggapan.Visible = False
                Exit Sub
            Else
                pnlisitanggapan.Visible = True
                GunaPanel9.Visible = True
                lbltglditanggapi.Text = Format(DateValue(dr!tgl_tanggapan), "dddd, dd-MM-yyyy")
                RichTextBox3.Text = dr!tanggapan
                Call koneksi()
                cmd = New OdbcCommand("select * from petugas where id_petugas = '" & dr!id_petugas & "'", conn)
                dr = cmd.ExecuteReader
                dr.Read()
                penaggap.Text = dr!nama_petugas

            End If
        End If
    End Sub
    '===========================================================form Petugas==========================================
    Sub tampilpetugas()
        Call koneksi()
        Dim no As Integer = 1
        cmd = New OdbcCommand("select * from petugas", conn)
        dr = cmd.ExecuteReader
        Do While dr.Read
            dgvpetugas.Rows.Add(New String() {dr(0), no, dr(1), dr(2), dr(3), dr(4), dr(5), "Edit", "Hapus"})
            no = no + 1
        Loop
    End Sub

    Private Sub btndatapetugas_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btndatapetugas.Click
        If btndatapetugas.Checked = True Then
            gbdatapetugas.Dock = DockStyle.Fill
            gbdatapetugas.BringToFront()
            dgvpetugas.Rows.Clear()
            Call tampilpetugas()
        End If
    End Sub

    Private Sub dgv_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgvpetugas.CellContentClick
        If e.ColumnIndex = 8 Then
            If MessageBox.Show("Beneran Mau Diapus ni ?, Kaga Bisa balik lagi loh datanya", "Peringatan", MessageBoxButtons.YesNo, MessageBoxIcon.Exclamation) = Windows.Forms.DialogResult.Yes Then
                Call koneksi()
                cmd = New OdbcCommand("delete from petugas where id_petugas = '" & dgvpetugas.Rows(e.RowIndex).Cells(0).Value & "'", conn)
                cmd.ExecuteNonQuery()
                MessageBox.Show("Data berhasil dihapus")
                dgvpetugas.Rows.Clear()
                Call tampilpetugas()
            Else
                Exit Sub
            End If

        End If
        If e.ColumnIndex = 7 Then
            petugas.Close()
            petugas.Show()
            petugas.tbid.Text = dgvpetugas.Rows(e.RowIndex).Cells(0).Value
            petugas.tbid.Enabled = False
            petugas.tbus.Enabled = False
            Call petugas.caridata()
            If dr.HasRows Then
                Call petugas.isidata()
            End If
        End If
    End Sub

    Private Sub GunaAdvenceButton3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GunaAdvenceButton3.Click
        petugas.Close()
        petugas.Show()
        petugas.tbid.Enabled = True

    End Sub
    '===========================================================form masyarakat==========================================
    Sub tampilmasyarakat()
        Call koneksi()
        Dim no As Integer = 1
        cmd = New OdbcCommand("select * from masyarakat", conn)
        dr = cmd.ExecuteReader
        Do While dr.Read
            dgvmasyarakat.Rows.Add(New String() {no, dr(0), dr(1), dr(2), dr(3), dr(4), "Edit", "Hapus"})
            no = no + 1
        Loop
    End Sub
    Private Sub btndatamasyarakat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btndatamasyarakat.Click
        If btndatamasyarakat.Checked = True Then
            gbdatamasyarakat.Dock = DockStyle.Fill
            gbdatamasyarakat.BringToFront()
            dgvmasyarakat.Rows.Clear()
            Call tampilmasyarakat()
        End If
    End Sub

    Private Sub dgvmasyarakat_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgvmasyarakat.CellContentClick
        If e.ColumnIndex = 7 Then
            If MessageBox.Show("Beneran Mau Diapus ni ?, Kaga Bisa balik lagi loh datanya", "Peringatan", MessageBoxButtons.YesNo, MessageBoxIcon.Exclamation) = Windows.Forms.DialogResult.Yes Then
                Call koneksi()
                cmd = New OdbcCommand("delete from masyarakat where nik = '" & dgvmasyarakat.Rows(e.RowIndex).Cells(1).Value & "'", conn)
                cmd.ExecuteNonQuery()
                MessageBox.Show("Data berhasil dihapus")
                dgvmasyarakat.Rows.Clear()
                Call tampilmasyarakat()
            Else
                Exit Sub
            End If

        End If
        If e.ColumnIndex = 6 Then
            masyarakat.Close()
            masyarakat.Show()
            masyarakat.tbid.Text = dgvmasyarakat.Rows(e.RowIndex).Cells(1).Value
            masyarakat.tbid.Enabled = False
            masyarakat.tbus.Enabled = False
            masyarakat.anu1 = "1"
            Call masyarakat.caridata()
            If dr.HasRows Then
                Call masyarakat.isidata()
            End If
        End If
    End Sub

    Private Sub GunaPanel4_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles GunaPanel4.Paint

    End Sub

    Private Sub GunaAdvenceButton5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GunaAdvenceButton5.Click

        masyarakat.Close()
        masyarakat.Show()
        masyarakat.anu1 = "1"
        masyarakat.tbid.Enabled = True
    End Sub

    Private Sub btnlistlaporan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnlistlaporan.Click
        If btnlistlaporan.Checked = True Then
            gbliatlaporan.Dock = DockStyle.Fill
            gbliatlaporan.BringToFront()
        End If
    End Sub

    Private Sub GunaLineTextBox2_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles GunaLineTextBox2.GotFocus
        If GunaLineTextBox2.Text = "Cari " Then
            GunaLineTextBox2.Text = ""
        End If
    End Sub

    Private Sub GunaLineTextBox2_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles GunaLineTextBox2.LostFocus
        If GunaLineTextBox2.Text = "" Then
            GunaLineTextBox2.Text = "Cari"
        End If
    End Sub

    '===========================================================form Laporan==========================================
    Sub bersihdgv()

        dgvlaporan.ReadOnly = True
        dgvlaporan.Rows.Clear()
        If GunaComboBox1.Text = "Terkirim" Then
            dgvlaporan.Rows.Clear()
            dgvlaporan.Columns(6).Visible = True
            dgvlaporan.Columns(8).Visible = True
            cmd = New OdbcCommand("select * from pengaduan where status='0'", conn)
            dr = cmd.ExecuteReader
            Dim no As Integer = 1
            Do While dr.Read
                dgvlaporan.Rows.Add(New String() {no, dr(0), dr(1), dr(2), dr(3), "Terkirim", "Proses", "Hapus", "Tanggapi", "Print"})
                no = no + 1
            Loop
        ElseIf GunaComboBox1.Text = "Proses" Then
            dgvlaporan.Rows.Clear()
            dgvlaporan.Columns(6).Visible = False
            dgvlaporan.Columns(8).Visible = True
            Dim no As Integer = 1
            cmd = New OdbcCommand("select * from pengaduan where status ='" & GunaComboBox1.Text & "'", conn)
            dr = cmd.ExecuteReader
            Do While dr.Read
                dgvlaporan.Rows.Add(New String() {no, dr(0), dr(1), dr(2), dr(3), dr(5), "Proses", "Hapus", "Tanggapi", "Print"})
                no = no + 1
            Loop
        Else
            dgvlaporan.Rows.Clear()
            dgvlaporan.Columns(6).Visible = False
            dgvlaporan.Columns(8).Visible = False
            Dim no As Integer = 1
            cmd = New OdbcCommand("select * from pengaduan where status ='" & GunaComboBox1.Text & "'", conn)
            dr = cmd.ExecuteReader
            Do While dr.Read
                dgvlaporan.Rows.Add(New String() {no, dr(0), dr(1), dr(2), dr(3), dr(5), "Proses", "Hapus", "Tanggapi", "Print"})
                no = no + 1
            Loop
        End If
    End Sub
    Private Sub GunaComboBox1_SelectedValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles GunaComboBox1.SelectedValueChanged
        Call bersihdgv()
    End Sub

    Private Sub dgvlaporan_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgvlaporan.CellContentClick
        If dgvlaporan.Rows(e.RowIndex).Cells(0).Value = "" Then
            Exit Sub
        End If
        If e.ColumnIndex = 7 Then '
            If MessageBox.Show("Yakin ni mau diapus pengaduan = '" & dgvlaporan.Rows(e.RowIndex).Cells(1).Value & "', Kaga bisa balik lagi loh ", "", MessageBoxButtons.YesNo, MessageBoxIcon.Warning) = Windows.Forms.DialogResult.Yes Then
                Call koneksi()
                cmd = New OdbcCommand("select * from tanggapan where id_pengaduan = '" & dgvlaporan.Rows(e.RowIndex).Cells(1).Value & "'", conn)
                dr = cmd.ExecuteReader
                dr.Read()
                If dr.HasRows Then
                    cmd = New OdbcCommand("delete from tanggapan where id_pengaduan = '" & dgvlaporan.Rows(e.RowIndex).Cells(1).Value & "'", conn)
                    cmd.ExecuteNonQuery()
                End If
                cmd = New OdbcCommand("delete from pengaduan where id_pengaduan = '" & dgvlaporan.Rows(e.RowIndex).Cells(1).Value & "'", conn)
                cmd.ExecuteNonQuery()

                MessageBox.Show("Data Sudah Dihapus")
                Call bersihdgv()
            End If
        End If

        If e.ColumnIndex = 6 Then '
            If MessageBox.Show("Laporan '" & dgvlaporan.Rows(e.RowIndex).Cells(1).Value & "' Akan diproses ?", "", MessageBoxButtons.YesNo, MessageBoxIcon.Warning) = Windows.Forms.DialogResult.Yes Then
                cmd = New OdbcCommand("update pengaduan set status = 'Proses' where id_pengaduan = '" & dgvlaporan.Rows(e.RowIndex).Cells(1).Value & "'", conn)
                cmd.ExecuteNonQuery()
                MessageBox.Show("Pengaduan Sudah diproses")
                Call bersihdgv()
            End If
        End If

        If e.ColumnIndex = 8 Then
            penaggapan.idlaporan.Text = dgvlaporan.Rows(e.RowIndex).Cells(1).Value
            penaggapan.Show()
        End If
    End Sub

End Class