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

← →
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]

номера т.е

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

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

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

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