Rabu, 20 Agustus 2014

contoh vb



Visual Basic adalahbahasapemrograman yang cukuppopulerdanmudahuntukdipelajari.Andadapatmembuatsuatu program dari Visual Basic dengandikombinasikan program lain seperti Microsoft Access ataupun SQL Server 2000. Dan disiniAndaakanmengkombinasi program Visual Basic dengan Microsoft SQL Server 2000. Untukmembuatsuatu program tentunyadimulaidenganmemperkirakankebutuhanataumenentukan field – field yang Andabutuhkan, merancangtampilan, danselanjutnyadiikutidenganpembuatankodeuntuk program tersebut.
Kali inikitaakanmembuat program mengenai “Data Pegawai”. Denganlangkahawalmenentukan field – field yang diantaranyaadalah : Nip, Nama , Alamat, TglLahir, Jabatan, danTglMasuk. Padaawalmateri kali iniAndaakanmempelajaribagaimanacarapembuatan Input Data. Sebelummemulaipembuatankode di Visual Basic Andaharusmembuat Database terlebihdahulu di SQL Server.Ikutilahlangkah – langkahberikutini :

Langkah 1
Buka Program SQL Server dengancaraPilih Start > All Program > Microsoft SQL Server > Enterprise Manager. (Sepertipadagambar 1)

gambar 1

Langkah 2
Setelahitukliktanda plus ( + ) pada Microsoft SQL servers >begitujugapada SQL Server Group dan (Local) (Window NT). Klikkananpada Database >pilih New Database.Iniadalahsebuahlangkahawaluntukmembuat database. (Sepertipadagambar 2)

gambar 2




Langkah 3
Muncullahlayarseperti di bawahini, pada tab General ketikkannama Database yang akandibuatmisal Data Pegawai. Laluklik OK. (Sepertipadagambar 3)

gambar 3


Langkah 4
Mulailahmembuat field – field dengancarakliktanda plus ( + ) Database yang berjudul Data Pegawai. Klikkananpada Tables >pilih New table. Dan ketikkan field-field yang sudahAndatentukanseperti di atasyaitu : Nip, Nama , Alamat, TglLahir, Jabatan, danTglMasuk. Janganlupapilih Data type varchar untuk variabel.SebelumAndamenyimpan Table tersebut.Andaharusmemberi Primery Key pada field Nip dengancaraklikkananpada Row Nip >pilih Set Primary Key. Untukmenyimpan table Andabisamengklik Icon Save yang terdapat di bawahMenuBar File. Save Table inidenganjudul Master Pegawai. (Sepertipadagambar 4)


gambar 4



Langkah 5
JikaAndasudahmembuat database sepertilangkah di atas.KiniAndasaatnyamemulaimembuka program Visual Basic 6.0 dengancaraPilih Start > All Program > Microsoft Visual Basic 6.0 >Pilih Microsoft Visual Basic 6.0. Padasaatpertama kali Anda menjalankan Visual Basic, akanditampilkankotak dialog New Project danlangsungsajakitapilihstandart EXE >klik Open. Makaakanmuncullayarseperti di bawahini : (Sepertipadagambar 5). 

gambar 5 
Langkah 6
SebelumAndamemulaiuntukmembuat Form Data Pegawai.AndaharusmemberikantoolADODC pada form1 ini. Tentunyapada toolbox tersediabelum ada tool ADODC. MakaAndahanyaperlupilihMenubar Project >Pilih Components.Makaakanmuncullayar Components, pilih Microsoft ADO Data Control 6.0 (OLEDB) >klik Apply > laluClose. (Sepertipadagambar 6.1)


Setelahituakanmuncul tool ADODC yang terletakpada toolbox di bawahsebelahkanan. Klik tool ADODC dantambahkanpada form1.Letakkanpadabawahsebelahkanan.MengapamembuatADODC ?KarenacarainiuntukmempermudahAndamengkoneksikanantara Microsoft SQL Server dan Visual Basic. (Sepertipadagambar 6.2)

gambar 6.2


