Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.017 c