Agan2 yang budiman bantu ane nih kesulitan buat program TA antrian nih
gini ane punya 2 tabel 1. tabel user_layanan (kode_user,Kode_Layanan)//
2. Tabel loket_layanan(kode_layanan,no_antrian,status)/
Pertanyaannya gimana caranya memilih no antrian dari tabel loket_layanan dengan parameter kode layanan dari tabel user_layanan.
Code:
With AdoDatasetUserlayanan do // memilih kode layanan dari user yang login
Begin
Close
CommandText := 'Select Kode_Layanan From user_layanan Where Kode_user=
'+QuotedStr(sKodeUser) // skode user dari field user yang login
Cpen;
First;
End;
While Not AdoDatasetUserlayanan.Eof do
Begin
With AdoDatasetLoket_layanan Do
Begin
Close;
CommandText := 'Select No_antrian From Loket_Layanan Where Kode_layanan ='
QuotedStr(AdoDatasetUserLayanan.fieldByName('Kode_layanan').AsString+
And Status ='+"F"+'Order By no_antrian ASC Limit 10;
Open;
End;
AdoDatasetUserlayanan.next;
End;
DBGrid1.Datasource := DataSourceLoketLayanan;
End;
//nah yang muncul di DbGrid1 no_antrian yang awal saja..tidak mau semua...kira2 gimana caranya? mohon pencerahannya para master2..
|
