Script Dasar Visual Basic

Visua Basic merupakan sebuah aplikasi berbasis desktop. berikut perintah-perintah dasar Visual Basic :
1. Tombol Simpan
    

Private Sub Command1_Click()

Set RS = New ADODB.Recordset

If Combo2.Text = "" Then

    MsgBox "Data Tidak Boleh Kosong", vbCritical, "Peringatan!"

    Combo2.SetFocus

    ElseIf Text4.Text = "" Then

    MsgBox "Harga Beli Harus Di Isi", vbCritical, "Peringatan!"

    Text4.SetFocus

    Else

RS.Open "Select * from barang where Kode_Brg = '" & Combo2.Text & "'", CON, adOpenDynamic, adLockOptimistic

If Not RS.EOF Then

    MsgBox "Data Sudah Ada!!!", vbCritical, "Peringatan!"

    Combo2.SetFocus

    Else

RS.AddNew

RS.Fields("Kode_Brg") = Combo2.Text

RS.Fields("Harga_Jual") = Text4.Text

RS.Update

MsgBox "DATA TERSIMPAN", vbInformation, "Informasi"

bersih

tabel

Combo2.SetFocus

End If

End If

End Sub

2. Edit

   

Private Sub Command2_Click()

Set RS = New ADODB.Recordset

RS.Open "Select * From barang WHERE Kode_Brg = '" & Combo2.Text & "'", CON, adOpenDynamic, adLockOptimistic

If Not RS.EOF Then

RS.Fields("Kode_Brg") = Combo2.Text

RS.Fields("Harga_Jual") = Text4.Text

RS.Update

MsgBox "DATA TELAH DIROBAH", vbInformation, "Informasi"

bersih

tabel

Combo2.SetFocus

End If

End Sub

3. Keluar

   

Private Sub Command5_Click()

X = MsgBox("Yakin Data Dihapus...??", vbQuestion + vbYesNo, "Informasi")

If X = vbYes Then

Set RS = New ADODB.Recordset

RS.Open "Delete From Barang Where Kode_Brg = '" & Text5.Text & "'", CON, adOpenDynamic, adLockOptimistic

bersih

tabel

Combo2.SetFocus

End If

End Sub

PRINT DATA

Private Sub Command7_Click()

CR.ReportFileName = App.Path & "\Data_Barang.rpt"

CR.RetrieveDataFiles

CR.WindowState = crptMaximized

CR.Action = 0

End Sub

4. Keluar

  

Private Sub Command3_Click()

T = MsgBox("anda yakin ingin keluar dari form!!!", vbQuestion + vbYesNo, "informasi")

If T = vbYes Then

Unload Me

End If

End Sub

UNLOAD ME digunakan untuk keluar dari satu form saja

END digunakan untuk keluar dari program