Modul 1. Pemograman Web dengan menggunakan HTML

Modul 1. Pemograman Web dengan menggunakan HTML
Oleh : Ahmad Rizal Abidin, M.Kom.

Perkembangan dunia teknologi computer begitu pesatnya yang harus diiringi dengan sumber daya manusia yang memadai, khusus dalam memanfaatkan internet, internet merupakan suatu kebutuhan yang begitu maraknya mulai dari sekedar untuk berkomunikasi ataupun dalam melakukan bisnis. Banyak sekali fasilitas-fasilitas yang tersedia di dalam Internet yang kesemuanya dikemas dengan menggunakan isitilah Web, Homepage, portal, Web Page dll.

Perlu disadari bahwa web-web yang tampil diinternet pada saat sekarang ini diawali dengan pembuatan dengan menggunakan perintah HTML dengan tag-tag yang dirangkai sedemikian rupa sehingga menjadi satu kesatuan yang saling berhubungan antara yang satu dengan yang lainnya.

Banyak sekali software-software yang dapat digunakan untuk mendesain Web, apakah dengan ASP, PHP, Java Script, VB Script, dll, bahkan dengan menggunakan Frontpage pun bisa. Dan pada saat ini banyak CMS yang begitu mudah dapat membuat web. Pada Modul ini tidak akan membandingkan satu software dengan software lainnya atau memilih CMS yang bagus. Tetapi disini penulis akan menyarankan bagi para pemula yang akan memperdalam desain WEB, hendaknya menggunakan sesuatu yang mendasar. Dasar Pembuatan WEB dilakukan dengan menggunakan HTML.

Banyak orang beranggapan bahwa belajar web dengan menggunakan HTML sangat susah, tetapi apakah kita pernah mencoba, dimana tag-tag tersebut diketik huruf perhuruf dan disusun sedemikian rupa sehingga menjadi satu kesatuan yang saling berhubungan antara satu dengan yang lainnya? Tentu pertanyaannya ini akan dijawab belum…?

Dengan alasanya tersebut maka penulis tertarik memamparkan tentang pembuatan suatu Web yang sederhana dengan menggunakan tag-tag HTML dan diketik menggunakan NotePade.
Dimana pada penulisan materi ini akan dibagi menjadi beberapa item yaitu:
Modul 1. Pengantar HTML
Modul 2. Pembuatan Frame
Modul 3. Pembuatan Menu Header
Modul 4. Pembuatan Menu Left
Modul 5. Pembuatan Menu right
Modul 6. Pembuatan Profile

Dengan cara membaca modul demi modul tersebut nantinya pembaca dapat mencoba langkah-demi langkah dan mengembangkan kreatifitasnya. Modul ini dikemas sedemikian rupa agar dapat dengan mudah dipelajari dan diimplementasikan, Agar tampilan di dalam web lebih menarik, penulis menggunakan flash MX untuk menggambar atau membuat animasi, alasan penggunakan Macromedia Flash MX ini karena Flash merupakan software yang paling mudah untuk menggambar.

Pengantar HTML
HMTL (Hypertext Markup Language} merupakan suatu kode yang menjadi dasar terwujudnya web. Kode yang digunakan dalam HTML disebut Tag.

1. Struktur Penulisan
Penulisan tag dapat dilakukan pada Notepade atau software lain, dimana tata penulisan tag diawali dengan start tag dan diakhiri end tag. Adapun bentuk penulisan adalah :
{html}
{head}
{title} Design Web {/title}
{/head}
{/body}
…
…
{/body}
{/html}

2. Gambar dan Background
Agar tampilan Web yang dibuat menjadi lebih menarik, kita dapat menyertakan gambar kedalam perintah HTML, apakah akan dijadikan sebagai background. Saran menulis hendaknya pembuatan gambar dilakukan dengan menggunakan Software macromedia Flash MX, baca Menggambar dengan Flash MX. Adapun tata penulisannya adalah :

{IMG SRC=”nama file gambar”} untuk memanggil file gambar tunggal
{Body background=”nama file gambar”} untuk memanggil file gambar sebagai background

3. Font dan List
Penulisan Font diawali dengan perintah {Font …} yang dapat diikuti dengan Size (ukuran huruf}, face (jenis huruf pada system windows} dan color (warna huruf}. Sedangkan untuk menghasilkan List atau disebut dengan Daftar dapat menggunakan perintah OL (Ordered List} atau Unordered list (UL}, jika memakai ol berarti list kita urutkan (angka atau abjad}

