tugas kul

Nama : IMELDA

Nim : 0102075010

STMIK Buddhi - SIA

ADO adalah suatu model objek untuk koneksi data yang cakupannya cukup luas, yaitu mencakup Referensial Database, Mainframe, Directory Service, Web Based Contents, dll. Artinya , model objek ADO dapat menangani dari jenis data yang berbeda dan data internet. ADO versi 2.0 mulai diperkenalkan pada tahun 1988 daqn mengalami penyempurnaan, hingga ADO versi 2.7 sudah terdapat RDS ( Remote Data Service ), mencakup CursorLocation Client Side dan Server Side. ADO memiliki arsitektur terbuka berbasis COM ( Common Object Model ) dan DCOM ( Distributed COM ) sehimgga memiliki keuntungan, antara lain :

1. Bisa bekerja pada banyak proses dan jugaq pada computer terpisah.

2. Membuat OLEDB Provider sendiri ( dengan komponen MDAC ( Microsoft Data Access Component )).

Pengaturan koneksi dan property ADO harus dilakukan secara koding. Pada ADO kita cukup mereferebsikan project kita pada object yang dibutuhkan dan otomatis akan menghemat resource memori.

ADO object model :

1. Object Connection mewakili suatu sesi hubungan ke sumber data.

2. Object Command merupakan definisi dari perintah yang akan dieksekusi terhadap sumber data. Hasil eksekusi dapat berupa recordset ataupun tanpa recordset.

3. Recordset merupakan himpunan record-record yang merupakan hasil query dari command terhadap sumber data.

Cara kerja ADO :

Untuk menggunakan opbjek ADO pada sebuh aplikasi, pertama-tama kita harus menambahkan sebuah referensi komponen ADO ke dalam aplikasi kita.

Jalankanlah sebuah proyek Standard EXE lau pilihlah Project > Referenmces > pilih Microsoft ActiveX Data Objects 2.x Library. Komponen ADODB akan ditambahkan ke dalam proyek anda, dan anda kinin bias mendeklarasikan variabel untuk merepresentasikan komponen-konponennya.

Membuat Koneksi ke Database :

Dengan menggunakan objek connection , anda memberitahu ADO database mana yang ingin dikoneksi. Anda bisa mendeklarasikan sebuah objek Connection dengan pernyataan berikut ini :

Dim Conn As New ADODB.Connection

Dan tentu saja harus ada ‘kendaraan’ yang akan menjadi container dalam pengiriman data, yang disebut dengan Recordset

Dim rs As ADODB.Recordset

Untuk mengaktifkan koneksi yang sudah dideklarasikan perlu di set untuk Provider yang disesuaikan dengan database dan tempat databasenya,

Private Sub Form_Load()

Set Conn = New ADODB>Connection

Conn.ConnectionString =”Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Test\Mhs.mdb”

Conn.Open

End Sub

Setelah dapat koneksi ke database, perlu digunakan recordset untuk menjemput atau mengantar data.

Set rs = Conn.Execute(“Select * from MsMhs”)

Setelah perintah diatas dijalankan, maka otomatis variabel rs akan berisi data barupa table dari MsMhs

Source Code :

Algoritma pemrograman dengan visual basic 6.0

Program ini dibuat dengan Visual Basic 6.0.
Pertama-tama buka project lalu tambahkan 1 buah modul. Kemudian tuliskan kode dibawah ini (Tak terangkan sama sourcenya) :

'Inisialisai variabel
Dim nama As String 'variabel untuk nyimpan nama pegawai
Dim nip As String 'variabel untuk nyimpan nip pegawai


Dim gol As String 'variabel untuk nyimpan golongan pegawaiDim jabatan As String 'variabel untuk nyimpan jabatan pegawai
Dim jmlAnak As String 'variabel untuk nyimpan jumlah anak
Dim gajiPokok As Double 'variabel untuk nyimpan gaji pokok
Dim tunjangan As Double 'variabel untuk nyimpan tunjangan pegawai
Dim potongan As Double 'variabel untuk nyimpan potongan gaji
Dim tunjanganAnak As Double 'variabel untuk nyimpan tunjangan anak
Dim gajiBersih As Double 'variabel untuk nyimpan gaji bersih pegawai


''Berikut prosedur utama ketika program pertama kali dijalankan
Sub main()
'membuat inputan nama pegawai
nama = InputBox("Nama Pegawai : ", "Input")
'Membuat inputan NIP
nip = InputBox("NIP : ", "Input")
'Address 1
A:
'Membuat inputan golongan
gol = InputBox("Golongan (1,2,3,4) : ", "Input")
'Cek kondisi inputan untuk golongan
If gol > 4 Or gol <>'Pesan jika inputan salah
MsgBox "Golongan hanya ada 1,2,3 dan 3", vbExclamation, "Perhatian!"
'Menuju ke address A
GoTo A
'Akhir dari seleksi kondisi
End If
'Address B
B:
'Inputan Jabatan
jabatan = InputBox("Jabatan : ", "Input")
'Seleksi kondisi untuk jawaban
If jabatan <> "Manager" And _
jabatan <> "Kabag" And _
jabatan <> "Operator" Then
'Pesan jika inputan salah
MsgBox "Jabatan hanya ada Manager, Kabag dan Operator", vbExclamation, "Perhatian!"
'Menuju ke address B
GoTo B
End If

'Panggil fungsi untuk seleksi jawaban
Call seleksi_jabatan
'Panggil fungsi untuk menghitung gaji
Call hitung_gaji
'Panggil fungsi untuk menampilkan hasil
Call tampilkan_hasil

End Sub

'Fungsi untuk menyeleksi jawaban
Function seleksi_jabatan()
'Inputan jumlah anak
jmlAnak = InputBox("Jumlah anak : ", "Input")
'Seleksi kondisi dan isian nilai gaji pokok
If gol = 1 Then gajiPokok = 300000
If gol = 2 Then gajiPokok = 400000
If gol = 3 Then gajiPokok = 500000
If gol = 4 Then gajiPokok = 750000
'Seleksi jabatan dan penghitungan tunjangan
If jabatan = "Manager" Then tunjangan = (75 / 100) * gajiPokok
If jabatan = "Kabag" Then tunjangan = (50 / 100) * gajiPokok
If jabatan = "Operator" Then tunjangan = 0
If jmlAnak > 3 Then jmlAnak = 3
End Function

'Fungsi untuk menghitung gaji
Function hitung_gaji()
'Menghitung tunjangan anak
tunjanganAnak = jmlAnak * 50000
'Menghitung jumlah potongan
potongan = (5 / 100) * gajiPokok
'Menghitung gaji bersih
gajiBersih = gajiPokok + (tunjangan + tunjanganAnak) - potongan
End Function

'Fungsi untuk menampilkan hasil proses
Function tampilkan_hasil()
'Kotak dialog untuk menampilkan hasil proses
MsgBox "" & _
"Nama Pegawai : " & nama & Chr(13) & _
"Nip : " & nip & Chr(13) & _
"Golongan : " & golongan & Chr(13) & _
"Jabatan : " & jabatan & Chr(13) & _
"Jumlah Anak : " & jmlAnak & Chr(13) & _
"Gaji Pokok : " & gajiPokok & Chr(13) & _
"Tunjangan Jabatan : " & tunjangan & Chr(13) & _
"Tunjangan Keluarga : " & tunjanganAnak & Chr(13) & _
"Potongan : " & potongan & Chr(13) & _
"Gaji Bersih : " & gajiBersih, vbInformation, "Hasil Proses!"
End Function

Imelda ( 0102075010 )

Lab. Programming 2

STMIK – SIA ( siang )