Code untuk Form Master Pelanggan pada Project Sistem bengkel mobil

Back to :*

Project Sistem Bengkel mobil 

waktu itu kiat sudah membuat tampilan form master pelanggan yaa???

naaahhh nih tinggal tambahkan code untuk menyempurnakan Form master Pelanggan :

Imports System.Data.OleDb

Public Class MasterPelanggan1312503731Form

    Dim objPelanggan1312503731 As New Pelanggan1312503731

    Private Sub bersih()

        NamaPelanggan1312503731TextBox.Clear()

        AlamatPelanggan1312503731TextBox.Clear()

        Telepon1312503731TextBox.Clear()

        TempatLahir1312503731TextBox.Text = ""

        TanggalLahir1312503731DateTimePicker.Text = ""

        Perempuan1312503731RadioButton.Checked = True

    End Sub

    Private Sub MasterPelanggan1312503731_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated

        NamaPelanggan1312503731TextBox.Focus()

    End Sub

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

        koneksi()

        IdMember1312503731TextBox.Text = objPelanggan1312503731.autonumber()

    End Sub

    Private Sub Simpan1312503731Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Simpan1312503731Button.Click

        Try

            If IdMember1312503731TextBox.Text = "" Or NamaPelanggan1312503731TextBox.Text = "" Or TempatLahir1312503731TextBox.Text = "" Or AlamatPelanggan1312503731TextBox.Text = "" Or Telepon1312503731TextBox.Text = "" Then

                MsgBox("Terdapat Data Kosong")

            Else

                objPelanggan1312503731.PIdMember = IdMember1312503731TextBox.Text

                objPelanggan1312503731.PNmPelanggan = NamaPelanggan1312503731TextBox.Text

                objPelanggan1312503731.PAlmtPelanggan = AlamatPelanggan1312503731TextBox.Text

                objPelanggan1312503731.PTlpPelanggan = Telepon1312503731TextBox.Text

                objPelanggan1312503731.PTmptLhr = TempatLahir1312503731TextBox.Text

                objPelanggan1312503731.PTglLhr = TanggalLahir1312503731DateTimePicker.Value.Date

                If LakiLaki1312503731RadioButton.Checked = True Then

                    objPelanggan1312503731.PJenKel = LakiLaki1312503731RadioButton.Text

                Else

                    objPelanggan1312503731.PJenKel = Perempuan1312503731RadioButton.Text

                End If

                If objPelanggan1312503731.simpan = 1 Then

                    MessageBox.Show("Data Berhasil Disimpan", "Berhasil")

                    bersih()

                    IdMember1312503731TextBox.Text = objPelanggan1312503731.autonumber()

                Else

                    MessageBox.Show("Data Gagal Disimpan", "Gagal")

                End If

                bersih()

                IdMember1312503731TextBox.Text = objPelanggan1312503731.autonumber()

                IdMember1312503731TextBox.Enabled = True

                CariPelanggan1312503731.Enabled = True

                IdMember1312503731TextBox.Focus()

            End If

        Catch ex As Exception

            MsgBox(ex.Message)

        End Try

    End Sub

    Private Sub Ubah1312503731Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ubah1312503731Button.Click

        Try

            If IdMember1312503731TextBox.Text = "" Or NamaPelanggan1312503731TextBox.Text = "" Or TempatLahir1312503731TextBox.Text = "" Or AlamatPelanggan1312503731TextBox.Text = "" Or Telepon1312503731TextBox.Text = "" Then

                MsgBox("Terdapat Data Kosong")

            Else

                objPelanggan1312503731.PIdMember = IdMember1312503731TextBox.Text

                objPelanggan1312503731.PNmPelanggan = NamaPelanggan1312503731TextBox.Text

                objPelanggan1312503731.PAlmtPelanggan = AlamatPelanggan1312503731TextBox.Text

                objPelanggan1312503731.PTlpPelanggan = Telepon1312503731TextBox.Text

                objPelanggan1312503731.PTmptLhr = TempatLahir1312503731TextBox.Text

                objPelanggan1312503731.PTglLhr = TanggalLahir1312503731DateTimePicker.Value.Date

                If LakiLaki1312503731RadioButton.Checked = True Then

                    objPelanggan1312503731.PJenKel = LakiLaki1312503731RadioButton.Text

                Else

                    objPelanggan1312503731.PJenKel = Perempuan1312503731RadioButton.Text

                End If

                If objPelanggan1312503731.ubah = 1 Then

                    MessageBox.Show("Data Berhasil DiUbah", "Berhasil")

                    bersih()

                    IdMember1312503731TextBox.Text = objPelanggan1312503731.autonumber()

                Else

                    MessageBox.Show("Data Gagal DiUbah", "Gagal")

                End If

                bersih()

                IdMember1312503731TextBox.Text = objPelanggan1312503731.autonumber()

                IdMember1312503731TextBox.Enabled = True

                CariPelanggan1312503731.Enabled = True

                IdMember1312503731TextBox.Focus()

            End If

        Catch ex As Exception

            MsgBox(ex.Message)

        End Try

    End Sub

    Private Sub Hapus1312503731Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Hapus1312503731Button.Click

        Try

            objPelanggan1312503731.PIdMember = IdMember1312503731TextBox.Text

            If objPelanggan1312503731.hapus = 1 Then

                MessageBox.Show("Data Berhasil Dihapus", "Berhasil")

                bersih()

                IdMember1312503731TextBox.Text = objPelanggan1312503731.autonumber()

            Else

                MessageBox.Show("Data Gagal Dihapus", "Gagal")

            End If

        Catch ex As Exception

            MsgBox(ex.Message)

        End Try

    End Sub

    Private Sub Batal1312503731Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Batal1312503731Button.Click

        If (MessageBox.Show("BATALKAN PENGISIAN MASTER PELANGGAN, YAKIN?", "Konfirmation", MessageBoxButtons.YesNo) = Windows.Forms.DialogResult.Yes) Then

            End

        End If

        bersih()

        IdMember1312503731TextBox.Text = objPelanggan1312503731.autonumber()

        IdMember1312503731TextBox.Enabled = True

    End Sub

    Private Sub Keluar1312503731Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Keluar1312503731Button.Click

        Me.Close()

    End Sub