دخول

بن دهيبة · 31-12-2014, 07:11 PM

السلام عليكم ورحمة الله تعالى وبركاته.

أين المشكل فى هذه الاسطر البرمجية حيث تقوم بإنشاء جدول 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;

دخول
اسم المستخدم/البريد الالكتروني :
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة