Membuat Database Biodata pada Borland Delphi

Baiklah blog saya kali ini akan membahas tentang langkah-langkah membuat Biodata database pada Borland delphi. berikut langkah-langkahnya :

1. Buka aplikasi Borland Delphi, lalu buat disain seperti dibawah ini

2. Jika sudah buat database pada Microsoft Access, seperti dibawah ini :

3. Lalu masukkan kodingan seperti dibawah ini pada Aplikasi Borland Delphi yang sudah di disain pada setiap Button

procedure TForm1.Button1Click(Sender: TObject);
VAR
MSQL:STRING;
begin
ADOCONNECTION1.Connected:=TRUE;
MSQL:='INSERT INTO BIODATA(KODE, NAMA,'+'JABATAN,GAJI) VALUES ("'+EDIT1.Text+'","'+EDIT2.Text+'","'+EDIT3.Text+'","'+EDIT4.Text+'")';
ADOCOMMAND1.CommandText:=MSQL;
ADOCOMMAND1.Execute;
EDIT1.Text:='';
EDIT2.Text:='';
EDIT3.Text:='';
EDIT4.Text:='';
ADODATASET1.Active:=FALSE;
ADOCONNECTION1.Connected:=TRUE;
MSQL:='SELECT*FROM BIODATA';
ADODATASET1.CommandText:=MSQL;
ADODATASET1.Active:=TRUE;


end;

procedure TForm1.Button2Click(Sender: TObject);
VAR
data:string;
begin
Adodataset1.Active:=false;
adoconnection1.Connected:=true;
data:='select*from biodata where kode="'+edit1.Text+'"';
adodataset1.CommandText:=data;
adodataset1.Active:=true;
end;

procedure TForm1.Button3Click(Sender: TObject);
VAR
DATA:STRING;
begin
ADODATASET1.Active:=FALSE;
ADOCONNECTION1.Connected:=TRUE;
DATA:='DELETE*FROM BIODATA WHERE KODE="'+EDIT1.Text+'"';
ADOCOMMAND1.CommandText:=DATA;
ADOCOMMAND1.Execute;

EDIT1.Text:='';
EDIT2.Text:='';
EDIT3.Text:='';
EDIT4.Text:='';



end;

procedure TForm1.Button4Click(Sender: TObject);
begin
APPLICATION.Terminate;
end;

end.

4. Jika sudah Connectkan

5. Jika sudah Connection Succeeded , maka run Aplikasi :

Ya sekian isi blog saya kali ini, semoga bermanfaat bagi para pembaca sekalian^^