Coding SIMPAN, UPDATE, REFRESH, HAPUS, EXIT, DBGrid di Delphi Borland7

 Coding SIMPAN , UPDATE, REFRESH , HAPUS , EXIT , DBGrid di Delphi Borland7

 

Haerul Alpan

Coding SIMPAN , UPDATE, REFRESH , HAPUS , EXIT , DBGrid di Delphi Borland7

// CODING SIMPAN (letakkan di dalam tombol SIMPAN dgn cara klik 2x tombol 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;

//CODING UPDATE (letakkan di dalam tombol UPDATE dgn cara klik 2x tombol UPDATE)
if(Edit1.Text<>'')then
begin
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Append('update pelajar set nama='"+Edit2.Text+"', Alamat='"+Edit3.Text+"', tgl_lahir='"+DateToStr(DateTimePicker1.Date)+"', jk='''+DBLookupComboBox1.Text+''', tlp ='"+Edit3.Text+"', hobby='''+DBLookupComboBox2.Text+''', ket='''+Edit4.Text
+''' where id_buku='''+Edit1.Text+'''');
ADOQuery1.ExecSQL;
MessageDlg('DATA KAMU SUDAH DIPERBAHARUI',mtInformation,[mbOK],0);
END ELSE
MessageDlg('SILAHKAN ISI DULU ID BUKU YANG MAU KAMU UPDATE',mtInformation,[mbOK],0);
Edit1.Clear;
Edit2.Clear;
Edit3.Clear;
Edit4.Clear

//CODING REFRESH (letakkan di dalam tombol REFRESH dgn cara klik 2x tombol REFRESH)
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Append('SELECT * FROM pelajar order by ID_PELAJAR desc');
ADOQuery1.Open;

//CODING HAPUS (letakkan di dalam tombol HAPUS dgn cara klik 2x tombol HAPUS)
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

//Coding EXIT (letakkan di dalam tombol TUTUP dgn cara klik 2x tombol TUTUP)
Close;

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;