برمجة برنامج بالدلفي تسيير مــحل تـجـــاري

[طيباوي ابو علي1]

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

الصلاة والسلام على رسول الله وعلى آله وصحبه أجمعين

برمجة برنامج بالدلفي تسيير مــحل تـجـــاري



أي اخطاء ترونها اعلموني بها
أو اقترحات تحبون اضافتها وشكرا

1

الوحدة الاولى هي الواجهة الرئيسية للبرنامج فبمجرد الدخول
تستطيع الدخول الى كافة الاقسام في البرنامج

2


الوحدة الثانية
من خلالها تستطيع تسجيل كافة السلع الموجودة في المحل و التي ستجلب فيما بعد
فتسجيل كل السلع يجعل البرنامج يعمل بشكل جيد ، فقم بتسجيل كل الموجودات

طريقة التسجيل تكون بكتابة اسم السلعة في المربع الاول وكتابة
الكمية التي تم شراؤها في المربع الثاني
وكتابة ثمن السلعة في المربع الثالث أقصد ثمن البيع وليس ثمن الشراء

لأنك عندما تقوم فيما بعد باجراء عملية البيع لن تكون مضطر الى كتابة الثمن
لأنه سيتم جلبه آليا من قاعدة البيانات لأنه مسجل فيها

ملاحظة هامة

البرنامج لا ييقبل الفواصل
أقصد أنه يعمل على الاعداد الصحيحة فقط
فأرجــــــــو الانتباه الى ذلك عند تسجيل
مثال : هذه القيمة
546.00
تكتب هكذا
54600
بدون فواصل اعداد صحيحة

3

الوحدة الثالثة لتحرير فاتــورة ما
كتابة اسم السلعة في المربع الاول أو اختياره من القائمة بالضغط فوق السهم الموجود
بجانب المربع أو ضغط على أف 4 F4
وكتابة عدد السلعة في المربع الثاني
والضغط فوق حساب
ظهور النتيجة في المربع الكبير بالتفصيل لكل سلعة
وظهور المجموع الكلي للسلع التي تم بيعها المربع "المجموع الكلي"

اذا كانت دين أكتب اسم صاحب الدين في المربع السفلي
أو اختر من القائمة اذا كان من أصحاب الديون الموجودين عندك
اشر على "تسجيل في قائمة الديون" قبل الكتابة اسم الدائن

اذا أردت تسجيل جديد ماعليك سوى الضغط فوق "جديد وحفظ"
ويمكنك حفظ ها في ملف نصي اذا أردت ذلك
وعند المغادرة تطالب بحفظ النتيجة كذلك

4

الوحدة الرابعة

تمثل المجموع الكلي أقصد مجوع المبيعات

ظهور "مجــمــوع المبيعات التي تمّ بيعها" في المربع الاول
كتابة كل ما تم شراه للمحل من سلع في المربع الثاني
الضغط فوق "تسجيل" وظهوره الثالث

ظهور النسبة المأوية في المربع الرابع بعد الضقط فوق "حساب"

ديون المحل المتوجب على صاحب المحل سدادها
هي ديون استدان بها صاحب المحل
تكتب في المربع الخامس وظهورها في المربع السادس

لاظهار ديون المحل الضقط فوق "مجموع الدين"

لحذف الديون الضغط فوق "حـــذف مجــمو ع الديـن"

5
الوحدة الخامسة
لعرض أصحاب الديون
المربع الاول اسم صاحب الدين
المربع الثاني المبلغ والضغط فوق "تسجيل"

المربع الثالث لتحذيرات أقصد عدد السلعة التي سيتم تحذرك به
أكتب فيه عدد السلع مثلا 10 أو 3
اذا بقية لك 10 أو 3 تأتيك رسالة تنبهك على أن السلعة قد نفذت من المحل

المربع الرابع لضريبة تيفيا TVA اكتب في المربع مثلا 17 أو غيرها
اضغط فوق "تسجيل"

وفي الشبكة
سيتم عرض أصحاب الديون المتوجب عليهم سدادها



ويعتبر كمحاولة فقط


==============================================
الوحدة الاولى
==============================================
اسمها
Unit1.pas

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, ExtCtrls, ComCtrls, Db, DBTables;

