ایجاد بانک جدید paradox در دلفی 2009

[اصغر (پآچ)]

سلام دوستان

من قبلا دلفی 7 کار می کردم. چند وقتیه که از دنیای برنامه نویسی دور بودم الان دوباره شروع کردم اما می خوام یه بانک با paradox توی دلفی 2009 ایجاد کنم نمی دونم چطور میشه این کار رو کرد. قبلا یادمه می رفتیم توی منوی tools یه گزینه به اسم desktop database داشت می شد باهاش بانک های اطلاعاتی مختلفی ایجاد کرد اما هر چی توی دلفی 2009 دنبال این گزینه گشتم پیداش نکردم میشه راهنمایی کنید که این کار رو چطوری انجام بدم یا کجا این گزینه رو پیدا کنم؟

موفق و موید باشید

[BORHAN TEC]

ظاهراً این گزینه از IDE حذف شده چون من حتی با IDE Insight هم نتونستم پیداش کنم.

[اصغر (پآچ)]

سلام دوستان

من توی اینترنت جستجو کردم و بالاخره یه راه حل برای ساختن جدول پارادوکس توی دلفی بدون نیاز به Desktop Database پیدا کردم کد ایجاد جدول رو اینجا می ذارم که اگه دوستان دیگه ای هستند که مثل من این روش رو نمی دونستند بتونن ازش استفاده کنند.

و اما کدش:


unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, DB, DBTables;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
Table1: TTable;
begin
Table1 := TTable.Create(Self);
with Table1 do
begin
Active := False;
DatabaseName := 'D:\Photo Gallery\';
TableName := 'Images';
TableType := ttParadox;
with FieldDefs do
begin
Clear;
Add('ID', ftAutoInc, 0, True);
Add('GalID', ftString, 6, True);
Add('Contain', ftBlob , 0, True);
Add('Extension', ftString, 4, True);
Add('Protect', ftBoolean, 0, False);
end;
CreateTable;
end;
Table1.Free;
end;
end.


اون دو تا یونیتی که در قسمت Uses با رنگ قرمز نوشتم باید به صورت دستی به پروژه اضافه بشه و در قسمت سبز رنگ شما می تونید نوع بانک اطلاعاتی رو تغییر بدین. من این کد رو از این سایت (http://edysoftware.com/word/2009/10/22/delphi-create-database-paradox-run-time.html) گرفتم و برای استفاده بیشتر دوستان معرفیش می کنم.

موفق و موید باشید.