| Kode
Program untuk menyimpan
data dengan perintah
Standar ... |
if
form1.tbMHS.Locate('NPM',npm.text,[])
then
begin
showmessage('NPM tsb sudah
ada, harap diganti');
Kode.clear;
Kode.setfocus;
end else
begin
form1.tbMHS.Append;
form1.tbMHS['npm']:=npm.Text;
form1.tbMHS['nama']:=nama.Text;
form1.tbMHS['jurusan']:=jurusan.text;
form1.tbMHS['kelas']:=kelas.text
form1.tbMHS['lahir']:=datetostr(Lahir.Date);
form1.tbMHS['saudara']:=strtoint(jmlsaudara.Text);
form1.tbMHS.post;
Showmessage('Data Mahasiswa
sudah berhasil disimpan');
end; |
| Kode
Program untuk menyimpan
data dengan perintah
SQL (query) ... |
ADOQuery1.close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.add('INSERT
INTO MHS');
ADOQuery1.SQL.add('VALUES
(:npm,:nama,:jurusan,:kelas,');
ADOQuery1.SQL.add(':alamat,:lahir,:jmlsaudara)');
ADOQuery1.Parameters.ParamByName('npm').Value:=npm.Text;
ADOQuery1.Parameters.ParamByName('nama').Value:=nama.Text;
ADOQuery1.Parameters.ParamByName('jurusan').Value:=jurusan.Text;
ADOQuery1.Parameters.ParamByName('kelas').Value:=kelas.Text;
ADOQuery1.Parameters.ParamByName('lahir').Value:=datetostr(Lahir.Date);
ADOQuery1.Parameters.ParamByName('jmlsaudara').value:=strtoint(jmlsaudara.Text);
ADOQuery1.ExecSQL;
TbMhs.Close;
TbMhs.open;
TbMhs.Last;
Showmessage('Data Mahasiswa
sudah berhasil disimpan');
|
| Kode
Program untuk menghapus
data dengan perintah
standar ... |
|
if
messagedlg('Yakin data
ini akan dihapus',mtconfirmation,mbokcancel,0)=mrOK
then
tbMHS.delete; |
| Kode
Program untuk menghapus
data dengan perintah
SQL (query) ... |
if
messagedlg('Yakin data
ini akan dihapus',mtconfirmation,MBOkCancel,0)=mrOK
then
begin
ADOQuery1.Close;
ADOQuery1.SQL.clear;
ADOQuery1.SQL.Add('DELETE
FROM MHS');
ADOQuery1.SQL.Add('WHERE
NPM = "'+tbMHS['NPM']+'"
');
ADOQuery1.ExecSQL;
tbMHs.Close;
tbMHs.open;
end;
|
|
|
|
dan
masih banyak lagi .....
|
