Array pada pascal

ARRAY / LARIK

Array (
larik ) adalah tipe terstruktur yang terdiri dari sejumlah komponen yang
mempuyai tipe sama.

B.U :
Array [ 1 . . 20 ] of tipe_data ; (Dimensi 1)

B.U :
Array [1 . . 3 , 1 . . 2] of tipe_data; (Dimensi 2)

Contoh
Program Array :

Uses crt ;

Var

Nama : array [1..30 ] of string ;

Tugas, uts, uas, absen : array [1..30] of integer ;

Rata : array [1..30] of real ;

x , jd : byte;

BEGIN

CLRSCR ;

Write ( 
‘
Masukan Jumlah data : 
‘
) ; readln ( jd ) ;

For x : = 1 to jd do

begin

Writeln ( 
‘
***************************** 
‘
) ;

Writeln ( 
‘
PENILAIAN UJIAN MAHASISWA BSI 
‘
) ;

Writeln ( 
‘
***************************** 
‘
) ;

Write ( 
‘
Input Nama : 
‘
) ; readln (nama[x] ) ;

Write ( 
‘
Input Nilai Tugas : 
‘
) ; readln (tugas[x] ) ;

Write ( 
‘
Input Nilai Absen : 
‘
) ; readln (absen[x] ) ;

Write ( 
‘
Input Nilai UTS : 
‘
) ; readln (uts[x] ) ;

Write ( 
‘
Input Nilai UAS : 
‘
) ; readln (uas[x]) ;

Rata[x]:=(0.1*tugas[x])+(0.2*absen[x])+(0.3*uts[x])+(0.4*uas[x]);

End ;

CLRSCR ; 

For i : = 1 to j do

Begin

Writeln ( 
‘
***************************** 
‘
) ;

Writeln ( 
‘
PENILAIAN UJIAN MAHASISWA BSI 
‘
) ;

Writeln ( 
‘
***************************** 
‘
) ;

Writeln ( 
‘
Nama : 
‘
, nama[i] ) ;

Writeln ( 
‘
Nilai Tugas : 
‘
, tugas[i] ) ;

Writeln ( 
‘
Nilai Absen : 
‘
, absen[i] ) ;

Writeln ( 
‘
Nilai UTS : 
‘
, uts[i] ) ;

Writeln ( 
‘
Nilai UAS : 
‘
, uas[i]) ;

Writeln ( 
‘
**************************** 
‘
) ;

Writeln ( 
‘
Rata-rata : 
‘
, rata : 1: 0 ) ;

Readln ;

End;

END.

Contoh dari Program Array

program ayam_goreng;

uses crt;

var

i,b:byte;

jenis,kdjenis:array [1..50]of string;

banyak,jmlharga,harga:array [1..50]of real;

totb,ppn,totjml,total:real;

begin

clrscr;

writeln(‘Ayam Goreng Fried Chicken’);

writeln(‘========================’);

writeln(‘Kode Jenis potong Harga’);

writeln(‘=============================’);

writeln(‘D Dada 3000 ‘);

writeln(‘P Paha 2500 ‘);

writeln(‘S Sayap 1500 ‘);

writeln(‘=============================’);

write(‘Masukan Jumlah Jenis : ‘);readln(b);

for i:=1 to b do

begin

writeln;

writeln(‘Jenis Ayam ke- ‘,i);

writeln;

write(‘Jenis Ayam Bagian [D/P/S] : ‘);readln(kdjenis[i]);

write(‘Jumlah Beli / Potong : ‘);readln(banyak[i]);

end;

writeln; clrscr;

writeln(‘ PROGRAM AYAM GORENG FRIED CHICKEN’);

writeln(‘======================================================================’);

writeln(‘NO JENIS POTONG HARGA SATUAN BANYAK BELI
JUMLAH HARGA ‘);

writeln;

totb:=0;

for i:=1 to b do

begin

if kdjenis[i]=’D’ then

begin

jenis[i]:=’Dada’;

harga[i]:=3000;

end

else if kdjenis[i]=’P’ then

begin

jenis[i]:=’Paha’;

harga[i]:=2500;

end

else if kdjenis[i]=’S’ then

begin

jenis[i]:=’Sayap’;

harga[i]:=1500;

end

else

begin

jenis[i]:=’Kepala’;

