Source Code Simpan, Delete, Refresh, dan Exit pada Delphi

Source Code Simpan, Delete, Refresh, dan Exit pada Delphi - bagi teman-teman yang ingin kode untuk membuat aplikasi dengan delphi, disini saya akan membagikan Source code Simpan, Delete, Refresh, dan Exit.

Source Code Delphi adalah sebagai berikut:

Code Simpan

ADOQuery1.Close;

ADOQuery1.SQL.Clear;

ADOQuery1.SQL.Append('insert into pelajar values('''+Edit1.Text+''','''+Edit2.Text+''','''+Edit3.Text+''','''+DateToStr(DateTimePicker1.Date)+''','''+ComboBox1.Text+''','''+Edit5.Text+''','''+ComboBox2.Text+''','''+Edit6.Text+''')');

ADOQuery1.ExecSQL;

Code Delete

if (MessageDlg('Yakin Hapus Data Anda?',mtConfirmation,[mbYes,mbNo],0)=mrYes)then

begin

ADOQuery1.Close;

ADOQuery1.SQL.Clear;

ADOQuery1.SQL.Append('Delete From pelajar where ID_PELAJAR='''+Edit1.Text+'''');

ADOQuery1.ExecSQL;

MessageDlg('DATA ANDA SUDAH DIHAPUS',mtConfirmation,[mbOK],0);

Button3.Click; //Sesuaikan dengan tombol refresh

Code Refresh

ADOQuery1.Close;

ADOQuery1.SQL.Clear;

ADOQuery1.SQL.Append('SELECT * FROM pelajar order by ID_PELAJAR desc');

ADOQuery1.Open;

Code Exit

DBGrid : klik DBGrid 1x - events - OnDBLClick - DBGrid1DBLClik - klik2x - masukkan coding

//coding DBGrid

Edit1.Text:=ADOQuery1.Fields[0].AsString;

Edit2.Text:=ADOQuery1.Fields[1].AsString;

Edit3.Text:=ADOQuery1.Fields[2].AsString;

DateTimePicker1.Date:=ADOQuery1.Fields[3].AsDateTime;

ComboBox1.Text:=ADOQuery1.Fields[4].AsString;

Edit5.Text:=ADOQuery1.Fields[5].AsString;

ComboBox2.Text:=ADOQuery1.Fields[6].AsString;

Edit6.Text:=ADOQuery1.Fields[7].AsString; 

Itulah tadi beberapa kode Simpan, Delete, Refresh, dan Exit. jika anda ingin membuat aplikasi dengan delphi, untuk cara meletakkan kode tersebut cukup klik dua kali pada tombol yang akan kita beri code, contoh pada tombol simpan, lalu ketik kan atau bisa langsung copy paste kode di atas.