1 / 3

Praktikum 10

Praktikum 10. 1. Buatlah. struktur. table. barang. pada. database. Penjualan. dengan. menggunakan Visual Data Manager dengan format Microsoft Acces, yang terdiri dari empat field ( Kode, Nama, Satuan, Harga ) dengan ketentuan sebagai berikut :. Name Kode Nama Satuan Harga. Type

amena-head
Download Presentation

Praktikum 10

An Image/Link below is provided (as is) to download presentation Download Policy: Content on the Website is provided to you AS IS for your information and personal use and may not be sold / licensed / shared on other websites without getting consent from its author. Content is provided to you AS IS for your information and personal use only. Download presentation by click this link. While downloading, if for some reason you are not able to download a presentation, the publisher may have deleted the file from their server. During download, if you can't get a presentation, the file might be deleted by the publisher.

E N D

Presentation Transcript


  1. Praktikum 10 1. Buatlah struktur table barang pada database Penjualan dengan menggunakan Visual Data Manager dengan format Microsoft Acces, yang terdiri dari empat field (Kode, Nama, Satuan, Harga ) dengan ketentuan sebagai berikut : Name Kode Nama Satuan Harga Type Text Text Text Single Size 6 30 5 - Simpan nama table : Barang 2. Buatlah tampilan form dengan ketentuan berikut : Objek Adodc Label1 Label2 Label3 Label4 Property Name Caption EOFAcction ConnectionString RecourdSource Name Caption Name Caption Name Caption Name Setting Property dbPembelian Data Barang 2-adDoAdNew Klik . . . Klik . . . LblKode Kode Barang LblNama Nama LblSatuan Satuan LblHarga Caption Harga http://www.mercubuana.ac.id

  2. Menampilkan Data dalam Bentuk Tabel Penanganan data dalam bentuk table sangatlah penting. Seperti dalam database manual, kebanyakan database diatur dalam bentuk table karena bentuk table memberikan beberapa keuntungan, antara lain dapat melihat beberapa record (baris) sekaligus dalam satu table dan lebih jelas keterkaitan serta urutan datanya. Sekarang kita akan membuat contoh pertama penanganan database dalam table. Untuk itu lakukan langkah berikut : 1. Buat satu form baru dengan menu File lalu New Project, lalu pilihlah VB Enterprise/Professional Edition Controls. 2. Tampilkan jendela form. 3. Klik ganda pada icon Data pada jendela Toolbox. 4. Atur property objek Data sebagai berikut : 5. Klik ganda icon DBGrid Controls pada jendela Toolbox. Jika tidak ada icon DBGrid, maka kita dapat menambahkannya melalui menu Project lalu Component (Ctrl+T) dan pilih Microsoft Data Bound Control. Setelah atur propertinya sebagai berikut : 6. http://www.mercubuana.ac.id

  3. 1. Tempatkan penunjuk mouse disebelah kiri record yang alan dihapus, sehingga penunjuk mouse berbentuk panah kanan tebal. 2. Klik agar satu baris (record) yang sekarang ditunjuk terpilih. 3. Tekan tombol Del atau Delete pada keyboard. 2 Menambah Fasilitas Pencarian Data Sekarang kita akan mencoba menambahkan fasilitas pencarian data pada program kita. Untuk lakukan langkah berikut. 1. Buka project program yang sudah kita buat. Kemudian tambahkan icon CommandButton1, CommandButton2, CommandButton3 pada form. 2. Ubah property Name menjadi Command1, Command2 dan Command3. 3. Ubah property Caption Command1 dengan tulisan Cari Nama, Command2 dengan tulisan Nama Berikutnya, Command3 dengan tulisan Selesai. 4. Tampilkan jendela editor kode program dan ketikkan kode program berikut ini : Dim MNama As String * 20 Private Sub Command1_Click() „jumlah karakter nama masukan Dim Panjang As String „cari panjang masukan data MNama Panjang = Len(Trim(MNama)) „cari data yang nama depannya sama dengan MNama Data1.Recordset.FindFirst “left(Nama,” + panjang + “) = „ “ + MNama + “ „ “ „jika pencarian nama harus lengkap, perintah „pencarian cukup di tulis : „Data1.Recordset.FindFirst “Nama = „ ” + MNama + “ „ “ If Data1.Recordset.NoMatch Then Response = MsgBox(“Data tidak ditemukan !”, 0, “Pencarian nama barang”) End If End Sub Private Sub Command2_Click() „jumlah karakter nama masukan Dim Panjang As String Panjang = Len(Trim(MNama)) „variabel MNama di level Form Data1.Recordset.FindNext “left(Nama,” + panjang + “) = „ “ + MNama + “ „ “ http://www.mercubuana.ac.id

More Related