DataBase Microsoft Visual Basic 6.0

Rumus DataBase Pada General (Bersih dan Tampil)

rumus ini digunakan untuk melengkapi rumus yang anda dalam form anda untuk rumus Bersih dan Tampil ini kegunaanya anda biasa membaca di akhir rumus itu tersebut.

cara untuk memasukan rumus dibawah ini adalah klik Object pada jendela Editor samapi menunjukan General.

kemudian tulikan Rumus berikut pada jenela editor dengan object General.

1. Rumus Bersih

Private Sub Bersih()

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

Text5.Text = ""

Text6.Text = ""

Text7.Text = ""

Text8.Text = ""

Text9.Text = ""

Text10.Text = ""

Combo1.Text = ""

Check1.Value = 0

Check2.Value = 0

Option1.Value = False

Option2.Value = False

TAMBAH.Enabled = True

SIMPAN.Enabled = False

EDIT.Enabled = False

HAPUS.Enabled = False

End Sub

Rumus ini berfungsi untuk mengosongkan isi dari text,combo,option dan check. Sebenarnya ada cara lain yaitu anda didalam jendela properties text anda hapus (untuk Text dan Combo), untuk Check anda rubah nilai dijendela Properties dibagian Value menjadi 0 dan untuk Option dijendela Properties bagian Value anda rubah menjadi false.  tapi cara tersebut akan merepotkan dan tidak bisa mempercepat pekerjaan anda.

2. Rumus Tampil

ketiklah program berikut.

Private Sub Tampil()                               Private Sub Tampil ()

With Data1                                              Text1.text = Data1.Recordset.Fields!NO_SEWA

                                                            Text2.text = Data1. Recordset.Fields!NAMA

Text1.Text = .Recordset.Fields(0)              Combo1.text = Data1. Recordset.Fields!KODE

Text2.Text = .Recordset.Fields(1)              Text3.text = Data1. Recordset.Fields!JENIS_MOBIL

Combo1.Text = .Recordset.Fields(2)          text4.text = Data1. Recordset.Fields!BIAYA_SEWA

Text3.Text = .Recordset.Fields(3)             Text5.text = Data1. Recordset.Fields!LAMA_SEWA

Text4.Text = .Recordset.Fields(4)              Text6.text = Data1. Recordset.Fields!JUMLAH_BAYAR

Text5.Text = .Recordset.Fields(5)             Text7.text = Data1. Recordset.Fields!BIAYA_FASILITAS

Text6.Text = .Recordset.Fields(6)              Text8.text = Data1. Recordset.Fields!DISCOUNT

Text7.Text = .Recordset.Fields(7)              Text10.text = Data1. Recordset.Fields!TOTAL

Text8.Text = .Recordset.Fields(8)

Text10.Text = .Recordset.Fields(9)            End With

                                                           

End With

End Sub           

Rumus ini menggunakan urutan Field       Rumus ini menggunakan nama Filed

gambar rumus menggunakan urutan filed.

Rumus ini berfungsi untuk menampilkan apa saja yang akan ditampilkan pada form pada saat pencarian. Rumus ini sebenarnya hanya terpakai saat pencarian. Anda bebas menggunakan kedua rumus tersebut tapi gunakan salah satunya saja kedua rumus tersebut sama saja hanya menggunakan urutan Field dan menggunakan nama field tapi saya menganjurkan gunakan yang menggunakan urutan field lebih mudah tapi anda harus jeli membaca urutan tersebut dijendela visdata.

Gunakan salah satu rumus diatas karena semuanya artinya sama.