[derbote]

Появился вопрос.
Как модифицировать ниже представленную программу так, чтобы в компоненте TabSet1 были не все закладки, а только те, первые буквы фамилий которых находятся в таблице anketa3?

На форме компоненты TQuery, TDataSource, TDBGrid и TTabSet.

Код:

procedure TForm1.FormCreate(Sender: TObject); 
var 
i : Byte; 
begin 
Query1.Prepare; 
for i:=0 to 25 do 
TabSet1.Tabs.Add(Chr(Byte('A')+i)); 
end; 

Текст SQL запроса в компоненте Query1:
select * from anketa3 where LastName like :LastNameStr

Запрос выбирает записи из таблицы anketa3, в которых поле LastName похоже (like) на значение параметра :LastNameStr. Параметр будет передаваться в момент переключения закладок:

Код:

procedure TForm1.TabSet1Change(Sender: TObject; 
NewTab: Integer; 
var AllowChange: Boolean);
begin 
with Query1 do begin 
Close; 
Params[0].AsString:= '"'+TabSet1.Tabs.Strings[NewTab]+'%"'; 
Open; 
end; 
end; 

Admin: Пользуемся тегами! При рецедиве - БАН.

И еще маленький вопросик.
Как будут выглядеть на DuilderC++ следующие строки?
i : Byte;
TabSet1.Tabs.Add(Chr(Byte('A')+i));
Params[0].AsString:= '"'+TabSet1.Tabs.Strings[NewTab]+'%"';