MuTiarawaTy

CARA MEMBUAT DATABASE DENGAN MENGGUNAKAN SQL

noreply@blogger.com (MuTiaRaWaTy BloG) — Mon, 6 Jun 2011 20:18:00 -0700

SQL merupakan sub bahasa pemograman yang khusus dipergunakan untuk memanipulasi basis data

Perintah-perintah dalam SQL bisa disebut dengan query.
Ada tiga sub perintah:
1. DDL -> Data Definition Language
2. DML -> Data Manipulation Language
3. DCL -> Data Control Language

1. Data Definition Language (DDL)

Perintah Dasar untuk membangun kerangka nya database, seperti:

a. CREATE : Perintah ini digunakan untuk membuat. Membuat database baru, view baru, kolom, dll.

b. ALTER : Perintah ini digunakan untuk mengubah strukturnya tabel yang sudah jadi sebelumnya.

c. DROP : Perintah ini digunakan untuk menghapus database dan tabel.

2. Data Manipulation Language (DML)
Ini adalah perintah untuk memanipulasi data dalam database yang sudah dibuat. Perintah-perintahnya

seperti :

a. INSERT : Perintah ini digunakan untuk menyisipkan atau memasukan databaru ke dalam tabel.

b. SELECT : Perintah ini digunakan untuk mengambil data atau menampilkan data dari suatu tabel.

c. UPDATE : Perintah ini digunakan untuk memperbarui data lama menjadi data baru.
d. DELETE : Perintah ini digunakan untuk menghapus data dari tabe

Pembuatan Database pada latihan kita ini menggunakan menggunakan SQLyog Enterprise sedikit berbeda jika membuat database SQL dengan menggunakan PhpMyadmin. Tetapi perintah-perinta SQL dasar yang diatas tetap digunakan. Kentungan database menggunakan SQLyog adalah pembuatan database bisa sekalian dengan pembuatan koneksinya dan satu keneksi bisa untuk banyak database atau juga hanya satu database tergantung dari user atau kegunaannya.

Namun walaupun sudah menggunakan atau mengenalkan koneksinya di SQLyog tapi untuk koneksi antara form dan database juga harus melakukan koneksi dengan menggunakan odbcad32.

DOWNLOAD CARA PEMBUATAN DATABASE

Flowchart Menu Barang

noreply@blogger.com (MuTiaRaWaTy BloG) — Wed, 30 Mar 2011 21:55:00 -0700

Flowchart adalah Diagram yang menunjukan alur data melalui program atau sistem penanganan informasi dan operasi-operasi yang dikenakan pada data pada titik-titik yang penting di sepanjang jalur. Flowchart menggunakan anotasi dan lambang, misalnya segi empat, belah ketupat dan oval, untuk menyatakan berbagai operasi. Garis dan ujung panah menghubungkan lambang-lambang tersebut untuk menunjukkan arah arus data dari satu titik ke titik lain. Sebagai diagram grafis yang menunjukkan program atau sistem lainnya, flowchart berguna sebagai sarana pembantu untuk menunjukkan bagaimana bekerjanya program yang diusulkan dan sebagai sarana untuk memahami operasi-operasi sebuah program.

Pada Kesempatan ini, saya memberikan contoh Flowchart dari Menu Barang.Logika yang ada pada menu barang adalah gambaran dari logika menu barang pada umumnya. Namun jika teman-teman ini berkreasi dengan logika program temen-temen sendiri maka sesuaikan gambaran flowchart temen-temen dengan program yang ada.

Download Flowchart

Visual Basic II (Lab B Pagi BSI Kramat 18) Form Pengguna

noreply@blogger.com (MuTiaRaWaTy BloG) — Fri, 25 Mar 2011 00:47:00 -0700

Download Materi Lengkap klik disini

Visual Basic II (Lab B Pagi BSI Kramat 18) Form Barang

noreply@blogger.com (MuTiaRaWaTy BloG) — Fri, 25 Mar 2011 00:43:00 -0700

Form Data Barang dengan Database Penjualan

Download Materi Lengkap klik disini

Materi Pemograman Visual II Pra UAS (Lengkap)

noreply@blogger.com (MuTiaRaWaTy BloG) — Mon, 13 Dec 2010 04:55:00 -0800

DOWNLOAD MATERI VERSI PDF

Data Karyawan (Pemograman Visual 2)

noreply@blogger.com (MuTiaRaWaTy BloG) — Mon, 13 Dec 2010 02:32:00 -0800

DOWNLOAD MATERI DISINI

Form Transaksi (Pemograman Visual 2)

noreply@blogger.com (MuTiaRaWaTy BloG) — Tue, 19 Oct 2010 21:21:00 -0700

Download Materi Versi PDF

Pemograman Visual 2 (Data Customer)

noreply@blogger.com (MuTiaRaWaTy BloG) — Tue, 12 Oct 2010 02:58:00 -0700

Download Materi Versi PDF

Pemograman Visual 2 (Pemograman Form Supplier)

noreply@blogger.com (MuTiaRaWaTy BloG) — Fri, 8 Oct 2010 02:30:00 -0700

DOWNLOAD MATERI VIA PDF

Pemograman Visual 2 (Form Barang)

noreply@blogger.com (MuTiaRaWaTy BloG) — Fri, 8 Oct 2010 02:27:00 -0700

DOWNLOAD MATERI VIA PDF

TUGAS QUIZ

noreply@blogger.com (MuTiaRaWaTy BloG) — Mon, 14 Jun 2010 19:17:00 -0700

Buat yang tidak bisa mengerjakan soal QUIS kerjakan soal ini paling lambat jam 14:00 Siang, di persentasikan gunakan laptop masing-masing

KLIK DISINI UNTUK TUGAS QUIS

Latihan Persiapan UAS - Resort

noreply@blogger.com (MuTiaRaWaTy BloG) — Thu, 10 Jun 2010 18:59:00 -0700

Untuk semua mahasiswa/i harap pelajari semua materi yang sudah diberikan. Untuk persiapan UAS silahkan kalian coba latihan dibawah ini, mudah-mudahan akan berguna untuk persiapan UAS kalian.

SELAMAT MENEMPUH UJIAN UAS

