سایت تخصصی برنامه نویسی دلفی

میخوام تواین قسمت به درخواست دوستان سورس لغت نامه به زبان دلفی رو بذارم.

قبل از هر کاری باید دوستان دقت کنن که مهمترین چیز در یک برنامه فرهنگ لغات بانک اطلاعاتی اونه که حاوی لغات به همراه معنی اون لغات باید باشه.

سورس برنامه :

unit Unit1;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, DBTables, StdCtrls, Grids, DBGrids, DB, DBCtrls, ExtCtrls,

  OleCtrls;

type

  TForm1 = class(TForm)

////کنترلهای مورد استفاده در فرم :

    DataSource1: TDataSource;//// DataSet= Query1

    DBGrid1: TDBGrid; ///DataSource=DataSource1

    Edit1: TEdit;

    Query1: TQuery;

   DBMemo1: TDBMemo;///DataSource=DataSource1 و DataField= نام فیلدی که معنی لغات درون آن است

    Button1: TButton;

    Edit2: TEdit;

    procedure Edit1Change(Sender: TObject);

    procedure FormCreate(Sender: TObject);

    procedure Timer1Timer(Sender: TObject);

    procedure Button1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

  s:string;

implementation

{$R *.dfm}

procedure TForm1.Edit1Change(Sender: TObject);

begin ///// زیر را وارد کنید SQL با دو بار کلیک روی ادیت کد 

getdir(0,s);///گرفتن مسیر پوشه ای که برنامه از درون آن اجرامیشود

Query1.Active:=false;

DBGrid1.DataSource:=DataSource1;

Query1.DatabaseName:=s+'\data'; ///مسیر بانک اطلاعاتی برنامه درون پوشه برنامه

Query1.SQL.Clear;

Query1.SQL.Add('SELECT * FROM "اسم دیتابیس.db" اسم دیتابیس  WHERE english LIKE '''+edit1.Text+'''+"%"');//// SQL کد لغاتی که مشابه لغت تایپ شده رو میاره //

Query1.ExecSQL;

Query1.Active:=true;

end;

در بالا English اسم فیلدی از دیتا بیس است که لغات ما در آن قرار دارد.

اگر میخواین فقط همون لغتی رو که کاربر تایپ کرده بیاره قسمت سبز رنگ رو به این  صورت تو  رویداد کلیک  یه کلید بذارین.

Query1.SQL.Add('SELECT * FROM "اسم دیتابیس.db" اسم دیتابیس  WHERE english ='+QuotedStr(Edit1.Text)+'');

دوستان عزیز و دانشمند لطفا اگر کاستی هایی در  برنامه میبینن  لطف کنن مطرح کنن تا برنامه رو اصلاح کنم.

موفق و  سربلند باشید

************************************************************************************