MODUL I. DDL ( Data Definition Language )

Modul PBD MI-4F dan MI-4G Armadyah amborowati, S.Kom

1

MODUL I DDL ( Data Definition Language ) Berfungsi untuk mendefinisikan database dan objek-objek ( Tabel, index, view, Stored procedure, trigger ) yang ada didalam database.

Tabel peg

Tabel Departemen

NIP Nama Sex Alamat

Kd_departemen Nama Tunjangan

Tabel Posisi NIP Kd_departemen

Perintah DDL ada 3 macam: 1. CREATE 2. DROP 3. ALTER Keterangan: 1. CREATE Digunakan untuk membuat database dan objek-objek didalam database. • Membuat Database Create Database Nama database Contoh: Create database pegawai


2

Untuk mengaktifkan database yang telah dibuat menggunakan perintah: Use Nama_database Contoh: Use pegawai •

Membuat Tabel Create Tabel Nama_tabel (Nama_field/kolom typedata (size),…) Contoh: Create Table peg ( NIP char(2) not null, Nama varchar(15), Sex char(1), Alamat varchar(20))

Catatan:  Not null------- kolom/field tidak boleh kosong ( harus diisi ).  Pada saat membuat kolom/field table database harus ditentukan jenis data ( type data ) untuk masing-masing kolom/filed. Dibawah ini beberapa typedata yang sering digunakan. Type data Numeric

Jenis data

Ket

Tinyint Smallint Mediumint Integer Bigint Real Decimal Numeric Bit Money

1 byte 2 byte 3 byte 4 byte 8 byte

Datetime

Datetime Smalldatetime

1 Jan 1973 s/d 31 des 9999 1 Jan 1900 s/d 6 jun 2079

String

Char

Ukuran tetap max 8000 byte Ukuran tidak tetap max 8000 byte 2^31

Money

Varchar Text

0 atau 1 8 byte


2. DROP Digunakan untuk Database dan menghapus objek. Sintax: DROP Database Nama_database Contoh: DROP Database Pegawai DROP Table Nama_table Contoh: DROP Table Peg

Tugas: 1. Buat Database yang bernama Pegawai_XXXX 2. Buat table dari 3 tabel diatas menggunakan perintah CREATE 3. Hapus table Posisi menggunakan perintah DROP. 4. Hapust Database Pegawai menggunakan perintah DROP.

3


4

MODUL II 3. ALTER Merupakan perintah DDL yang ke-3 yang berfungsi untuk memodifikasi table.  Menambah kolom/field.  Menghapus kolom/filed.  Membuat suatu constraint ( Primary key dan Foreign key ). Constrain adalah Mekanisme untuk membatasi domain ( nilai-nilai yang diperbolehkan ) untuk sebuah kolom dalam table. Dengan memberikan konstrain pada sebuah kolom, server database dapat menjamin kondisikondisi berikut:  Keunikan data.  Memberikan nilai default.  Mengharuskan nilai baru mengikuti pola tertentu.  Mengharuskan nilai baru adalah anggota dari sebuah daftar yang telah ditentukan. Sintax: 1. Menambah Kolom/Field ALTER Table Nama_tabel ADD Nama_kolom Typedata(size) Contoh: ALTER Table Peg ADD Status varchar(5)

2. Menghapus kolom/Field ALTER Table Nama_tabel DROP Column Nama_kolom/filed Contoh: ALTER Table Peg DROP Column status


3. Membuat konstrain Primary Key Suatu constraint Primary key bisa dibuat pada saat table dibuat/di-create atau setelah table dibuat. •

Pada saat table dibuat melalui perintah CREATE

CREATE table Nama_tabel ( Nama_kolom/field typedata(size),… Constraint nama_constraint Primary key) Contoh: CREATE Table peg ( NIP char(4) not null, Nama varchar(15), Sex char(1), Alamat varchar(20) constraint pk_nip Primary key)

•

Setelah table dibuat memalui perintah ALTER

ALTER table Nama_table ADD constraint Nama_constraint Primary key Nama_filed Contoh: ALTER table peg ADD constraint pk_NIP Primary key NIP