type
  TForm1 = class(TForm)
    GroupBox1: TGroupBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    Panel1: TPanel;
    StatusBar1: TStatusBar;
    Table1: TTable;
    Table2: TTable;
    Table2Code: TFloatField;
    Table2Aton_tion: TStringField;
    Timer1: TTimer;
    Label1: TLabel;
    Timer2: TTimer;
    Label2: TLabel;
    Label3: TLabel;
    Table1Code: TFloatField;
    Table1Nom: TStringField;
    Table1Nombre_P1: TStringField;
    Table1Nombre_P2: TStringField;
    Table1Prix: TStringField;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure BitBtn1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure BitBtn2MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure BitBtn3MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure BitBtn4MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure BitBtn5MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Table2BeforeOpen(DataSet: TDataSet);
    procedure Timer1Timer(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Label3Click(Sender: TObject);
    procedure Table1BeforeOpen(DataSet: TDataSet);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;                                          َ
const sa1 = 'ت'; sa2 = 'س'; sa3 = 'ي'; sa4 = 'ي';
      sa5 = 'ر'; sa6 = ' '; sa7 = 'م'; sa8 = 'ح';
      sa9 = 'ل'; sa10 = ' ';  sa11 = 'ت'; sa12 = 'ج';
      sa13 = 'ا'; sa14 = 'ر'; sa15 = 'ي'; sa16 = ' ';
      sa17 = ' ';
      
      aad: array[1..17] of  string[1] = (
      sa1,sa2,sa3,sa4,sa5,sa6
      ,sa7,sa8,sa9,sa10,sa11,sa12
      ,sa13,sa14,sa15,sa16,sa17);

var
  Form1: TForm1; q: integer;
  ldelph: string;

implementation

uses Unit2, Unit3, Unit4, Unit5;

{$R *.DFM}

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
 Table2.Open; Table2.First;
 if strtoint(Table2Aton_tion.Value) > 0 then
 begin
  Table1.Open; Table1.First;
  while not Table1.Eof do
  begin
   if strtoint(Table1Nombre_P2.Value) <= strtoint(Table2Aton_tion.Value)  then
  MessageDlg
  ('تــحذيـــر نفـــاذ هـذه الـسلعـة مــن المــحـل التــجاري .'#13#10#13#10+
             'المــادة هــي   :   '+Table1Nom.Value+'   =   '+
             Table1Nombre_P2.Value, mtInformation,
      [mbOk], 0);
   Table1.Next;
  end;
 end;
 
  Form2.Show;
  Form2.Visible := True;
  Form1.Visible := False;
  Timer1.Enabled := False;
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
 Table2.Open; Table2.First;
 if strtoint(Table2Aton_tion.Value) > 0 then
 begin
  Table1.Open; Table1.First;
  while not Table1.Eof do
  begin
   if strtoint(Table1Nombre_P2.Value) <= strtoint(Table2Aton_tion.Value)  then
  MessageDlg
  ('تــحذيـــر نفـــاذ هـذه الـسلعـة مــن المــحـل التــجاري .'#13#10#13#10+
             'المــادة هــي   :   '+Table1Nom.Value+'   =   '+
             Table1Nombre_P2.Value, mtInformation,
      [mbOk], 0);
   Table1.Next;
  end;
 end;
 
  Form3.Show;
  Form3.Visible := True;
  Form3.Memo1.Clear;
  Form1.Visible := False;
  Timer1.Enabled := False;
end;

procedure TForm1.BitBtn3Click(Sender: TObject);
begin
  Form4.Show;
  Form4.Visible := True;
  Form1.Visible := False;
  Timer1.Enabled := False;
end;

procedure TForm1.BitBtn4Click(Sender: TObject);
begin
  Form5.Show;
  Form5.Visible := True;
  Form1.Visible := False;
  Timer1.Enabled := False;
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
  Form2.Visible := False; Form3.Visible := False;
  Form4.Visible := False; Form5.Visible := False;
  Form2.BitBtn2.Visible := False;
  Form2.Combobox1.Text := 'خيارات'; Form2.BitBtn1.Visible := True;
  Form2.Edit1.Text := ''; Form2.Edit2.Text := ''; Form2.Edit3.Text := '';
end;

procedure TForm1.BitBtn1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  StatusBar1.SimpleText
  := 'يجــب تسجــــيل كل السلع أو المشتريات الموجودة  في المحل التجاري';
end;

procedure TForm1.BitBtn2MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
 StatusBar1.SimpleText:='في حالة بيع السلع التوفرة في المحل التجاري يجب الدخول هنا';
end;

procedure TForm1.BitBtn3MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
 StatusBar1.SimpleText := 'كل المبيعات التي تم بيعها ستسجل';
end;

procedure TForm1.BitBtn4MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  StatusBar1.SimpleText := 'اصحاب الديون والديون التوجب عليهم سدادها';
end;

procedure TForm1.BitBtn5MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  StatusBar1.SimpleText := 'الخـــروج النهائي مـن الــرنــامــج';
end;

procedure TForm1.Table2BeforeOpen(DataSet: TDataSet);
begin
  Session.AddPassword('1962');
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  q := q + 1;
  Panel1.Caption := Panel1.Caption + aad[q];
  Form1.Caption := Form1.Caption + aad[q];
  if q >= 17 then
  begin
    q := 0;
    Panel1.Caption := '';
    Form1.Caption :=  '';
  end;
end;

procedure TForm1.Timer2Timer(Sender: TObject);
 var
    DateTime : TDateTime;
    str :  string ;
begin
    DateTime := Time;  //
    str := TimeToStr(DateTime); //
    Label1.Caption := str;  // affiche
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Label2.Caption := datetostr(Now);
end;

procedure TForm1.Label3Click(Sender: TObject);
begin
 ldelph := inputbox('هذا البرنامج انجز من طرف السيد : ال'
 ,'أدخل كلمة المرور من فضلك حتى تتعرف على الاسم'
 ,'');
 if ldelph = '20022006' then
    Label3.Caption := 'delph.forumalgerie.net'
  else Label3.Enabled := false;
end;

procedure TForm1.Table1BeforeOpen(DataSet: TDataSet);
begin
  Session.AddPassword('2006');
end;

end.

سيتم وضعه على فترات

أقصد كل يوم أو أكثر حتى أنتهي من وضع في المنتدى

وعندما انتهي منه أضعه مرفق

[mohamed2412]

بارك الله فيك أخي على هذا المشروع القيم أرجو منك إفادتنا بواجهة البرنامج المرفقة بالوحدة unit لكل form حتى يتضحى لنا هوية البرنامج و ملامحه وشكرا

[belaifah]

بارك الله فيكم

[طيباوي ابو علي1]

الوحدة الثانية
من خلالها تستطيع تسجيل كافة السلع الموجودة في المحل و التي ستجلب فيما بعد
فتسجيل كل السلع يجعل البرنامج يعمل بشكل جيد ، فقم بتسجيل كل الموجودات

طريقة التسجيل تكون بكتابة اسم السلعة في المربع الاول وكتابة
الكمية التي تم شراؤها في المربع الثاني
وكتابة ثمن السلعة في المربع الثالث أقصد ثمن البيع وليس ثمن الشراء

لأنك عندما تقوم فيما بعد باجراء عملية البيع لن تكون مضطر الى كتابة الثمن
لأنه سيتم جلبه آليا من قاعدة البيانات لأنه مسجل فيها

اسم الوحدة الثانية
Nom de unité : Unit2.pas { djelfa.info/vb منتدى البرمجة }

unit Unit2;
 { djelfa.info/vb  منتدى البرمجة }
interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Db, DBTables, StdCtrls, Buttons, Grids, DBGrids;
 { djelfa.info/vb  منتدى البرمجة }
type
  TForm2 = class(TForm)
    Table1: TTable;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    BitBtn1: TBitBtn;
    Table1Code: TFloatField;
    Table1Nom: TStringField;
    Table1Nombre_P1: TStringField;
    Table1Nombre_P2: TStringField;
    Table1Prix: TStringField;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    ComboBox1: TComboBox;
    CheckBox1: TCheckBox;
    BitBtn4: TBitBtn;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    BitBtn5: TBitBtn;
    Query1: TQuery;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormActivate(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Table1BeforeOpen(DataSet: TDataSet);
    procedure BitBtn1Click(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure Edit2Change(Sender: TObject);
    procedure Edit3Change(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure chargComb(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;

var
  Form2: TForm2; i: Integer;

implementation

uses Unit1;

{$R *.DFM}
 { djelfa.info/vb  منتدى البرمجة }
procedure TForm2.chargComb(Sender: TObject);
begi 
  Combobox1.Clear;
  Combobox1.Text := 'خيارات';

  Table1.DisableControls;
  try
  Table1.First;
  while not Table1.Eof do
   begin
     Combobox1.Items.Add(Table1Nom.Value);
     Table1.Next; { djelfa.info/vb  منتدى البرمجة }
   end;
   finally { djelfa.info/vb  منتدى البرمجة }
    Table1.EnableControls;
end;

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Form1.Visible := True;
  i := 0;
  Form1.Timer1.Enabled := True;
  Query1.Active := False;
end;

procedure TForm2.FormActivate(Sender: TObject);
begin
  Form2.Left := 163; { djelfa.info/vb  منتدى البرمجة }
  Form2.Top := 86;
  Form2.Height := 449;
  Form2.Width := 585; i := 0; { djelfa.info/vb  منتدى البرمجة }
  Query1.Active := True;
end; { djelfa.info/vb  منتدى البرمجة }

procedure TForm2.FormCreate(Sender: TObject);
begin { djelfa.info/vb  منتدى البرمجة }
  Table1.Open;
////////  //Query1.Active := True;
end;

procedure TForm2.Table1BeforeOpen(DataSet: TDataSet);
begin
  Session.AddPassword('1962'); { djelfa.info/vb  منتدى البرمجة }
end;
 { djelfa.info/vb  منتدى البرمجة }
procedure TForm2.BitBtn1Click(Sender: TObject);
var ba: array[0..1] of string;
    boo: boolean;
begin
  boo := False; { djelfa.info/vb  منتدى البرمجة }
  ba[1] := Edit1.Text;
  Table1.Open;
  Table1.DisableControls; { djelfa.info/vb  منتدى البرمجة }
  try
  Table1.First;
  while not Table1.Eof do { djelfa.info/vb  منتدى البرمجة }
  begin
   if ba[1] = Table1Nom.Value then boo := True;
   Table1.Next; { djelfa.info/vb  منتدى البرمجة } { djelfa.info/vb  منتدى البرمجة }
  end;
   finally
    Table1.EnableControls; { djelfa.info/vb  منتدى البرمجة }
  if boo = False then
  begin { djelfa.info/vb  منتدى البرمجة }
   Table1.Last;
   if Table1Code.Text = '' then i := 0
     else i := strtoint(Table1Code.Text);
   i := i + 1;
   Table1.Append; { djelfa.info/vb  منتدى البرمجة }
   Table1Code.Text :=  inttostr(i);
   Table1Nom.Value := Edit1.Text;
   Table1Nombre_P1.Value := Edit2.Text;
   Table1Nombre_P2.Value := Edit2.Text;
   Table1Prix.Value := Edit3.Text;
   Table1.Post; { djelfa.info/vb  منتدى البرمجة }
  end else if boo = True then
  begin { djelfa.info/vb  منتدى البرمجة }
   Table1.Locate('Nom',Edit1.Text,[LopartialKey]);
   Table1.Edit; { djelfa.info/vb  منتدى البرمجة }
  Table1['Nombre_P1'] := strtoint(Table1Nombre_P1.Value) + strtoint(Edit2.Text);
  Table1['Nombre_P2'] := strtoint(Table1Nombre_P2.Value) + strtoint(Edit2.Text);
   Table1.Post; { djelfa.info/vb  منتدى البرمجة }
  end; { djelfa.info/vb  منتدى البرمجة }
  Edit1.Text := ''; Edit2.Text := '';
  Edit3.Text := ''; { djelfa.info/vb  منتدى البرمجة }
  BitBtn1.Enabled := False;
  chargComb(Form2);
  Edit1.TabOrder := 0; Edit2.TabOrder := 1; Edit3.TabOrder := 2;
end;
 { djelfa.info/vb  منتدى البرمجة }
procedure TForm2.Edit1Change(Sender: TObject);
begin
  if (Edit1.Text <> '')and(Edit2.Text <> '')and(Edit3.Text <> '') then begin
     BitBtn1.Enabled := True; BitBtn2.Enabled := True;
     BitBtn4.Enabled := True; end { djelfa.info/vb  منتدى البرمجة }
     else begin BitBtn1.Enabled := False;
      BitBtn2.Enabled := False; BitBtn4.Enabled := False; end;
end; { djelfa.info/vb  منتدى البرمجة }

procedure TForm2.Edit2Change(Sender: TObject);
begin
  if (Edit1.Text <> '')and(Edit2.Text <> '')and(Edit3.Text <> '') then begin
     BitBtn1.Enabled := True; BitBtn2.Enabled := True;
     BitBtn4.Enabled := True; end
     else begin BitBtn1.Enabled := False;
      BitBtn2.Enabled := False; BitBtn4.Enabled := False; end;
end;
 { djelfa.info/vb  منتدى البرمجة }
procedure TForm2.Edit3Change(Sender: TObject);
begin
  if (Edit1.Text <> '')and(Edit2.Text <> '')and(Edit3.Text <> '') then begin
     BitBtn1.Enabled := True; BitBtn2.Enabled := True;
     BitBtn4.Enabled := True; end
     else begin BitBtn1.Enabled := False;
      BitBtn2.Enabled := False; BitBtn4.Enabled := False; end;
end; { djelfa.info/vb  منتدى البرمجة }

procedure TForm2.BitBtn2Click(Sender: TObject);
begin
  Table1.Locate('Nom',Edit1.Text,[LopartialKey]);
  Table1.Edit; { djelfa.info/vb  منتدى البرمجة }
  Table1['Nom'] := Edit1.Text;
  Table1['Nombre_P1'] := Edit2.Text;
  Table1['Nombre_P2'] := Edit2.Text;
  Table1['Prix'] := Edit3.Text;
  Table1.Post;
end; { djelfa.info/vb  منتدى البرمجة }

procedure TForm2.FormShow(Sender: TObject);
begin
   Table1.Open;
   chargComb(Form2);
end; { djelfa.info/vb  منتدى البرمجة }
 { djelfa.info/vb  منتدى البرمجة }
procedure TForm2.ComboBox1Change(Sender: TObject);
begin { djelfa.info/vb  منتدى البرمجة }
  Table1.Locate('Nom',Combobox1.Text,[LopartialKey]);
  Edit1.Text := Table1Nom.Value;
  Edit2.Text := Table1Nombre_P1.Value;
  Edit2.Text := Table1Nombre_P2.Value;
  Edit3.Text := Table1Prix.Value;
  CheckBox1.Checked := False;
  BitBtn1.Visible := False; BitBtn2.Visible := True;
  CheckBox1.Caption := 'اظهار التسجيل';
end; { djelfa.info/vb  منتدى البرمجة }

procedure TForm2.BitBtn3Click(Sender: TObject);
begin { djelfa.info/vb  منتدى البرمجة }
  Combobox1.Text := 'خيارات'; BitBtn1.Visible := True;
  Edit1.Text := ''; Edit2.Text := ''; Edit3.Text := '';
  BitBtn2.Visible := False; CheckBox1.Caption := 'اخفاء التسجيل';
end; { djelfa.info/vb  منتدى البرمجة }

procedure TForm2.CheckBox1Click(Sender: TObject);
begin { djelfa.info/vb  منتدى البرمجة }
 if CheckBox1.Checked = True then begin BitBtn1.Visible := True;
    Edit1.Text := ''; Edit2.Text := '';
    CheckBox1.Caption := 'اخفاء التسجيل';
    Edit3.Text := ''; Combobox1.Text := 'خيارات'; end
   else begin BitBtn1.Visible := False;
         CheckBox1.Caption := 'اظهار التسجيل'; end;
end; { djelfa.info/vb  منتدى البرمجة }

procedure TForm2.BitBtn4Click(Sender: TObject);
begin { djelfa.info/vb  منتدى البرمجة }
  Table1.Locate('Nom',Edit1.Text,[LopartialKey]);
  if MessageDlg('هل تريد إزالة هذه السلعة ؟',mtConfirmation,[mbYes,mbNo],0)
   = mrYes then
  begin { djelfa.info/vb  منتدى البرمجة }
   Table1.Delete; Edit1.Text := '';
   Edit2.Text := ''; Edit3.Text := '';
  end; { djelfa.info/vb  منتدى البرمجة }
 chargComb(Form2);
end; { djelfa.info/vb  منتدى البرمجة }
 { djelfa.info/vb  منتدى البرمجة }
end.

[طيباوي ابو علي1]

بارك الله فيكم

ومشكورين على الردين الذين تفضلتم بهما

[LATAOUI MABROUK]

بارك الله فيك

[عبدالله بولنوار]

في المتابعة ان شاء الله

لكن لو تكرمت بارفاق صور للفورمات

[طيباوي ابو علي1]

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

هـــــــــــــذا هــو المرفق الذي وعدكم به

أي أخطاء تجدونها اعلموني بها في رد

وشكرا

=========
=========
========


الذهاب الى الوحدة الرابعة وتصحيح الخطأ
باقاف أول شرط كما هو ظاهر في المثال

هذا بنسب للمرفق

procedure TForm4.BitBtn10Click(Sender: TObject);
begin
//  if Table3Marchkrid.Value <> '' then begin
  Table3.Open; Table3.First;
  if MessageDlg('هل تريد حذف هذا المجموع ؟',mtConfirmation,[mbYes,mbNo],0)
   = mrYes then
  begin
   Table3.Delete;
   Edit5.Text := '';
   Edit6.Text := '';
   end;
  if (Table3Marchkrid.Value = '')and(Table3Code.Text = '') then
  begin
   Table3.Open; Table3.First;
   Table3.Append;
   Table3Code.Text := '1';
   Table3Marchkrid.Value := '0';
   Table3.Post;
  end; //end;
end;

[طيباوي ابو علي1]

اسم الوحدة الثالثة
Nom de unité : Unit3.pas

unit Unit3;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
{ djelfa.info/vb  منتدى البرمجة }  StdCtrls, Db, DBTables, Buttons, ExtCtrls, Menus;

type
  TForm3 = class(TForm)
{ djelfa.info/vb  منتدى البرمجة }    ComboBox1: TComboBox;
    Table1: TTable;
    Table1Code: TFloatField;
    Table1Nom: TStringField;
    Table1Nombre_P1: TStringField;
    Table1Nombre_P2: TStringField;
    Table1Prix: TStringField;
    Edit1: TEdit;
    BitBtn1: TBitBtn;
    Memo1: TMemo;
    Edit2: TEdit;
    BitBtn2: TBitBtn;
    Label1: TLabel;
    Label2: TLabel;
{ djelfa.info/vb  منتدى البرمجة }    Bevel1: TBevel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Table2: TTable;
    BitBtn3: TBitBtn;
    SaveDialog1: TSaveDialog;
    MainMenu1: TMainMenu;
    File1: TMenuItem;
    Open1: TMenuItem;
    Save1: TMenuItem;
    N1: TMenuItem;
    Exit1: TMenuItem;
    OpenDialog1: TOpenDialog;
    Table3: TTable;
    Table3Code: TFloatField;
    Table3Aton_tion: TStringField;
    Table3TVA: TStringField;
    Table2Code: TStringField;
    Table2Grand_Prix: TStringField;
    Table2Grand_Prix1: TStringField;
    CheckBox1: TCheckBox;
    Table4: TTable;
    Table4Code: TFloatField;
    Table4Nom: TStringField;
    Table4Nom_krid: TStringField;
    ComboBox2: TComboBox;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormActivate(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure Open1Click(Sender: TObject);
    procedure Save1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure ChekBoxour(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;

var
  Form3: TForm3; i,j: Integer;
  
const
  DefaultFileName = 'Untitled';

implementation

uses Unit1;

{$R *.DFM}

procedure TForm3.ChekBoxour(Sender: TObject);
var booll: boolean;
    entrier: string;
begin
 if ComboBox1.Text <> 'خيارات' then begin
  booll := False;
  entrier := ComboBox2.Text;
  Table4.Open;
  Table4.DisableControls;
  try
  Table4.First;
  while not Table4.Eof do
  begin
   if  entrier = Table4Nom.Value then booll := True;
   Table4.Next;
  end;
  finally
    Table4.EnableControls; end;
  if (booll = False)or(Table4Code.Text = '') then
  begin
   Table4.Last;
   if Table4Code.Text = '' then j := 0
     else j := strtoint(Table4Code.Text);
   j := j + 1;
   Table4.Append;
   Table4Code.Text :=  inttostr(j);
   Table4Nom.Value := entrier;
   Table4Nom_krid.value := Edit2.Text;
   Table4.Post;
  end else if booll = True then
  begin
   Table4.Locate('Nom',entrier,[LopartialKey]);
   Table4.Edit;
  Table4['Nom_krid'] := strtoint(Table4Nom_krid.Value) + strtoint(Edit2.Text);
   Table4.Post;
 end; end;
end;

procedure TForm3.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 Form1.Visible := True;
 if Edit2.Text <> '' then begin
  if CheckBox1.Checked = True then ChekBoxour(Form3);
  Table3.Open; Table3.First;
  Table2.Open; Table2.First;  Table2.Edit;
  Table2.Edit; Table2['Code'] := '1';
  if Table2Grand_Prix.Value <> '' then
   Table2['Grand_Prix'] := strtoint(Table2Grand_Prix.Value) +
 strtoint(Edit2.Text) + (strtoint(Edit2.Text) * strtofloat(Table3TVA.Value))
   else Table2['Grand_Prix']:= strtoint(Edit2.Text) + (strtoint(Edit2.Text) *
 strtofloat(Table3TVA.Value));
  Table2.Post; end;
  Edit2.Text := ''; i := 0;
  if Memo1.Lines.Count <> 0 then
  begin
   if SaveDialog1.Execute then
     Memo1.Lines.SaveToFile(SaveDialog1.FileName);
  end;
  Memo1.Clear;
  Form1.Timer1.Enabled := True;
end;                   //khjkjhkhjkhjkhjkhjkhjkhjkhjk

procedure TForm3.FormActivate(Sender: TObject);
begin
  Form3.Left := 163; Form3.Top := 86;
  Form3.Height := 460; Form3.Width := 590;
  Memo1.Clear; Edit2.Clear; i := 0;
end;

procedure TForm3.Form{ djelfa.info/vb  منتدى البرمجة }Show(Sender: TObject);
begin
   Combobox1.Clear;
{ djelfa.info/vb  منتدى البرمجة }   Combobox1.Text := 'خــيارات';
   Table1.Open;
   Table1.DisableControls;
   try
   Table1.First;
   while not Table1.Eof do
   begin
     Combobox1.Items.Add(Table1Nom.Value);
     Table1.Next;
   end;
   finally
     Table1.EnableControls; end;

   Combobox2.Clear;
   Combobox2.Text := 'خــيارات';
   Table4.Open;
   Table4.DisableControls;
   try
   Table4.First;
   while not Table4.Eof do
   begin
     Combobox2.Items.Add(Table4Nom.Value);
     Table4.Next;
   end;
   finally
     Table4.EnableControls; end;   
end;

procedure TForm3.BitBtn1Click(Sender: TObject);
begin
 Table1.First;
 if (Table1Code.Text <> '')and(Combobox1.Text <> 'خــيارات') then
 begin
  Table1.Locate('Nom',Combobox1.Text,[LopartialKey]);
  if strtoint(Table1Nombre_P2.Value) < strtoint(Edit1.Text) then begin
 Showmessage('تم نفاذ هذه السلع وهي : ال'+Table1Nom.Value+'   '+
Table1Nombre_P2.Value);
     Edit1.Text := ''; end
  else begin
  Table1.Edit;
  Table1['Nombre_P2'] := strtoint(Table1Nombre_P2.Value) - strtoint(Edit1.Text);
  Table1.Post;
  i := i + strtoint(Table1Prix.Value) * strtoint(Edit1.Text);
  Edit2.Clear;
  Edit2.Text := inttostr(i);
  Memo1.Lines.Add(Table1Nom.Value + '  :  ' + Table1Prix.Value +
   '  *  ' + Edit1.Text + '  =  ' +
    inttostr(strtoint(Table1Prix.Value) * strtoint(Edit1.Text)));
{ djelfa.info/vb  منتدى البرمجة }  Edit1.Text := '';
  end;
 end;
end;

procedure TForm3.Edit1Change(Sender: TObject);
begin
 if Edit1.Text <> '' then BitBtn1.Enabled := True
    else BitBtn1.Enabled := False;
end;

procedure TForm3.BitBtn3Click(Sender: TObject);
begin
 if Edit2.Text <> '' then begin
  if CheckBox1.Checked = True then ChekBoxour(Form3);
  Table2.Open; Table2.First; Table2.Edit;
  Table2.Edit; Table2['Code'] := '1';
  if Table2Grand_Prix.Value <> '' then
   Table2['Grand_Prix'] := strtoint(Table2Grand_Prix.Value) +
 strtoint(Edit2.Text) + (strtoint(Edit2.Text) * strtofloat(Table3TVA.Value))
   else Table2['Grand_Prix']:= strtoint(Edit2.Text) + (strtoint(Edit2.Text) *
 strtofloat(Table3TVA.Value));
  Table2.Post; end;
  if Memo1.Lines.Count <> 0 then
  begin
   Memo1.Lines.Add('ضــريـبة  :  TVA '+ floattostr(strtofloat(Edit2.Text) *
{ djelfa.info/vb  منتدى البرمجة } strtofloat(Table3TVA.Value)) + '  دج');
   Memo1.Lines.Add('المجموع الكلي  : '+floattostr(strtoint(Edit2.Text) +
(strtofloat(Edit2.Text) * strtofloat(Table3TVA.Value))) + '  دج ');
   if SaveDialog1.Execute then
     Memo1.Lines.SaveToFile(SaveDialog1.FileName);
  end;
  Edit2.Text := ''; i := 0;
  Memo1.Clear; ComboBox1.Text := 'خــيارات';
end;

procedure TForm3.Open1Click(Sender: TObject);
begin
 Memo1.Clear;
 if OpenDialog1.Execute then
   Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
end;

procedure TForm3.Save1Click(Sender: TObject);
begin
  if Memo1.Lines.Count <> 0 then
  begin
   if SaveDialog1.Execute then
     Memo1.Lines.SaveToFile(SaveDialog1.FileName);
   Edit2.Text := ''; i := 0;
   Memo1.Clear; ComboBox1.Text := 'خــيارات';
  end;
end;

procedure TForm3.FormCreate(Sender: TObject);
begin
 Table1.Open; Table2.Open;
 Table3.Open;
end;

procedure TForm3.BitBtn2Click(Sender: TObject);
begin
 if Memo1.Lines.Count <> 0 then
 begin
   Memo1.Lines.Add('ضــريـبة  :  TVA '+ floattostr(strtofloat(Edit2.Text) *
 strtofloat(Table3TVA.Value)) + '  دج');
   Memo1.Lines.Add('المجموع الكلي  : '+floattostr(strtoint(Edit2.Text) +
(strtofloat(Edit2.Text) * strtofloat(Table3TVA.Value))) + '  دج ');
 end;
 Form3.Close;
end;

procedure TForm3.CheckBox1Click(Sender: TObject);
begin
 ComboBox2.Text := '';
end;

end.

[طيباوي ابو علي1]

اسم الوحدة الرابعة
Nom de unité : Unit4.pas

unit Unit4;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Grids, DBGrids, Db, DBTables, StdCtrls, Buttons, ExtCtrls, ComCtrls;

type
  TForm4 = class(TForm)
    Table1: TTable;
    Edit1: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Panel1: TPanel;
    Bevel1: TBevel;
    BitBtn3: TBitBtn;
    StatusBar1: TStatusBar;
    Edit2: TEdit;
    Edit3: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    BitBtn4: TBitBtn;
    Table1Code: TStringField;
    Table1Grand_Prix: TStringField;
    Table1Grand_Prix1: TStringField;
    BitBtn5: TBitBtn;
    Table2: TTable;
    Table2Code: TFloatField;
    Table2Nom: TStringField;
    Table2Nombre_P1: TStringField;
    Table2Nombre_P2: TStringField;
    Table2Prix: TStringField;
    BitBtn6: TBitBtn;
    BitBtn7: TBitBtn;
    Edit4: TEdit;
    Edit5: TEdit;
    BitBtn8: TBitBtn;
    BitBtn9: TBitBtn;
    Edit6: TEdit;
    Label4: TLabel;
    Table3: TTable;
    Table3Code: TFloatField;
    Table3Marchkrid: TStringField;
    BitBtn10: TBitBtn;
    Label5: TLabel;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormActivate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure Button1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure BitBtn2MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure BitBtn1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure BitBtn3MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Edit1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure BitBtn4Click(Sender: TObject);
    procedure Edit2MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure BitBtn4MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Edit2Change(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure BitBtn7Click(Sender: TObject);
    procedure BitBtn8Click(Sender: TObject);
    procedure BitBtn10Click(Sender: TObject);
    procedure BitBtn9Click(Sender: TObject);
    procedure Edit5Change(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;

var
  Form4: TForm4;
  se1,sa2,su3,si4: real;

implementation

uses Unit1;

{$R *.DFM}

procedure TForm4.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Form1.Visible := True;
  Form1.Timer1.Enabled := True;
end;

procedure TForm4.FormActivate(Sender: TObject);
begin
  Form4.Left := 163; Form4.Top := 86;
  Form4.Height := 449; Form4.Width := 585;
  Table1.Open; Table1.First;
  Edit1.Text := Table1Grand_Prix.Value;
  Edit2.Text := '0'; Edit3.Text := '';
  Edit2.TabOrder := 0;
end;

procedure TForm4.BitBtn1Click(Sender: TObject);
begin
  Table1.Open; Table1.First;
  if MessageDlg('هل تريد حذف هذا المجموع ؟',mtConfirmation,[mbYes,mbNo],0)
   = mrYes then
  begin
   Table1.Delete;
   Edit1.Text := '';
   Edit2.Text := '';
   Edit3.Text := '';
   end;
  if (Table1Grand_Prix.Value = '')and(Table1Code.Value = '') then
  begin
   Table1.Open; Table1.First;
   Table1.Append;
   Table1Code.Value := '1';
   Table1Grand_Prix.Value := '0';
   Table1Grand_Prix1.Value := '0';
   Table1.Post;
  end;
end;

procedure TForm4.Edit1Change(Sender: TObject);
begin
 if Edit1.Text <> '' then
   begin BitBtn1.Enabled := True; BitBtn3.Enabled := True;
   end else begin BitBtn1.Enabled := False; BitBtn3.Enabled := False; end;
end;

procedure TForm4.BitBtn3Click(Sender: TObject);
begin
  Table1.Edit;
  Table1['Grand_Prix'] := Edit1.Text;
  Table1['Grand_Prix1'] := Edit2.Text;
  Table1.Post;
end;

procedure TForm4.Button1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
 StatusBar1.SimpleText := '';
end;

procedure TForm4.BitBtn2MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
 StatusBar1.SimpleText := 'عــــودة الى الصفحة الرئيسية';
end;

procedure TForm4.BitBtn1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
 StatusBar1.SimpleText := 'حــذف المجموع نهائيا ولا تستطـيع التراجع';
end;

procedure TForm4.BitBtn3MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
 StatusBar1.SimpleText := 'التصحيح في حــالة حــدوث خطأ مــا';
end;

procedure TForm4.Edit1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
 StatusBar1.SimpleText := 'المجموع الكلي الذي تــم تسجيلـه حتى الآن ';
end;

procedure TForm4.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
 StatusBar1.SimpleText := '';
end;

procedure TForm4.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
 StatusBar1.SimpleText := '';
end;

procedure TForm4.BitBtn4Click(Sender: TObject);
begin
  Table1.Open; Table1.First;
  Table1.Edit;
  Table1['Grand_Prix1'] := IntToStr(StrToInt(Edit2.Text) +
 StrToInt(Table1Grand_Prix1.Value));
  Table1.Post;
  Edit4.Text := Table1Grand_Prix1.Value;
  Edit2.Text := '';
end;

procedure TForm4.Edit2MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  StatusBar1.SimpleText := '  تسجيل ثمن كل ما قمت بشرائه من سلع';
end;

procedure TForm4.BitBtn4MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  StatusBar1.SimpleText := ' وأنقر على تسجيل';
end;

procedure TForm4.Edit2Change(Sender: TObject);
begin
  if Edit2.Text <> '' then BitBtn4.Enabled := True
    else BitBtn4.Enabled := False;
end;

procedure TForm4.BitBtn5Click(Sender: TObject);
begin
 Table2.Open; Table2.First;
 if (Table2Nombre_P1.Value <> '')or(Table2Nombre_P2.Value <> '') then
  begin
   se1 := 0; sa2 := 0;
   su3 := 0; si4 := 0;
  Table2.DisableControls;
  try
  Table2.First;
   while not Table2.Eof do
   begin
     se1 := se1 + StrToFloat(Table2Nombre_P1.Value);
     sa2 := sa2 + StrToFloat(Table2Nombre_P2.Value);
     Table2.Next;
   end;
  finally 
    Table2.EnableControls; end;
   su3 := se1 - sa2;
   si4 := (su3 * 100) / se1;
   Edit3.Text := FloatToStr(si4);
  end else
     showmessage
     ('لـم يتم تسجيل أي سلع بعد سجّل كل السلع ثم حاول مرة اخرى'#13#10#13#10+
 'النسبة المئوية بنسبة للمبيعات');
end;

procedure TForm4.BitBtn6Click(Sender: TObject);
begin
  Table1.Open; Table1.First;
  Edit4.Text := Table1Grand_Prix1.Value;
end;

procedure TForm4.BitBtn7Click(Sender: TObject);
begin
 Edit1.Text := ''; Edit2.Text := ''; Edit3.Text := '';
 Edit4.Text := ''; Edit5.Text := ''; Edit6.Text := '';
end;

procedure TForm4.BitBtn8Click(Sender: TObject);
begin
  Table3.Open; Table3.First;
  Table3.Edit;
  Table3['Marchkrid'] := IntToStr(StrToInt(Table3Marchkrid.Value)+
  StrToInt(Edit5.Text));

  Table3.Post;
  Edit6.Text := Table3Marchkrid.Value;
  Edit5.Text := '';
end;

procedure TForm4.BitBtn10Click(Sender: TObject);
begin
//  if Table3Marchkrid.Value <> '' then begin
  Table3.Open; Table3.First;
  if MessageDlg('هل تريد حذف هذا المجموع ؟',mtConfirmation,[mbYes,mbNo],0)
   = mrYes then
  begin
   Table3.Delete;
   Edit5.Text := '';
   Edit6.Text := '';
   end;
  if (Table3Marchkrid.Value = '')and(Table3Code.Text = '') then
  begin
   Table3.Open; Table3.First;
   Table3.Append;
   Table3Code.Text := '1';
   Table3Marchkrid.Value := '0';
   Table3.Post;
  end; //end;
end;

procedure TForm4.BitBtn9Click(Sender: TObject);
begin
  Table3.Open; Table3.First;
  Edit6.Text := Table3Marchkrid.Value;
end;

procedure TForm4.Edit5Change(Sender: TObject);
begin
  if Edit5.Text <> '' then BitBtn8.Enabled := True
    else BitBtn8.Enabled := False;
end;

end.

[طيباوي ابو علي1]

اسم الوحدة الخامسة
Nom de unité : Unit5.pas

unit Unit5;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ComCtrls, ExtCtrls, StdCtrls, Buttons, Db, DBTables, Grids, DBGrids;

type
  TForm5 = class(TForm)
    Panel1: TPanel;
    StatusBar1: TStatusBar;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Table1: TTable;
    DataSource1: TDataSource;
    ComboBox1: TComboBox;
    DBGrid1: TDBGrid;
    Table1Code: TFloatField;
    Table1Nom: TStringField;
    Table1Nom_krid: TStringField;
    CheckBox1: TCheckBox;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    Table2: TTable;
    Table2Code: TFloatField;
    Table2Aton_tion: TStringField;
    Table2TVA: TStringField;
    Label4: TLabel;
    BitBtn6: TBitBtn;
    Bevel1: TBevel;
    Bevel2: TBevel;
    BitBtn7: TBitBtn;
    BitBtn1: TBitBtn;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormActivate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure BitBtn6MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure BitBtn3MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure BitBtn5MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure BitBtn4MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure BitBtn2MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Edit1Change(Sender: TObject);
    procedure DBGrid1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure BitBtn7Click(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;

var
  Form5: TForm5; j: Integer;

implementation

uses Unit1;

{$R *.DFM}

procedure TForm5.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Form1.Visible := True;
  Form1.Timer1.Enabled := True;
end;

procedure TForm5.FormActivate(Sender: TObject);
begin
  Form5.Left := 163;
  Form5.Top := 86;
  Form5.Height := 449;
  Form5.Width := 585;
end;

procedure TForm5.BitBtn1Click(Sender: TObject);
var booll: boolean;
begin
 if ComboBox1.Text <> 'خيارات' then begin
  booll := False;
  Table1.Open;
  Table1.DisableControls;
  try
  Table1.First;
  while not Table1.Eof do
  begin
   if ComboBox1.Text = Table1Nom.Value then booll := True;
   Table1.Next;
  end;
  finally
    Table1.EnableControls; end;

  if (booll = False)or(Table1Code.Text = '') then
  begin
   Table1.Last;
   if Table1Code.Text = '' then j := 0
     else j := strtoint(Table1Code.Text);
   j := j + 1;
   Table1.Append;
   Table1Code.Text :=  inttostr(j);
   Table1Nom.Value := ComboBox1.Text;
   Table1Nom_krid.value := Edit1.Text;
   Table1.Post;
  end else if booll = True then
  begin
   Table1.Locate('Nom',ComboBox1.Text,[LopartialKey]);
   Table1.Edit;
  Table1['Nom_krid'] := strtoint(Table1Nom_krid.Value) + strtoint(Edit1.Text);
   Table1.Post;
  end;
   Combobox1.Clear;
  Combobox1.Text := 'خيارات';

  Table1.DisableControls;
  try
  Table1.First;
  while not Table1.Eof do
   begin
     Combobox1.Items.Add(Table1Nom.Value);
     Table1.Next;
   end;
  finally
    Table1.EnableControls; end;
    
   end;
 Edit1.Text := '';
end;

procedure TForm5.FormCreate(Sender: TObject);
begin
 Table1.Open;
 Table2.Open;
end;

procedure TForm5.FormShow(Sender: TObject);
begin           
  Combobox1.Clear;
  Combobox1.Text := 'خيارات';

  Table1.DisableControls;
  try
  Table1.First;
  while not Table1.Eof do
   begin
     Combobox1.Items.Add(Table1Nom.Value);
     Table1.Next;
   end;
  finally
    Table1.EnableControls; end;

  Table2.First;
  Edit2.Text := Table2Aton_tion.Value;
  Edit3.Text := Table2TVA.Value;
  CheckBox1.Checked := False;
end;

procedure TForm5.ComboBox1Change(Sender: TObject);
begin
  Table1.Locate('Nom',Combobox1.Text,[LopartialKey]);
  Edit1.Text := Table1Nom_krid.Value;
end;

procedure TForm5.CheckBox1Click(Sender: TObject);
begin
   if CheckBox1.Checked = True then  BitBtn1.Visible := True
      else BitBtn1.Visible := False;
   CheckBox1.Caption := '';
end;

procedure TForm5.BitBtn3Click(Sender: TObject);
begin
  Table1.Locate('Nom',ComboBox1.Text,[LopartialKey]);
  if MessageDlg
   ('هــل تريد حذف هذا الشخص من قائمة الديون',mtConfirmation,[mbYes,mbNo],0)
       = mrYes then
  begin
   Table1.Delete;
   Edit1.Text := '';
    Combobox1.Clear;
   Combobox1.Text := 'خيارات';
  Table1.DisableControls;
  try
  Table1.First;
   while not Table1.Eof do
   begin
     Combobox1.Items.Add(Table1Nom.Value);
     Table1.Next;
   end;
  finally
    Table1.EnableControls; end;
  end;
end;

procedure TForm5.BitBtn4Click(Sender: TObject);
begin
  Table1.Locate('Nom',ComboBox1.Text,[LopartialKey]);
  Table1.Edit;
  Table1['Nom'] := ComboBox1.Text;
  Table1['Nom_krid'] := Edit1.Text;
  Table1.Post;
  Combobox1.Clear;
  Combobox1.Text := 'خيارات';
  Table1.DisableControls;
  try
  Table1.First;
  while not Table1.Eof do
  begin
     Combobox1.Items.Add(Table1Nom.Value);
     Table1.Next;
  end;
  finally
    Table1.EnableControls; end;
      
end;

procedure TForm5.BitBtn5Click(Sender: TObject);
begin
  Edit1.Text := '';
end;

procedure TForm5.BitBtn6Click(Sender: TObject);
begin
 if (Edit2.Text <> '')and(Edit3.Text <> '') then
 begin
  Table2.Edit;
  Table2['Code'] := '1';
  Table2['Aton_tion'] := Edit2.Text;
  Table2['TVA'] := Edit3.Text;
  Table2.Post;
 end;
end;

procedure TForm5.BitBtn6MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
 StatusBar1.SimpleText :=
 'تسجيل الضريبة( TVA )  والتحذيرات في حالة نفاذ احدى السلع من المحل التجاري';
end;

procedure TForm5.BitBtn3MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
 StatusBar1.SimpleText :=
 'في حالة اختيار نعم (Oui) يتم الحذف ولا تستطيع التراجع عن الحذف وفي حالة العكس  اختر لا(Non)';
end;

procedure TForm5.BitBtn5MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
 StatusBar1.SimpleText := 'مسح ماهو ظاهر في مربع المبلغ';
end;

procedure TForm5.BitBtn4MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
 StatusBar1.SimpleText :=
  'تصحيح الاخطاء التي يحتمل  ان ترتكب اثناء الكتابة وذلك بالكتابة الصحيحة ';
end;

procedure TForm5.BitBtn2MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
 StatusBar1.SimpleText := 'عودة الى الصفحة الرئيسية من البرنامج';
end;

procedure TForm5.Edit1Change(Sender: TObject);
begin
 if Edit1.Text = '' then begin BitBtn4.Enabled := False;
  BitBtn7.Enabled := False; end
    else begin BitBtn4.Enabled := True; BitBtn7.Enabled := True; end;
end;

procedure TForm5.DBGrid1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  StatusBar1.SimpleText := 'لا يمكن تسجيل من هنا';
end;

procedure TForm5.BitBtn7Click(Sender: TObject);
begin
 if (ComboBox1.Text <> '')and(ComboBox1.Text <> 'خيارات')then
 begin
  Table1.Open; Table1.First;
  if strtoint(Edit1.Text) > strtoint(Table1Nom_krid.Value) then
        Showmessage('المبلغ الذي تم ادخاله أكبر من الدين')
   else
   begin
    Table1.Locate('Nom',ComboBox1.Text,[LopartialKey]);
    Table1.Edit;
    Table1['Nom_krid'] := strtoint(Table1Nom_krid.Value) - strtoint(Edit1.Text);
    Table1.Post;
   end;
   Edit1.Text := '';
 end;
end;

end.

[طيباوي ابو علي1]

=======================
ملفات قاعدة البيانات

March.db
Marche.db
Marchkr.DB
Marchkri.db
MarchTV.db
===========================
March.db
---------
Code N *
Nom A 15
Nombre_P1 A 10
Nombre_P2 A 10
Prix A 15

=====================
Marche.db
-------
Code A 2 *
Grand_Prix A 30
Grand_Prix A 33
======================
Marchkr.DB
--------
Code N *
Nom A 15
Nom_krid A 15

======================
Marchkri.db
---------
Code N *
Marchkrid A 35

======================
MarchTV.db
-----------
Code N *
Aton_tion A 8
TVA A 4

[عبدالله بولنوار]

جزيت خيرا على الملف
الملف لم يشتغل عندي لاني اعمل بنسخة xe7 لم يتعرف على DBTables
مع ذلك اخذت فكرة جيدة عن الكودلات المستخدمة في الازرار

[طيباوي ابو علي1]

المشاركة الأصلية كتبت بواسطة عبدالله بولنوار

جزيت خيرا على الملف
الملف لم يشتغل عندي لاني اعمل بنسخة xe7 لم يتعرف على DBTables
مع ذلك اخذت فكرة جيدة عن الكودلات المستخدمة في الازرار

السلام عليكم

أنا أستعمل الان

Delphi5 و Delphi6 و Delphi7

من borland

ولم أطلع على النسخ الجديدة والتي

صدرت من الشريكة الحالية بعد

والبرنامج يعمل يشكل جيد عني


ملاحظة

اذا وضعت على الفورم العنصر TTable
سيتم اضافة وحدتين في القسم uses وهما
DB, DBTables

انظر عندك بماذا عوض العنصر TTable

واذا وضعته على الفورم ما هي الوحدات التي
ستضاف في القسم uses

ثم عوض الوحدات الجدبدة بالقديمة

ونأسف لان النسخة الجدبدة ليست عند

ولو اطلعت عليها لربما أفدك أكثر

وأشكرك أخي على المعلومات

[عبدالله بولنوار]

قمت بتثبيت BDE components و مشى البرنامج عادي


شكرا على الافادة الطيبة