4. Tabel
Tabel adalah suatu tampilan yang mengandung unsur baris dan kolom, untuk menampilkan tabel dalam homepage diperlukan beberapa tag yaitu :
{Table} ……. {/table} Untuk set dokumen table
{TR} ……… {/TR} Untuk set baris (Table Row}
{TD} ……… {/TD} Untuk set kolom (Table Data}
{TH} ……… {/TH} Untuk set Header (Table Header}
{Caption} …..{/Caption} Untuk set Judul Tabel
{TD Rowspan =”3”} untuk membagi menggabung baris (Merger row}
{TD Colspan =”3”} untuk membagi kolom (Merger colums}

5. Form
From digunakan untuk mempercantik tampilan dari Web, yaitu diawali dengan perintah tag {From} dan diakhiri dengan {/form}. Dengan tag ini dapat membuat buku tamu, formulir pemesanan, survey, meminta komentar atau apa pun di web site.
Pada dasarnya, form html mempunyai bentuk seperti ini….
{FORM} awal form
{INPUT} minta masukan menggunakan salah satu dari beberapa cara….
{INPUT} ….anda bisa gunakan berapa pun input yang anda inginkan
{/FORM} akhir form
Bentuk masukan (TYPE of {INPUT}} yang paling umum digunakan dalam form html adalah TEXT. {INPUT TYPE=TEXT}
Setiap masukan memerlukan nama (NAME}. {INPUT TYPE=TEXT NAME=”ALAMAT”}
Selain type diatas ada beberapa type yang dapat digunakan yaitu : {input type = radio}, {input type = checkbox},
Membuat Pull Down List.
Untuk masukan jenis ini anda gunakan {SELECT} sebagai pengganti {INPUT} dan anda harus tambahkan tag penutup.
{SELECT} …{/SELECT}
Dan bisa juga menggunakan perintah {TEXTAREA NAME=”KOMENTAR”}
{/TEXTAREA}

6. Frame
Frame adalah perintah untuk tampilan yang ada pada home, yang dapat dibagi menjadi beberapa bingkai sesuai dengan yang diinginkan, apakah vertical atau horizontal.
{Frameset} … {/Frameset} Untuk set bingkai homepage
{Frame} … {/Frame} Untuk isi dan nama bingkai
Cols dan Rows Untuk set baris atau kolom

7. Link
Link adalah menghubungkan dengan obyek lain, dapat berupa Web Page, Gambar, Suara, ataupun ke komputer server yang lain. Link adalah merupakan pembeda antara mode text HTML dengan text yang lain. Untuk perintah Link dapat menggunakan elemen Anchor : {A} …{/A} dan tambahan perintah HREF.
Contoh jika ada perintah :
{A HREF=”contoh.htm”}Menuju ke Dokumen Contoh.htm {/A}
Artinya : Bahwa kalimat “Menuju ke Dokumen Contoh.htm” akan diberi tanda (biasanya garis bawah} dan jika pointer mouse berada pada kalimat tersebut, maka akan menjadi gambar jari tangan.
Pemacu link tidak harus tulisan, dapat juga pemacu link menggunakan gambar atau image: * {a href=”contoh.htm”} {img src=”gambar.gif} {/a} (Gambar.gif akan menjadi pemacu link ke dokumen contoh.htm}

Pada contoh berikut ini akan dibuat suatu file Indeks yang dibangun dengan menggunakan Frame

Modul 2. Alur Program

Oleh : Ahmad Rizal Abidin, M.Kom

 Pernyataan Percabangan
Terdapat dua macam pernyataan percabangan bersyarat yang dapat digunakan, yaitu if Dan Case

 Percabangan Bersyarat if – then – else
Digunakan untuk menjalankan suatu pernyataan atau suatu blok pernyataan, tergantung pada nilai yang diuji.

Contoh Penulisan :
If then
Atau
If then else

 CASE … OF … : Pemilihan N kasus
Digunakan untuk kondisi dengan banyak pencabangan. Syarat pencabangan pada bentuk ini hanya boleh melibatkan satu buah parameter dengan tipe data bukan Real. Pemeriksaan kondisi di sini lebih tepat disebutkan dalam hubungan relasi samadengan (=). Dengan demikian bila parameter bernilai tertentu maka dilakukan suatu aksi terkait, bila bernilai lain maka dilakukan aksi yang lain juga, demikia seterusnya.
contoh penulisan :
Case Of
: ;
: ;
…
: ;
Else