4. Membuat konstrain Foreign Key Suatu constraint Foreign key bisa dibuat pada saat table dibuat/di-create atau setelah table dibuat. • Pada saat table dibuat melalui perintah CREATE CREATE table Nama_tabel ( Nama_kolom/field typedata(size),… Constraint nama_constraint Foreign key nama_field References Nama_tabel_referensi ( Nama_field Tabel_referensi)) Contoh: CREATE Table posisi ( NIP char(4) constraint fk_nip Foreign key NIP References NIP (NIP), kd_departemen char(2) constraint fk_kd_departemen Foreign key kd_departemen References kd_departemen (kd_departemen))

5


•

6

Setelah table dibuat memalui perintah ALTER ALTER table Nama_table ADD constraint Nama_constraint Foreign key nama_field References Nama_tabel_referensi ( Nama_field Tabel_referensi) Contoh: ALTER table posisi ADD constraint fk_nip Foreign key NIP References NIP (NIP) ALTER table posisi ADD constraint fk_kd_departemen Foreign References kd_departemen (kd_departemen)

key

kd_departemen

Tugas 1. Pada table Peg tambahkan kolom status dengan typedata varchar, size 5 2. Tambahkan definisi constraint pada tiap-tiap table ( Primary key dan Foreign key ).


7

MODUL III DML ( DATA MANIPULATION LANGUAGE ) Berfungsi untuk memanipulasi data menambahkan, dan menghapus data ).

(

menampilkan,

pengupdate,

1) Select -- Menampilkan record-record data yang terdapat pada table. Select Nama_filed from nama_table Contoh: Select * from peg ( Menampilkan data di semua field dalam table peg )

2) Insert -- Menambah data dalam satu record.

INSERT Into Nama_Table ( Nama_kolom1, Nama_kolom2,…) values ( nilai1, nilai2,…) Contoh: Insert into peg ( nip, nama, alamat ) values (‘A1’,’Armadyah’, ‘P’,‘Plosokuning’,)

3) Update -- Mengubah satu atau lebih data yang terdapat pada satu atau lebih kolom table.

UPDATE Nama_tabel SET Nama_kolom=value WHERE Kondisi Contoh: UPDATE Peg SET Alamat=’Kotabaru’ Where NIP=’A1’


8

4) Delete -- Menghapus satu atau beberapa record dalam suatu table.

DELETE From Nama_tabel Where Kondisi Contoh: DELETE From peg where NIP=’A1’

Tabel Peg NIP A1 A2 A3 A4 A5 A6

Nama Armadyah Hendra Gauthama Armadyan Guntur Mahendra Nouval Hanif

SEX P L P L L L

Alamat Kotabaru Plosokuning Jl. Mgelang Jetis Kotagede Plosokuning

Tabel Departemen Kd_departemen M P S A

Nama Pemasaran Produksi Sumber Daya Manusia Administrasi

Tabel Posisi NIP A1 A2 A3 A4 A5 A6

Kd_departemen P M P A S M

Tunjangan 800.000 700.000 1000.000 750.000

Status Nikah Nikah Belum Belum Nikah Nikah


9

Tugas. 1. Isi masing-masing table sesuai data diatas. 2. Ubahlah alamat pegawai yang bernama Guntur mahendra menjadi Jl. Kaliurang. 3. Hapuslah data posisi pegawai yang mempunyai NIP A1


10

MODUL IV PERINTAH SELECT - Menampilkan record-record data yang terdapat pada table. 1. Menampilkan semua kolom/field dalam suatu table

SELECT * From nama_tabel Contoh: Select * from Departemen ( Menampilkan semua kolom dalam table departemen ).

2. Menampilkan kolom/field sesuai keinginan/kebutuhan.

SELECT Nama_kolom1, nama_kolom2,…from nama_tabel Contoh: Select NIP, Nama from peg ( Menampilkan kolom NIP dan nama dari table peg ).

3. Membuat Judul Field. -- Mengubah judul field yang ditampilkan.

SELECT Nama_kolom Nama_tabel

AS

Nama_kolom_baru,…

From

Contoh: SELECT NIP, Nama AS NamaPegawai from peg ( Menampilkan NIP dan Nama dari table peg dimana kolom nama pada hasil query diubah menjadi NamaPegwai).


11

4. Menampilkan data tertentu ( melakukan penyaringan informasi ).

