Selasa, 01 Mei 2012

Membuat aplikasi Data Pribadi

Ass..... Sahabat ku mari kita belajar Delphi lagi.....
langsung saja kita ke topik masalah yang akan kita bahas kali ini, yaitu membuat program Aplikasi Data Pribadi . disi Kita membutuhkan Form tentunya dan 8 buah Tlabel ,5 buah Tedit,1 buah TdataTime ,3 buah Tbit btn ,Tlishbox dsb.....dan jangn lupa menjalan kan program Delphinya.
berikut adalah code untuk tombol proses sahabat dengan cara mendouble clik tombol agar muncul spt dibawah ini :
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
    ListBox1.Items.add('NAMA LENGKAP  : '+Edit1.Text );
    ListBox1.Items.add('TANGGAL LAHIR : '+datetostr(lahir.date));
    ListBox1.Items.add('ALAMAT        : '+Edit3.Text);

    if RadioButton1.Checked then
    ListBox1.Items.Add('JENIS KELAMIN : '+RadioButton1.Caption) ELSE
    ListBox1.Items.Add('JENIS KELAMIN : '+RadioButton2.Caption);

    ListBox1.Items.add('PENDIDIKAN    : '+Edit2.Text);
    ListBox1.Items.add('AGAMA         : '+Edit4.Text);
    ListBox1.Items.add('MOTTO HIDUP   : '+Edit5.Text);
end;
 selanjutnya untuk code tombol clear atau ulangnya sahabat jangan lupa... masukan pula spt ini.
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
    Edit1.Clear;
    Edit2.Clear;
    Edit3.Clear;
    Edit4.Clear;
    Edit5.Clear;
    ListBox1.Clear;

Seperti ini lah Outputnya Sahabat......

Semoga bermanfaat ....dan jangn lupa komentarnya, agar dapat menjadi acuan untuk menjadi lebih baik . Haturnuhunnnnn ......hehehehe


0 komentar:

Posting Komentar