Главная страница
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.021 c
1-6510
jack128
2003-03-24 14:48
2003.04.03
IniFiles в Win2K


14-6776
Supreme 2
2003-03-17 17:18
2003.04.03
Как из Nero записать AudioCD?


14-6682
race1
2003-03-15 15:11
2003.04.03
баг!


14-6671
NKiril
2003-03-15 15:25
2003.04.03
---|Ветка была без названия|---


8-6622
Студент
2003-01-01 22:55
2003.04.03
Как загрузить картинку в Stringgrid