Splash := ShowSplashWindow(Application.Icon, 'Загрузка данных. Подождите, пожалуйста...', False, Application.MainForm); try DataSource1.Enabled :=False;
With ADOQuery1 do begin
if Active=True then Active:=False;
SQL.Clear;
strSQL:= 'SELECT * FROM Страны ORDER BY Страны.'+NameSortField;
if Desc then strSQL:=strSQL+' DESC;' else strSQL:=strSQL+';';
SQL.Add(strSQL);
Active:=True;
end;
DataSource1.Enabled :=True;
finally Splash.Free; end; end;
Қадам 3 – мәліметтерді фильтрациялау және іздеу 1.
Елдерді атауы бойынша іздеу ыңғайлылығы үшін RxDBAware бетінен paTop тақтасына TRxLookupEdit компонентін орналастырыңыз. Объектілер инспекторында осы
компонентің қасиеттеріне келесі мәндерді беріңіз:
