колво.десятичных при создании поля

← →
denis24 (2003-02-13 11:00) [0]

В следующем коде все отлично работает,только цифровые поля создаютя с количеством знаков после запятой -4,можно ли как то этим управлять?
with DataModule1.tblwork do
begin
Active :=false;
databasename := mainform.SelPath.text ;
TableName := formatdatetime("ddmmyyyy",date);
TableType := ttfoxpro;
With FieldDefs do begin
clear;
for i:=0 to DataModule1.tblArchive.FieldCount-1 do begin
with AddFieldDef do begin
name:=DataModule1.tblArchive.Fields[i].fieldname;
datatype:=DataModule1.tblArchive.Fieldsi].datatype; size:=DataModule1.tblArchive .Fields[i].Size;
end;
end;
end;
createtable;

← →
Reindeer Moss Eater (2003-02-13 11:04) [1]

Количеством знаков после запятой управлять можно.
Но тип данных у TFieldDef должен быть ftBCD.
Параметр (количество знаков после запятой) зовется Size

← →
denis24 (2003-02-13 11:45) [2]

тоесть
datatype:=ftBCD
а размер 4,2
то чему равно size?

и что надо подключить в USES что бі не ругался на типы полей(ftInteger,ftBCD.......)?

← →
Reindeer Moss Eater (2003-02-13 11:51) [3]

Size - количество знаков после запятой.

← →
denis24 (2003-02-13 15:34) [4]

тогда где выставлять кол-во целых,если size-кол-во десятичных?

← →
Reindeer Moss Eater (2003-02-13 15:43) [5]

Нигде.
Precision - общий размер всего поля
Size - в том числе после запятой

← →
denis24 (2003-02-13 16:06) [6]

что нужно включить в uses что бы не ругалось на типы полей при создании (ftstring,ftBCD.....)?

← →
Reindeer Moss Eater (2003-02-13 16:09) [7]

Нужно поставить курсор на ftString, нажать F1 и в открывшемся окне увидеть строки:

TFieldType is a set of values that parallel the data types of fields in tables.

Unit

DB

.....

← →
denis24 (2003-02-13 17:40) [8]

да так и надо было ,недоглядел

но всеравно не получается создать числовое поле 4,2
name:="fieldname";
datatype:=ftBCD;
Precision :=7;
size:=2;
создает всеравно по умолчаню

← →
denis24 (2003-02-14 09:25) [9]

Ребята !!!Так кто нибудь создавал бд типа dbase с полем numeric 5,2???
Ответьте же!!!!!!!!

← →
Reindeer Moss Eater (2003-02-14 09:41) [10]

Я создавал

← →
denis24 (2003-02-14 09:44) [11]

а кусок кода в пример.....

← →
Reindeer Moss Eater (2003-02-14 09:52) [12]

with TTable.Create(self) do
try
TableType:=ttDBASE;
TableName:="TestTable5_2";
with FieldDefs.AddFieldDef do
begin
Name:="Field5_2";
DataType:=ftBCD;
Size:=2;
Precision:=8;
end;
CreateTable;
finally
Free;
end;

← →
denis24 (2003-02-14 10:59) [13]

да но ftdbase-это формат dbase fo windows
а мне нужно ftfoxpro-что бы фокспро открывал
так вот для ftfoxpro как раз precison не работает

А если так:
with TQuery.Create(self) do
try
SQL.Text := "alter table mytable add newfield numeric(8,2)";
ExecSQL;
finally
Free;
end;

На кого жалуешься, на себя ты не что не говорил про Фокспро, а как раз говорил про дБейс.

denis24 (14.02.03 09:25)
Ребята !!!Так кто нибудь создавал бд типа dbase

← →
denis24 (2003-02-14 11:32) [16]

я не знал что в делфи такая разница между ними
приношу свои извенения
а в ttfoxpro-> numeric 5,2?

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