Ljudi, pliz pomogite.. 4to u menja nepraviljno.. ja v delphi rabotaju s bazoj dannih... mne nuzna knopo4ka 'poisk', 4to bi 4to-to konkretnoe najti v baze, no ona ne rabotaet, pomogite, tiknite nosom - gde nepraviljno...
kod knopki:
procedure TForm1.Button1Click(Sender: TObject);
var
KL_vards: string[25];
begin
KL_vards:=InputBox('Panemam info na DB',
'Noradiet vardu.', '');
if KL_vards <> '' // lietotajs ievada vardu
then
begin
with form1.Query1 do begin
Close; // cae?uou oaee-?acoeuoao auiieiaiey i?aauaouaai cai?ina
SQL.Clear; // oaaeeou oaeno i?aauaouaai cai?ina
// caienuaaai iiaue cai?in a naienoai SQL
SQL.Add('SELECT , KL_vards, KL_uzvards, Tel, Pak_veids');
SQL.Add('FROM ":STANDARD1:adaptivas.db"');
SQL.Add('WHERE');
SQL.Add('(KL_vards = "'+ KL_vards + '")');
SQL.Add('ORDER BY Kl_vards');
Open; // aeoeaece?oai auiieiaiea cai?ina
end;
if Query1.RecordCount <> 0 then
DataSource1.DataSet:=Query1 // ioia?aceou ?ac-o auiieiaiey cai?ina
else begin
ShowMessage('DB nav pierakstus ar tadiem Vardiem un uzvardiem');
DataSource1.DataSet:=Table1;
end;
end;
end;