Страница 2 из 2
Добавлено: 12 апр 2006, 12:02
AiK
Готовый пример лежит в папке где Delphi установлен. /Demos/ADO
Добавлено: 13 апр 2006, 11:06
Blood_Magic
а сюда выложить можно? а то у меня Delphi
Добавлено: 13 апр 2006, 11:07
Blood_Magic
без демок, какая - то урезанная версия
Добавлено: 19 апр 2006, 10:48
Blood_Magic
Получилось.
С помощью запроса в ADOQuery1.SQL
select ClientUserName from WebProxyLog GROUP BY ClientUserName
я получаю список пользователей.
Как теперь их перекинуть в ComboBox1
Добавлено: 19 апр 2006, 10:59
Zroman
Так комбобоксі есть специальные. К ним подключаешь датасорс со списком пользователей и радуешься.
Добавлено: 19 апр 2006, 11:10
Zroman
Этот компонент называется DBComboBox, лежит на закладке Data Cotrols палитры.
Добавлено: 19 апр 2006, 11:35
Blood_Magic
я придумал как в обычный засунуть можно, и еще активного юзера определить:
Код: Выделить всё
ADOQuery1.Open;
ADOQuery1.First;
While not ADOQuery1.Eof do
begin
cbUsers.Items.Add(Trim(ADOQuery1.FieldValues['ClientUserName']));
ADOQuery1.Next;
end;
c:=256;
GetUserName(r,c);
u:=Copy(r,1,c);
for i:=0 to cbUsers.Items.Count-1 do
begin
cu:=cbUsers.Items.Strings[i];
If (cu=u) or (Pos('\'+u,cu)=Length(cu)-Length(u)) then
begin
cbUsers.ItemIndex:=i;
Break;
end;
end;