Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.04.03;
Скачать: CL | DM;

Вниз

Названия полей таблиц   Найти похожие ветки 

 
sapsi   (2003-03-17 13:48) [0]

ДОбрый день всем
Допустим, нужно создать список полей таблицы: Table1.FieldList,
а как отобразить в этом списке для каждого поля его псевдоним, который потом использовать в DBgrid
Кто знает?


 
sniknik ©   (2003-03-17 13:51) [1]

Допустим, что псевдоним равен имени поля таблицы.
и все проблема решена.


 
sapsi   (2003-03-17 14:04) [2]

как правило названия полей таблицы пишут на английском, а называют для удобства админов, а в гриде отобразить надо на русском и названия понятные для пользователей...


 
stone ©   (2003-03-17 14:08) [3]

Я так понимаю речь идет о TField.DisplayLabel


 
Johnmen ©   (2003-03-17 14:08) [4]

Видимо интересует DisplayLabel


 
sniknik ©   (2003-03-17 14:12) [5]

зачем использовать руские названия псевдонимов из грида, если есть английское название поля?
ну делай связку (если так хочется)
Dataset.Fields.FieldName = Greed.Columns.FieldName/Greed.Columns.Title.Caption <- руское название если задано.


 
sapsi   (2003-03-17 14:19) [6]

Да, об этом также. Кто подскажет наиболее удобный способ для реализации выбора пользователем полей, используемых в гриде?
ДОпустим, поля я выбрал в листбоксе (их псевдонимы). КАк наиболее рационально заполнить грид полями, соотвествующими этим псевдонимам?



 
sapsi   (2003-03-17 14:24) [7]

Т.е. нужно тоже, что обычно делается вдизайне. Удалить все поля из Грида, добавить только те поля, которые нужны, задать им названия (они могут быть привязаны заранее)


 
stone ©   (2003-03-17 14:42) [8]


> Удалить все поля из Грида, добавить только те поля, которые
> нужны, задать им названия (они могут быть привязаны заранее)

Типа того:
procedure TForm1.Button1Click(Sender: TObject);
var
i, j: integer;
begin
DBGrid1.Columns.Clear;
for i := 0 to CheckListBox1.Items.Count-1 do
if CheckListBox1.Checked[i] then
with DBGrid1.Columns.Add do
begin
for j := 0 to Table1.Fields.Count-1 do
if Table1.Fields[j].DisplayLabel = CheckListBox1.Items.Strings[i] then
begin
FieldName := Table1.Fields[j].Name;
Break;
end;
end;

end;


 
sapsi   (2003-03-17 15:03) [9]

спасибо, это помогло



Страницы: 1 вся ветка

Текущий архив: 2003.04.03;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.014 c
1-6465
kudatsky
2003-03-24 12:54
2003.04.03
Ошибка при загрузке DLL под WIN2000


1-6555
Kaser
2003-03-21 16:41
2003.04.03
Подключение С++ кода в Delphi


1-6481
LyzD
2003-03-24 11:38
2003.04.03
Свернуть программу после запуска


3-6349
Олег С.
2003-03-12 16:53
2003.04.03
Сортировка по возрастанию и по убыванию...


3-6330
Igor Kashtanov
2003-03-09 00:51
2003.04.03
Быстрый поиск в DBLookupComboBox