SELECT Nama_kolom,… from Nama_tabel WHERE Kondisi Contoh: Select * From peg where Alamat=’Plosokuning’ ( Menampilkan semua kolom dari table peg yang alamatnya plosokuning ).

5. Melakukan perhitungan. -- Sebelumnya pada table peg tambahkan filed/kolom yang bernama gaji dengan typedata money.

SELECT Ekspresi Nama_tabel

AS

Nama_kolom_baru,…

from

Contoh: Select Nama, Tunjangan+100000 AS besargaji from Departemen ( Menampilkan kolom nama dan penjumlahan filed Tunjangan + 100.000 dari table departemen dimana kolom penjumlahan tersebut diberi nama besargaji ) 6. Penggunaan Operator pembanding. Operator pembanding-- =, >, <, >=, <=, <> SELECT Nama_kolom,… from nama_tabel Where Ekspresi1 Operator logika Ekspresi2 Contoh: Select * from Departemen where Tunjangan<750000


12

7. Penggunaan Operator Logika. Select Nama_kolom,… from Nama_table Where --- Kondisi NOT Select Nama_kolom,… from Nama_table Where Kondisi----------- kondisi OR AND Contoh: Select NIP, nama from peg where sex=’L’ and status=’Nikah’ Select NIP, nama from peg where NOT status=’Nikah’ 8. Menjangkau data tertentu. --- Menampilkan data yang berada pada jangkauan tertentu.

SELECT nama_kolom,…from nama_table nama_kolom BETWEEN nilai_batas_bawah nilai_batas_atas

where AND

Contoh: Select * from departemen where tunjangan 750000 and 900000

9. Operator IN ---- Pencocokan data kondisi pencarian dengan salah satu data yang ada pada suatu daftar nilai.

SELECT nama_kolom,…from Nama_kolom IN (value1, value2,…)

Nama_tabel

Where

Contoh: Select * from peg where alamat IN (‘Plosokuning’,’kotabaru’) IN sama dengan operator OR Select * from peg where alamat=’kotabaru’

alamat=’plosokuning’

OR


13

10. Operator Like -- Untuk pencarian data. -- Bekerja pada typedata char, varchar, text.

SELECT nama_kolom,…from Nama_kolom LIKE ‘% ekspresi %’

nama_tabel

where

Contoh: Select * from peg where nama like ‘%Arma%’ ( menampilkan semua kolom dari table pegawai yang namanya mengandung kata Arma )

11. Fungsi Agregat -- Sum, Count, AVG, Max, Min SELECT fungsi agregat ( nama_kolom_baru from nama table SUM AVG Count MAX MIN

Nama_kolom

)

AS

where kondisi a) SUM --- Penjumlahan dalam satu kolom. SELECT sum (nama_kolom) AS nama_kolom_baru from nama_tabel where kodisi Contoh: Select Sum (tunjangan) AS Jml_tnj from Departemen


14

b) AVG --- Untuk menghitung nilai rata-rata dalam satu kolom. -  Sebelumnya pada table peg tambahkan filed/kolom yang bernama gaji dengan typedata money. NIP A1 A2 A3 A4 A5 A6

Gaji 1.300.000 1.500.000 1.300.000 1.400.000 1.600.000 1.500.000

SELECT AVG (nama_kolom) AS nama_kolom_baru from nama_tabel where kodisi Contoh: Select AVG ( gaji ) AS Rata_gaji from peg

c) Count -- Untuk menghitung jumlah record yang sesuai dengan kondisi. SELECT COUNT (nama_kolom) AS nama_kolom_baru from nama_tabel where kodisi Contoh: Select Count ( NIP ) AS Jml_peg from peg where status=’Nikah’ ( Menampilkan jumlah pegawai dari table pe yang statusnya sudah menikah ).


15

d) MAX -- Untuk mencari atau menentukan nilai tertinggi. SELECT MAX (nama_kolom) AS nama_kolom_baru from nama_tabel where kodisi Contoh: Select Max ( gaji ) as Gaji_max from peg ( Menampilkan gaji tertinggi dari table peg ).

e) MIN -- Untuk mencari atau menampilkan nilai terendah. SELECT MIN (nama_kolom) AS nama_kolom_baru from nama_tabel where kodisi Contoh: Select Min ( gaji ) as Gaji_max from peg where status=’nikah’ ( Menampilkan gaji terrendah dari table peg yang statusnya sudah menikah).

