tugas Tutorial program Visual basic

Document Sample
tugas Tutorial program Visual basic Powered By Docstoc
					        Tugas visual basic.
        Kelompok: muhammad yasid ramli (12094354)
                    Septian al rizky (12094344)


                          Tutorial program Visual basic.
        Ini adalah sebuah contoh sebagian kecil tentang program yang terkoneksi dengan database
        melalui software yang sudah tidak asing lagi kita dengar yaitu “microsoft”, disini database
        kita buat dengan microsoft acces dan pembuatan form menggunakan microsoft visual basic
        6.0 dengan nama program “Cafe Suka-suka”.

        Pembuatan Database.
        Database yang harus dibuat dalam cafe suka-suka terdiri dari 2 tabel yaitu menu dan
        transaksi.

        Tabel menu:




Primary
key untuk                                       Menentukan field size
kode paket.                                     dalam database.




        Dalam membuat tabel kita bisa mengubah field size sesuai kebutuhna kita setelah itu jangan
        sampai lupa memasang primary key pada kode paket dan 1 hal yang lebih penting dalam
        penulisan nama dalam database diharapkan jangan menggunakan spasi karena dapat
        menimbulkan kesalahan yang fatal dalam program yang menggunakan engine search yang
        akan kita buat.
Tabel transaksi:
Untuk tabel transaksi sama seperti dengan tabel menu diatas lihat gambar.




Untuk dalam tabel transaksi jangan heran karena field kode paket disni tidak primary key,
karena apa?itu hanya field sekunder dan berguna untuk pada saat kita koneksikan database
dengan form...




Pembuatan Form cafe suka-suka.

Objek                          Property                        nilai
Lebel1                         Caption                         Cafe suka-suka
Label2                         Caption                         Kode paket
Label3                         Caption                         Nama paket
Label4                         Caption                         Harga
Label5                         Caption                         No transaksi
Label6                         Caption                         Jumlah pesan
Label7                         Caption                         Total bayar
Datacombo1                     Name                            Datacombo1
                               Text                            Kosongkan
                  Row source       Adodc1
                  Liest field      kodepaket
Textbox1          Name             Nama
                  text             kosongkan
Textbox2          Name             Harga
                  text             kosongkan
Textbox3          Name             Nota
                  text             kosongkan
Textbox4          Name             Jumlah
                  Text             Kosongkan
Textbox5          Name             Total
                  Text             Kosongkan
Commandbutton1    Caption          Kosongkan
                  name             Awal
Commandbutton2    Caption          Kosongkan
                  name             Mundur
Commandbutton3    Caption          Kosongkan
                  name             Maju
Commandbutton4    Caption          Kosongkan
                  name             Akhir
Commandbutton5    Caption          Kosongkan
                  name             Tambah
Commandbutton6    Caption          Kosongkan
                  name             Simpan
Commandbutton7    Caption          Kosongkan
                  name             Hapus
Commandbutton8    Caption          Kosongkan
                  name             Keluar
Commandbutton9    Caption          Kosongkan
                  name             Cari
Flexigrid1        Name             Grid1
                  Data source      Adodc2
Adodc1            Name             Adodc1
                  Record source    Select*from menu
Adodc2            Name              Adodc2
                   Record source    Select*from transaksi
Commandbutton10   Name             Cr
                  Caption          kosongkan

Text6             Text             Kosongkan
                  Name             cari
                                                              Microsoft datalist controls
                                                              6.0(OLEDB)

Bentuk form cafe suka-suka



                                                                 Microsoft hierarchical flexigrid
                                                                 control 6.0(OLEDB)




                                                                     Microsoft Ado Data
                                                                     control
                                                                     6.0(OLEDB)




