Radio Button Delphi 7.0

Contoh listing code simpan

procedure TForm1.Button1Click(Sender: TObject);

begin

table1.append;                                                                         // menyiapkan record

table1['nama']:=edit1.Text;                                                      // menyimpan dari edit

table1['agama']:=combobox1.Text;                                           // menyimpan dari combo

if radiobutton1.Checked=true then                                           //menyimpan dari radiobutton

        table1['jeniskelamin']:='Laki-laki'

else

        table1['jeniskelamin']:='Perempuan' ;

table1.Post ;                                                                                //mengeksekusi perintah simpan

showmessage('Data Telah Disimpan');

Edit1.Clear;

edit1.setfocus;

end;

SELAMAT MENCOBA.....