Download Latihan UAS

Latihan Persiapan UAS

noreply@blogger.com (MuTiaRaWaTy BloG) — Mon, 7 Jun 2010 23:08:00 -0700

Untuk semua mahasiswa/i harap pelajari semua materi yang sudah diberikan. Untuk persiapan UAS silahkan kalian coba latihan dibawah ini, mudah-mudahan akan berguna untuk persiapan UAS kalian.

SELAMAT MENEMPUH UJIAN UAS

Download Latihan UAS

Pengenalan ADODC (Toko Buku)

noreply@blogger.com (MuTiaRaWaTy BloG) — Sun, 6 Jun 2010 21:26:00 -0700

Visual Basic 6.0 adalah salah satu bahasa pemrograman yang telah menerapkan konsep RAD (Rapid Application Development) atau pengembangan aplikasi secara cepat, berbasis visual dan familiar bagi pengguna. Kini telah disertakan sebuah komponen object model, yaitu ADO (ActiveX Data Object) yang mampu menjembatani aplikasi yang dibuat dengan berbagai database melalui provider OLE DB.

contoh dari program yang menggunakan adodc

DOWNLOAD Versi PDF

Download Database Buku

PERHATIAN.....

noreply@blogger.com (MuTiaRaWaTy BloG) — Mon, 31 May 2010 01:11:00 -0700

Tugas Kelompok Pembuatan Database Versi lengkap.... masing-masing kelompok hanya beranggotakan 2 Orang. Konsep database bebas dan sederhana, hanya saja untuk diperhatikan programnya ini 1 Database dengan minimal table adalah 3 Table ( 1 Table master, 1 Table Transaksi dan 1 Table sementara ) dikarenakan transaksi yang terjadi harus ONE TO MANY (1 No Faktur untuk banyak Barang / Produk).
Project dikerjakan sesuai dengan materi yang terlah diberikan (boleh menggunakan Form Login, Menu Utama dan Report), kemudian program tersebut kalian burning dalam cd dan buat layout dalam bentuk peper.

Pada Tanggal 14 Juni 2010 sudah siap dipersentasikan di depan untuk nilai Tugas dan Quiz !!!......

Cara membuat Menu Utama dalam VB 6.0

noreply@blogger.com (MuTiaRaWaTy BloG) — Mon, 31 May 2010 01:03:00 -0700

Menu Utama dalam suatu program adalah menu penghantar dari jalannya suatu program. Menu utama terdapat sub-sub menu program yang berisikan form dari data-data yang ada dalam database. Di Visual basic 6.0 menu utama bisa dibuat menggunakan form biasa dan form MDIForm. hanya saja jika menggunkan MDI Form kalian tidak dapat memasukkan tulisan atau gambar pada form menu utama, hanya tampilan form saja dengan menu-menu yang ada diatasnya.

Download Cara Pembuatan Menu Utama Versi Word / PDF

Pembuatan Laporan pada Visual basic 6.0

noreply@blogger.com (MuTiaRaWaTy BloG) — Wed, 26 May 2010 23:07:00 -0700

Pembuatan Data Report adalah untuk melaporkan apa yang sudah tersimpan dalam database atau table. DataReport adalah suatu sistem aplikasi laporan yang sudah disediakan oleh Visual Basic 6.0. Semua data yang masuk kedalam sebuah table atau database oleh datareport akan dilaporkan.

DOWNLOAD VERSI WORD

Data Transaksi

noreply@blogger.com (MuTiaRaWaTy BloG) — Mon, 24 May 2010 00:17:00 -0700

Design Form

Download Versi Word

Form Customer

noreply@blogger.com (MuTiaRaWaTy BloG) — Tue, 18 May 2010 02:52:00 -0700

Baca Penuh >>>                                                                 <<< Kembali

Buat Table Customer :

Name    Type Size Keteranga
Kodecus        Text       6         PrimaryKey
Namacus     Text      30
Alamat           Text       35
Kota              Text       15
Telp               Text       15

Design Properties
Name                : DataCus
Databasename   : Cari Berdasarkan penyimpanan Database masing-masing
Recordset type : 1-dynaset
RecordSource   : Custumer
Visible              : False

Name             : DBgrid1
Caption          : Data Custumer
DataSource    : DataCus

Name                : FormCus
BorderStyle       : 1-Fixed Single
Caption             : Input Data Customer
Control Box    : False
StartupPosition : 2 - Center Screan

Name            : cmdtop
Caption         : Kosongkan
Picture          : c:\program file\Microsoft Visual Studio\Vft98\Graphics\top
Style             : 1 - Graphics
ToolTipText : Top

Name            : cmdprev

Caption         : Kosongkan

Picture          : c:\program file\Microsoft Visual Studio\Vft98\Graphics\top

Style             : 1 - Graphics

ToolTipText : Previous

Name            : cmdnext

Caption         : Kosongkan

Picture          : c:\program file\Microsoft Visual Studio\Vft98\Graphics\top

Style             : 1 - Graphics

ToolTipText : Next

Name            : cmdbottom

Caption         : Kosongkan

Picture          : c:\program file\Microsoft Visual Studio\Vft98\Graphics\top

Style             : 1 - Graphics

ToolTipText : Last

LISTING PROGRAM

Sub tampil()
Me.txtkode.Text = Me.DataCus.Recordset!kodecus
Me.txtnama.Text = Me.DataCus.Recordset!namacus
Me.txtalamat.Text = Me.DataCus.Recordset!alamat
Me.txttelp.Text = Me.DataCus.Recordset!telp
Me.ckota.Text = Me.DataCus.Recordset!kota
End Sub

Sub siapisi()
'objek berfungsi untuk siap isi
Me.txtkode.Enabled = True
Me.txtnama.Enabled = True
Me.txtalamat.Enabled = True
Me.ckota.Enabled = True
Me.txttelp.Enabled = True
End Sub

Sub tdksiapisi()
Me.txtkode.Enabled = False
Me.txtnama.Enabled = False
Me.txtalamat.Enabled = False
Me.ckota.Enabled = False
Me.txttelp.Enabled = False
End Sub

