منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - قسم دورات Dephi

مطلوب تدريب شخصي للدلفي

Tue, 10 Oct 2023 17:18:53 +0000

نحتاج تدريب شخصي في الدلفي عبر اي منصة تواصل مثل Meeting ، حيث تدريب على ال IDE مثلا او كيفية استخدام الادوات او كيفية تجاوز الاخطاء وغيرها
سواءا على VCL او FMX.

من لدية الامكانية يمكن التواصل عبر البريد للاتفاق على الاتعاب و الوقت و خلافة

Delphi@imathaq.com

مع التحية

دورة تعليمية في إنشاء برنامج فاتورة بواسطة برنامج ديلفي

Thu, 01 Sep 2022 15:32:00 +0000

بسم الله الرحمان الرحيم

هذه دورة تعليمية في إنشاء برنامج فاتورة بواسطة برنامج ديلفي
مقسمة لعدة أجزاء :
شكل أو أقسام البرنامج
ربط نوافد البرنامج
إدخال الأكواد البرمجية
ووصولا إلى طباعة الفاتورة
رابط الدورة
ملاحظة : الدورة مازالت في بدايتها وهناكالمزيد من الإضافات والتعديلات
البرامج المستعملة : برنامج ديلفي 10.3
قواعد البيانات : ibexpert

إنشاء قاعدة بيانات mysql والتعامل معها بلغة دلفي

Mon, 09 Sep 2019 16:20:52 +0000

قناه بها دروس دلفي

https://www.youtube.com/watch?v=p2MvrMj8...lLwI-UA65E

الخطوات الأولى مع FMXLinux

Mon, 15 Jul 2019 20:35:35 +0000

أعلنت أمس Embarcadero مع نشر مدونة نشرت في https://community.idera.com/developer-to...rad-studio التوفر الفوري FMX Linux لجميع عملاء Delphi Enterprise و Architect. باختصار ، يمكنك استخدام هذه المكتبة لإنشاء تطبيقات عميل Linux مع FireMonkey ، مع توافق تمامًا مع منصات أخرى.

يمكنك قراءة الإعلان أعلاه وكذلك التحقق من:

وثائق DocWiki: http://docwiki.embarcadero.com/RADStudio/Rio/ar/FireMonkey_for_Linux [/url]

