Contoh Program VB dengan Database SQL Server (Part 2)

Berikut adalah lanjutan Script VB dari posting sebelumnya :

Private Sub Cmd_Batal_Click()
On Error GoTo errlabel
Txt_kodeakun = ""
Txt_namaakun = ""
Txt_saldo = ""
Txt_kodeakun.Enabled = True
Txt_namaakun.Enabled = True
Txt_saldo.Enabled = True
Cmd_Simpan.Enabled = True
Cmd_Batal.Enabled = True
Txt_kodeakun.SetFocus
Exit Sub
errlabel:
MsgBox Err.Description
End Sub

Private Sub Cmd_Cari_Click()
Call sambung
sql = "select * from akun where kodeakun= '" & Txt_kodeakun.Text & "'"
Set rsa = con.Execute(sql)
If Not rsa.EOF Then
Txt_namaakun.Text = rsa.Fields("namaakun")
Txt_saldo.Text = rsa.Fields("saldoawal")
Txt_kodeakun.Enabled = False
Txt_namaakun.Enabled = False
Txt_saldo.Enabled = False
Cmd_Edit.Enabled = True
Cmd_Hapus.Enabled = True
Else
Cmd_Simpan.Enabled = True
Cmd_Batal.Enabled = True
End If
If rsa.EOF Then
MsgBox "Data yang anda Cari tidak ada", vbInformation, "Info"
Txt_kodeakun.Text = ""
Txt_kodeakun.SetFocus
Ado_Rekening.Refresh
End If
End Sub

Private Sub Cmd_Edit_Click()
Txt_kodeakun.Enabled = False
Txt_namaakun.Enabled = True
Txt_saldo.Enabled = True
Cmd_Simpan.Enabled = True
Cmd_Simpan.SetFocus
End Sub

Private Sub Cmd_Hapus_Click()
On Error GoTo errlabel
Call sambung
sql = "delete from akun where kodeakun = '" & Txt_kodeakun.Text & "'"
con.Execute (sql)
Ado_Rekening.Refresh
Cmd_Tambah.Enabled = True
Cmd_Simpan.Enabled = False
Cmd_Hapus.Enabled = False
Cmd_Batal.Enabled = False
Cmd_Edit.Enabled = False
Cmd_Cari.Enabled = True
Exit Sub
errlabel:
MsgBox Err.Description
End Sub

Sub kosong()
If Txt_kodeakun.Text = "" Or Txt_namaakun.Text = "" Or Txt_saldo.Text = "" Then
MsgBox "Isi dulu Datanya, okey.........", vbInformation, "Info...."
Txt_kodeakun.SetFocus
End If
End Sub

Private Sub Cmd_Tambah_Click()
On Error GoTo errlabel
Txt_kodeakun = ""
Txt_namaakun = ""
Txt_saldo = ""
Txt_kodeakun.Enabled = True
Txt_namaakun.Enabled = True
Txt_saldo.Enabled = True
Cmd_Simpan.Enabled = True
Cmd_Batal.Enabled = True
Txt_kodeakun.SetFocus
Exit Sub
errlabel:
MsgBox Err.Description
End Sub

Private Sub Cmd_Tutup_Click()
Unload Me
End Sub

Private Sub Form_Activate()
Call sambung
Ado_Rekening.Refresh
Cmd_Tambah.Enabled = True
Cmd_Simpan.Enabled = False
Cmd_Hapus.Enabled = False
Cmd_Batal.Enabled = False
Cmd_Edit.Enabled = False
Cmd_Cari.Enabled = True
Cmd_Tambah.SetFocus
End Sub

Private Sub cmd_kosong_Click()
Call sambung
sql = "update akun set saldoawal = 0 where kodeakun like '211%' or kodeakun like '411%'"
Set rsa = con.Execute(sql)
Ado_Rekening.Refresh
End Sub

Private Sub Txt_kodeakun_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Call sambung
sql = "select * from akun where kodeakun= '" & Txt_kodeakun.Text & "'"
Set rsa = con.Execute(sql)
If Not rsa.EOF Then
MsgBox "Kode Sudah ada, ganti Kode lain", vbExclamation, "Sory...."
Txt_kodeakun.Text = ""
Txt_kodeakun.SetFocus
Else
Txt_namaakun.SetFocus
End If
End If
End Sub

Private Sub Txt_namaakun_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txt_saldo.SetFocus
End If
End Sub

Private Sub Txt_saldo_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Cmd_Simpan.SetFocus
End If
End Sub

Posted in: visual basic