Текущий архив: 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.45 MB
Время: 0.008 c
