Главная страница
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.025 c
6-6647
gn
2003-02-07 18:21
2003.04.03
irc


3-6363
кондратий
2003-03-12 18:58
2003.04.03
Table, View--> DBF


1-6517
кондратий
2003-03-24 19:47
2003.04.03
Удаление непустого каталога вместе с подкаталогами


3-6345
dim111
2003-03-13 17:12
2003.04.03
Помогите с группировкой


14-6716
alx99
2003-03-16 01:37
2003.04.03
ищу инфу про сокеты