12. Mengelompokan Record -- Pada kondisi tertentu, sekumpulahn record dapat dikelompokkan berdasarkan satu atau lebih field yang terdapat pada sebuah table atau query. Dati pengelompokan ini, dapat dilakukan tindakan-tindakan untuk mengetahui berapa jumlah transaksi , rata-rata dan lainnya pada suatu perusahaan.


16

SELECT Nama_kolom1,nama_kolom2,…from Nama_tabel GROUP By Kolom_pengacu Contoh: Select No_pelanggan, Count (No) AS Total_pesanan from Orders Group by No_pelanggan Select No_pelanggan, No_sales, Count(No) AS Total_pesanan from Orders Group by No_pelanggan, No_sales 13. Pernyataan Having -- Menampilkan kelompok-kelompok data tertentu. -- Having berbeda dengan Where, pernyataan Where digunakan untuk memberikan criteria sebelum pengelompokan dan melakukan penyaringan baris. Sedangkan Having digunakan untuk memberikan criteria setelah pengelompokan dilakukan, menyaring kelompok, dan menentukan kondisi bagi GROUP BY. SELECT Nama_kolom1,…from nama_tabel GROUP BY kolom_pengacu HAVING kondisi Contoh: Select barang, count(jumlah) AS totalfaktur from Orders GROUP By barang Having Barang=’A009’ (menampilkan field barang dan menjumlahkan total faktur dari table Orders, dikelompokkan berdasarkan barang dengan criteria kode barang=A009 )

14. Melakukan Sorting ( Pengurutan Data )

SELECT Nama_kolom1,…from kondisi ORDER By nama_kolom

nama_table

where

Contoh: Select * from peg ORDER By sex Select NIP, Nama from peg ORDER By Nama, Alamat


17

MODUL V QUERY Antar Tabel Pada pertemuan ini dibahas penggunaan query untuk lebih dari satu table.

SELECT Nama_tabel1.nama_kolom1, nama_tabel2.nama_kolom2,… from nama_tabel1, Nama_tabel2,… Where Nama_tabel_induk.Primary key=nama_tabel_transaksi.foreign key and … Contoh: Select Peg.NIP, Peg.Nama, Departemen.Nama from peg, departemen, posisi where peg.nip = posisi.nip and departemen.kd_departemen = posisi.kd_departemen

Tugas. 1. Tampilkan nama pegawai dan posisinya dimana gajinya diatas 1.400.000. 2. Buat contoh perintah yang lain menggunakan query antar table. 3. Dikerjakan dirumah, buat suatu database minimal 4 tabel. Gunakan perintah DML, perintah select ( termasuk Group By dan Having ), dan Query antar table. PrintScreen hasilnya. Dikumpulkan pada saat ujian MID. Tugas no.3 kelompok maksimal anggotanya 4 orang.


18

MODUL VI Pengenalan Visual Basic Tahap pembuatan program : 1. Membuat Interface Proses yang melibatkan untuk visual. Menata tampilan dengan unsur berupa kontrol yang di pasang. Label1

TextBox CommandButton 2.

Membuat Property Dengan windows property Contoh : Object Form1 Label1 TextBox CommandButton

Property Caption Caption Text Caption

Nilai Program Perkenalan Program Perkenalan (kosongkan/delete) proses


19

3. Menulis Kode Dari contoh from diatas. Langkah : Klik ganda tombol proses(command1) Muncul windows code editor aktif Private Sub Command1_Click() Text1.Text = "saya lagi belajar Visual Basic 6" End Sub

Kemudian jalankan dengan pilih menu Run | Start atau tekan F5 pada keyboard. Tekan proses. Hasil setelah program dijalankan :

Contoh:

TextBox

TextBox

CommandButton

Properties : Form1 caption : Program Halooo textbox1  text : dikosongkan (delete)


20

textbox2  text : dikosongkan (delete) commandbutton  caption : HALLO

Listing Program Langkah : Double Klik pada commandbutton (HALLO) Private Sub Command1_Click() Text1.Text = "STMIK AMIKOM YOGYAKARTA" Text2.Text = " Tempat Kuliah Orang Berdasi" End Sub Setelah program dijalankan dengan menekan F5 atau Pilih Menu Run | Start maka hasilnya sebagi berikut :