End;

 Pernyataan Pengulangan
Dalam menyelesaikan masalah, terkadang kita harus melakukan suatu proses yang sama lebih dari satu kali. Untuk itu perlu dibuat suatu algoritma pengulangan. Pascal memberikan tiga alternatif pengulangan, yaitu dengan For, While, atau Repeat. Masing-masing memiliki karakteristik, yang akan dipelajari pada modul ini. Ada dua hal yang penting dalam melakukan merancang perintah pengulangan, yaitu:
• Inisialisasi awal.
• Nilai akhir pengulangan atau kondisi berhenti

 Pengulangan While … do
Pernyataan ini bertugas mengulang satu pernyataan atau suatu blok pernyataan atau selama (while) suatu kondisi (syarat) bernilai true. Penulisannya adalah sebagai berikut :
while do
Program akan menguji
 jika bernilai false, maka tidak dilaksanakan dan perulangan berhenti, kemudian menjalankan baris berikutnya.
 Jika bernilai true maka pernyataan akan dilaksanakan satu kali.

 Pengulangan Repeat…Until
 Pengulangan ini sama dengan while do, dan biasanya digunakan jika jumlah pengulangan belum dapat ditentukan pada saat program ditulis.
 Perbedaan dengan while do adalah kondisi dicek pada awal blok sementara untuk repeat… until dicek pada akhir blok
 Perbedaan lainnya adalah while do mengulang pernyataan selama kondisi masih terpenuhi, tetapi pernyataan repeat … until hanya akan mengulang pernyataan selama kondisi belum terpenuhi.
 Pada repeat … until dapat melakukan pengulangan lebih dari satu pernyataan, baik yang berupa kumpulan pernyataan tunggal atau kumpulan blok pernyataan. Jadi bagian yang diulang adalah segala sesuai yang berada antara pernyataan repeat…until.

 Pengulangan For … do
 Pengulangan ini paling sederhana digunakan untuk melaksanakan pengulangan satu pernyataan atau satu blok program beberapa kali yang ditentukan oleh nilai awal dan nilai akhir. Dengan kata lain, jumlah pengulangan yang akan dikerjakan sudah diketahui.
 For := to do ;
 Atau
 For := downto do ;

 SUBRUTIN
Subroutin terdiri dari dua yaitu procedure dan fungsi, kedua subrutin ini berisi beberapa pernyataan yang berfungsi untuk melakukan tugas tertentu. Perbedaan dari kedua subrutin tersebut adalah bahwa fungsi (function) selalu mengembalikan suatu nilai setelah dipanggil sedangkan prosedure (procedure)tidak

 Procedure
merupakan bagian program yang melaksanakan program tertentu pada saat dipanggil dan kembali ke bagian pemangilnya.
contoh penulisannya :
Procedure nama_proc (Parameter1, parameter 2, …);
begin

end;
atau
Procedure latih (A : string);
begin

end;

 Function
Merupakan bagian program yang melaksanakan proram tertentu pada saat di panggil dan kembali ke bagian pemanggilnya dengan menghasilkan sebuah nilai. Contoh penulisannya :
function Nama_func (Paramater1, parameter2, .. ):Tipe;
Begin

end;
atau
function latihan(A : Integer) : real;
begin

end;

 UNIT
 Sebuah program dibangun berdasarkan modul kode-kode program yang disebut dengan unit. Setiap kita membuat sebuah form, unti akan dibuat dengan sendirinya. Unit tersebut berfungsi untuk mengatur serta mengendalikan segala sesuatu yang berhubungan dengan form.
 Unit memungkinkan bagi kita untuk membagi program yang besar menjadi modul-modul yang dapat disunting secara terpisah. Unit jenis ini dapat berisi kumpulan function atau procedure yang telah dikompilasi yang dapat dipakai program aplikasi lain.

Modul 1. Dasar Pemograman Delphi 7

Oleh : Ahmad Rizal Abidin, M.Kom

Borland Delphi 7 merupakan bahasa pemrograman berbasis Windows. Delphi 7 dapat membantu untuk membuat berbagai macam aplikasi yang berjalan di sistem operasi Windows, mulai dari sebuah program sederhana sampai dengan program yang berbasiskan client/server atau jaringan. Delphi, termasuk aplikasi yang dapat digunakan untuk mengolah teks, grafik, angka, database dan aplikasi web.

