Delphi7 Program Data Penduduk Sederhana

Assalamu'alaikum Warahmatullahi Wabarakatu. 

Pagi......Siang.........Sore.........Malam.........Tengah Malam.........Subuh............hahahahahha halo sobat blogger kali ini saya akan membagi pengetahuan lagi nih, sesuai judul posting di atas yaitu Membuat program data penduduk sederhana, menggunakan datagrid/ database. disini sudah pasti kalian tau bagaimana membuat dan mengkoneksikan DB, di posting kali ini saya hanya melihatkan listingnya saja, kalau kalian belum tau cara membuat/mengkoneksikan DB bisa kalian cari di Ommmm Google silahkan klik di sini broooo. Nah listingnya silahkan copy dibawah ini.

satu hal lagi semoga kalian sudah tau apa saja tools yang digunakan apabila tidak kalian bisa komentar di posting ini.

#listing HTML dibawah ini:

procedure TForm1.Button1Click(Sender: TObject);
begin
Table1.Append;
  Table1['NoKTP']:=edit1.Text;
  Table1['Nama']:=edit2.Text;
  Table1['Agama']:=edit3.Text;
  if RadioButton1.Checked=True then
  Table1['Jenkel']:= RadioButton1.Caption
  else if RadioButton2.Checked=true then
  Table1['Jenkel']:= RadioButton2.Caption;
  Table1.Refresh;
  ShowMessage('Data Tersimpan');

  edit1.Text:='';
  edit2.Text:='';
  edit3.Text:='';
  RadioButton1.Checked:=false;
  RadioButton2.Checked:=false;
  edit1.SetFocus;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Table1.Edit;
  Table1['Nama']:=edit2.Text;
  Table1['Agama']:=edit3.Text;
  if RadioButton1.Checked=True then
  Table1['Jenkel']:= RadioButton1.Caption
  else if RadioButton2.Checked=True then
  Table1['Jenkel']:= RadioButton2.Caption;
  Table1.Refresh;
  ShowMessage('Data TerEdit');
  edit1.Text:='';
  edit2.Text:='';
  edit3.Text:='';
  RadioButton1.Checked:=false;
  RadioButton2.Checked:=false;
  Button1.Enabled:=true;
  edit1.SetFocus;
end;

procedure TForm1.Edit1Exit(Sender: TObject);
var
ada:boolean;
begin
ada:=table1.findkey([edit1.Text]);
if ada then
begin
edit2.Text:=Table1['Nama'];
edit3.Text:=Table1['Agama'];
if Table1['Jenkel']=RadioButton1.Caption then
RadioButton1.Checked:=true
else if Table1['Jenkel']=RadioButton2.Caption then
RadioButton2.Checked:=true;

ShowMessage('Data Sudah Ada');
Button1.Enabled:=False;
end
else
edit2.SetFocus;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  Table1.Delete;
  edit1.Text:='';
  edit2.Text:='';
  edit3.Text:='';
  RadioButton1.Checked:=false;
  RadioButton2.Checked:=false;
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
close;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
  edit1.Text:='';
  edit2.Text:='';
  edit3.Text:='';
  RadioButton1.Checked:=false;
  RadioButton2.Checked:=false;
end;

end.

Setelah kalian sudah Copy listingnya Diminta koment TERIMA KASIHNYA broo....

OK itulah tadi postingan saya kali ini semoga bermanfaat dannn saatnya saya bilang Wasssalam