|
Вопрос # 4 568/ вопрос открыт / |
|
Здравствуйте, уважаемые эксперты!
Есть одна неувязочка.ниже будет описан код программы в котором исходя из первых букв Фамилий создаются вкладки с наименованием этих букв, в которых не знаю как занести нужные фамилии, например, Абдулаев и Авраамов начинаются на "А", значит должны находиться во вкладке "А". Как будет видно в коде, я пытался эти данные занести в ListBox, но не допонял как.
Помогите....
 |
Вопрос задал: Степанов Дмитрий (статус: Посетитель)
Вопрос отправлен: 7 сентября 2010, 20:17
Состояние вопроса: открыт, ответов: 0.
|
Мини-форум вопроса
Всего сообщений: 4; последнее сообщение — 8 сентября 2010, 13:20; участников в обсуждении: 3.
|
|
Степанов Дмитрий (статус: Посетитель), 7 сентября 2010, 20:17 [#1]:
Var
TabSheet: TTabSheet;
st, st1:string;
i:integer;
begin
DataModule1.ADOQuery1.Active:=False;
DataModule1.ADOQuery1.SQL.Clear;
DataModule1.ADOQuery1.SQL.Add('SELECT Фамилия');
DataModule1.ADOQuery1.SQL.Add('FROM Анкета');
DataModule1.ADOQuery1.SQL.Add('GROUP BY Фамилия');
DataModule1.ADOQuery1.SQL.Add('ORDER BY Фамилия');
DataModule1.ADOQuery1.Active:=True;
DataModule1.ADOQuery1.First;
while not (DataModule1.ADOQuery1.Eof) do
begin
// Создаем страницы и связываем их с PageControl
st:=DataModule1.ADOQuery1.Fields.Fields[0].AsString;
TabSheet:= TTabSheet.Create(Self);
TabSheet.Caption:=st[1];
TabSheet.PageControl:= PageControl1;
DataModule1.ADOQuery2.Active:=False;
DataModule1.ADOQuery2.SQL.Clear;
DataModule1.ADOQuery2.SQL.Add('SELECT Фамилия, Имя, Отчество');
DataModule1.ADOQuery2.SQL.Add('FROM Анкета');
DataModule1.ADOQuery2.SQL.Add('WHERE Фамилия LIKE '''+st+'''');
DataModule1.ADOQuery2.SQL.Add('ORDER BY Имя');
DataModule1.ADOQuery2.Active:=True;
//создаём на вкладках ListBox
with TListBox.Create(Self) do
begin
Align:=alLeft;
Parent := TabSheet;
end;
st:='';
DataModule1.ADOQuery1.Next;
end;
|
|
webkent (статус: 2-ой класс), 8 сентября 2010, 09:09 [#2]:
А зачем тут БД?
|
8 сентября 2010, 11:30: Вопрос перемещён из тематического раздела Delphi » Программирование баз данных (БД) в раздел Delphi » Работа с компонентами и библиотеками модератором Ерёмин А.А.
|
M_a_G (статус: Посетитель), 8 сентября 2010, 11:36 [#3]:
webkent: для наглядности )
|
|
|
webkent (статус: 2-ой класс), 8 сентября 2010, 13:20 [#4]:
Ой, я думал это кто-то ответил так =))
Оказывается, это автор написал =)
|
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
