code Form Master Pelanggan - 2

Code selanjutnya Sist dan bro....

Private Sub IdMember1312503731TextBox_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles IdMember1312503731TextBox.KeyPress

        If Asc(e.KeyChar) = 13 Then

            IdMember1312503731TextBox.Enabled = False

            objPelanggan1312503731.PIdMember = IdMember1312503731TextBox.Text

            If objPelanggan1312503731.cari = True Then

                IdMember1312503731TextBox.Text = objPelanggan1312503731.PIdMember

                NamaPelanggan1312503731TextBox.Text = objPelanggan1312503731.PNmPelanggan

                AlamatPelanggan1312503731TextBox.Text = objPelanggan1312503731.PAlmtPelanggan

                Telepon1312503731TextBox.Text = objPelanggan1312503731.PTlpPelanggan

                TempatLahir1312503731TextBox.Text = objPelanggan1312503731.PTmptLhr

                TanggalLahir1312503731DateTimePicker.Text = objPelanggan1312503731.PTglLhr

                If LakiLaki1312503731RadioButton.Text = objPelanggan1312503731.PJenKel Then

                    LakiLaki1312503731RadioButton.Checked = True

                Else

                    Perempuan1312503731RadioButton.Checked = True

                End If

                Simpan1312503731Button.Enabled = False

            Else

                Ubah1312503731Button.Enabled = False

                Hapus1312503731Button.Enabled = False

            End If

            CariPelanggan1312503731.Enabled = True

            NamaPelanggan1312503731TextBox.Focus()

        End If

    End Sub

    Private Sub Telepon1312503731TextBox_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Telepon1312503731TextBox.KeyPress

        If Not (Asc(e.KeyChar) >= Asc("0") And Asc(e.KeyChar) <= Asc("9") Or Asc(e.KeyChar) = 8 Or Asc(e.KeyChar) = 13) Then

            e.KeyChar = Chr(0)

            MessageBox.Show("Harus Masukan Angka!")

        End If

    End Sub

    Private Sub CariPelanggan1312503731Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CariPelanggan1312503731.Click

        Dim PopPelanggan As New FrmPopUpPelanggan1312503731

        PopPelanggan.ShowDialog()

        If PopPelanggan.PopIdMember1312503731 <> "" Then

            IdMember1312503731TextBox.Text = PopPelanggan.PopIdMember1312503731

            NamaPelanggan1312503731TextBox.Text = PopPelanggan.POpNmPelanggan1312503731

            AlamatPelanggan1312503731TextBox.Text = PopPelanggan.PopAlmtPelanggan1312503731

            Telepon1312503731TextBox.Text = PopPelanggan.PopTlpPelanggan1312503731

            TempatLahir1312503731TextBox.Text = PopPelanggan.PopTmptLhr1312503731

            TanggalLahir1312503731DateTimePicker.Text = PopPelanggan.PopTglLhr1312503731

            If PopPelanggan.PopJenKel1312503731 = "Perempuan" Then

                Perempuan1312503731RadioButton.Checked = True

            Else

                LakiLaki1312503731RadioButton.Checked = True

            End If

            IdMember1312503731TextBox.Enabled = False

            Simpan1312503731Button.Enabled = False

            NamaPelanggan1312503731TextBox.Focus()

        End If

    End Sub

End Class