31-12-2014, 07:11 PM
السلام عليكم ورحمة الله تعالى وبركاته.
أين المشكل فى هذه الاسطر البرمجية حيث تقوم بإنشاء جدول dbase ومشكل هو عند فتح الجدول الذي تم انشاءه بـ Database Desktop يظهر تصريح بنوع القيم (Numeric, Flottant,Mémo) فارغ.
أين المشكل فى هذه الاسطر البرمجية حيث تقوم بإنشاء جدول dbase ومشكل هو عند فتح الجدول الذي تم انشاءه بـ Database Desktop يظهر تصريح بنوع القيم (Numeric, Flottant,Mémo) فارغ.
كود :
with Table1 do begin
Active := False;
DatabaseName :='d:\';
TableType := ttDBase;
TableName := 'DBase';
with FieldDefs do begin
Clear;
with AddFieldDef do
begin
case RadioGroup1.ItemIndex of
0 : begin
Name := 'Chaîne de caractères';
DataType :=ftString;
Size := 50;
end;
1 : begin
Name :='Numeric';
DataType :=ftInteger;
end;
2 : begin
Name :='Date';
DataType := ftDate;
end;
3 : begin
Name := 'Flottant';
DataType :=ftFloat;
end;
4 : begin
Name := 'Logique';
DataType :=ftBoolean ;
end;
5 : begin
Name := 'Mémo';
DataType := ftMemo;
end;
6 : begin
Name := 'OLE';
DataType := ftDBaseOle;
end;
7 : begin
Name := 'Binaire';
DataType := ftTypedBinary ;
end;
end; // end case
end;
end;
end;
CreateTable;