Option

Nama Object Form OptionButton OptionButton CommandButton

Properti Name Caption Caption Caption Name

Nilai Foption Belajar Option Laki-laki Perempuan Cmdproses


21

Caption Text

TextBox

Proses Dikosongkan (delete)

Listing Program Object cmdproses_click (double klik pada CommandButton) Private Sub cmdproses_Click() If Option1.Value = True Then Text1.Text = "anda pilih option laki-laki" Else Text1.Text = "anda pilih option perempuan" End If End Sub Jalankan program tersebut dengan menekan F5 atau pilih menu Run | Start, maka akan muncul window seperti di bawah ini :

Check

Setting Komponen Nama Object Form

Properti Name

Nilai Fcheck


CheckBox CheckBox CheckBox CommandButton Label

22

Caption Caption Caption Caption Name Caption Name Caption

Belajar Check Visual Basic 6 Struktur Data Pemrograman Internet CmdOk Ok Label1 Label1

Listing Program Private Sub cmdOk_Click() Dim pilih As String If Check1.Value = 1 Then pilih = "Visual Basic 6" End If If Check2.Value = 1 Then pilih = pilih & "Struktur Data" End If If Check3.Value = 1 Then pilih = pilih & "Pemrograman Internet" End If Label1.Caption = pilih End Sub Jalankan program tersebut dengan menekan F5 atau pilih menu Run | Start, maka akan muncul window seperti di bawah ini :


23

MODUL VII

Variabel, Val, If tunggal dan If bersarang + case 1. variabel  suatu tempat dalam memori yang diberi nama (sebagai pengenal) dan dialokasikan untuk menampung data. Sintax : Dim_namavariabel_As_typedata Contoh : Dim a as Integer Cara menempatkan variabel pada kode program: a) Pada General Jika variable diletakkan pada General maka variabel tersebut bisa dibaca pada setiap Procedure dalam satu Form. b) Pada Procedure Jika variabel diletakkan pada procedure ditiap objek, maka variabel tersebut hanya bisa dibaca pada procedure itu saja ( tidak bisa dibaca pada procedure lain walaupun dalam satu from ). c) Pada Modul Jika variable diletakkan pada Modul maka variabel tersebut bisa dibaca pada setiap Procedure dalam satu Project. Keterangan lebih lanjut lihat contoh dibawah ini: Program perhitungan Tambah, Kurang, Kali, dan bagi.


properties: Form1  caption : Program Hitung Label1  caption : Angka1 Label2  caption : Angka2 Label3  caption : Hasil Text1  text : kosongkan Text2  text : kosongkan Text3  text : kosongkan Command1  caption : Tambah (+) Command2  caption : Kurang (-) Command3  caption : Kali (*) Command4  caption : Bagi (/) Command5  caption : cancel Langkah membuat coding (Source code (Listing)) : ‘mendeklarasikan secara general

Pilihan untuk melihat kode pada setiap objek Private Sub Command1_Click() a = Text1 b = Text2 plus = a + b Text3.Text = plus End Sub

24


‘mendeklarasikan pada procedure Private Sub Command2_Click() Dim a, b As Single Dim min As String a = Text1 b = Text2 min = a - b Text3.Text = min End Sub Private Sub Command3_Click() a = Text1 b = Text2 kali = a * b Text3.Text = kali End Sub Private Sub Command4_Click() a = Text1 b = Text2 bagi = a / b Text3.Text = bagi End Sub Private Sub Command5_Click() Text3.Text = "" Text3.SetFocus End Sub Setelah menulis coding diatas, kemudian jalankan program terebut dengan menekan tombol F5 di keyboard atau pilih menu Run | Start. Hasil setelah menekan Tombol Tambah

25


Hasil setelah menekan Tombol Cancel

Program hitung_luas:

26


27

