Simpan , Ubah, Hapus VB 6.0 dengan MySql part 2

Private Sub CommandSimpan_Click()

If TextNIM.Text = "" Then

    MsgBox ("ANDA BELUM MEMASUKKAN NIM")

    TextNIM.SetFocus

Else

    If TextNama.Text = "" Then

    MsgBox ("ANDA BELUM MEMASUKKAN NAMA")

    TextNama.SetFocus

Else

    If TextAlamat.Text = "" Then

    MsgBox ("ANDA BELUM MEMASUKKAN ALAMAT")

    TextAlamat.SetFocus

Else

    If Option1.Value = False And Option2.Value = False Then

    MsgBox ("ANDA BELUM MEMILIH JENIS KELAMIN")

Else

    If ComboAgama.Text = "PILIH AGAMA" Then

    MsgBox ("ANDA BELUM MEMILIH AGAMA")

    ComboAgama.SetFocus

Else

    If TextNIM.Text <> "" And TextNama.Text <> "" And TextAlamat.Text <> "" And ComboAgama.Text = "ISLAM" Or ComboAgama.Text = "KRISTEN" Or ComboAgama.Text = "KATOLIK" Or ComboAgama.Text = "HINDU" Or ComboAgama.Text = "BUDHA" Or ComboAgama.Text = "KONGHUCHU" Then

 

    Adodc1.Recordset.Find "NIM='" + TextNIM.Text + "'", , adSearchForward, 1

    If Not Adodc1.Recordset.EOF Then

    MsgBox "NIM SUDAH ADA. MASUKKAN NIM YANG LAIN"

    TextNIM.Text = ""

    TextNIM.SetFocus

    Else

    Adodc1.Recordset.AddNew

    Adodc1.Recordset.Fields("nim") = TextNIM.Text

    Adodc1.Recordset.Fields("nama") = TextNama.Text

    Adodc1.Recordset.Fields("alamat") = TextAlamat.Text

    Adodc1.Recordset.Fields("agama") = ComboAgama.Text

    If Option1.Value = True Then

        Adodc1.Recordset.Fields("jenis_kelamin") = Left(Option1.Caption, 9)

    Else

        Adodc1.Recordset.Fields("jenis_kelamin") = Left(Option2.Caption, 9)

    End If

    MsgBox ("DATA SUDAH DISIMPAN")

    Call bersih

    Adodc1.Recordset.Update

    Adodc1.Refresh

    CommandTambah.Visible = True

    CommandEdit.Visible = True

    CommandHapus.Visible = True

    CommandSimpan.Visible = False

    CommandReset.Visible = False

    CommandKeluar.Caption = "KEL&UAR"

    End If

End If

End If

End If

End If

End If

End If

End Sub

Private Sub CommandEdit_Click()

    Adodc1.Recordset.Fields("nim") = TextNIM.Text

    Adodc1.Recordset.Fields("nama") = TextNama.Text

    Adodc1.Recordset.Fields("alamat") = TextAlamat.Text

    Adodc1.Recordset.Fields("agama") = ComboAgama.Text

    Adodc1.Recordset.Fields("jenis_kelamin") = lblJK.Caption

    Adodc1.Recordset.Update

MsgBox ("DATA SUDAH DI UBAH")

    Call bersih

    Adodc1.Recordset.Update

    Adodc1.Refresh

    CommandTambah.Visible = True

    CommandEdit.Visible = True

    CommandHapus.Visible = True

    CommandSimpan.Visible = False

    CommandReset.Visible = False

    CommandKeluar.Caption = "KEL&UAR"

End Sub

Private Sub CommandHapus_Click()

If MsgBox("apakah ingin menghapusnya ?", vbQuestion + vbOKCancel, "Hapus ?") = vbOK Then

    Adodc1.Recordset.Delete

    Call bersih

End If

End Sub

Private Sub CommandReset_Click()

CommandTambah.Visible = True

CommandEdit.Visible = True

CommandHapus.Visible = True

CommandSimpan.Visible = False

CommandReset.Visible = False

CommandKeluar.Caption = "KELUAR"

Call bersih

End Sub

Private Sub DataGrid1_Click()

With DataGrid1

TextNIM.Text = DataGrid1.Columns(0)

TextNama.Text = DataGrid1.Columns(1)

TextAlamat.Text = DataGrid1.Columns(2)

lblJK.Caption = DataGrid1.Columns(4)

ComboAgama.Text = DataGrid1.Columns(3)

End With

End Sub

Private Sub MSHFlexGrid1_Click()

With MSHFlexGrid1

TextNama.Text = .TextMatrix(, 0)

End With

End Sub

Private Sub Form_Load()

ComboAgama.AddItem "ISLAM"

ComboAgama.AddItem "KRISTEN"

ComboAgama.AddItem "KATOLIK"

ComboAgama.AddItem "HINDU"

ComboAgama.AddItem "BUDHA"

ComboAgama.AddItem "KONGHUCHU"

End Sub

Private Sub bersih()

TextNama.Text = ""

TextAlamat.Text = ""

ComboAgama.Text = "PILIH AGAMA"

TextNIM.Text = ""

Option1.Value = False

Option2.Value = False

lblJK.Caption = ""

End Sub

Private Sub CommandTambah_Click()

CommandTambah.Visible = False

CommandEdit.Visible = False

CommandHapus.Visible = False

CommandSimpan.Visible = True

CommandReset.Visible = True

CommandKeluar.Caption = "BA&TAL SIMPAN"

TextNIM.SetFocus

End Sub

Private Sub Option1_Click()

lblJK.Caption = "Laki-laki"

lblJK.ForeColor = &HFF0000

End Sub

Private Sub Option2_Click()

lblJK.Caption = "Perempuan"

lblJK.ForeColor = &HFF00FF

End Sub