Langkah 7
LangkahberikutnyaAndaharusmembuat Module.Module inibertujuanuntukmenghubungkanantara Microsoft SQL Server dan Visual Basic agar terkoneksi.Tambahkanlah Module dengancaraPilihMenubar Project >pilih Add Module >Laluklik Open. Makaakanmuncullayar Module, module inihanyauntukberisikankode, tidaksepertipada form. Kemudianketikkodepada Module seperti di bawahini : (Sepertipadagambar 7.1).

gambar 7.1 


Untukmelanjutkankodetersebut.Aktifkanlah ADODC pada form1, lalupilih ConectionStringpada Properties Window pada tab Alphabetic. Klikbertandatitiktiga kali tersebut.Makaakanmuncullayarsepertipadagambar 7.2.

gambar 7.2


Langkah 8
Kemudianpilihlah Build >Pada tab Provider pilih Microsoft OLE DB Provider for SQL Server >Lalupilih Next.Makaakanmuncullayar Data Link Properties (Sepertipadagambar 8). Tetappada tab Conection, pada Select or enter a sever name isinama server Andadandapatdilihatpada Start >Klikkananpada My Computer >Pilih Properties >Pilih tab yang bernamakan Computer name >disanaterdapat Full Computer name danketikkanpada option Select or enter a server name tersebut. Setelahitupilih Use Window NT Intergred Security >LangkahberikutnyaAndapilih Data Pegawaipada Select the database on the server. Jikasudah, Andaklik Test Connection untukmengetahuiapakahlangkah yang sudahAndalakukanberhasil.Jikabenarmakaakanmunculpesan Test Connection succeeded. Makaklik OK sajauntukmelanjutkanketahapselanjutnya. Setelahituklik OK lagi. (Sepertipadagambar 8.1)

https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiShebtLWVJJZhrBcl3dlGkDVVQOVKpS6oJefNTgio_UqGMKJZLv_GSWqG4wm7D7mr23uJpdAdZ8hWKukeE_M0NgCRDO_erxB0BpefsfRM9Xli1DCm6qplN0mtGo-gn2JshQ8A6sEl_nQQ/s320/gb+8.JPGgambar 8.1 

Makaakanmuncullayarseperti di bawahini, Makapada options Use Connection String bisaAnda copy darikalimat Provider sampaiakhirdengancarabloksemuanyalalutekan Ctrl + C (sepertipadagambar 8.2). Setelahitupilih close saja. JikasudahAnda copy, Andadapatkembalike Module.
gambar 8.2



Langkah 9
Pada Module iniAndalangsungsaja paste setelahAndamengetikkode yang terakhiryaitupetikdua( “ ) (kelanjutandarilangkahke – 7). Makahasilnyaakansepertigambar di bawahini (sepertigambar 9.1). 

gambar 9.1

Lalu Enter tambahkankodeseperti di bawahini : (sepertipadagambar 9.2). 

gambar 9.2


Simpanlah Module1 tersebutpadasebuah folder yang Andatentukanuntuk file Visual Basic. Karenanantinyaakanada 2 Form dan 1 Module serta 1 Project, jangansampai Form, Module dan Project terpisahkanfilenyakarenaakanmenyebabkan project tidakdapatdibukajikadijalankan di komputer lain.




Langkah 10


SetelahituAndaharusmembuat Form baruuntuk Master Pegawai.CaranyaadalahpilihProject > Add Form >Klik Open.Pada Toolbox, pilih TexBox untukmembuat Field di form. Buatlah 6 TexBoxsesuai Field yang sudahditentukansebelumnya, yaitu : Nip, Nama, Alamat, TglLahir, Jabatan, danTglMasuk. Selanjutnya, ubahlahnamanyapada Properties Window sesuai field yang ditentukan.Janganlupauntukmenghapustulisan text yang terdapatpadaTexBoxdengancara, pada properties Window pilih Text >tekan Delete. Lalutambahkan 6 Label di sebelahkiriTexBox, dengancarapilih Tool Label dangantiCaptionnyasesuai field yang sudahditentukan. Kemudianpilihlah Command Button padaToolBox, danbuatsatu command Button (tombol) untuk Input Data. Ganticaptionnyamenjadi Input danbegitujugapada Name.Sehingga Form2 akantampilsepertipadagambar 10. Janganlupauntukmenyimpan Form2 dengannamaForm_MasterPegawai.


gambar 10. 


Tidak ada komentar:

Posting Komentar