Properties : Form1  caption : Hitung Luas Label1  caption : Menghitung Luas Persegi Panjang Font : MS Sans Serif, size : 12, font style : Bold Label2  caption : panjang Label3  caption : lebar Label4  caption : luas Text1  text : dikosongkan (didelete) Text2  text : dikosongkan (didelete) Text3  text : dikosongkan (didelete) Command1  caption : OK Command2  caption : Cancel Command3  caption : Exit Listing program (source code) : Pada General Dim p, l, luas As Integer -----------------------------------------------------------------------------------------------Private Sub Command1_Click() p = Text1.Text l = Text2.Text luas = p * l Text3.Text = luas End Sub Private Sub Command2_Click() Text1.Text = ""


Text2.Text = "" Text3.Text = "" Text1.SetFocus End Sub Private Sub Command3_Click() Unload Me End Sub Setelah menulis kode diatas, jalankan program tersebut dengan menekan tombol F5. Hasil dari program setelah dijalankan :

2. Val Digunakan jika kita tidak mendeklarasikan suatu variable. Contoh:

Komponen Properties Form1  Caption : Penggunaan Val

28


29

Label1  Caption : Nama Barang Label2  Caption : Harga Satuan Label3  Caption : Jumlah Label4  Caption : Bayar TextBox  text : dikosongkan (delete) TextBox  text : dikosongkan (delete) TextBox  text : dikosongkan (delete) TextBox  text : dikosongkan (delete) CommandButton  caption : Hitung Listing Program Double klik pada commandButton Private Sub Command1_Click() Text4.Text = Val(Text2.Text) * Val(Text3.Text) End Sub Setelah menulis kode diatas, jalankan program tersebut dengan menekan tombol F5. Hasil dari program setelah dijalankan :

3. If Tunggal Sintax : If kondisi then Pernyatan Else Pernyataan End If


30

Contoh dalam program : Buat program untuk if tunggal.

Text1.text Text2.text

Komponen Properties Form1  caption : If Tunggal Label1  caption : Isi nilai pada teksbox Label2  caption : predikat Text1  text : dikosongkan (didelete) Text2  text : dikosongkan (didelete) Command1  caption : OK Command2  caption : Cancel Command3  caption : Exit Listing Program diatas (source code): Private Sub Command1_Click() If Text1.Text >= 8 Then Text2.Text = "lulus" Else Text2.Text = "tidak lulus" End If End Sub Private Sub Command2_Click() Text1.Text = "" Text2.Text = "" Text1.SetFocus End Sub Private Sub Command3_Click() End End Sub


Hasil dari program diatas setelah dijalankan :

4. If Bersarang Sintax : If kondisi then Pernyataan Else if Pernyataan Else if ….. Else …… End if Contoh : Form seperti diatas (contoh program) namun beda listing

31


listing program Private Sub Command1_Click() If Text1.Text >= 80 Then Text2.Text = "A" ElseIf Text1.Text >= 70 Then Text2.Text = "B" ElseIf Text1.Text >= 60 Then Text2.Text = "C" Else Text2.Text = "D" End If End Sub Private Sub Command2_Click() Text1.Text = "" Text2.Text = "" Text1.SetFocus End Sub Private Sub Command3_Click() End End Sub Setelah program dijalankan, maka hasilnya seperti gambar dibawah ini :

32


33

MODUL VIII

Manajemen Database Membuka database lewat program: 1. Mendeklarasikan variable Database 2. Mendeklarasikan variabel Recordset 3. Membuka database pada procedure Form_load ( no.3 dan no.4 ) 4. Menentukan Recordset dari database yang telah dibuka Object Connection Digunakan untuk membuka dan menjaga sebuah koneksi kedalam Database. Cara membuka koneksi: Dim Namakonkesi AS ADODB.Connection


34

Metod pada object koneksi:  Begintrans = Memulai sebuah transaksi  Cancel = Menghentikan Eksekusi dari sebuah panggilan Metod Open.  Close = Menutup objek koneksi  Committrans = Menyimpan sebuah perubahan yang dibuat selama transaksi dan menghentikannya.  Excute = Mengeksekusi sebuah query, pernyataan SQL, atau Procedure tersimpan.  Open = Membuat sebuah koneksi terbuka berdasarkan Connectionstring.  Openschema = Mengembalikan informasi pada Schema database  Rollbacktrans = Membalik semua perubahan yang dibuat selama transaksi dan menhentikannya. Object Recordset Digunakan untuk mengambil dan mengupdate data dari sebuah database. Berisi record-record data dan field. Operasi pada object recordset: 1. Menambah data Nama_variable_recordset.addnew Contoh: Rspegawai.addnew Atau Rspegawai!NIP=text1.text 2. Mengupdate Nama_variable_recordset.update Contoh: Rspegawai.Update 3. Mengapus Nama_variable_recordset.Delete Contoh: Rspegawai.delete

