+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي التقنية (https://delphi4arab.net/forum/forumdisplay.php?fid=6)
+--- قسم : دلفي و التعامل مع قواعد البيانات (https://delphi4arab.net/forum/forumdisplay.php?fid=23)
+--- الموضوع : سورس كود انشاء قاعده بيانات Paradox (/showthread.php?tid=1074)
سورس كود انشاء قاعده بيانات Paradox - phpbb3 - 26-07-2009
برنامج صغير ويمتلك كود بسيط يقوم بانشاء قاعده بيانات Paradox
وانشاء جدولين
واحد عن طريق الكود والاخر عن طريق Query
PHP كود :
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;
سورس كود انشاء قاعده بيانات Paradox - kachwahed - 26-07-2009
السلام عليكم
مرحبا بك أخي، فريق Aore الله يبارك، ما شاء الله.
الكود مفيد أخي، ويمكن كتابة:
كود :
if not DirectoryExists(path) <> False thenPHP كود :
if not DirectoryExists(path) then
سورس كود انشاء قاعده بيانات Paradox - wadoud - 11-10-2011
السلام عليكم
فيما يفيد إنشاء قاعدة البيانات بهذه الطريقة ؟
شكرا
سورس كود انشاء قاعده بيانات Paradox - محمد عبد العزيز - 13-10-2011
السلام عليكم ورحمة الله
إقتباس :فيما يفيد إنشاء قاعدة البيانات بهذه الطريقة ؟مثالين:
-عندما ينفذ برنامجك أول مرة بجهاز الزبون لا يجد قاعدة البيانات فيقوم بانشائها برمجيا
-عند الانتقال الى سنة جديدة في برنامج يستخدم قاعدة بيانات لكل سنة (أو لكل زبون/شركة ببرنامج محاسبة...)
سورس كود انشاء قاعده بيانات Paradox - amorkanoti - 26-05-2014
مشكور اخي على السورس
مزيدا من العطاء