Untuk menampilkan komponen yang belum ada anda tinggal melihat dan mengikuti langkah-
lankah di gambar ini:




                                                              Arahkan kursor pada toolbox
                                                              lalu klik kanan.
                                                              Maka secara otomatis akan
                                                              muncul seperti pada gambar.
      Menampilkan kompenen semua komponen:




      Anda tinggal menandai komponen sesuai kebutuhan diatas atau yang anda ingin gunakan
      lainnya lalu tekan apply dan ok.

      Ini adalah cara mengkoneksikan adodc ke data base.
      Klik kanan pada adodc lalu pilih adodc properties OK.




                                                                                   Pilih        use
                                                                                   conetion
                                                                                   string      lalu
                                                                                   klik build.


Klik kanan
pada adodc..
Pada tab recordsource pada command type pilih 2-adcmdtext, ketikka listing perintah pada
command text sql untuk mengkoneksikan ke table “select *from transaksi” dan OK.




                                 Listing
                                 perintah
                                 coneksi pada
                                 tabel.




Dan jangan lupa mengkoneksikan grid1 dan datacombo di propertis yang terdapat pada form
dengan cara:
Datacombo1:
1.rowsource=adodc1.
2.listfield=kodepaket.
Grid1:
1datasource=adodc2.


Listting program:

Sub tampil()
DataCombo1.Text = Adodc2.Recordset!kodepaket
NAMA.Text = Adodc2.Recordset!namapaket
  HARGA.Text = Adodc2.Recordset!HARGA
  NOTA.Text = Adodc2.Recordset!NOTA
  JUMLAH.Text = Adodc2.Recordset!JUMLAH
  TOTAL.Text = Adodc2.Recordset!TOTAL
  Grid1.Refresh
End Sub

Sub bersih()
NAMA.Text = ""
HARGA = ""
NOTA = ""
JUMLAH = ""
TOTAL = ""
End Sub
Private Sub akhir_Click()
Adodc2.Recordset.MoveLast
Adodc2.Refresh
tampil
End Sub
Private Sub awal_Click()
Adodc2.Recordset.MoveFirst
MsgBox "Sudah di awal record", 48, "info"
Adodc2.Refresh

tampil
End Sub

Private Sub DataCombo1_Click(Area As Integer)
Adodc1.RecordSource = "select*from menu"
Adodc1.Recordset.MoveFirst
Do While Not Adodc1.Recordset.EOF
If DataCombo1.Text = Adodc1.Recordset!kodepaket Then
  NAMA.Text = Adodc1.Recordset!namapaket
  HARGA.Text = Adodc1.Recordset!HARGA
Exit Sub
End If
Adodc1.Recordset.MoveNext
Loop
End Sub
Private Sub DataCombo2_Click(Area As Integer)
End Sub

Private Sub Form_Load()
jam.Caption = Now()
End Sub

Private Sub HAPUS_Click()
If Len(Trim(DataCombo1.Text)) = "" Then
   Exit Subtrim
End If
pesan = MsgBox("Benar mo dihapus?", 32 + 4, "Tanya")
If pesan = vbYes Then
    Adodc2.Recordset.Delete
     End If
    Grid1.Refresh
     Adodc2.Refresh
     Adodc2.Refresh
   End Sub

Private Sub JUMLAH_Change()
TOTAL.Text = Val(HARGA.Text) * Val(JUMLAH.Text)
End Sub
Private Sub KELUAR_Click()
End
End Sub

Private Sub maju_Click()
Adodc2.Recordset.MoveNext
If Adodc2.Recordset.EOF Then
   MsgBox "Sudah di akhir record", 48, "info"
   Adodc2.Recordset.MoveLast
End If
Tampil
Adodc2.Refresh
End Sub

Private Sub mundur_Click()
Adodc2.Recordset.MovePrevious
If Adodc2.Recordset.BOF Then
   MsgBox "Sudah di awal record", 48, "info"
   Adodc2.Recordset.MoveFirst
End If
Adodc2.Refresh
tampil
End Sub