Contoh Program


35

Adodc Datagrid

Komponen Form1

Properties Caption : Data Pegawai Name : Fpegawai Label1 Caption : NIP Label2 Caption : Nama Label3 Caption : Alamat TextBox Text : dikosongkan (delete) Adodc1 Connectionstring : Recordsource : Visible : False Datagrid Datasource : Adodc1 Caption : Data Pegawai CommandButton Name : cmdtambah Caption : Tambah CommmandButton Name : cmdedit Caption : Edit CommandButton Name : cmdsimpan Caption : Simpan CommandButton Name : cmdhapus Caption : Hapus CommandButton Name : cmdbatal Caption : Batal CommandButton Name : cmdkeluar Caption : Keluar Listing Program


Private Sub cmdedit_Click() Fedit.Show Fpegawai.Hide End Sub Private Sub cmdhapus_Click() hapus = MsgBox("Anda yakin data akan dihapus?", vbYesNo + vbQuestion, "Pesan Konfirmasi") If hapus = vbYes Then On Error Resume Next Adodc1.Recordset.Delete Adodc1.Recordset.MoveFirst Else MsgBox "data tidak jadi dihapus!", vbOKOnly, "Pembatalan" End If End Sub Private Sub cmdkeluar_Click() End End Sub Private Sub cmdsimpan_Click() Adodc1.Recordset.AddNew Adodc1.Recordset!nip = Text1.Text Adodc1.Recordset!nama = Text2.Text Adodc1.Recordset!alamat = Text3.Text Adodc1.Recordset.Update buka End Sub

Private Sub cmdtambah_Click() Text1.Enabled = True Text2.Enabled = True Text3.Enabled = True Text1.SetFocus End Sub Private Sub Form_Load() Text1.Enabled = False Text2.Enabled = False

36


Text3.Enabled = False End Sub Sub buka() Text1.Text = "" Text2.Text = "" Text3.Text = "" Text1.SetFocus End Sub

Komponen Form1 Label1 Label2 Label3 TextBox Adodc1 Datagrid CommandButton CommandButton

Properties Caption : Data Pegawai Name : Fedit Caption : NIP Caption : Nama Caption : Alamat Text : dikosongkan (delete) Connectionstring : Recordsource : Visible : False Datasource : Adodc1 Caption : Data Pegawai Name : cmdsimpan Caption : Simpan Name : cmdbatal

37


CommandButton

38

Caption : Batal Name : cmdkeluar Caption : Keluar

Listing Program Private Sub cmdbatal_Click() Text1.Text = "" Text2.Text = "" Text3.Text = "" End Sub Private Sub cmdkeluar_Click() Fpegawai.Show Unload Me End Sub Private Sub cmdsimpan_Click() Adodc1.Recordset.AddNew Adodc1.Recordset!nip = Text1.Text Adodc1.Recordset!nama = Text2.Text Adodc1.Recordset!alamat = Text3.Text Adodc1.Recordset.Update Adodc1.Refresh End Sub Private Sub Form_Load() Adodc1.Refresh End Sub Tekan F5 atau pilih menu Run | Start, maka hasilnya akan muncul window sebagai berikut : kemudian jika anda ingin mengedit data maka akan muncul window edit data pegawai :


Pemrograman visual basic dengan query

39


40

