alexa-tracking

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:Original Posted By dfasto_corp
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.


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:Original Posted By bawang.gorenk


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


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:Original Posted By unknown24


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.


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.