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

Вниз

как не визуальными средствами создать вычисляемое поле?   Найти похожие ветки 

 
abc   (2003-07-14 10:50) [0]

как не визуальными средствами правельно создать вычисляемое поле?


 
Соловьев ©   (2003-07-14 10:58) [1]

with MySql do
begin
DataBaseName := "cadr";
AutoCalcFields := true;
OnCalcFields := MyCalcFields;
with FieldDefs do
begin
Add("phone", ftFloat, 0, true);
FieldDefs[0].CreateField(MySql);

Add("FIO", ftString, 100, true);
FieldDefs[1].CreateField(MySql);

Add("N_D", ftString, 100, true);
FieldDefs[2].CreateField(MySql);

Add("L_of_S", ftString, 100, true);
FieldDefs[3].CreateField(MySql);

Add("NOTE", ftString, 100, true);
FieldDefs[4].CreateField(MySql);

Add("TYPE", ftString, 100, true);
FieldDefs[5].CreateField(MySql);

Add("DATA", ftDate, 0, true);
FieldDefs[6].CreateField(MySql);

Add("ID", ftString, 15, true);
FieldDefs[7].CreateField(MySql);

Add("VYDAN", ftString, 250, true);
FieldDefs[8].CreateField(MySql);

Add("PLASE_WORK", ftString, 250, true);
FieldDefs[9].CreateField(MySql);


Numer := TIntegerField.Create(MySql);
with Numer do
begin
FieldName := "Numer";
Calculated := True;
DataSet := MySql;
Name := MySql.Name + FieldName;
MySql.FieldDefs.Add(Name, ftInteger, 0, true);
end;
end;
end;


 
abc   (2003-07-14 12:06) [2]

спасибо, но к сожалению проподают все остальные поля =(, можно ли их после этого автоматически сразу все вставить? или только вручную каждое поле описывать?


 
MsGuns ©   (2003-07-14 13:12) [3]

А что, вариант чисто запросный (SELECT ..., A+B as ClcField1...)
не проходит ?


 
abc   (2003-07-14 13:41) [4]

в этом столбце должны отображаться норера записей, просто свойство RecNo, нумерацию записей можно создать через sql?


 
abc   (2003-07-14 13:42) [5]

номера т.е


 
MsGuns ©   (2003-07-14 16:51) [6]

Для отображения номерации не надо иметь соотв.значения в каком-либо из полей НД. Достаточно любой отображаемой колонки грида, свзанной с неотображаемым полем и события TField.OnGetText на этом поле, где код Text := IntToStr(RecNo)


 
abc   (2003-07-14 18:36) [7]

большое спасибо.



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

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

Наверх




Память: 0.48 MB
Время: 0.013 c
14-10447
Е-Моё имя
2003-07-18 09:42
2003.08.04
Кто знает шведский язык? ;)))


1-10231
LKJJed3
2003-07-21 10:50
2003.08.04
Как перевести из String в Extended?


1-10215
FRT
2003-07-09 16:27
2003.08.04
Memo


6-10341
Кен
2003-05-28 02:30
2003.08.04
Где взять TWebBrouser ? У меня раньше был Дельфи 5, и там он


1-10302
Man
2003-07-22 12:40
2003.08.04
как инициализируются переменные в классе по умолчанию