Как модифицировать ниже представленную программу

Тема в разделе "Borland C++ Builder & Kylix", создана пользователем derbote, 12 июл 2008.

  1. derbote

    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;

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

    shisik Well-Known Member

    Регистрация:
    26 авг 2007
    Сообщения:
    154
    Симпатии:
    0
    Э-э-э... А какое это имеет отношение к C++?
     
Загрузка...

Поделиться этой страницей