Private Sub SIMPAN_Click()
Adodc2.Recordset.AddNew
Adodc2.Recordset.Fields("nota") = NOTA.Text
Adodc2.Recordset.Fields("jumlah") = Val(JUMLAH.Text)
Adodc2.Recordset.Fields("total") = Val(TOTAL.Text)
Adodc2.Recordset.Fields("kodepaket") = DataCombo1.Text
Adodc2.Recordset.Fields("namapaket") = NAMA.Text
Adodc2.Recordset.Fields("harga") = Val(HARGA.Text)
Adodc2.Recordset.Update
MsgBox "DATA SUDAH TERSIMPAN", vbInformation, "INFO"
Adodc2.Refresh
End Sub

Private Sub TAMBAH_Click()
bersih
End Sub

Private Sub cr_Click()
If cari.Text = "" Then
MsgBox "Mohon data diinput terlebih dahulu", vbInformation, "pencarian"
Exit Sub
End If
With Adodc2.Recordset
.MoveFirst
.Find "nota=" & cari.Text & ""
If Not .EOF Then
MsgBox "nota" + cari.Text + "Ditemukan!", 32, "pencarian"
Else
MsgBox "nota" + cari.Text + "Tidak ada!!", 16, "kesalahan pencarian"
Adodc2.Recordset.MoveFirst
End If
End With

End Sub




                                       Ini adalah keadaan kosong atau
                                       baru akan menginput data.
Program pada saat dijalan kan.




Ini adalah tampilan pada saat program hendak menginput data baru semua dalam ke adaan
kosong dan aktif.
      Ini adalah pada saat kita akan menyimpam data yang disimpan di tabel transaksi maka akan
      muncul info seperti ini:
                                       Info pada saat
                                       akan
                                       menyimpan.                           Dan setelah kita tekan
                                                                            OK maka data akan
                                                                            tersimpan dalam tabel
                                                                            grid1.




                                                                      Setelah kita tekan ok maka data yang
                                                                      tadi tersimpan dengan sendirinya akan
      Ini contoh pada saat kita akan menghapus data.                  terhapus.
Maka     akan
mucul
pertanyaan
seperti    ini
dengan tanda
vb question..




      ini contoh pada saat kita ingin melihat data paling awal dan sebelum nya dengan tombol awal
      dan mundur.
                                                                                  Tombol ini berguna untuk mundur
                                                                                  satu dari data yang baru di input
                                                                                  dan jika kita sudah di awal data
                                                                                  maka akn ada pemberitahuan
Data akan langsung ke awal                                                        seperti ini sama seperti tombol
dan ada pemberitahuan                                                             awal.
seperti ini.




            ini contoh pada saat kita ingin melihat data selanjutnya dan data paling akhir dengan tombol
            maju dan akhir.
                                                                                Tombol ini pun sama seperti
  Tombol maju Sama                                                              tombol awal berguna untuk
  seperti dengan mundur                                                         melihat kedata yang paling
  Berguna untuk melihat                                                         akhir atau baru du input dan
  Data yang selanjutnya                                                         setelah diakhir record akan
  setelah kita diawal atau                                                      muncul info seperti ini
  di       data       lihat
  sebelumnya dan setelah
  di akhir maka kan
  mucul info sperti ini..




            Ini adalah contoh pada saat kita akan keluar program.
                                                               Maka akan muncul sebuah pertanyaan yang harus kita
                                                               pilih.. dan jika tekan yes maka kita keluar dari program.




            Ini adalah program saat dijalankan dalam pancarian nota...

Pada saat belum
input lalu kita tekan
“cari” maka akan
muncul       informasi
seperti ini.
      Dan setelah input no transaksi pada text box
      maka akan muncul informasi seperti
      menandakan bahwa data tersebut ada
      tersimpan dalam database.




Ini adlah contoh pada saat pencarian tidak ditemukan maka
akan muncul pemberitahuan seperti ini pada form.

				
DOCUMENT INFO
Shared By:
Stats:
views:272
posted:7/10/2012
language:Indonesian
pages:13
Description: contoh program visual basic