Sub bersih()
Me.txtkode.Text = ""
Me.txtnama.Text = ""
Me.txtalamat.Text = ""
Me.ckota.Text = ""
Me.txttelp.Text = ""
End Sub

Private Sub Form_Activate()
tdksiapisi
bersih
Me.cmdbatal.Enabled = False
Me.cmdsimpan.Enabled = False
Me.cmdedit.Enabled = False
Me.cmdupdate.Enabled = False
Me.cmdhapus.Enabled = False
End Sub

Private Sub Form_Load()
Me.ckota.AddItem "Jakarta"
Me.ckota.AddItem "Bandung"
Me.ckota.AddItem "Semarang"
Me.ckota.AddItem "Surabaya"
End Sub

Private Sub ckota_Click()
Me.txttelp.SetFocus
End Sub

Private Sub cmdbottom_Click()
Me.DataCus.Recordset.MoveLast
tampil
tdksiapisi
Me.cmdedit.Enabled = True
End Sub

Private Sub cmdnext_Click()
On Error Resume Next
Me.DataCus.Recordset.MoveNext
tampil
If Me.DataCus.Recordset.EOF Then
MsgBox "Sudah Akhir Record", 43, "Info"
Me.DataCus.Recordset.MoveLast
tampil
tdksiapisi
End If
Me.cmdedit.Enabled = True
End Sub

Private Sub cmdprev_Click()
On Error Resume Next
Me.DataCus.Recordset.MovePrevious
tampil
If Me.DataCus.Recordset.BOF Then
MsgBox "Sudah di awal record", 64, "Info"
Me.DataCus.Recordset.MoveFirst
tampil
tdksiapisi
End If
Me.cmdedit.Enabled = True
End Sub

Private Sub cmdtop_Click()
Me.DataCus.Recordset.MoveFirst
tampil
tdksiapisi
Me.cmdedit.Enabled = True
End Sub

Private Sub cmdtambah_Click()
'Membuat Data Baru
Me.DataCus.Recordset.AddNew
siapisi
bersih
Me.txtkode.SetFocus
'Mengaktifkan Tombol
Me.cmdbatal.Enabled = True
Me.cmdsimpan.Enabled = True
Me.cmdkeluar.Enabled = False
Me.cmdtambah.Enabled = False
End Sub

Private Sub cmdsimpan_Click()
'Menyimpan Data dalam database
Me.DataCus.Recordset.AddNew
Me.DataCus.Recordset!kodecus = Me.txtkode.Text
Me.DataCus.Recordset!namacus = Me.txtnama.Text
Me.DataCus.Recordset!alamat = Me.txtalamat.Text
Me.DataCus.Recordset!kota = Me.ckota.Text
Me.DataCus.Recordset!telp = Me.txttelp.Text
Me.DataCus.Recordset.Update
'Mengaktifkan Tombol
Me.cmdbatal.Enabled = False
Me.cmdsimpan.Enabled = False
Me.cmdkeluar.Enabled = True
Me.cmdtambah.Enabled = True
'memanggil Prosedur
tdksiapisi
bersih
End Sub

Private Sub DBGrid1_Click()
If Me.DataSup.Recordset.RecordCount > 0 Then
Me.txtkode.Text = Me.DataCus.Recordset!kodesup
Me.txtnama.Text = Me.DataCus.Recordset!namasup
Me.txtalamat.Text = Me.DataCus.Recordset!alamat
Me.ckota.Text = Me.DataCus.Recordset!kota
Me.txttelp.Text = Me.DataCus.Recordset!telp
End If
tdksiapisi
Me.cmdedit.Enabled = True
Me.cmdhapus.Enabled = True
Me.cmdtambah.Enabled = False
Me.cmdbrowse.Enabled = False
End Sub

Private Sub cmdedit_Click()
'mengaktifkan textbox
Me.txtnama.Enabled = True
Me.txtalamat.Enabled = True
Me.ckota.Enabled = True
Me.txttelp.Enabled = True
'mentidakaktifkan commbobox
Me.cmdtambah.Enabled = False
Me.cmdhapus.Enabled = False
Me.cmdedit.Enabled = False
'mengaktifkan tombol
Me.cmdupdate.Enabled = True
End Sub
Private Sub cmdupdate_Click()
'Menyimpan Perubahan Data dalam database
Me.DataCus.Recordset.Edit
Me.DataCus.Recordset!namacus = Me.txtnama.Text
Me.DataCus.Recordset!alamat = Me.txtalamat.Text
Me.DataCus.Recordset!kota = Me.ckota.Text
Me.DataCus.Recordset!telp = Me.txttelp.Text
Me.DataCus.Recordset.Update
tdksiapisi
bersih
'Aktif Tombol
Me.cmdtambah.Enabled = True
End Sub

Private Sub cmdbatal_Click()
tdksiapisi
bersih
Me.cmdbatal.Enabled = False
Me.cmdkeluar.Enabled = True
Me.cmdtambah.Enabled = True
Me.cmdsimpan.Enabled = False
End Sub

Private Sub cmdhapus_Click()
'perintah menghapus record data
Dim A As Byte
A = MsgBox(" Betul akan dihapus ?", vbOKCancel, "mengahapus record")
If X = vbOK Then
Me.DataCus.Recordset.Delete
   Me.DataCus.Recordset.MoveNext
   If Me.DataCus.Recordset.EOF Then
        Me.DataCus.Recordset.MoveLast
    End If
End If
bersih
tdksiapisi
End Sub

Private Sub cmdkeluar_Click()
Unload Me
End Sub

Private Sub txtalamat_KeyPress(KeyAscii As Integer)
'untuk membuat huruf otomatis Caps Lock
KeyAscii = Asc(UCase(Chr(KeyAscii)))
If KeyAscii = 13 Then
Me.ckota.SetFocus
End If
End Sub

Private Sub txtkode_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr(KeyAscii)))
If KeyAscii = 13 Then
        CARI = "kodecus='" & Me.txtkode.Text & "'"
        Me.DataCus.Recordset.FindFirst CARI
        If Me.DataCus.Recordset.NoMatch Then
          Me.txtnama.SetFocus
          Else
              MsgBox "Kode yang anda input sudah ada", 0, "Informasi"
            Me.txtkode.SetFocus
            Me.txtkode.Text = ""
           End If