harga[i]:=1000;

end;

jmlharga[i]:=harga[i]*banyak[i];

totb:=totb+jmlharga[i];

ppn:=totb*0.1;

totjml:=totjml+banyak[i];

total:=totb+ppn

end;

for i:=1 to b do

begin

writeln(i:1,jenis[i]:9,harga[i]:14:0,banyak[i]:18:0,jmlharga[i]:19:0);

end;

writeln(‘=================================================================’);

writeln(‘ Jumlah Potong :
‘,totjml:2:0);

writeln(‘ Jumlah bayar :
‘,totb:2:0);

writeln(‘ PPN 10 % :
‘,ppn:2:0);

writeln(‘ Total bayar :
‘,total:2:0);

readln;

end.

Contoh Array Nilai siswa

uses crt;

var Nilai : array[1..50] of real;

jumlah, rata : real;

i,a, JumDat : byte;

nama : string;

begin

clrscr;

{jumlah:=0;}

writeln(‘ Nilai Rata – Rata Praktikum Kelas
TK2A’);

Writeln(‘—————————————’);

write(‘Nama Mahasiswa =’ );readln(nama);

Write(‘Berapa Jumlah data = ‘);readln(JumDat);

for i := 1 to Jumdat do

begin

Write(‘Nilai Praktiklum ke
‘,i,’=');Readln(Nilai[i]);

end;

jumlah:=0;

for i:= 1 to JumDat do

begin

Jumlah := jumlah + Nilai[i];

rata := Jumlah/JumDat;

end;

writeln;

clrscr;

writeln(‘Nama Mahasiswa =’,nama);

for i := 1 to jumdat do

begin

writeln(‘Nilai Praktekm ke-’,i,’
=’,nilai[i]:3:0);

end;

writeln(‘Total Nilai = ‘, jumlah:8:0);

writeln(‘Nilai Rata – rata = ‘, Rata:8:1);

readln;

end.

Contoh Array

uses crt;

var Nilai : array[1..50] of real;

jumlah, rata : real;

i,a, JumDat : byte;

nama : string;

begin

clrscr;

{jumlah:=0;}

writeln(‘ Nilai Rata – Rata Praktikum Kelas
TK2A’);

Writeln(‘—————————————’);

write(‘Nama Mahasiswa =’ );readln(nama);

Write(‘Berapa Jumlah data = ‘);readln(JumDat);

for i := 1 to Jumdat do

begin

Write(‘Nilai Praktiklum ke
‘,i,’=');Readln(Nilai[i]);

end;

jumlah:=0;

for i:= 1 to JumDat do

begin

Jumlah := jumlah + Nilai[i];

rata := Jumlah/JumDat;

end;

writeln;

clrscr;

writeln(‘ Nilai Rata – Rata Praktikum Kelas
TK2A’);

Writeln(‘—————————————’);

writeln(‘Nama Mahasiswa =’,nama);

writeln(‘ÉÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍ» ‘);

writeln(‘º Praktikum º Nilai º ‘);

writeln(‘ÌÍÍÍÍÍÍÍÍÍÍÍÎÍÍÍÍÍÍ͹ ‘);

for i := 1 to jumdat do

begin

writeln(‘º’,’ ke-’,i,’ º’,
nilai[i]:3:0,’ º’);

end;

writeln(‘ÈÍÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍͼ’);

writeln(‘Total Nilai = ‘, jumlah:8:0);

writeln(‘Nilai Rata – rata = ‘, Rata:8:1);

readln;

end.

Contoh Array Agen Bus

Program Harga_Tiket;

uses crt;

var np:array[1..50] of string;

jb:array[1..50] of real;

jbyr:array[1..50] of real;

jml,a:byte;

tot:real;

ask:char;

label

baru;

begin

baru:

clrscr;

textcolor(7);

writeln(‘AGEN BUS MALAM “LENGAH TENTREM”‘);

writeln;

write(‘Masukkan Jumlah Penumpang :
‘);readln(jml);

writeln;

for a:=1 to jml do

begin

writeln(‘Data Ke -’,a);

write(‘Nama Penumpang : ‘);readln(np[a]);

write(‘Jumlah Beli : ‘);readln(jb[a]);

end;

clrscr;

writeln(‘DATA PENJUALAN TIKET’);

writeln(‘AGEN BUS MALAM “LENGAH TENTREM”‘);

writeln(‘—————————————————-’);

writeln(‘No. Nama Penumpang Jumlah Beli
Jumlah Pembayaran’);

writeln(‘—————————————————-’);

for a:=1 to jml do

jbyr[a]:=jb[a]*25000;

for a:=1 to jml do

writeln(a:1,np[a]:10,jb[a]:10:0,jbyr[a]:27:3);

begin

writeln(‘—————————————————-’);

tot:=0;

tot:=tot+jbyr[a];

writeln(‘Total
Pembayaran Rp.’,tot:10:3);

writeln(‘—————————————————-’);

writeln;

write(‘Anda Ingin Memasukkan Data
Selanjutnya [Y/T] ? ‘);readln(ask);

if (ask=’Y')or(ask=’y') then goto baru;

end;

end.

Contoh Array data karyawan

uses crt;

var

nama:array[1..10]of string[20];

alamat:array[1..20]of string[30] ;

jml_gaji:array[1..20]of real;

i,j:byte;

begin

clrscr;

write(‘masukan jumlah Data :’);readln(j);

for i:=1 to j do

begin

writeln(‘data ke- ‘,i);

write(‘nama Karyawan :’);readln(nama[i]);

write(‘masukan Alamat :’);readln(alamat[i]);

write(‘jumlah Gaji
:’);readln(jml_gaji[i]);

end;

clrscr;

writeln(‘ DATA GAJI KARYAWAN’);

writeln(‘======================================’);

writeln(‘No. Nama Karyawan Total Gaji ‘);

writeln(‘=======================================’);

for i:=1 to j do

begin

writeln(i:1,nama[i]:15,jml_gaji[i]:15:0);

end;

writeln(‘=======================================’);

readln

end.

Contoh Array Penjualan Susu

Uses crt;

Var i,j:integer;

merk:array[1..5] of string[10];

ukuran:array[1..5] of char;

jumbel,harsat:array[1..5] of integer;

harkot,pot,harsih:array[1..5] of real;

Begin

clrscr;

Write(‘Banyaknya Pembelian : ‘);readln(i);

Writeln;

For j:=1 to i do

Begin

Writeln(‘Data Ke-’,j);

Write(‘Merk Susu : ‘);Readln(merk[j]);

Write(‘Ukuran [K/S/B] :
‘);Readln(ukuran[j]);

Write(‘Jumlah Beli :
‘);Readln(jumbel[j]);

If merk[j]=’Dancow’ then

Case ukuran[j] of

‘K’:harsat[j]:=6500;

‘S’:harsat[j]:=9500;

‘B’:harsat[j]:=13500;

End

Else If merk[j]=’Bendera’ then

Case ukuran[j] of

‘K’:harsat[j]:=8500;

‘S’:harsat[j]:=13500;

‘B’:harsat[j]:=18500;

End

Else

Case ukuran[j] of

‘K’:harsat[j]:=9500;

‘S’:harsat[j]:=16500;

‘B’:harsat[j]:=23500;

End;

If jumbel[j]>=15 then

Begin

harkot[j]:=jumbel[j]*harsat[j];

pot[j]:=0.1*harkot[j];

harsih[j]:=jumbel[j]*harsat[j]-pot[j];

End

Else if jumbel[j]>=30 then

Begin

harkot[j]:=jumbel[j]*harsat[j];

pot[j]:=0.2*harkot[j];

harsih[j]:=jumbel[j]*harsat[j]-pot[j];

End

Else

Begin

harkot[j]:=jumbel[j]*harsat[j];

pot[j]:=0*harkot[j];

harsih[j]:=jumbel[j]*harsat[j]-pot[j];

End;

End;

clrscr;

Gotoxy(1,1);Writeln(‘===========================================================================’);

Gotoxy(2,2);Writeln(‘No’);

Gotoxy(7,2);Writeln(‘Merk’);

Gotoxy(16,2);Writeln(‘Ukuran’);

Gotoxy(24,2);Writeln(‘Jumlah’);

Gotoxy(32,2);Writeln(‘Harga’);

Gotoxy(55,2);Writeln(‘Potongan’);

Gotoxy(70,2);Writeln(‘Total’);

Gotoxy(1,3);Writeln(‘Urut’);

Gotoxy(7,3);Writeln(‘Susu’);

Gotoxy(16,3);Writeln(‘Kaleng’);

Gotoxy(25,3);Writeln(‘Beli’);

Gotoxy(32,3);Writeln(‘Satuan’);

Gotoxy(70,3);Writeln(‘Bayar’);

Gotoxy(1,4);Writeln(‘===========================================================================’);

For j:=1 to i do

Begin

Gotoxy(1,j+4);Writeln(j);

Gotoxy(7,j+4);Writeln(merk[j]);

Gotoxy(18,j+4);Writeln(ukuran[j]);

Gotoxy(26,j+4);Writeln(jumbel[j]);

Gotoxy(32,j+4);Writeln(‘Rp’,harsat[j]);

Gotoxy(55,j+4);Writeln(‘Rp ‘,pot[j]:0:2);

Gotoxy(67,j+4);Writeln(‘Rp ‘,harsih[j]:5:2);

End;

Writeln(‘===========================================================================’);

Readln;

End.

Contoh Array Toko serba ada

uses crt;

var

np:string[20];

jd,i:byte;

nb:array[1..50]of string;

jb,ttl,hrg:array[1..50]of real;

tot:real;

lagi:char;

label awal,akhir;

begin

awal:

clrscr;

writeln(‘TOKO “SERBA ADA”‘);

writeln(‘————————-’);

write(‘masukan nama pembeli :’);readln(np);

write(‘masukan jumlah data :’);readln(jd);

for i:=1 to jd do

begin

writeln(‘data ke- ‘,i);

write(‘nama barang :’);readln(nb[i]);

write(‘jumlah beli :’);readln(jb[i]);

write(‘harga :’);readln(hrg[i]);

end;

clrscr;

writeln(‘ TOKO “SERBA
ADA”‘);

writeln(‘ TABEL PENJUALAN
BARANG’);

writeln(‘———————————————————–’);

writeln(‘No. Nama pembeli Nama barang
Jumlah harga total ‘);

writeln(‘———————————————————–’);

tot:=0;

for i:=1 to jd do

begin

ttl[i]:=hrg[i]*jb[i];

tot:=tot+ttl[i];

end;

for i:=1 to jd do

begin

writeln(i:1,np:10,nb[i]:13,jb[i]:12:0,hrg[i]:8:0,ttl[i]:10:0);

end;

writeln(‘————————————————————-’);

writeln(‘total bayar
= ‘,tot:3:0);

writeln(‘————————————————————-’);

write(‘Mau input data
lagi[Y/T]=’);readln(lagi);

if (lagi=’Y') or (lagi=’y') then

goto awal

else

goto akhir;

akhir:

readln;

end.

Contoh Array Bengkel

program bengkel;

uses crt;

var

i,b:byte;

nm,nmoli,jnsmbl:array [1..50]of string;

hrg,bonus,hrgsev,hrgoli,tot:array [1..50]of
real;

totb:real;

begin

clrscr;

writeln(‘BENGKEL MAJU MUNDUR’);

writeln(‘========================’);

write(‘Masukan data: ‘);readln(b);

for i:=1 to b do

begin

writeln(‘data ke- ‘,i);

writeln;

write(‘nama pengunjung :’);readln(nm[i]);

write(‘jenis kendaraan [1. mobil| 2.
motor]:’);readln(jnsmbl[i]);

write(‘jenis oli [ 1. castrol| 2. pelumas
pertamina]:’);readln(nmoli[i]);

end;

writeln;

writeln(‘ PROGRAM SERVIC BENGKEL
MAJU MUNDUR’);

writeln(‘======================================================================’);

writeln(‘NO NAMA PENGUNJUNG JENIS
KENDARAAN JENIS OLI TOTAL ‘);

writeln;

totb:=0;

for i:=1 to b do

begin

if jnsmbl[i]=’1′ then

hrgsev[i]:=30000

else

hrgsev[i]:=20000;

if nmoli[i]=’2′ then

hrgoli[i]:= 20000

else

hrgoli[i]:=30000;

tot[i]:=hrgsev[i]+hrgoli[i];

totb:=totb+tot[i];

end;

for i:=1 to b do

begin

writeln(i:1,nm[i]:9,hrgsev[i]:14:0,hrgoli[i]:18:0,tot[i]:19:0);

end;

writeln(‘=================================================================’);

writeln(‘total bayar
:’,totb:2:0);

readln;

end.

Contoh Array Kereta

uses crt;

var

jp,i:byte;

np,nk:array[1..50]of string;

fsl:array[1..50]of char;

jml,hrg,ttl:array[1..50]of real;

tot:real;

lagi:char;

label awal,akhir;

begin

awal:

clrscr;

writeln(‘STASIUN “HARUS BERHENTI” ‘);

writeln(‘================================’);

write(‘masukan jumlah pemesan :’);readln(jp);

for i:=1 to jp do

begin

writeln(‘Data ke- ‘,i);

write(‘Nama pemesan :’);readln(np[i]);

write(‘Nama kereta :’);readln(nk[i]);

writeln(‘fasilitas [ 1.VVIP 3.BISNIS ');

write(' 2.VIP 4.EKONOMI ]
=’);readln(fsl[i]);

write(‘jumlah pesan :’);readln(jml[i]);

end;

writeln(‘ STASIUN “HARUS
BERHENTI” ‘);

writeln(‘ PROGRAM PENJUALAN TIKET
KERETA API’);

writeln(‘————————————————————————-’);

writeln(‘NO. Nama Pemesan Nama Kereta
Fasilitas Jumlah Pesan harga total’);

tot:=0;

for i:=1 to jp do

begin

if fsl[i]=’1′ then

hrg[i]:=200000

else

if fsl[i]=’2′ then

hrg[i]:=180000

else

if fsl[i]=’3′ then

hrg[i]:=140000

else

hrg[i]:=80000;

ttl[i]:=hrg[i]*jml[i];

tot:=tot+ttl[i];

end;

for i:=1 to jp do

begin

writeln(i:1,np[i]:10,nk[i]:12,fsl[i]:15,jml[i]:14:0,hrg[i]:12:0,ttl[i]:10:0);

end;

writeln(‘————————————————————————–’);

writeln(‘total pembayaran
=’,tot:9:0);

writeln(‘————————————————————————–’);

write(‘Mau input data lagi[Y/T]=’);readln(lagi);

if (lagi=’Y') or (lagi=’y') then

goto awal

else

goto akhir;

akhir:

readln;

end.

pembuatan password di C++

Contoh Pembuatan Password di C++

#include<stdio.h>

#include<conio.h>

#include<iostream.h>

main()

{

char nama[20], kelas[10], password[4];

atas:

cout<<endl<<endl<<endl;

cout<<"\t\t                                             
"<<endl;

cout<<"\t\t           S E L A M A T   D A T A N G 
      "<<endl;

cout<<"\t\t                                             
"<<endl;

cout<<"\t\t      Silahkan masukkan User Name&Password   
"<<endl;

cout<<"\t\t                                             
"<<endl;

cout<<endl;

cout<<"\t\t         UserName  : ";cin>>nama;

cout<<"\t\t         Kelas     : ";cin>>kelas;

cout<<"\t\t         Password  : ";cin>>password;

if (strcmp(password,"aaa")==0)

  {//strcpy(pwd="aaa");

  cout<<"\t\t Terima Kasih atas
Partisipasinya……..!"<<endl;

  cout<<"\t\t Tekan Sembarang Tombol…!"<<endl;

  goto bawah;

  }

else

  {

  cout<<endl<<endl;

  cout<<" Password Salah…..!"<<endl;

  getch();

  clrscr();

  goto atas;

  }

bawah:

getch();

}

pencarian menggunakan metode find dalam visual basic

1. Metode Find

    Metode Find digunakan untuk menentukan lokasi record yang memenuhi syarat atau kriteria tertentu. krtiteria yang dimaksudkan adalah nilai pembanding dari field kunci. Pada ADO hanya mengenal satu metode Find, tidak seperti pada DAO yang metodenya terdiri dari FindFirst, FindLast, FindNext, dan FindPrevious.

Untuk lebih jelasnya coba buat desain program pencarian seperti dibawah ini :

komponen tambahan dalam program ini adalah :
a. Microsoft Ado data Control 6
b. Microsoft DataGrid Control 6

Setelah mendesain form seperti diatas, lalu buat database dengan microsoft access seperti dibawah ini lalu isikan beberapa record untuk pencarian nanti :

Nama database : Latihan.mdb

Nama Tabel      : MHS

FIELD	DATA TYPE	SIZE
NRP	TEXT	10
NAMA	TEXT	35
JURUSAN	TEXT	25
NILAI	TEXT	3

Kemudian buat modul baru untuk koneksi database, klik Menu Project > Add Modul > Open,,

setelah muncul jendela kode modul,,isikan kode berikut untuk koneksinya :

Public conn As New ADODB.Connection


Sub koneksi()
Set conn = New ADODB.Connection


conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "/latihan.mdb;Persist Security Info=False"
End Sub

Jika kode koneksi sudah diisikan pada modul, langkah berikutnya tutup jendela modulnya lalu pada pada jendela kode form_active isikan kode berikut untuk memanggil modul koneksi dan untuk mengisi connection string pada Adodc.

Call koneksi
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "/latihan.mdb;Persist Security Info=False"
Adodc1.RecordSource = "MHS"
Adodc1.RecordSource = "select * from MHS"
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
DataGrid1.Refresh
txtcari.SetFocus

Kemudian klik dua kali pada tombol Cari Dengan Find atau cmdfind hingga muncul jendela kode untuk cmdfind, lalu tuliskan kode pencarian find seperti dibawah ini :

Private Sub cmdfind_Click()
Dim cari As String
cari = "NRP = '" & txtcari & "'"
Adodc1.Refresh
With Adodc1.Recordset
.Find cari
If Not .EOF Then
    MsgBox .Fields(0) & "-" & .Fields(1), vbExclamation, "Pencarian Data Find"
    Else
    MsgBox "Data Mahasiswa Dengan NRP " & txtcari & " tidak ada", vbCritical, "Perhatian"
    txtcari = ""
    Text1.SetFocus
    End If
End With
End Sub

Jika sudah, coba jalankan programnya, lalu inputkan NRP pada Text Box Cari NRP kemudian klik tombol Cari Dengan Find yang sudah kita isikan kode perintah pencarian dengan metode find.
Jika data ditemukan maka akan muncul pesan yang berisi data NRP dan Nama seperti gambar dibawah ini :
 

2. Metode Move

    Pencarian dengan metode move arah pencariannya dilakukan secara berurutan, bisa dari awal record ke akhir record atau sebaliknya. Prinsip kerja dari move adalah dengan membandingkan data yang dicari dengan data yang sudah tersimpan secara satu per satu.

Sekarang kita buat contoh pencarian dengan menggunakan metode move,,
Klik dua kali pada tombol Cari Dengan Move sampai muncul jendela kode, lalu isikan dengan kode perintah berikut :

Adodc1.Refresh
With Adodc1.Recordset
.MoveFirst
Do While Not .EOF
    If txtcari = .Fields("NRP") Then
    MsgBox "Data Mahasiswa yang dicari adalah " & vbCrLf & .Fields("NRP") & " " & .Fields("NAMA"), vbExclamation, "Pencarian Data Move"
    Exit Do
    End If
    .MoveNext
Loop
If .EOF Then MsgBox "Data tidak Ada !", vbCritical, "Perhatian"
End With

Kemudian jalankan program dengan mengklik tombol start atau menkan tombol F5 pada keyboard, isikan NRP pada text Cari NRP lalu klik tombol Cari Dengan Move, seperti gambar berikut ini :

 

3. Metode SQL

    Sebenarnya pencarian dengan metode SQL lebih tepat dikatakan sebagai penyaringan data (Filter), karena data yang tampil merupakan hasil dari penyaringan data sesuai dengan kriteria yang ditampilkan. Jadi dengan metode tertentu, data yang ditampilkan bukan hanya satu data, tetapi bisa banyak data asal kuncinya hampir sama dengan kriteria yang dimaksudkan.

Untuk contoh penggunaan SQL sebagai pencarian, sebagai berikut :

Klik dua kali pada txtcarisql atau text Cari NRP Dengan SQL kemudian isikan kode pencarian seperti dibawah ini :

Private Sub txtcarisql_Change()
If txtcarisql.Text = Empty Then
    Adodc1.RecordSource = "select * from MHS"
Else
    Adodc1.RecordSource = "select * from MHS where NRP like '%" & txtcarisql.Text & "%'"
End If
Adodc1.Refresh
If Not Adodc1.Recordset.EOF Then
    If txtcarisql.Text = Empty Then
    lblnama.Caption = ""
    lbljurusan.Caption = ""
    lblnilai.Caption = ""
    Else
With Adodc1.Recordset
lblnama.Caption = .Fields("NAMA")
lbljurusan.Caption = .Fields("JURUSAN")
lblnilai.Caption = .Fields("NILAI")
    End With
End If
    Else
    lblnama.Caption = ""
    lbljurusan.Caption = ""
    lblnilai.Caption = ""
End If
End Sub     

Sekarang jalankan programnya lalu inputkan NRP dengan 2 digit dulu, misalkan "01" lalu perhatikan perubahan data yang terjadi pada datagrid. Jika ditampilkan secara lengkap maka tampilan data dalam datagrid seperti gambar berikut ini :

simpan,edit dan hapus data pada database di visual basic

pada artikel kali ini saya akan membahas tentang bagaimana cara membuat perintah simpan, edit dan hapus data pada database di visual basic.
pada pembuatan program kali ini struktur database yang akan saya gunakan adalah sebagai berikut :
nama database = DBData
nama tabel = mhs
field dari tabel mhs = nrp, nama, jurusan
type data = text
Untuk keterangan bagaimana cara membuat database silahkan lihat pada artikel sebelumnya .
Jika sudah membuat database, untuk koneksi dan menampilkan data dari tabel database kali ini saya akan menggunakan komponen Data, dan DBGrid.
 

 
 Setelah menambahkan component DBGrid pada Toolbox, buatlah desain form seperti ini :
 

 
Untuk cara koneksi database nya, pada Properties Data1 > DatabaseName cari dan buka file DBData.mdb yang telah kita buat. kemudian masih pada Properties Data1 > Recordsource, pilih = mhs.
seperti pada gambar berikut :
 

 
Setelah itu pada DBGrid1 Properties > DataSource atur menjadi Data1.
 

 
Sampai disini kita sudah berhasil mengkoneksikan database dengan menggunakan Data1.,
Setelah database sudah terkoneksi dengan form, sekarang kita akan membuat perintah simpan, edit, hapus pada command button.
Pertama klik 2 kali pada Command Button Simpan, kemudian ketikkan koding berikut ini pada jendela kode :
 
Private Sub Command1_Click()
'Addnew = untuk membuat atau menambah data baru
Data1.Recordset.AddNew
'perintah untuk menyimpan data yang di inputkan pada textbox ke dalam field database
Data1.Recordset!nrp = Text1.Text
Data1.Recordset!nama = Text2.Text
Data1.Recordset!jurusan = Text3.Text
'update = perintah untuk mengupdate data yang telah ditambahkan
Data1.Recordset.Update
'perintah untuk merefresh grid ketika data sudah ditambahkan
DBGrid1.Refresh
'perintah untuk mengkosongkan textbox setelah data disimpan
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub
 
Kemudian Klik 2 kali pada Command Button Edit, lalu pada jendela kode, ketikkan kode perintah berikut :
 
Private Sub Command2_Click()
'Edit = untuk mengedit data yang sudah ada
Data1.Recordset.Edit
'perintah untuk menyimpan data yang di sudah di edit
Data1.Recordset!nrp = Text1.Text
Data1.Recordset!nama = Text2.Text
Data1.Recordset!jurusan = Text3.Text
Data1.Recordset.Update
DBGrid1.Refresh
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub
 
Untuk perintah hapus data, klik 2 kali Command Button Hapus, kemudian ketikkan kode perintah berikut :
 
Private Sub Command3_Click()
Data1.Recordset.Delete
DBGrid1.Refresh
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub
 
Untuk Menampilkan data yang akan di edit pada Textbox, klik 2 kali pada DBGrid1, kemudian ketikkan perintah program berikut :
 
Private Sub DBGrid1_Click()
'kode perintah untuk menampilkan data yang sudah disimpan di dalam grid ke textbox
Text1.Text = Data1.Recordset!nrp
Text2.Text = Data1.Recordset!nama
Text3.Text = Data1.Recordset!jurusan
End Sub
 
Jika semua kode program sudah di ketikkan pada jendela kode,,setelah itu jalankan program dengan mengklik tombol run atau tombol F5 pada keyboard.