Modul 4 : Latihan Form View Data (mengabungkan antara pencarian, navigasi dan pengurutan) Latihan 1:
Buat sebuah program seperti berikut ini:
Tempatkan pada form satu buah ADODC, satu buah DataGrid, lima buah CommandButton, lima buah Label dan empat buah Text. Aturlah nilai-nilai properti sbb: Komponen Properti Nilai Form View Data Product Form1 Caption fmProduct Name 2 – CenterScreen StartUpPosition ADODC1 Hubungkan dengan Nwind.mdb dan panggil tabel Product Label1 Caption Sort By Label2 Caption Find Combo1 Name cbSort List ProductID ProductName SupplierID Text (Kosongkan) Text1 Name txtFind Text (kosongkan) Command1 Name cbSort Caption Go &Sort Command2 Name cbFind Caption Go &Find DataGrid1 Name dgProduct DataSource ADODC1 Command3 Name cmdFirst Caption |< Command4 Name cmdPrev Caption < Command5 Name cmdNext Caption > Command6 Name cmdLast Caption >| Command7 Name cmdGo abdrohim/Visual Basic/ADO/ViewForm
1/5
Label3 Label4 Label5 Text2 Text3 Text4
Caption Caption Caption Caption Name Text Name Text Name Text
&Go Go to Record Dari txtGo (Kosongkan) txtNoRec (Kosongkan) txtLastRec (Kosongkan)
Double klik pada tombol Go Sort Private Sub cmdSort_Click() Adodc1.Recordset.Sort = cbSort.Text End Sub Double klik pada tombol Go Find Private Sub cmdFind_Click() Dim datacari As String 'tentukan data cari berdasarkan kolom sort dan data masukan datacari = cbSort.Text & " = '" & txtFind.Text & "'" 'pindahkan pointer file ke awal file Adodc1.Recordset.MoveFirst 'lakukan pencarian data dengan mengunakan find Adodc1.Recordset.Find datacari 'cek hasil pencarian dengan melihat kondisi EOF If Adodc1.Recordset.EOF Then MsgBox "Data tidak ditemukan" Else MsgBox "Data ditemukan pada record ke :" & Adodc1.Recordset.AbsolutePosition End If End Sub Double klik pada tombol cmdFirst Private Sub cmdFirst_Click() Adodc1.Recordset.MoveFirst End Sub Double klik pada tombol cmdPrev Private Sub cmdPrev_Click() Adodc1.Recordset.MovePrevious If Adodc1.Recordset.BOF Then MsgBox "sudah berada di awal file" Adodc1.Recordset.MoveFirst txtNo.Text = Adodc1.Recordset.AbsolutePosition End If End Sub Double klik pada tombol cmdNext Private Sub cmdNext_Click() Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF Then MsgBox "sudah berada di akhir file" Adodc1.Recordset.MoveLast txtNo.Text = Adodc1.Recordset.AbsolutePosition End If End Sub abdrohim/Visual Basic/ADO/ViewForm
2/5
Double klik pada tombol cmdLast Private Sub cmdlast_Click() Adodc1.Recordset.MoveLast End Sub Double klik pada tombol cmdGo Private Sub Command5_Click() Adodc1.Recordset.Move txtGo.Text End Sub Pada event Form_Load() tuliskan perintah berikut ini: Private Sub Form_Load() txtNoRec.Text = Adodc1.Recordset.AbsolutePosition txtLastRec.Text = Adodc1.Recordset.RecordCount End Sub Double klik pada adodc1, tuliskan perintah berikut ini: Private Sub Adodc1_WillMove(ByVal adReason As ADODB.EventReasonEnum, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset) txtNo.Text = Adodc1.Recordset.AbsolutePosition End Sub
Latihan 2:
Buat sebuah program seperti berikut ini:
abdrohim/Visual Basic/ADO/ViewForm
3/5
Cara melakukan setting pada komponen SSTab Klik kanan diatas komponen SSTab kemudian pilih menu Properties, akan tampil sebuah form setting seperti gambar berikut ini.
Yang perlu diperhatikan sementara ini pada form ini adalah Current Tab: dan TabCaption:. Pada Current Tab: terdapat Tombol < untuk berpindah ke Tab sebelumnya dan tombol > untuk berpindah ke Tab selanjutnya. Tab Caption: akan memberikan judul yang ada dibagian atas setia Tab. Ikuti langkah berikut ini. 1. Isikan pada TabCaption: Browse Data 2. Klik Tombol > Sehingga CurrentTab bernilai 1 3. Isikan pada TabCaption: Detail Data 4. Klik Tombol > Sehingga CurrentTab bernilai 2 5. Isikan pada TabCaption: Insert Data Tempatkan pada form satu buah SsTab, satu buah ADODC, satu buah DataGrid, dua buah Label, satu buah combobox, satu buah text dan satu buah command. Aturlah nilai-nilai properti sbb: Komponen Properti Nilai Form1 Caption Form Data Employees Name fmemployee StartUpPosition 2 – CenterScreen Aktifkan Tab Browse Data dengan mengklik Tulisan Browse Data ADODC1 Hubungkan dengan Nwind.mdb dan panggil tabel Employee Label1 Caption Sort By Label2 Caption Find Combo1 Name cbSort List EmployyeID LastName Firstname Text (Kosongkan) Text1 Name txtFind Text (kosongkan) Command1 Name cbSort Caption Go &Sort Command2 Name cbFind Caption Go &Find abdrohim/Visual Basic/ADO/ViewForm
4/5
DataGrid1
Name dgEmployee DataSource ADODC1 Aktifkan Tab Detail Data dengan mengklik Tulisan Detail Data Label3 Caption Employee ID Label4 Caption Last Name Label5 Caption First Name Label6 Caption Address Text2 DataSource Adodc1 DataFied EmployeeID Text3 DataSource Adodc1 DataFied LastName Text4 DataSource Adodc1 DataFied FirstName Text5 DataSource Adodc1 DataFied Address Simpan dan kemudian jalankan program ini.
Tugas :
Tambahkan program untuk aplikasi yang ada pada tab Browse Data untuk 1. Tombol Go Sort 2. Tombol Go Find 3. Tombol Close Tambahkan program untuk aplikasi yang ada pada tab Detail Data untuk 4. menampilkan seluruh Field/kolom pada tabel Employee (Atur posisinya di tab tersebut sehingga cukup semua) Keterangan: Untuk Tab Insert Data akan dibahan pada modul Selanjutnya
abdrohim/Visual Basic/ADO/ViewForm
5/5