End If
End Sub

Private Sub txtkota_KeyPress(KeyAscii As Integer)
'untuk membuat huruf otomatis Caps Lock
KeyAscii = Asc(UCase(Chr(KeyAscii)))
If KeyAscii = 13 Then
Me.txttelp.SetFocus
End If
End Sub

Private Sub txtnama_KeyPress(KeyAscii As Integer)
'untuk membuat huruf otomatis Caps Lock
KeyAscii = Asc(UCase(Chr(KeyAscii)))
If KeyAscii = 13 Then
Me.txtalamat.SetFocus
End If
End Sub

Private Sub txttelp_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Me.cmdsimpan.SetFocus
End If
End Sub

Download Versi Word

Input Data Supplier

noreply@blogger.com (MuTiaRaWaTy BloG) — Fri, 14 May 2010 02:50:00 -0700

Baca Selengkapnya >>> <<< Kembali

Design Form

Atur Properties :

Name                  : DataSup
Databasename   : <>
Recordset Type : 0 - Table
RecordSource    : Supplier
Visible               : False

Name                : DbGrid1
DataSource      : DataSup

Listing Program

' Pencarian data atau record dengan method seek
Dim Mkodesup As String * 6

Sub siapisi()
'objek berfungsi untuk siap isiMe.txtkode.Enabled = True
Me.txtnama.Enabled = True
Me.txtalamat.Enabled = True
Me.txtkota.Enabled = True
Me.txttelp.Enabled = True
End Sub

Sub tdksiapisi()Me.txtkode.Enabled = False
Me.txtnama.Enabled = False
Me.txtalamat.Enabled = False
Me.txtkota.Enabled = False
Me.txttelp.Enabled = False
End Sub

Sub bersih()Me.txtkode.Text = ""
Me.txtnama.Text = ""
Me.txtalamat.Text = ""
Me.txtkota.Text = ""
Me.txttelp.Text = ""
End Sub

Private Sub cmdbatal_Click()tdksiapisi
bersih
Me.cmdbatal.Enabled = False
Me.cmdkeluar.Enabled = True
Me.cmdtambah.Enabled = True
Me.cmdsimpan.Enabled = False
End Sub

Private Sub cmdbrowse_Click()
' Jumlah karakter nama masukanDim panjang As String
Mkodesup = InputBox(" Ketik Kode Suplier :")

' Cari data yang kode barangnya sama dengan MKodebrgMe.DataSup.Recordset.Seek "=", Mkodesup
If Me.DataSup.Recordset.NoMatch Then
Response = MsgBox("data Tidak Ditemukan!", vbInformation, "Pencarian Kode Supplier")
End If
End Sub

Private Sub cmdedit_Click()
'mengaktifkan textboxMe.txtnama.Enabled = True
Me.txtalamat.Enabled = True
Me.txtkota.Enabled = True
Me.txttelp.Enabled = True

'mentidakaktifkan commboboxMe.cmdtambah.Enabled = False
Me.cmdhapus.Enabled = False
Me.cmdbrowse.Enabled = False
Me.cmdedit.Enabled = False

'mengaktifkan tombolMe.cmdupdate.Enabled = True
End Sub

Private Sub cmdhapus_Click()
'perintah menghapus record dataDim X As Byte
X = MsgBox(" Betul akan dihapus ?", vbOKCancel, "mengahapus record")
If X = vbOK Then
Me.DataSup.Recordset.Delete
   Me.DataSup.Recordset.MoveNext
   If Me.DataSup.Recordset.EOF Then
        Me.DataSup.Recordset.MoveLast
    End If
End If
bersih
tdksiapisi
End Sub

Private Sub cmdkeluar_Click()Unload Me
End Sub

Private Sub cmdsimpan_Click()
'Menyimpan Data dalam databaseMe.DataSup.Recordset.AddNew
Me.DataSup.Recordset!kodesup = Me.txtkode.Text
Me.DataSup.Recordset!namasup = Me.txtnama.Text
Me.DataSup.Recordset!alamat = Me.txtalamat.Text
Me.DataSup.Recordset!kota = Me.txtkota.Text
Me.DataSup.Recordset!telepon = Me.txttelp.Text
Me.DataSup.Recordset.Update

'Mengaktifkan TombolMe.cmdbatal.Enabled = False
Me.cmdsimpan.Enabled = False
Me.cmdkeluar.Enabled = True
Me.cmdtambah.Enabled = True

'memanggil Prosedurtdksiapisi
bersih
End Sub

Private Sub cmdtambah_Click()
'Membuat Data BaruMe.DataSup.Recordset.AddNew
siapisi
bersih
Me.txtkode.SetFocus

'Mengaktifkan TombolMe.cmdbatal.Enabled = True
Me.cmdsimpan.Enabled = True
Me.cmdkeluar.Enabled = False
Me.cmdtambah.Enabled = False
End Sub

Private Sub csatuan_Click()Me.txtharga.SetFocus
End Sub

Private Sub cmdupdate_Click()
'Menyimpan Perubahan Data dalam databaseMe.DataSup.Recordset.Edit
Me.DataSup.Recordset!namasup = Me.txtnama.Text
Me.DataSup.Recordset!alamat = Me.txtalamat.Text
Me.DataSup.Recordset!kota = Me.txtkota.Text
Me.DataSup.Recordset!telepon = Me.txttelp.Text
Me.DataSup.Recordset.Update

tdksiapisi
bersih

'Aktif TombolMe.cmdtambah.Enabled = True
Me.cmdbrowse.Enabled = True
End Sub

Private Sub DBGrid1_Click()
'Untuk Menampikan Field DbGrid ke Form
If Me.DataSup.Recordset.RecordCount > 0 Then
Me.txtkode.Text = Me.DataSup.Recordset!kodesup
Me.txtnama.Text = Me.DataSup.Recordset!namasup
Me.txtalamat.Text = Me.DataSup.Recordset!alamat
Me.txtkota.Text = Me.DataSup.Recordset!kota
Me.txttelp.Text = Me.DataSup.Recordset!telepon
End If

tdksiapisi