Berikut ini sebagian kecil dari banyak kelebihan Borland Delphi 7 :
Berbasis Object Oriented Programming (OOP). Setiap bagian yang ada pada program dipandang sebagai suatu object yang mempunyai sifat-sifat yang dapat diubah dan diatur.
Satu file .exe. Setelah program dirancang dalam IDE (Intergrated Development Environment) Delphi, Delphi akan mengkompilasinya menjadi sebuah file executable tunggal. Program yang dibuat dapat langsung didistribusikan dan dijalankan pada komputer lain tanpa perlu menyertakan file DLL dari luar. Ini merupakan sebuah kelebihan yang sangat berarti.
Borland Delphi 7 hadir bersama Borland Kylix 3 yang berbasiskan Linux, sehingga memungkinkan programmer untuk membuat aplikasi multi-platform.

Memulai Delphi 7
Langkah awal untuk menjalankan program Borland Delphi 7, adalah sebagai berikut :
Klik tombol Start yang terletak pada bagian Taskbar.
Pilih menu Programs 4 Borland Delphi 7, kemudian klik Delphi 7.
Akan tampil sebuah splash screen Borland Delphi 7. Tunggulah beberapa saat sampai program Borland Delphi 7 tampil memenuhi layar monitor.
Bidang kerja Intergrated Development Environment (IDE) Delphi 7 akan tampil memenuhi layar monitor Pada bidang inilah programmer dapat menumpahkan kreativitasnya dalam membuat program.

Langkah Awal Pembuatan Project
Pilih menu File New Application sehingga pada lembar kerja Delphi akan tampak sebuah form kosong.
Simpan rancangan project aplikasi yang masih kosong tersebut dengan perintah File Save All sehingga tampil kotak dialog Save Unit1 As. Pada bagian ini yang perlu diperhatikan bahwa direktori penyimpanan file harus diubah pada bagian Save in.
Selanjutnya masukkan nama unit pada bagian File Name dengan catatan nama unit tidak boleh sama dengan nama Form Designer, kemudian klik Save.
Kotak dialog berikutnya yang akan muncul adalah kotak dialog Save Project1 As. Kotak dialog ini digunakan untuk menentukan nama file Project yang diinginkan.

Setelah file Unit dan Project disimpan, maka delphi akan membentuk file-file dengan ekstensi berikut ini :
.dpr file Project yang berisi program utama dari aplikasi.
.pas file Unit yang digunakan untuk menangani kejadian (event) pada form.
.dfm file Form yang berisi daftar komponen berikut properti-propertinya.
.res file Resources yang berisi sebuh icon yang digunakan oleh project.
.dof file Options merupakan file yang berisi option-option dari suatu project yang dinyatakan melalui perintah Options dari menu Project.
.dcu file Unit Object merupakan file unit (.pas) yang telah dikompilasi oleh compiler yang akan dihubungkan dengan file eksekusi.
.exe file Executable yang dibentuk oleh kompiler dan merupakan file eksekusi (executable) dari program aplikasi.

Dengan menekan Tombol Ctrl + F12 atau Klik Menu View, Lalu Klik Unit maka akan ditampilkan :

Klik Prjakademik, lalu klik OK, maka akan ditampilkan program sumber dari file Prjakademik.dpr sebagai berikut :

program Prjakademik;
uses
Forms,
Uakademik in ‘Uakademik.pas’ {Form1};
{$R *.res}
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.

Berikut ini sumber dari File Akademik.pas :

unit Uakademik;
Interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;

Implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
Begin
end;
end.

Penjelasan Listing Uakademik.pas
Sebuah unit ditandai dengan kata kunci unit yang diikuti nama unit dan diletakkan pada baris pertama.
Pada dasarnya unit terdiri dari dua bagian utama, yaitu Interface dan Implementasion.
Interface, merupakan tempat untuk mendeklarasikan kelas, prosedure, variabel global atau konstanta global.
Implementation, bagian yang berisi implementasi kelas, prosedur atau fungsi yang dideklarasikan pada bagian interface
Komponen Borland Delphi
Untuk dapat membuat program aplikasi, programmer harus meletakkan komponen- komponen yang diambil dari component palatte serta mengatur tata letak komponen-komponen tersebut pada bagian form designer.
1. Meletakkan komponen pada form designer.
2. Mengubah Properties komponen.
3. Mengubah komponen Event
4. Jenis-jenis komponen standar Delphi 7.