‘pada general Dim konek As New ADODB.Connection Dim rs As New ADODB.Recordset Sub koneksi() konek.Open ("Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=pegawai;Data Source=DYAH”) msgbox ”ok” End Sub Private Sub cmdsimpan_Click() konek.Execute "insert into peg(nip, nama ) values ('" & Text1.Text & "','" & Text2.Text & "')" MsgBox "tersimpan" End Sub Private Sub cmdupdate_Click() konek.Execute "update peg set nip=' " & Text1.Text & "', nama=’ “ & text2.text & “ ‘" End Sub Private Sub cmdtambah_Click() Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" Text5.Text = "" End Sub


Private Sub cmdhapus_Click() konek.Execute ("delete from where nip=' " & Text1.Text & " ' ") Adodc1.Refresh End Sub Private Sub Form_Load() Call koneksi End Sub

’pada general Dim konek As New ADODB.Connection Dim rs As New ADODB.Recordset Sub koneksi() konek.Open ("Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=pegawai;Data Source=DYAH ") End Sub

Private Sub Cmdcari_Click() Set rs = konek.Execute(" select * from peg where nip=' " & Text1.Text & " ' ")

41


42

Adodc1.RecordSource = "select * from peg where nip=' " & Text1.Text & " ' " Set DataGrid1.DataSource = Adodc1 Adodc1.Refresh End Sub Private Sub Command2_Click() form1.Show End Sub Private Sub Form_Load() Call koneksi End Sub Tugas : Kerjakan seperti contoh diatas untuk tabel pegawai, tabel departemen, dan tabel posisi.

MODUL IX Password


Komponen Form1 Label Label Textbox Textbox CommandButton CommnadButton

43

Properties Name : Flogin Caption : Password Caption : user name Caption : Password Name : txtuser Text : dikosongkan (delete) Name : txtpass Text : dikosongkan (delete) Caption : Login Caption : Logoff

Listing Program : Private Sub Command1_Click() If txtuser = "coba" And txtpass = "password" Then Fmenu.Show Unload Me Else MsgBox "Login anda salah, coba lagi!", vbInformation, "Salah Login" Text1.SetFocus End If End Sub Private Sub Command2_Click() MsgBox "yakin anda mau logoff?", vbOKOnly End End Sub

Menu Utama


Langkah membuat menu utama : Klik menu editor di taskbar Muncul window menu editor

ketik File pada caption | name tuliskan nmfile | klik Next klik , ketik data di caption | name tuliskan nmdata | klik next klik , ketik pegawai di caption | name tuliskan nmpeg | klik next

44


klik

45

, ketik Exit di caption | name nmkeluar | klik next

klik pada komponen object lalu drag ke form ( pada properties Picture : pilih gambar yang akan anda pilih klik lalu tekan open | lalu stretch pilih True) Listing Program : Private Sub nmpeg_Click() Fpegawai.Show Unload Me End Sub Private Sub nmkeluar_Click() End End Sub Setelah menulis kode program diatas kemudian jalankan dengan menekan F5 atau pilih menu Run | start. Hasilnya akan mencul seperti pada window di bawah ini :


46


47


48


49

MODUL X Laporan (Report) Berikut Langkah-langkah membuat Laporan Data Pegawai a.Membuat Data Sumber untuk Laporan (Data Environment) 1. pilih menu Project | More ActiveX Desaigners | Data Environment


2. klik kanan pada connection1 | Properties | xxxxx | next

50


51

3. pada select or enter database name isikan Nama database yang and buat yaitu modul.mdb

4. klik tombol Test Connection, jika sudah muncul pesan Success berarti database sudah terhubung.


52

5. klik kanan pada connection1 | Add Command, kemudian terbentuk Command1.

6. klik kanan pada command1, kemudian setting


7. anda simpan dengan DataEnvironment1.Dsr

b.

Membuat desain Laporan (Data Report) Langkah : 1. pilih menu Project | Add Data Report

2. anda drag drop command1 ke area data report bagian detail (section1) 3. silakan anda lihat gambar dibawah. Anda tata pada gambar 1 di bagian page header.

53


54

1

2

4. anda desain seperti gambar dibawah ini, setelah seperti gambar di bawah berarti desain laporan anda selesai. 5. Anda simpan desain laporan anda dengan nama datareport1.Dsr Nama Object DataReport

RptLabel

Properti Name Caption DataSource DataMember Caption

Nilai DataReport1 Laporan Data Pegawai DataEnviroment1 Command1 Laporan Data Pegawai


55

Hasil Running Datareport

Tugas Buatlah sebuah Project dengan tema yang telah ditentukan. ( Kelompok Max 4 Orang ) Dipresentasikan pada akhir pertemuan praktikum bertempat di Laboratorium.

MODUL I. DDL ( Data Definition Language )

Recommend Documents