Появился вопрос.
Как модифицировать ниже представленную программу так, чтобы в компоненте 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]+'%"';