Me.cmdedit.Enabled = True
Me.cmdhapus.Enabled = True

Me.cmdtambah.Enabled = False
Me.cmdbrowse.Enabled = False
End Sub

Private Sub Form_Activate()tdksiapisi
bersih
Me.cmdbatal.Enabled = False
Me.cmdsimpan.Enabled = False
Me.cmdedit.Enabled = False
Me.cmdupdate.Enabled = False
Me.cmdhapus.Enabled = False
'Mengaktifkan Index Kode Barang
Mkodesup = ""
Me.DataSup.Recordset.Index = "Kodesup"
End Sub

Private Sub txtalamat_KeyPress(KeyAscii As Integer)If KeyAscii = 13 Then
Me.txtkota.SetFocus
End If
End Sub

Private Sub txtkode_KeyPress(KeyAscii As Integer)If KeyAscii = 13 Then
Me.txtnama.SetFocus
End If
End Sub

Private Sub txtkota_KeyPress(KeyAscii As Integer)If KeyAscii = 13 Then
Me.txttelp.SetFocus
End If
End Sub

Private Sub txtnama_KeyPress(KeyAscii As Integer)If KeyAscii = 13 Then
Me.txtalamat.SetFocus
End If
End Sub

Private Sub txttelp_KeyPress(KeyAscii As Integer)If KeyAscii = 13 Then
Me.cmdsimpan.SetFocus
End If
End Sub

DOWNLOAD VERSI WORD

INPUT DATA BARANG

noreply@blogger.com (MuTiaRaWaTy BloG) — Fri, 14 May 2010 02:32:00 -0700

Baca Selangkapnya >>> <<< Kembali

Desaign Form

Atur Properties

Name                : DataBarang
Databasename   : <>
Recordset Type : 0 - Table
RecordSource   : Barang
Visible               : False

Listing Program

Sub siapisi()
'objek berfungsi untuk siap isi
Me.txtkode.Enabled = True
Me.txtnama.Enabled = True
Me.csatuan.Enabled = True
Me.txtharga.Enabled = True
Me.txtstock.Enabled = True
End Sub
Sub tdksiapisi()Me.txtkode.Enabled = False
Me.txtnama.Enabled = False
Me.csatuan.Enabled = False
Me.txtharga.Enabled = False
Me.txtstock.Enabled = False
End Sub

Sub bersih()Me.txtkode.Text = ""
Me.txtnama.Text = ""
Me.csatuan.Text = "Silahkan Pilih"
Me.txtharga.Text = ""
Me.txtstock.Text = ""
End Sub

Private Sub cmdbatal_Click()tdksiapisi
bersih
Me.cmdbatal.Enabled = False
Me.cmdkeluar.Enabled = True
Me.cmdtambah.Enabled = True
Me.cmdsimpan.Enabled = False
End Sub

Private Sub cmdbrowse_Click()Frmbrowse.Show
Frminputdata.Hide
End Sub

Private Sub cmdkeluar_Click()Unload Me
End Sub

Private Sub cmdsimpan_Click()'Menyimpan Data dalam database
Me.DataBarang.Recordset.AddNew
Me.DataBarang.Recordset!kodebrg = Me.txtkode.Text
Me.DataBarang.Recordset!namabrg = Me.txtnama.Text
Me.DataBarang.Recordset!satuan = Me.csatuan.Text
Me.DataBarang.Recordset!harga = Me.txtharga.Text
Me.DataBarang.Recordset!stock = Me.txtstock.Text
Me.DataBarang.Recordset.Update
'Mengaktifkan Tombol
Me.cmdbatal.Enabled = False
Me.cmdsimpan.Enabled = False
Me.cmdkeluar.Enabled = True
Me.cmdtambah.Enabled = True
'memanggil Prosedur
tdksiapisi
bersih
End Sub

Private Sub cmdtambah_Click()
'Membuat Data Baru
Me.DataBarang.Recordset.AddNew
siapisi
bersih
Me.txtkode.SetFocus
'Mengaktifkan Tombol
Me.cmdbatal.Enabled = True
Me.cmdsimpan.Enabled = True
Me.cmdkeluar.Enabled = False
Me.cmdtambah.Enabled = False
End Sub

Private Sub csatuan_Click()Me.txtharga.SetFocus
End Sub

Private Sub Form_Activate()tdksiapisi
bersih
Me.cmdbatal.Enabled = False
Me.cmdsimpan.Enabled = False
End Sub

Private Sub Form_Load()Me.csatuan.AddItem "Pack"
Me.csatuan.AddItem "Lusin"
Me.csatuan.AddItem "Rim"
End Sub

Private Sub txtharga_KeyPress(KeyAscii As Integer)If KeyAscii = 13 Then
Me.txtstock.SetFocus
End If
End Sub

Private Sub txtkode_KeyPress(KeyAscii As Integer)If KeyAscii = 13 Then
Me.txtnama.SetFocus
End If
End Sub

Private Sub txtnama_KeyPress(KeyAscii As Integer)If KeyAscii = 13 Then
Me.csatuan.SetFocus
End If
End Sub

DOWNLOAD VERSI WORD

Form Browse Barang (Lanjutan dari Form Input Barang )

noreply@blogger.com (MuTiaRaWaTy BloG) — Fri, 14 May 2010 02:12:00 -0700

Baca Selengkapnya >>> <<< Kembali

Design Form

Atur Properties :

Name                  : DataBarang
Databasename     : <>
Recordset Type   : 0 - Table
RecordSource     : Barang
Visible                 : False

Name               : DbGrid1
DataSource      : Data Barang

Name    : Cmdcari
Caption : &Cari

Name    : CmdKeluar

Caption : &Keluar

Listing Program

' Pencarian data atau record dengan method seek
Dim Mkodebrg As String * 6

Private Sub Cmdcari_Click()
' Jumlah karakter nama masukan
Dim panjang As String
Mkodebrg = InputBox(" Ketik Kode Barang :")
' Cari data yang kode barangnya sama dengan MKodebrg
Me.DataBarang.Recordset.Seek "=", Mkodebrg
If Me.DataBarang.Recordset.NoMatch Then
Response = MsgBox("data Tidak Ditemukan!", vbInformation, "Pencarian Kode Barang")
End If
End Sub

