[ASK +1] Auto Refresh Database dengan Delphi 7

Beranda
Komunitas
Tech
Computer Stuff
[ASK +1] Auto Refresh Database dengan Delphi 7

AP25

19-07-2019 07:57

[ASK +1] Auto Refresh Database dengan Delphi 7

hallooo ganns,

ane ada masalah ni, kebetulan sedang ngoprek delphi tapi ada case ketika ane input data dari form1, tapi untuk dbgrid ane posisiin di form2,
nah pas ane input data di form1 berhasil, tapi pas di cek di form 2 databasenya nambah alias gak update emoticon-Hammer (S)

ada yg tau gak ya script cara biar bisa otomatis updatenya / auto refresh emoticon-Bingung (S)

soalnya kalau project di close dan di run ulang datanya langsung update emoticon-Takut (S)

Spoiler for penampakan:

[ASK +1] Auto Refresh Database dengan Delphi 7

Spoiler for skrip proses:

procedure Tinputdb.prosesClick(Sender: TObject);
begin
if nopol.GetTextLen = 0 then showmessage('Isi Nomor Polisi Kendaraan');
if (nopol.GetTextLen>0) then
begin
ADOTable1.Insert;
ADOTable1.FieldByName('Jenis Kendaraan').AsString := kendaraan.Text;
ADOTable1.FieldByName('Nomor Polisi Kendaraan').AsString := nopol.Text;
ADOTable1.FieldByName('Tanggal Masuk').AsDateTime := StrToDateTime (tanggal.Text);
ADOTable1.FieldByName('Jam Masuk').AsString := masuk.Text;
ADOTable1.Post;

kendaraan.Text := '';
nopol.Text := '';

ADOTable1.Close;
ADOTable1.Open;

ShowMessage('Data Berhasil Disimpan');

dbasein.DBGrid1.refresh;

end;
end;

buat agan - agan yang bisa bantu

2.1K

Kutip

Balasan

Komentar yang asik ya

Urutan

Terbaru

Terlama

Komentar yang asik ya

Komunitas Pilihan