موقع الويب FMX Linux: https://www.fmxlinux.com/
البيان الصحفي: [url=https://www.businesswire.com/news/home/20190625005949/en/Embarcadero-Extends-FireMonkey%C2%AE-Cross-Platform-Framework-Create-GUI]https://www.businesswire.com/news/home/20190625005949/ar/Embarcadero-Extends-FireMonkey٪C2٪AE-Cross-Platform-Framework-Create-GUI

FMX Linux مقدمة عملية
فكيف يعمل؟ تحتاج أولاً إلى استخدام RAD Studio 10.3.1 وتنزيل حزمة FMX Linux من GetIt:

ثانيًا ، افتح أو أنشئ تطبيقًا متعدد الأجهزة لـ FireMonkey واستخدم القائمة الخاصة في الجزء العلوي من القائمة المحلية لمدير المشروع (مع تحديد المشروع) - لاحظ أن هذا حل مؤقت مطلوب حتى نتمكن من تمكين دعم Linux FireMonkey بالكامل في IDE :

في هذه المرحلة ، يتوفر نظام Linux في الأنظمة الأساسية المستهدفة للمشروع:

قم بعد ذلك بإنشاء تطبيق بواجهة مستخدم:

أضف بعض الأكواد إليها:

قم بإنشائه لنظام Linux ، وفتح PASrver على جهاز Linux الخاص بك ونشره (يمكنك أيضًا تشغيله / تصحيحه إذا تم تكوين كل شيء بشكل صحيح). من مربع Linux ، يمكنك استخدام مدير الملفات أو الإطارات الطرفية للوصول إلى نقطة الصفر باستخدام أدوات PAServer:

قم الآن بتشغيل التطبيق ، كما هو الحال مع الأمر أعلاه ، ويمكنك تشغيله على سطح مكتب Linux الخاص بك:

هذا كل شيء للبدء. لمزيد من المعلومات والشرط المسبق على الجهاز الهدف ، اقرأ معلومات docwiki في الرابط أعلاه. في حالتي ، قمت بتثبيت سطح مكتب جنوم كامل ، لكن هذا ليس مطلوبًا بشكل صارم.

استمتع بهذه الميزة الإضافية الجديدة الرائعة ، والتي تجعل Linux على قدم المساواة مع جميع المنصات الأخرى التي يدعمها Delphi!

ماركو كانتو 26 يونيو 2019

TMS Aurelius

Mon, 15 Jul 2019 20:08:38 +0000

هذا الذي لن استطيع ان اذكر كل خصائصه او مهامه وانما ما فهمته او بعض مما فهمته فقط
ويبدو يستحق النشر والتعريف به

PHP كود :

كود :
https://www.tmssoftware.com/site/aureliusblog.asp 

يمكنك من استخدام ثقنية Linq او شئ شبيه بها في عملية البحث بالبيانات

PHP كود :

كود :
Manager.Find  

  .CreateAlias('OrderDetails', 'd')  

  .Select(TProjections.ProjectionList  

    .Add(Linq['OrderDate'].Year.Group.As_('Group'))  

    .Add((Linq['d.UnitPrice'] * Linq['d.Quantity']).Sum.As_('Value'))  

  )  

  .Where(Linq['OrderDate'].Year._In([1997, 1998]))  

  .OrderBy('Value')

وايضا انشاء الكلاسس والبحث فيها

PHP كود :

كود :
type  

  TContact = class  

  private  

    FId: integer;  

    FName: string;  

    FCountry: TCountry;  

  public  

    property Id: integer read FId write FId;  

    property Name: string read FName write FName;  

    property Country: TCountry read FCountry write FCountry;  

  end;

PHP كود :

كود :
// Get all contacts  

MyContacts := Manager.Find.List;  

// Get name of country of first contact:  

FirstContactCountryName := MyContacts[0].Country.Name;

اي انك لم تعد في حاجة الى استخدام جمل الاستعلام التقليدية مثل

PHP كود :

كود :
SELECT A.ID AS A_ID, A.NAME AS A_NAME, A.COUNTRY_ID AS A_COUNTRY_ID, B.ID AS B_ID, B.NAME AS B_NAME

FROM CONTACT A LEFT JOIN COUNTRY B ON (B.ID = A.COUNTRY_ID) 

تفاصيل الميزة

العديد من خوادم قواعد البيانات المدعومة (MS SQL Server ، Firebird ، MySQL ، DB2 ، Interbase ، Oracle ، ...)
العديد من مكونات الوصول إلى قاعدة البيانات المدعومة (dbExpress ، AnyDac ، SQLDirect ، ADO ، IBX ، ...)
حل متعدد المنصات - Win32 و Win64 و macOS و VCL و FireMonkey
حفظ وتحديث وتحميل كائنات الكيان بطريقة موجهة للكائن
TAureliusDataSet للربط السهل والسريع مع عناصر التحكم DB- علم في VCL
تصميم متعدد النماذج للسماح بنماذج رسم الخرائط المختلفة في تطبيق واحد
الاستعلامات - واجهة برمجة تطبيقات استعلام قوية تستخدم تعبيرات المعايير والإسقاطات والتجميع والظروف وحتى العوامل المنطقية في نهج يشبه LINQ
رسم الخرائط الوراثة وتعدد الأشكال - تعيين التسلسل الهرمي فئة كاملة في قاعدة البيانات
تطوير قواعد البيانات المشتركة - استخدم كود دلفي واحد لاستهداف قواعد بيانات متعددة بطريقة شفافة
اختر من نهج الفئات إلى قاعدة البيانات (إنشاء بنية قاعدة البيانات من الفئات) أو نهج قاعدة البيانات إلى فئات (إنشاء رمز مصدر الفئات من قاعدة البيانات ، باستخدام TMS Data Modeler )
التعيين مباشرة في الفصول باستخدام السمات المخصصة
رسم الخرائط الرابطة
إدارة مدى الحياة للكائنات باستخدام مدير الكائنات
الكائنات المخزنة مؤقتًا وتعيين الهوية
إنشاء بنية قاعدة البيانات التلقائي
أنواع لاغية الدعم
تحميل كسول للجمعيات وحقول النقطة
يسمح تسجيل أوامر SQL
يسمح بتعيين أنواع قائمة على قيم قاعدة البيانات
بنية مفتوحة - قابلة للتمديد سهلة لاستخدام مجموعات مكونة مختلفة أو خوادم قاعدة البيانات

مكونات الوصول الى البيانات

Supported Data-Access components

dbExpress
dbGo (ADO)
FIBPlus
Interbase Express (IBX)
SQLite - Native Support
AnyDac
NexusDB
SQL-Direct
IBObjects
ElevateDB
UniDac
UIB
Direct Oracle Access
FireDac
ZeosLib

مع امور اخرى كثيرة يمكن مراجعتها بالرابط فوق

نظرة حول لفظ RAD في الدلفي دورة حياة الـ Form

Thu, 04 Jul 2019 13:15:30 +0000

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

لماذا يطلق على دلفي لفظة RAD - Rapid Application Development

الذي سنفعله اننا سنقوم بإنشاء مشروع جديد و نلاحظ فقط ما يفعله دلفي

قم بانشاء مجلد سمه كما شئت

File -> New -> Windows VCL Application - Delphi

أول ما يظهر هو فورم فارغ نقوم بحفظ المشروع داخل المجلد الذي أنشئته سابقا عن طريق

File -> Save All

أولا سيطلب منا حفظ الوحدة إحفظها باسم Unit1.pas.
ثانيا سيطلب منا حفظ المشروع إحفظه باسم Project1.dproj في النسخ الأقدم ستكون اللاحقة dpr بدلا من dproj.

تصفحه الملفات الموجودة داخل المجلد الملفات تختلف حسب نسخة دلفي المنصبة لديك الذي يهمنا هي الملفات الرئيسية التالية و التي لا يمكن عمل Compile للمشروع بدونها

Project1.dpr
Unit1.pas
Unit1.dfm

Project1.dpr اختصارا لـ Delphi Project لمشاهدة محتويات الملف

Project -> View Source

PHP كود :
program Project1;

uses
  Vcl.Forms,
  Unit1 in 'Unit1.pas' {Form1};

{$R *.res}

begin
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end. 

Unit1.pas ملف الكود للفورم الذي يظهر أمامك pas إختصارا للـ Pascal

PHP كود :
unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs;

type
  TForm1 = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

end. 

و أخيرا ملف Unit1.dfm إختصارا لـ Delphi Form الملف يحتوي على خصائص المكونات الموجودة على الفورم للوصول إليه يمكنك الضغظ على alt + F12 عندما تكون في الوضع Design و للعودة كذلك alt + F12 أو كما في الصورة

محتويات الملف

PHP كود :
object Form1: TForm1
  Left = 0
  Top = 0
  Caption = 'Form1'
  ClientHeight = 202
  ClientWidth = 447
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
end 

لنبدأ بملف الـ Pas

PHP كود :
TForm1 = class(TForm) 

دلفي كخواصه RAD قام بتعريف Class جديد تحت الإسم الإفتراضي TForm1 مورث من TForm أولا الحرف T ليست ضرورية و لكنها أسلوب متعارف عليه بين جميع مبرمجي دلفي حيث يتم تسبيق الـ Type بحرف T لتفريق بينه و بين الأغراض Objetcs

PHP كود :
var
  Form1: TForm1; 

دلفي قام بتعريف متغير عام Global Variable تحت الإسم Form1 من النمط TForm1 كما تعلم في الدلفي الأغراظ لا يمكن إستخدامها الى في حالة حجز ذاكرة لها عن طريق إستدعاء الباني Create أين يقوم دلفي بذلك سنعلم بعد حين

PHP كود :
{$R *.dfm} 

ملاحظة هذا ليس تعليق Comments و انما هو توجيه للـ Compiler يقول له أن يظمن ملف dfm حيث رمز الإفتتاج هنا هو {$ و ليس { اذن ربطنا ملف الـ dfm مع ملف pas

نذهب الآن لملف dpr لنلاحظ ماذا يفعله دلفي و قد قلنا كيف نطع عليه

PHP كود :
program Project1;

uses
  Vcl.Forms,
  Unit1 in 'Unit1.pas' {Form1};

{$R *.res}

begin
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end. 

السطر التالي

PHP كود :
  Unit1 in 'Unit1.pas' {Form1}; 

دلفي يحدد مكان تواجد الـ Unit بما انها موجود مع ملف dpr يذكر فقط اسمها في حالة كانت موجود داخل مجلد اخر يتم تحديد المسار

PHP كود :
{$R *.res} 

توجيه للـ Compiler لتضمين ملفات الـ Resources
أهم سطر هو التالي

PHP كود :
  Application.CreateForm(TForm1, Form1); 

دلفي يقوم بإنشاء الغرض Form1 و حجز الذاكرة له عن طريق إستدعاء CreateForm تذكر جيدا أن دلفي قام من قبل بتعريف المتغير Form1 و قام بتعريف النمط TForm1 في دلفي الطريقة الكلاسيكية لدلفي هي تعريف النمط تعريف الغرض حجز الذاكرة للغرض ثم تحرير الغرض من الذاكرة عند الإنتهاء منه

PHP كود :
var
  Form1: TForm1;
begin
  Form1 := TForm1.Create(nil);
  try

  finally
    Form1.Free;
  end;
end; 

CreateForm تقوم بحجز الذاكرة للغرض و تقوم بدور آخر هنا مهم جدا و هو تحديد الفورم الرئيسي للبرنامج في حالة كان لدينا العديد من الفورمات الفورم الرئيسي للبرنامج هو أول فورم نقوم بإنشاء عن طريق Application.CreateForm

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

في هذا الجزء سنستمر في التعرف على طريقة دلفي في البرمجة ظمن لفظة الـ RAD

يمكنك الإطلاع على الجزء الأول هنا

File -> New -> Windows VCL Form Application - Delphi

الذي سنقوم بفعله سنظيف زر الى الفورم Button من لوحة المكونات أضف زر و نلاحظ ماذا يفعله دلفي

ملف الوحدة pas

PHP كود :
type
  TForm1 = class(TForm)
    Button1: TButton;
  private
    { Private declarations }
  public
    { Public declarations }
  end; 

دلفي قام بتعريف Button1 مشتق من الصنف TButton
ملف dfm

PHP كود :
object Form1: TForm1
  Left = 0
  Top = 0
  Caption = 'Form1'
  ClientHeight = 202
  ClientWidth = 447
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Button1: TButton
    Left = 192
    Top = 112
    Width = 75
    Height = 25
    Caption = 'Button1'
    TabOrder = 0
  end
end 

ملف الـ dfm دلفي قام بحفظ خصائص الـ Button كما قلنا سابقا ملف dfm يحتوي على خصائص جميع المكونات الموجودة على الفورم أي خاصية تغيرها سيتم حفظها في ملف الـ dfm
لنعد الى ملف الوحدة pas و نرى ماذا يوجد هناك

PHP كود :
  TForm1 = class(TForm)
    Button1: TButton;
  private
    { Private declarations }
  public
    { Public declarations }
  end; 

اول ما تلاحظه private و public تذكرهم
{ Private declarations } و { Public declarations } عبارة عن تعليقات Comments يمكنك حذفهم
private و public يحددان نطاق المتغيرات و الإجراءات لنسميها محددات الوصول لكن هناك محدد آخر لا يظهر و هو published لماذا لا يظهر دلفي يعتبره إفتراظي لذلك نقوم بكتابته للتتضح الصورة أكثر
لتصبح لدينا الوحدة كاتالي

PHP كود :
type
  TForm1 = class(TForm)
  published
    Button1: TButton;
  private
    { Private declarations }
  public
    { Public declarations }
  end; 

لدينا الآن ثلاثة محددات published و private و public
published و public لمهما نفس النطاق لماذا دلفي قام بإظافة الزر تحت published و ليس public اذا كان لهما نفس النطاق السبب أن published يوفر معلومات للـ Object Inspector عكس الـ Public
الذي إعتدت على فعله في دلفي تقوم بسحب زر من لوحة المكونات و تظغط عليه مرتين في الـ Design Mode و تكتب الكود ضمن جسم الإجراء الذي سنقوم بفعله لتوضيح الفرق بين public و published هو التالي لا تقم بالظغط على الزر كما اعتدت على فعله و انما قم بكتابة الـ procedure التالي يدويا ضمن المحدد published

PHP كود :
procedure DoClick(Sender: TObject); 

سيصبح لدينا التالي

PHP كود :
type
  TForm1 = class(TForm)
  published
    Button1: TButton;
    procedure DoClick(Sender: TObject); 

حدد الزر في الـ Design Mode اذهب الى Object Inspector ثم Events ثم OnClick تصفح القائمة ستجد الـ procedure الذي كتبناه يدويا

قم بنقل الـ procedure الى public

PHP كود :
type
  TForm1 = class(TForm)
  published
    Button1: TButton;
  private
    { Private declarations }
  public
    procedure DoClick(Sender: TObject);
  end; 

حدد الزر في Design Mode اذهب الى Object Inspector ثم Events ثم OnClick تصفح القائمة لا يوجد شيئ

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

للامانة الفكرية تم نقل الموضوع من منتدى دلفي للعرب

نصائح للبدء في تعلم دلفي

Sun, 23 Jun 2019 20:20:19 +0000

النصيحة الاولى هي يجب ان تستمر مع دلفي لبعض الوقت وتعطيه فرصة لاتجرب ليوم او يومين تم تقول لم افهمه وتتركه
يجب ان تعطيه حقه لانني اعلم انك ستضيع وقت اخر في برمجة اخرى وستعود اليه .
من جرب الدلفي سيعود اليه ان عاجلا ام اجلا
لهذا لا تضيع وقتك .
النصيحة الثانية لا تلعب باعدادات الدلفي واترك الاعدادات الافتراضية حتى تتعلم وتفهمها خطوة بخطوة .
النصيحة الثالثة انصح بالنسخة EX7 فهي حسب رأيي اخف واسرع من الاصدارات التي بعدها واقل تعقيدا .
وهي النسخة التي افضلها واعمل عليها

دورة سلسلة دلفي للمبتدئين- مقدمة Delphi for biginners

Sat, 22 Jun 2019 21:06:39 +0000

السلام عليكم

سلسلة للمبتدئن من 25 فيديو

https://www.youtube.com/playlist?list=PL...BwRTVAbe9j

PHP كود :
https://www.youtube.com/playlist?list=PLbhOhfjoEoMHY8l5SOPatQIBwRTVAbe9j 

بالتوفيق للجميع

الحلقات التكرارية في دلفي

Mon, 17 Jun 2019 16:36:49 +0000

Continue

كود :
var

  i : Integer;

  s : string;

begin

  s := '';

  // A big loop

  for i := 1 to 9 do

  begin

    // Skip loop processing for certain values of i

    if (i = 3) or (i = 7) then Continue;

    s := s + IntToStr(i);

    s := s + ' ';

  end;

  // Show the string created by the above loop

  ShowMessage('s = '+s);

end;

إقتباس :
s = 1 2 4 5 6 8 9

كود :
var

  i : Integer;

begin

  // A for statement - the do keyword precedes a single statement

  for i := 1 to 3 Do

    ShowMessage('For loop, i = '+IntToStr(i));

  // A while statement - the do precedes a statement block

  while i < 6 Do

  begin

    ShowMessage('While loop, i = '+IntToStr(i));

    Inc(i);

  end;

end;

إقتباس :
For loop, i = 1

For loop, i = 2

For loop, i = 3

While loop, i = 4

While loop, i = 5

DownTo

كود :
var

  i : Integer;

begin

  // Loop 5 times

  for i := (10 div 2) DownTo 1 do

    ShowMessage('i = '+IntToStr(i));

end;

إقتباس :
i = 5

i = 4

i = 3

i = 2

i = 1

كود :
var

  c : char;

begin

  // Loop 5 times

  for c := 'E' DownTo 'A' do

    ShowMessage('c = '+c);

end;

إقتباس :
c = E

c = D

c = C

c = B

c = A

كود :
var

  suit : (Hearts, Clubs, Diamonds, Spades);

begin

  // Loop 3 times

  for suit := Diamonds DownTo Hearts do

    ShowMessage('Suit = '+IntToStr(Ord(suit)));

end;

إقتباس :
Suit = 2

Suit = 1

Suit = 0

For

كود :
var

  i : Integer;

begin

  // Loop 5 times

  For i := 1 to (10 div 2) do

    ShowMessage('i = '+IntToStr(i));

end;

إقتباس :
i = 1

i = 2

i = 3

i = 4

i = 5

كود :
var

  c : char;

begin

  // Loop 5 times - downwards

  For c := 'E' downto 'A' do

    ShowMessage('c = '+c);

end;

إقتباس :
c = E

c = D

c = C

c = B

c = A

كود :
var

  suit : (Hearts, Clubs, Diamonds, Spades);

begin

  // Loop 3 times

  For suit := Hearts to Diamonds do

    ShowMessage('Suit = '+IntToStr(Ord(suit)));

end;

إقتباس :
Suit = 0

Suit = 1

Suit = 2

Repeat

كود :
var

  num, sqrNum : Integer;

begin

  num := 1;

  sqrNum := num * num;

  // Display squares of integers until we reach 100 in value

  Repeat

    // Show the square of num

    ShowMessage(IntToStr(num)+' squared = '+IntToStr(sqrNum));

    // Increment the number

    Inc(num);

    // Square the number

    sqrNum := num * num;

  until sqrNum > 100;

end;

إقتباس :
1 squared = 1

   2 squared = 4

   3 squared = 9

   4 squared = 16

   5 squared = 25

   6 squared = 36

   7 squared = 49

   8 squared = 64

   9 squared = 81

10 squared = 100

Until

كود :
var

  num, sqrNum : Integer;

begin

  num := 1;

  sqrNum := num * num;

  // Display squares of integers until we reach 100 in value

  Repeat

    // Show the square of num

    ShowMessage(IntToStr(num)+' squared = '+IntToStr(sqrNum));

    // Increment the number

    Inc(num);

    // Square the number

    sqrNum := num * num;

  Until sqrNum > 100;

end;

إقتباس :
1 squared = 1

   2 squared = 4

   3 squared = 9

   4 squared = 16

   5 squared = 25

   6 squared = 36

   7 squared = 49

   8 squared = 64

   9 squared = 81

10 squared = 100

While

كود :
var

  num, sqrNum : Integer;

begin

  num := 1;

  sqrNum := num * num;

  // Display squares of integers until we reach 100 in value

  While sqrNum <= 100 do

  begin

    // Show the square of num

    ShowMessage(IntToStr(num)+' squared = '+IntToStr(sqrNum));

    // Increment the number

    Inc(num);

    // Square the number

    sqrNum := num * num;

  end;

end;

إقتباس :
1 squared = 1

   2 squared = 4

   3 squared = 9

   4 squared = 16

   5 squared = 25

   6 squared = 36

   7 squared = 49

   8 squared = 64

   9 squared = 81

10 squared = 100

دورة سلسلة دلفي للمبتدئين -- 25 فيديو

Mon, 17 Jun 2019 14:58:50 +0000

السلام عليكم

وجدت دورة من 25 فيديو لتعلم دولفي للمبتدئين

للاخ / azzedine bensedira

احببت اشاركها معكم

https://www.youtube.com/watch?v=atEbYFZ6...BwRTVAbe9j

دورة انشاء وادارة قواعد بيانات فايربيرد

Sun, 16 Jun 2019 22:42:18 +0000

السلام عليكم ورحمة الله

بداية يجب تحميل الفايربيرد من الموقع التالي

كود :
https://firebirdsql.org/en/firebird-2-5/

توجد نسختين 32 بت وايضا 64 بت طبعا الحزمة حجمها صغير سوف تحملهم الاثنين لانك سوف تقوم بتثبيت النسخة المناسبة بجهاز الزبون كما تقوم بتثبيت SQlServer تماما

ستجد ايضا نسخة Embedded وهي عبارة عن ملف Dll ترفقه مع مشروعك ولاحاجة الى تتبيث الفايربيرد كسيرفر في جهاز العميل وسوف نتطرق له باخر الدورة

اول ما ستلاحظه هو التثبيت السريع والخفيف وبمجرد الانتهاء يكون جاهز للاستخدام .

بعدها سوف تقوم بتحميل البرنامج التالي لانشاء قواعد البيانات لفايربيرد من الصفحة التالية .

https://vb4arb.com/vb/showthread.php?tid=29870

بعد التثبيت وتشغيل البرنامج سيظهر لك بالشكل التالي :

  1.jpg (الحجم : 90.46 ك ب / التحميلات : 233)

البداية من القائمة الى اليسار DataBase ثم Grate Database لنحصل على النافذة التالية

  2.jpg (الحجم : 39.74 ك ب / التحميلات : 233)

من الـ Server اختر Local لانك ستتعامل مع قاعدة بيانات على جهازك المحلي .

من Database اختر المجلد الذي ستحفظها فيه .

من Clint Library اتركها كما هي لانها تحتوي ملف موجود وهو مسجل عندما نصبنا الفايربيرد لنا لها عودة بأخر الدرس .
في كلمة السر واسم المستخدم بحال وانت تقوم بتنصيب الفايربيرد لم يطالبك بكلمة المرور واسم المستخدم
فاستخدم التالية
اسم المستخدم SysDba وكلمة المرور Masterkey وبحال طالبك بها وكتبت ما تريد فاكتب هنا التي اخترتها سابقا .

ثم OK لتظهر النافذة التالية :

  3.jpg (الحجم : 113.24 ك ب / التحميلات : 233)

من الـ Server Version اختر 2.5 لانني اعطيتك رابط التحميل لهذه الاصدارة .

من DataBase Alias اختر الاسم المستعار لقاعدة البيانات لتعرف تفرقها من بين كل قواعد البيانات التي تنشئها هنا
هذه للعيادة وهذه للمصنع وهذه للمدرسة الفلانية وما الى ذلك .

طبعا اسم المستخدم وكلمة المرور مرة اخرى
في الخانة Font Character اختر العربية لتظهر الحروف العربية بالبرنامج ولا تظهر كرموز

يمكنك اختيار Test Connection لاختبار اعدادتك واختبار الاتصال لو ظهر لك Passed فالامور تمام
تم اختر Register وبهذا انتهى انشاء قاعدة البيانات .
وسوف تظهر في القائمة الى اليسار انقر عليها مرتين ليتم فتحها كما بالشكل التالي :

  4.jpg (الحجم : 119.4 ك ب / التحميلات : 233)

كما تشاهد خانة الجداول والاستعلامات والاجراءات المخزنة وكل ما يلزم

يتبع في الدرس القادم اترككم تجربون الان

الكورس الشامل في برمجة تطبيقات ويندوز

Sun, 16 Jun 2019 13:43:28 +0000

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

احببت ان اشارك الجميع من يريد البداء فى التعلم

ومعرفة كيفية التعامل مع الـ Dephi

فى الرابط التالى كورس شامل فى عالم Dephi

https://www.youtube.com/playlist?list=PL...i_Ej6OW6iV

اتمنى انها تفيد الجميع

صاحب هذه الكورس : رؤوف رحيش

رابط صفحته على Youtube

https://www.youtube.com/channel/UCal0wCI...rYPvBS6RiA

تحياتى لكم جميعاً

وتمنياتى لكم التوفيق

نقطة مهمة لكم عن دلفي

Sun, 16 Jun 2019 12:12:18 +0000

ربما انا اكثر واحد يفهمكم لانني كنت معكم وانتقلت لدلفي لهذا اعرف اين سوف تواجهون مشاكل
واين تحتاجون للشرح
من الامور التي استشكلت عندي حول دلفي هي الوحدات فيه
الدلفي يتعامل بالوحدات Unit فكل نموذج هو يمثل وحدة لهذا اسم النموذج شئ واسم الوحدة التي يتبعها النموذج شئ أخر
فمثلا اسم النموذج هو FrmMain ولكن الوحدة التابعة له هي UntMain
وطبعا انت تختار اسم النموذج واسم الوحدة عندما تريد حفظ المشروع
في اول تعلمي للدلفي كنت اسمي نماذجي FrmUser or FrmPass or FrmMain وهكذا ولكن عندما يطلب مني حفظ اسم الوحدة كنت اتركها افتراضية فتصبح
Unit1 or Unit2 or Unit3 وهكذا
وهذه سوف تسبب لك فيما بعد شوشرة
لانك سوف تحتاج للتعامل مع اسم الوحدة هذا ولن تعرف هذه الوحدة لاي نموذج هي
لذلك عندما يكون عندك نموذج اسمه مثلا FrmMaim
تأكد ان تحفظ اسم الوحدة UntMain
ولو كان FrmUser الوحدة يكون اسمها UntUser وبهذا تعرف كل وحدة لاي نموذج تعود
لانك مثلا سوف تحتاج الى اضافة اسم وحدة نموذج الى نموذج أخر مثلا حتى تستدعيه من هنا
ووقتها انت بحاجة الى معرفة اسم الوحدة للنموذج المطلوب
لا تقلق الامر اسهل وابسط مما تتصور سوف نتطرق له عندما تحتاجونه وتسألون عنه
لاني اعلم انكم سوف تسألون عنه

هنا توجد وحدة كاملة عن دلفي تمثل نموذج Form

PHP كود :
unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs;

type
  TForm1 = class(TForm)
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

end. 

عندما تنشئ نموذج جديد سوف تتحصل على هذه الوحدة له
لاحظ الاسم الافتراضي للنموذج هو Form1 ولكن اسم الوحدة له هو Unit1

السطر الذي سيحدد ويرث نوع هذه الوحدة هو
TForm1 = class(TForm)

انها تمثل في الدوت نت
inherit windows.forms.form

لاحظ كلمة Uses
كل ما يوجد تحتها هو الوحدات التي نريد ان نستخدمها

وهي تمثل في الدوت نت مثلا
Import windows.forms.form

مثلا هذا النموذج هو Form1 ولديك نموذج هو Form2 لن تستطيع ان تراه او تستدعيه من هنا الا اذا اضفت اسم وحدته الى Uses

وهذا منطقي برمجيا بعكس قدرتك على رؤيو واستدعاء اي نماذج كما في الدوت نت

ولديك الكلمة private
يمكنك ان تكتب تحتها اي متغيرات محلية تريدها في وحدتك

ولديك الكلمة public

يمكنك ان تكتب تحتها اي متغيرات عامة تريدها في وحدتك

مثلا

كود :
 TForm1 = class(TForm)

  private

  myInteger:Integer;

  public

  myStr:String;

  end;