Component, Property, Method, Event
Component merupakan sebuah objek pada Palette, : Objek adalah sebuah komponen dalam Component Palette, atau sesuatu yang dibuat melalui kode-kode / bahasa pemrograman
Property adalah sebuah nama/variabel milik sebuah objek/komponen misal Caption, Text yang dapat diubah nilai baik melalui object Inspector atau melalui program.
method adalah sebuah function/fungsi yang tergabung dalam sebuah objek. Contoh ListBox (dapat berarti sebuah array of strings) yang memiliki Method (Clear) yang membuat Listbox tersebut menjadi kosong.
Event adalah sebuah aksi pengguna (User Action) misal Mouse Click, KeyPressed. Setiap Events diawali dengan kata ‘On’.
Contoh :
Nama event Nama method
OnClick .. Button1Click(Sender : Tobject)
OnKeyDown .. Button1KeyDown(Sender : Tobject)
OnMouseMove .. Button1MouseMove(Sender : Tobject)

Pelatihan TIK pada FIP UNP Padang

FIP UNP Padang Mengadakan pelatihan TIK pada tanggal 3 Agustus 2009 sampai 6 Agustus 2009

Bunga

Ahmad Rizal Abidin, M.Kom

Bunga merupakan tanaman hias yang sangat digemari oleh semua orang karena keindahannya, begitu juga bagi penulis…, bunga bukan hanya indah, tetapi karena dengan bunga lah penulis dapat melanjutkan studi sampai sekarang ini.

Bunga yang ada di kampung halaman (Gisting Atas Blok 11, Depan SD N 1 Kec. Talang Padang, Kab. Tanggamus) merupakan penghasilan pokok dari orang tua, yang sudah merupakan pekerjaan turun temurun dari nenek. Menjual Bunga itulah pekerjaan orang tua penulis, berbagai macam bunga yang ada dipekarang rumah penulis merupakan bunga untuk diperjual belikan. Mulai dari bunga potong (dahlia, airbras, sedap malam, wamar, anggrek… dll) dan juga bunga hias (anthurium, adenium, kamboja, sirih merah… dll,)

Bunga di kampung halaman ? Indahnya bunga yang bermekaran tak dapat kunikmati lagi, Bau Bunga yang harum, juga tak lagi bisa dicium dari jarak yang cukup jauh…

yaa… itulah bunga dikampung halamanku,… indah dipandang, harum semerbak,  Kini Tinggal kenangan…

Smadav 2009

Ahmad Rizal Abidin, M.Kom

Bermasalah dengan komputer anda karena terkena virus…! anda bisa mencoba Smadav 2009 Rev. 5.2

Silakan download langsung dari situs http://www.smadav.net

Kampung Halaman

Gisting Atas Blok 11 Depan SD N 1,  Kec. TalangPadang, Kab. Tanggamus, tepatnya dilereng gunung Tanggamus dengan ketinggian 2.400 meter di atas permukaan laut, merupakan daerah yang sangat subur, kebanyakan masyarakatnya merupakan petani sayur mayur dan perkebunan Kopi, daerahnya dingin dan sejuk.

Tempat Pendidikan :

SD N 1 Gisting Atas, SMP Bhakti Kembang kantil (Gisting Bawah), SMA Santo Pius X, Gisting Bawah.

Kenangan :

Karena rumah tempat tinggal di lereng Gunung Tanggamus, sehingga sangat hobi sekali untuk mendaki Gunung tersebut, jalan menuju puncak gunung merupakan jalan setapak yang sangat terjal dan licin berlumut, yang paling terkesan adalah pada saat memasuki hutan lumut, dimana semua pohon dipenuhi lumut basah, sangat senang sekali memegang lumut tersebut sambil berjalan, tanpa disadari tangan menjadi beku karena sangat dingin. Karena begitu lebatnya hutan apabila kita melihat ke langit hanya nampak kelip-kelip sinar matahari diantara pepohonan tanpa bisa melihat awan.

Selain mendaki ke Puncak Gunung,  saya sangat suka menelurusi kali mati, ya kali mati merupakan sungai yang tidak ada air, tapi kalau lagi hujan lebat airnya sangat besar sekali, penuh dengan bebatuan dan pasir, sayang sekali saya tidak pernah sampai keujung kali mati tersebut, perjalanan menelurusi kali mati hanya sampai pada curah merupakan tebing batu yang sangat tinggi sekali dan diatasnya merupakan hamparan batu yang cukup luas dan panjang.