Private Sub cmdkeluar_Click()
Unload Me
'Memanggil Form Input barang
Frminputdata.Show
End Sub

Private Sub Form_Activate()
'Mengaktifkan Index Kode BarangMkodebrg = ""
DataBarang.Recordset.Index = "Kodebrg"
End Sub

Gambar Form Run

Contoh Program ARRAY

noreply@blogger.com (MuTiaRaWaTy BloG) — Mon, 19 Apr 2010 21:26:00 -0700

Untuk Checkbox silahkan kalian Copy kemudian jika ada messegebox pada saat Paste, kalian pilih YES

Nanti pada Propertisnya :
Check1(0) = Aneka Jus     = Rp.   5.000,-
Check1(1) = Aneka Jamu = Rp. 10.000,-
Check1(2) = Aneka Teh    = Rp.   4.000,-

Listing Program :

Private Sub Check1_Click(Index As Integer)
If Check1(0) = 1 And Check1(1) = 1 And Check1(2) = 1 Then
    Me.txtharga = 19000
Else
If Check1(0) = 1 And Check1(1) = 1 Then
    Me.txtharga = 15000
Else
If Check1(0) = 1 And Check1(2) = 1 Then
    Me.txtharga = 9000
Else
If Check1(1) = 1 And Check1(2) = 1 Then
    Me.txtharga = 14000
Else
If Check1(0) = 1 Then
    Me.txtharga = 5000
Else
If Check1(1) = 1 Then
    Me.txtharga = 10000
Else
If Check1(2) = 1 Then
    Me.txtharga = 4000
Else
If Check1(0) = 0 And Check1(1) = 0 And Check1(2) = 0 Then
    Me.txtharga = 0
End If
End Sub

Array

noreply@blogger.com (MuTiaRaWaTy BloG) — Sun, 18 Apr 2010 22:09:00 -0700

Baca Penuh >>> <<< Kembali

Array yang sedang kita bahas ini merupakan array dari variabel, yang dideklarasikan di dalam kode Anda. Array ini berbeda dari array yang berlaku pada control (control array) yang dapat Anda buat dengan mengeset nilai property Index milik suatu control pada saat design-time. Variabel array selalu berdampingan; tidak seperti control array, Anda tidak dapat memuat dan membebaskan elemen-elemen dari tengah-tengah array.

Semua elemen di array memiliki tipe data yang sama. Tentu saja, ketika tipe datanya Variant, elemen-elemen secara individu dapat mengandung jenis data yang berbeda (object, String, angka, dan sebagainya). Anda dapat mendeklarasikan sebuah array dari tipe data umum, termasuk user-defined types dan object variables (akan kita bahas pada artikel yang lainnya).

Di Visual Basic, terdapat dua jenis array, yaitu:

Array dengan ukuran tetap, yang selalu memiliki ukuran yang sama,
Array Dinamis (dynamic array), yang ukurannya dapat diganti pada saat run-time.

Mendeklarasikan Array yang Berukuran Tetap

Ada tiga cara mendeklarasikan array yang berukuran tetap, tergantung pada ruang lingkup yang Anda inginkan untuk array tersebut:

Untuk membuat sebuah array public, gunakan pernyataan Public di bagian pendeklarasian dari module untuk mendeklarasikan array tersebut.
Untuk membuat array level module, gunakan pernyataan Private di bagian pendeklarasian dari module untuk mendeklarasikan array tersebut.
Untuk membuat sebuah array level local, gunakan pernyataan Private di dalam sebuah procedure untuk mendeklarasikan array tersebut.

Menentukan Batas Bawah dan Batas Akhir

Untuk mendeklarasikan sebuah array, ikuti nama array dengan batas teratas yang diapit oleh tanda kurung. Batas teratas tidak boleh melewati range dari sebuah tipe data Long (-2,147,483,648 sampai dengan 2,147,483,647). Sebagai contoh, pendeklarasian array-array berikut berada pada bagian pendeklarasian dari sebuah module:

Dim Counters(14) As Integer         ' 15 elemen.Dim Sums(20) As Double            ' 21 elemen.

Untuk membuat sebuah array public, cukup ganti kata Dim menjadi Public:

Public Counters(14) As Integer
Public Sums(20) As Double

Pendeklarasian yang sama di dalam sebuah procedure, gunakan kata Dim:

Dim Counters(14) As Integer
Dim Sums(20) As Double

Pendeklarasian pertama membuat sebuah array dengan 15 elemen, dengan nomor index dimulai dari 0 sampai 14. Pendeklarasian kedua membuat sebuah array dengan 21 elemen, dengan nomor index dimulai dari 0 sampai 20.

Default batas terbawah array adalah 0. Untuk menentukan nilai batas bawah tertentu, gunakan secara eksplisit (sebagai tipe data Long) dengan menggunakan kata kunci To:

Dim Counters(1 To 15) As Integer
Dim Sums(100 To 120) As String

Pada pendeklarasian pertama, nomor index dari Counters dimulai dari 1 sampai 15, dan nomor index dari Sums dimulai dari 100 sampai 120.

Jika Anda ingin agar setiap index batas terbawah tidak selalu dimulai dari nol tapi dimulai dari satu, maka cukup tambahkan di bagian paling atas atau di bagian pendeklarasian dari sebuah module, pernyataan berikut:

Option Base 1

Contoh berikut akan menunjukkan kepada Anda bagaimana menggunakan pernyataan Option Base 1:

'Setiap variabel harus dideklarasikan terlebih duluOption Explicit
'Setiap array index terbawah harus dimulai dengan 1Option Base 1 
 
Private Sub Form_Load()
  Dim a(10)
  Dim i As Integer
  For i = 1 To 10
    a(i) = i
    MsgBox a(i)
  Next i
End Sub

Pada contoh tersebut, array a memiliki 10 elemen yang dimulai dari index 1 (bukan 0) sampai dengan 10. Mengapa dimulai dari 1? Karena di bagian pendeklarasian sudah dinyatakan dengan Option Base 1 yang artinya batas terbawah dari array dimulai dengan 1.

