Kamis, 06 Juni 2013

SISTEM INFORMASI DATA SERVIS MOTOR





From menu



listing program menu

Public Class Form1

    Private Sub DATAKENDARAANToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DATAKENDARAANToolStripMenuItem.Click
        devita33.Show()
    End Sub

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

    End Sub
End Class


FROM DATA SERVIS MOTOR






listining program

Imports MySql.Data.MySqlClient
Public Class devita33
    Public db As New MySql.Data.MySqlClient.MySqlConnection
    Public sql As String
    Public cmd As MySqlCommand
    Public rs As MySqlDataReader
    Sub opendb()
        sql = "server=localhost;uid=root;pwd;database=motor"
        Try
            db.ConnectionString = sql
            db.Open()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub
    Sub bersih()
        nokendaraan.Text = ""
        namakendaraan.Text = ""
        tanggalservis.Text = ""
        kerusakan.Text = ""
        rubahbutton(True, False, False, False, False, True)
        nokendaraan.Enabled = True
    End Sub
    Sub rubahbutton(ByVal btn1 As Boolean, ByVal btn2 As Boolean, ByVal btn3 As Boolean, ByVal btn4 As Boolean, ByVal btn5 As Boolean, ByVal btn6 As Boolean)
        btnbaru.Enabled = btn1
        btnsimpan.Enabled = btn2
        btnedit.Enabled = btn3
        btnhapus.Enabled = btn4
        btnbatal.Enabled = btn5
        btnkeluar.Enabled = btn6
    End Sub

    Sub buattable()
        Lv.Columns.Add("NO kendaraan", 80, HorizontalAlignment.Center)
        Lv.Columns.Add("Nama Kendaraan", 180, HorizontalAlignment.Left)
        Lv.Columns.Add("Tanggal servis", 80, HorizontalAlignment.Left)
        Lv.Columns.Add("Kerusakan", 100, HorizontalAlignment.Left)
        lv.GridLines = True
        lv.FullRowSelect = True
        lv.View = View.Details
    End Sub
    Sub isitable()
        lv.Items.Clear()
        sql = "select * from servis"
        cmd = New MySqlCommand(sql, db)
        rs = cmd.ExecuteReader
        Try
            While rs.Read
                Dim lst As New ListViewItem
                lst.Text = rs("no_kendaraan")
                lst.SubItems.Add(rs("nama_kendaraan"))
                lst.SubItems.Add(rs("tgl_servis"))
                lst.SubItems.Add(rs("kerusakan"))
                lv.Items.Add(lst)
            End While
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        rs.Close()
    End Sub
    Sub prosesdb(ByVal log As Integer)
        Dim pesan As String = ""
        Select Case log
            Case 0
                sql = "insert into servis values(no_kendaraan,nama_kendaraan,tgl_servis,kerusakan)" & _
                "values('" & nokendaraan.Text & _
                "','" & namakendaraan.Text & _
                "','" & tanggalservis.Text & _
                "','" & kerusakan.Text & "')"
                pesan = "data telah tersimpan"
            Case 1
                sql = "update servis set nama_kendaraan='" & namakendaraan.Text & "'," & _
                "tgl_servis_='" & tanggalservis.Text & "'," & _
                "kerusakan='" & kerusakan.Text & "'," & _
                "where no_kendaraan='" & nokendaraan.Text & "'"
                pesan = "data telah terupdate"
            Case 2
                sql = "delete from servis where no_kendaraan='" & nokendaraan.Text & "'"
                pesan = "data telah dihapus"
        End Select
        Try
            cmd = New MySqlCommand(sql, db)
            cmd.ExecuteNonQuery()
            MsgBox(pesan, MsgBoxStyle.Information + MsgBoxStyle.OkOnly, "konfirmsi")
            Call bersih()
            Call isitable()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub
    Sub showdb()
        rs.Read()
        nokendaraan.Text = rs("no_kendaraan")
        namakendaraan.Text = rs("nama_kendaraan")
        tanggalservis.Text = rs("tgl_servis")
        kerusakan.Text = rs("kerusakan")
        rubahbutton(False, False, True, True, True, False)
        btnsimpan.text = "edit"
        nokendaraan.Enabled = False
    End Sub
    Private Sub form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Call opendb()
        Call bersih()
        Call buattable()
        Call isitable()
    End Sub

    Private Sub baru_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbaru.Click
        Call bersih()
        nokendaraan.Focus()
    End Sub

    Private Sub batal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbatal.Click
        Call bersih()
        nokendaraan.Focus()
    End Sub

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

    Private Sub hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
        Dim x As String
        x = MsgBox("anda yakin akan menghapus", MsgBoxStyle.Information + MsgBoxStyle.YesNo, "hapus")
        If x = vbYes Then
            Call prosesdb(2)
        End If
    End Sub

    Private Sub simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click
        If btnsimpan.text = "simpan" Then prosesdb(0) Else prosesdb(1)
    End Sub

    Private Sub nokendaraan_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles nokendaraan.KeyPress
        Dim tombol As Integer = Asc(e.KeyChar)
        If tombol = 13 Then
            Dim x As String
            If nokendaraan.Text = "" Then
                MsgBox("isi No kendaraan terlebih dahulu")
            Else
                sql = "select * from servis where no_kendaraan='" & nokendaraan.Text & "'"
                cmd = New MySqlCommand(sql, db)
                rs = cmd.ExecuteReader
                Try
                    Call showdb()
                Catch ex As Exception
                    x = nokendaraan.Text
                    bersih()
                    nokendaraan.Text = x
                    rubahbutton(False, True, False, False, True, False)
                    btnsimpan.Text = "simpan"
                End Try
                namakendaraan.Focus()
                rs.Close()
            End If
        End If
    End Sub
End Class


TAMPILAN FROM CETAK LAPORAN






DEMIKIANLAH POSTINGAN SAYA.....
NAMA : Depita Sari Ritonga
NPM : 1102116