Daerah-daerah yang sering dikunjungi :

kali grem, (vila) Batu keramat, Way lalaan, pantai terbaya, pantai Batu kebo Kota Agung, Bukit Barisan Wonosobo, Wonotirto (Wonoarjo), Air Terjun Gunung Batu…

Kini tinggal kenangan…

salam buat rekan-rekan yang sekampung halaman

Ahmad Rizal Abidin

Page Rank

A.W.$urveys

Ingin mendapatkan uang dengan survey klik aja disini:

Perintah Dasar Sql (Mysql) pada VB 6

Perintah SQL Pada Visual Basic 6
Oleh : Ahmad Rizal Abidin, M.Kom
1. Instal mysql-essential-5.1.29-rc-win32
2. Instal mysql-connector-odbc-5.1.5-win32
3. Setting ODBC
a. Klik Start, All Program, Control Panel, Administrative Tools, Data Source (ODBC)
b. Pada ODBC Data source Administrator
- Klik System DSN, klik ADD
- Pilih ODBC Mysql 5.1 Driver, Lalu klik Finish
Data source Name : ODBC_stock
Server : Localhost
User : root
Pasword : ******
Database : stock
- Klik Test, maka tampil “connection successfull”
- Klik OK,
4. Aktifkan Microsoft Visual Basic 6
5. Pilih VB Enterprise Edition Control, lalu klik Open
6. Pada layar kerja VB Klik Project, Klik Add Module, Klik Open
Ketik Listing program berikut :
Public kondb As New ADODB.Connection
Public rs As New ADODB.Recordset
Public strconnect As String
Public strsql As String
Sub Pindah(KeyAscii As Integer)
If KeyAscii = 13 Then
KeyAscii = 0
SendKeys “{Tab}”
End If
End Sub
Public Function konek()
strconnect = “Provider = MSDASQL.1;persist security info = false; data source =odbc_stock;user id=root;pwd=”
If kondb.State = adStateOpen Then
kondb.Close
Set kondb = New ADODB.Connection
Set rs = New ADODB.Recordset
kondb.Open strconnect
Else
kondb.Open strconnect
End If
End Function
7. Klik File, Klik Save, lalu ketik mod_stock (module), form_barang (form1), stock (Project)
8. Aktifkan form 1 dengan cara klik Project Explorer, Klik Forms, lalu double klik Form 1 (Form1))
9. Buatlah sebuah form seperti gambar di bawah ini yang terdiri dari : label, textbox, datagrid dan CommanDButton

10. Apabila setelah selesai membuat form ketikan listing berikut dengan cara :
a. Double klik pada object form lalu ketikkan : (Form Load)
Private Sub Form_Load()
konek
kondb.CursorLocation = adUseClient
strsql = “SELECT * FROM BARANG”
Set rs = kondb.Execute(strsql)
Set DataGrid1.DataSource = rs
End Sub
b. Kembali ke form dan double klik tombol simpan : (command1)
Private Sub Command1_Click()
strsql = “insert into barang values (‘” + Text1.Text + “‘,’” + Text2.Text + “‘,’” + Text3.Text + “‘,’” + Text4.Text + “‘)”
Set rs = kondb.Execute(strsql)
End Sub
c. Kembali ke form dan double klik tombol Hapus : (command2)
Private Sub Command2_Click()
strsql = “delete from barang where kode_Barang =’” + Text1.Text + “‘”
Set rs = kondb.Execute(strsql)
End Sub
d. Kembali ke form dan double klik tombol Edit : (command3)
Private Sub Command3_Click()
strsql = “update barang set nama_Barang =’” + Text2.Text + “‘,satuan_barang = ‘” + Text3.Text + “‘ where kode_Barang=’” + Text1.Text + “‘”
Set rs = kondb.Execute(strsql)
End Sub
e. Kembali ke form dan double klik tombol Keluar : (command4)
Private Sub Command4_Click()
Unload me
End Sub
f. Kembali ke form dan double klik textbox kode barang : (text1) ganti event dari change menjadi key press
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
strsql = “select * from barang where kode_barang =’” + Text1.Text + “‘”
Set rs = kondb.Execute(strsql)
If rs.EOF Then
Text2.SetFocus
Else
Text2.Text = rs!nama_Barang
Text3.Text = rs!satuan_Barang
Text4.Text = rs!stok_barang
End If
End If
End Sub