Array yang Mengandung Array yang Lain

Sangat memungkinkan untuk membuat sebuah array yang tipe datanya berjenis Variant, lalu mengisinya dengan array lain yang memiliki tipe data yang berbeda. Kode berikut ini akan membuat dua buah array, yang satu mengandung Integer dan yang lainnya mengandung String. Setelah itu, mendeklarasikan sebuah array ketiga yang bertipe Variant, dan mengisinya dengan array Integer dan array String tadi.

Private Sub Command1_Click()
  ' Deklarasi variabel counter.  Dim intX As Integer
 
  ' Deklarasi dan isi sebuah array Integer.  Dim countersA(5) As Integer
  For intX = 0 To 4
    countersA(intX) = intX
    MsgBox countersA(intX)
  Next intX
 
  ' Deklarasi dan isi sebuah array String.  Dim countersB(5) As String
  For intX = 0 To 4
    countersB(intX) = "hello-" & intX
    MsgBox countersB(intX)
  Next intX
 
  ' Deklarasi array dengan dua elemen.  Dim arrX(2) As Variant
 
  ' Isi array dengan array lain.  arrX(1) = countersA()
  arrX(2) = countersB()
 
  ' Tampilkan anggota index ke-2 dari array pertama.  MsgBox arrX(1)(2)
 
  ' Tampilkan anggota index ke-3 dari array kedua.  MsgBox arrX(2)(3)
End Sub

Seperti yang sudah kita bahas di awal artikel ini, array memiliki batas terbawah dan batas teratas, yang masing-masing disebut dengan lower dan upper bound. Anda bisa menampilkan nilai dari elemen batas terbawah dan teratas tadi masing-masing dengan menggunakan pernyataan LBound dan UBound.

Dari contoh di sebelumnya, maka untuk menampilkan batas terbawah dan teratas dari array yang bernama

countersB, maka kodenya adalah:

MsgBox "LBound = " & LBound(countersB)
  MsgBox "UBound = " & UBound(countersB)

Array Multidimensional

Kadang-kadang Anda ingin menyimpan jejak dari informasi yang terkait dalam sebuah array. Sebagai contoh, untuk menyimpan jejak dari setiap pixel di layar komputer Anda, Anda perlu mengaitkan ke koordinat X dan Y. Hal ini dapat dilakukan dengan menggunakan sebuah array multidimensional untuk menyimpan nilai-nilai tersebut.

Dengan Visual Basic, Anda dapat mendeklarasikan array yang multi-dimensi. Sebagai contoh, pernyataan berikut mendeklarasikan sebuah array dua dimensi 10-kali-10 di dalam sebuah procedure:

Static MatrixA(9, 9) As Double

Untuk kedua dimensi tersebut, dapat dideklarasikan dengan batas bawah secara eksplisit:

Static MatrixA(1 To 10, 1 To 10) As Double

atau jika Anda ingin menggunakan index 0 untuk batas terbawah:

Static MatrixA(0 To 9, 0 To 9) As Double

Anda dapat memperluas array tersebut sehingga lebih besar dari dua dimensi.

Sebagai contoh:

Dim MultiD(3, 1 To 10, 1 To 15)

Pendeklarasian ini membuat sebuah array yang memiliki tiga dimensi dengan ukuran: 4 kali 10 kali 15. Total jumlah elemen hasil dari array tiga dimensi ini, menjadi = 600 (4 x 10 x 15).

Ketika Anda mulai menambahkan dimensi ke sebuah array, total penyimpanan yang dibutuhkan oleh array naik secara dramatis. Oleh karena itu, gunakanlah array multidimensional dengan hati-hati. Khususnya juga dengan array Variant, karena lebih besar daripada tipe data lainnya.

Penggunaan Loop untuk Memanipulasi Array

Anda dapat memproses sebuah array multidimensional dengan efisien menggunakan perulangan (loop) For … Next. Sebagai contoh, pernyataan-pernyataan berikut menginisialisasi setiap elemen di MatrixA dengan nilai berdasarkan pada lokasinya di dalam array:

Dim I As Integer, J As Integer
Static MatrixA(1 To 10, 1 To 10) As Double
For I = 1 To 10
   For J = 1 To 10
      MatrixA(I, J) = I * 10 + J
   Next J
Next I

Tugas 1

noreply@blogger.com (MuTiaRaWaTy BloG) — Sun, 18 Apr 2010 20:06:00 -0700

TUGAS VB INDIVIDU

Lihat Penuh >> > <<< Kembali
Design Form

Ketentuan Program :

Buat Prosedur Aktif, Tidak aktif dan Bersih, kemudian panggil setiap prosedur tersebut didalam form kalian sesuai dengan logika kalian masing-masing.
NIP 200803171 Purna Indra Sari, 2009771 Dwiyanto Edi, 2009668 Selvi Kurniawati, selain itu jika dimasukkan nip yang lain akan keluar "NIP Tidak diKenal" pada textbox nama karyawan.
Kode DR untuk Direktur, MG untuk Manajer, ST untuk Staff
Direktur Gapok = Rp. 3.000.000 Tunj. Jabatan 5% * Gapok, Tunj. Istri 5%* Gapok, Manajer Gapok = Rp. 2.250.000,- Tunj. Jabatan 5%* Gapok, Tunj. Istri 3%* Gapok, Staff Gapok = Rp. 1.850.00, Tunj. jabatan Tidak ada dan Tunj. Istri 2%* Gapok.
Input Jumlah Anak
Tunj. Anak : Jika anak <=3 maka Jumlah anak * Rp. 150.000, Namun jika jumlah anak >= 3 maka tunjangan anak = 3 * Rp. 150.000,-
Proses = Gapok + Tunj. Jabatan + Tunj. Istri + Tunj. Anak

Listing Program :

Private Sub bersih()
Me.txtnip.Text = ""
Me.txtnama.Text = ""
Me.cbojabatan.Text = "Silahkan Pilih"
Me.txtjabatan.Text = ""
Me.txtgapok.Text = ""
Me.txttunjjabatan.Text = ""
Me.txttunjistri.Text = ""
Me.txtanak.Text = ""
Me.txttunjanak.Text = ""
Me.txttotal.Text = ""
End Sub

