SCRIPT BUTTON DB-MAHASISWA DELPHI 7

 

#Script button TAMBAH

ketik di bawah var

Jeniskelamin: String;

ketik di bawah begin procedure

if RadioButton1.Checked = true then

 begin

   Jeniskelamin := 'Laki - Laki'

  end

  else if RadioButton2.Checked = true then

  begin

   Jeniskelamin := 'Perempuan'

  end;

ADOTable1.Append;

ADOTable1.FieldByName('Nama').AsString := Edit1.Text;

ADOTable1.FieldByName('NIM').AsString := Edit2.Text;

ADOTable1.FieldByName('Jenis Kelamin').AsString := jeniskelamin;

ADOTable1.FieldByName('Agama').AsString := ComboBox1.Text;

ADOTable1.FieldByName('Alamat').AsString := Edit3.Text;

ADOTable1.Post;

Edit1.Text := '';

Edit2.Text := '';

Edit3.Text := '';

end;

#Script button EDIT

ketik dibawah begin

if Button2.Caption = 'EDIT' then

  begin

   Edit1.Text := ADOTable1.FieldByName('Nama').AsString;

   Edit2.Text := ADOTable1.FieldByName('NIM').AsString;

   jeniskelamin := ADOTable1.FieldByName('Jenis Kelamin').AsString;

   ComboBox1.Text := ADOTable1.FieldByName('Agama').AsString;

   Edit3.Text := ADOTable1.FieldByName('Alamat').AsString;

   Button2.Caption := 'EDITED';

  end

 else if Button2.Caption = 'EDITED' then

  begin

   if RadioButton1.Checked = true then

 begin

   Jeniskelamin := 'Laki - Laki'

  end

  else if RadioButton2.Checked = true then

  begin

   Jeniskelamin := 'Perempuan'

  end;

ADOTable1.Edit;

ADOTable1.FieldByName('Nama').AsString := Edit1.Text;

ADOTable1.FieldByName('NIM').AsString := Edit2.Text;

ADOTable1.FieldByName('Jenis Kelamin').AsString := jeniskelamin;

ADOTable1.FieldByName('Agama').AsString := ComboBox1.Text;

ADOTable1.FieldByName('Alamat').AsString := Edit3.Text;

ADOTable1.Post;

Button2.Caption := 'EDIT';

end;

#Script button DELETE

ketik di bawah begin

ADOTable1.Delete;

#Script button CANCEL

ketik dibawah begin

Edit1.Text := '';

Edit2.Text := '';

Edit3.Text := '';

SELESAI SUDAH SCRIPTNYA, PERHATIKAN TANDA TITIK KOMA NYA YA,

JANGAN SAMPAI SALAH/KELEWAT SEDIKITPUN!

jangan lupa save file nya menggunakan save project as ya supaya

tidak eror.

#ByDikaGanteng:v

Subscribe to receive free email updates: