سورس كود انشاء قاعده بيانات Paradox

[phpbb3]

برنامج صغير ويمتلك كود بسيط يقوم بانشاء قاعده بيانات Paradox

وانشاء جدولين

واحد عن طريق الكود والاخر عن طريق Query


begin
Path:=ExtractFilePath(Application.ExeName)+'Data';
if not DirectoryExists(path) <> False then
begin
CreateDir(path) ;
with Table_Customer do begin
DatabaseName:=Path;
TableName:='Customer';
Active := False;
TableType := ttParadox;
with FieldDefs do begin
Clear;
with AddFieldDef do begin
Name := 'CID';
DataType := ftAutoInc;
Required := true;
end;
with AddFieldDef do begin
Name := 'CName';
DataType := ftString;
Size:=100;
Required := false;
end;
with AddFieldDef do begin
Name := 'CPhon';
DataType := ftString;
Size:=100;
Required := false;
end;
end;

//Session.AddPassword('phpbb3');

CreateTable;
end;
QuyApp.DatabaseName :=Path;
QuyApp.SQL.Clear;
QuyApp.SQL.Add('CREATE TABLE USERS (UName VARCHAR(50),UPass VARCHAR(50));');
QuyApp.ExecSQL;
end;


Table_Customer.DatabaseName:=Path;
Table_Customer.TableName:='Customer';
Table_Customer.Active:=True;
Table_User.DatabaseName:=Path;
Table_User.TableName:='USERS';
Table_User.Active:=True;
end;

اتمنى ان يكون مفيدا

[kachwahed]

السلام عليكم
مرحبا بك أخي، فريق Aore الله يبارك، ما شاء الله.
الكود مفيد أخي، ويمكن كتابة:
if not DirectoryExists(path) <> False then
مباشرة:
if not DirectoryExists(path) then
بالتوفيق.

[wadoud]

السلام عليكم

فيما يفيد إنشاء قاعدة البيانات بهذه الطريقة ؟

شكرا

[B.M.AbdelAziZ]

السلام عليكم ورحمة الله
فيما يفيد إنشاء قاعدة البيانات بهذه الطريقة ؟
مثالين:
-عندما ينفذ برنامجك أول مرة بجهاز الزبون لا يجد قاعدة البيانات فيقوم بانشائها برمجيا
-عند الانتقال الى سنة جديدة في برنامج يستخدم قاعدة بيانات لكل سنة (أو لكل زبون/شركة ببرنامج محاسبة...)