Option Explicit

Public pTransJns As String
Public pTransID As String

Dim rstSiswa As ADODB.Recordset
Dim rstTrans As ADODB.Recordset

Private Sub loadSiswa()
    Set rstSiswa = New ADODB.Recordset
    If rstSiswa.State = adStateOpen Then rstSiswa.Close
    gstrSQL = "Select idsiswa, nis, nama, jeniskelamin, tempatlahir, tanggallahir, agama,namaortu From siswa"
    Set rstSiswa = Cn.Execute(gstrSQL)
    txtID.Text = rstSiswa!idsiswa
    Text2.Text = rstSiswa!nis
    Text3.Text = rstSiswa!nama
    CBOJEKEL.SelText = rstSiswa!jeniskelamin
    Text4.Text = rstSiswa!tempatlahir
    TANGGALLAHIR.Value = Format(rstSiswa!TANGGALLAHIR, "DD/MM/YYYY")
    CBOAGM.SelText = rstSiswa!agama
    Text5.Text = rstSiswa!namaortu
   End Sub
Private Sub clearComponent()
    txtID.Text = vbNullString
    Text2.Text = vbNullString
    Text3.Text = vbNullString
    CBOJEKEL.Text = vbNullString
    Text4.Text = vbNullString
    TANGGALLAHIR.Value = Date
    CBOAGM.Text = vbNullString
    Text5.Text = vbNullString

    pTransID = vbNullString
End Sub

Private Sub btnClose_Click()
    Unload Me
End Sub

'---------------------------------------------------------------------------------------
' Procedure : btnSave_Click
' Author    : admin
' Date      : 5/7/2010
' Purpose   :
'---------------------------------------------------------------------------------------
'
Private Sub btnSave_Click()
   On Error GoTo btnSave_Click_Error
   If Text2.Text = vbNullString Then
        MsgBox "Isikan NIS"
        Text2.SetFocus
        Exit Sub
    End If
    If Text3.Text = vbNullString Then
        MsgBox "Isikan NAMA"
        Text3.SetFocus
        Exit Sub
    End If
    If CBOJEKEL.Text = vbNullString Then
        MsgBox "Isikan JENIS KELAMIN"
        CBOJEKEL.SetFocus
        Exit Sub
    End If
    If Text4.Text = vbNullString Then
        MsgBox "Isikan TEMPAT LAHIR"
        Text4.SetFocus
        Exit Sub
    End If
    If TANGGALLAHIR.Value = vbNullString Then
        MsgBox "Isikan TANGGAL LAHIR"
        TANGGALLAHIR.SetFocus
        Exit Sub
    End If
    If CBOAGM.Text = vbNullString Then
        MsgBox "Isikan AGAMA"
        CBOAGM.SetFocus
    Exit Sub
    End If
    If Text5.Text = vbNullString Then
        MsgBox "Isikan ORANG TUA/WALI"
        Text5.SetFocus
    Exit Sub
    End If
    If UCase$(pTransJns) = "ADD" Then
        gstrSQL = "Insert Into siswa (nis, nama, jeniskelamin, tempatlahir, tanggallahir, agama, namaortu) Values ('" & Text2.Text & "', '" & Text3.Text & "', '" & CBOJEKEL.Text & "', '" & Text4.Text & "', '" & Format(TANGGALLAHIR.Value, "YYYY-MM-DD") & "', '" & CBOAGM.Text & "', '" & Text5.Text & "')"
        Cn.Execute (gstrSQL)
    ElseIf UCase$(pTransJns) = "EDIT" Then
        gstrSQL = "update siswa set nis = '" & Text2.Text & "', nama = '" & Text3.Text & "', jeniskelamin = '" & CBOJEKEL.Text & "', tempatlahir = '" & Text4.Text & "', tanggallahir = '" & Format(TANGGALLAHIR.Value, "YYYY-MM-DD") & "', agama = '" & CBOAGM.Text & "', namaortu = '" & Text5.Text & "' WHERE idsiswa ='" & txtID.Text & "'"
        Cn.Execute (gstrSQL)
    End If

    txtID.Locked = True
    pTransJns = "EDIT"
    Formviewsis.LoadData

    MsgBox "Sukses..."

   On Error GoTo 0
   Exit Sub

btnSave_Click_Error:

   MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure btnSave_Click of Form Formviewsis"
End Sub
Private Sub Form_Load()
CBOJEKEL.AddItem "L"
CBOJEKEL.AddItem "P"
CBOAGM.AddItem "ISLAM"
CBOAGM.AddItem "KRISTEN"
CBOAGM.AddItem "KHATOLIK"
CBOAGM.AddItem "HINDU"
CBOAGM.AddItem "BUDHA"
    If UCase$(pTransJns) = "ADD" Then
        Call clearComponent
        txtID.Locked = False
    ElseIf UCase$(pTransJns) = "EDIT" Then
        Call loadSiswa
        txtID.Locked = True
    End If
End Sub