Private Sub tidakaktif()
Me.txtnip.Enabled = False
Me.txtnama.Enabled = False
Me.txtjabatan.Enabled = False
Me.cbojabatan.Enabled = False
Me.txtgapok.Enabled = False
Me.txtjabatan.Enabled = False
Me.txttunjjabatan.Enabled = False
Me.txttunjistri.Enabled = False
Me.txttunjanak.Enabled = False
Me.txtanak.Enabled = False
Me.txtnip.BackColor = vbInactiveBorder
Me.txtnama.BackColor = vbInactiveBorder
Me.cbojabatan.BackColor = vbInactiveBorder
Me.txtjabatan.BackColor = vbInactiveBorder
Me.txtgapok.BackColor = vbInactiveBorder
Me.txttunjjabatan.BackColor = vbInactiveBorder
Me.txttunjistri.BackColor = vbInactiveBorder
Me.txttunjanak.BackColor = vbInactiveBorder
Me.txtanak.BackColor = vbInactiveBorder
Me.txttotal.BackColor = vbInactiveBorder
End Sub

Private Sub Aktif()
Me.txtnip.Enabled = True
Me.txtnama.Enabled = True
Me.txtjabatan.Enabled = True
Me.cbojabatan.Enabled = True
Me.txtgapok.Enabled = True
Me.txtjabatan.Enabled = True
Me.txttunjjabatan.Enabled = True
Me.txttunjistri.Enabled = True
Me.txtanak.Enabled = True
Me.txttunjanak.Enabled = True
Me.txtnip.BackColor = vbWhite
Me.txtnama.BackColor = vbWhite
Me.cbojabatan.BackColor = vbWhite
Me.txtjabatan.BackColor = vbWhite
Me.txtgapok.BackColor = vbWhite
Me.txttunjjabatan.BackColor = vbWhite
Me.txttunjistri.BackColor = vbWhite
Me.txttunjanak.BackColor = vbWhite
Me.txttotal.BackColor = vbWhite
Me.txtanak.BackColor = vbWhite
End Sub

Private Sub cbojabatan_Click()
If Me.cbojabatan.Text = "DR" Then
Me.txtjabatan.Text = "Direktur"
Me.txtgapok.Text = 4000000
Me.txttunjjabatan.Text = 0.05 * Val(Me.txtgapok)
Me.txttunjistri.Text = 0.1 * Val(Me.txtgapok)
Else
If Me.cbojabatan.Text = "MG" Then
Me.txtjabatan.Text = "Manager"
Me.txtgapok.Text = 3000000
Me.txttunjjabatan.Text = 0.05 * Val(Me.txtgapok)
Me.txttunjistri.Text = 0.1 * Val(Me.txtgapok)
Else
If Me.cbojabatan.Text = "SV" Then
Me.txtjabatan.Text = "Supervisor "
Me.txtgapok.Text = 2500000
Me.txttunjjabatan.Text = 0.05 * Val(Me.txtgapok)
Me.txttunjistri.Text = 0.1 * Val(Me.txtgapok)
Else
Me.txtjabatan.Text = "Staff"
Me.txtgapok.Text = 1500000
Me.txttunjjabatan.Text = 0.05 * Val(Me.txtgapok)
Me.txttunjistri.Text = 0.1 * Val(Me.txtgapok)
End If
End If
End If
Me.txtjabatan.Enabled = False
Me.txtgapok.Enabled = False
Me.txttunjjabatan.Enabled = False
Me.txttunjistri.Enabled = False
Me.txtanak.SetFocus
End Sub

Private Sub CmdKeluar_Click()
PESAN = MsgBox("Yakin Akan Keluar ??/.....", vbYesNo, "QUIS VISUAL BASIC")
If PESAN = vbYes Then
End
End If
End Sub

Private Sub cmdlagi_Click()
Call bersih
Call tidakaktif
Me.CmdTambah.SetFocus
End Sub

Private Sub cmdproses_Click()
Me.txttotal.Text = Val(Me.txtgapok.Text) + Val(Me.txttunjjabatan.Text) + Val(Me.txttunjistri.Text) + Val(Me.txttunjanak.Text)
End Sub

Private Sub CmdTambah_Click()
Call Aktif
Call bersih
Me.txtnip.SetFocus
End Sub

Private Sub Form_Activate()
Call bersih
Call tidakaktif
Me.CmdTambah.SetFocus
End Sub

Private Sub Form_Load()
Me.cbojabatan.AddItem "DR"
Me.cbojabatan.AddItem "MG"
Me.cbojabatan.AddItem "SV"
Me.cbojabatan.AddItem "ST"
End Sub

Private Sub Timer1_Timer()
Dim hariini As Variant
Dim jam As Variant
hariini = Now
jam = Now
Me.lbljam.Caption = Format(jam, "hh:mm:ss am/pm")
Me.Lbltgl.Caption = Format(hariini, "DDDD / DD-MMMM-YYYY")
End Sub

Private Sub txtanak_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If Me.txtanak <= 3 Then
Me.txttunjanak.Text = Val(Me.txtanak.Text) * 150000
Else
Me.txttunjanak.Text = 3 * 150000
End If
End If
End Sub

Private Sub txtnip_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
    If Me.txtnip.Text = "200803617" Then
    Me.txtnama.Text = "Sinta permata"
    Else
    If Me.txtnip.Text = "200809716" Then
    Me.txtnama.Text = "Doni L"
    Else
    If Me.txtnip.Text = "200809453" Then
    Me.txtnama.Text = "Deta Aprilia"
    Else
    Me.txtnama.Text = "NIP Tidak Dikenal"
    Me.txtnama.Enabled = False
    Me.cbojabatan.Enabled = False
    Me.txtjabatan.Enabled = False
    Me.txtgapok.Enabled = False
    Me.txttunjjabatan.Enabled = False
    Me.txttunjistri.Enabled = False
    Me.txtanak.Enabled = False
    Me.txttunjanak.Enabled = False
    Me.txttotal.Enabled = False
    Me.txtnip.Text = ""
    Me.CmdTambah.SetFocus
    End If
    End If
    End If
End If
End Sub