alexa-tracking

[ask] validasi di delphi

Main Content

1024
1024
KASKUS
51
244
https://www.kaskus.co.id/thread/5724d804925233076d8b4567/ask-validasi-di-delphi
[ask] validasi di delphi
malem agan and sista
ane mau nanya nih, ada yg tau bikin validasi biar data ga boleh sama di delphi
kasus:
ane mau bikin validasi biar no kamar ga boleh sama gan
[img][ask] validasi di delphi[/img]
emoticon-Recommended Seller
terima kasih buat yg mau bantu jawab

emoticon-Recommended Seller
mencoba jawab ah gan

with adoquery1 do begin
close;
sql.clear;
sql.text:='Select from TKamar where no_kamar=2';
open;
end;
jml:=adoquery1.recordcount;
if jml > 0 then begin
showmessage('Kamar sudah ada isinya');
end.
nih saya bantu jawab ...

if adoTable.Locate('kd_kamar',edit1.text , []) then

isikan itu sebelum kamu masukin kodingan ADOQUERY

Keterangan :
edit1.text = kode kamar yang nanti bakal diinput user
Quote:


maaf gan mau nanya lagi, klo validasinya kaya gini (jika status kamar terpesan maka muncul pesan kamar tidak tersedia)
ane sudah buat validasinya gini

begin
if (DBGrid1.Fields[4].AsString='Terpesan') then ShowMessage('Maaf, Kamar Tidak tersedia')
else
with DataModule5.ADOQuery2 do
begin
fmreser.Edit4.Text:=FieldValues['no_kamar'];
end;
end;
tp kenapa yg kebaca langsung setelah else, kira2 salahnya dimana ya?
terima kasih atas jawabnnyaemoticon-Recommended Seller
tampilan dbgridnya kaya gini
t[ask] validasi di delphi
Quote:


Klo untuk mebuktikan ekspresi if else, biasanya ane pake msgbox sebelumnya,

Code:
msgbox (DBGrid1.Fields[4].AsString) 
if ...... then ..... wlse .....


Lagian ini ga jelas rownya mau yang mana?
jika DBGrid1.Fields[4].AsString digunakan sebagai ekspresi IF hasilnya mungkin selalu row yang pertama (no kamar : 001 - Terisi) yaa tentu hasilnya akan selalu else.
Quote:


Setuju sama agan unknow24

dbgrid agan belum di filter otomatis row pertama yang selalu terhitung, kalo misal row pertama Terpesan, pasti ga akan masuk ke else gan.