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

اذهب الى الأسفل

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

مُساهمة  ali1 في 19/3/2017, 11:21 pm

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



الكود:

unit Unit1;

interface

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

const
  IBMsg = WM_USER + 200;

type
  TForm1 = class(TForm)
    GroupBox1: TGroupBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    Panel1: TPanel;
    StatusBar1: TStatusBar;
    Timer1: TTimer;
    Label1: TLabel;
    Timer2: TTimer;
    Label2: TLabel;
    Label3: TLabel;
    XPManifest1: TXPManifest;
    Table1: TTable;
    Button1: TButton;
    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 Timer1Timer(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Label3Click(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Table1BeforeOpen(DataSet: TDataSet);
    procedure Button1Click(Sender: TObject);
    //function StringToBoolean(Sender: TObject);
  private
   procedure EntreeNotPassItoile(var Msg: TMessage); message IBMsg;
   procedure FormVide01(Sender: TObject);
  public
  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;
  delph_forumalgerie_net: string;
  form3Memo2: boolean;
  sss: string;

implementation

uses Unit2, Unit3, Unit4, Unit5, UnitDataModuleMarche;

{$R *.DFM}

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  FormVide01(nil);
  Form2.Show;
  Form2.Visible := True;
  Form1.Visible := False;
  Timer1.Enabled := False;
  Label3.Caption := '';
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
  FormVide01(nil);
  Form3.Show;
  Form3.Visible := True;
  Form3.Memo1.Clear;
  Form1.Visible := False;
  Timer1.Enabled := False;Label3.Caption := '';
end;

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

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

procedure TForm1.FormActivate(Sender: TObject);
const DbP='Marchand';
var
  AParam: TStringList;

begin
  AParam := TStringList.Create;
  try
    AParam.Clear;
    AParam.Add('PATH'+GetCurrentDir);
    if Session.IsAlias(DbP) then
     Session.ModifyAlias(DbP, AParam)
    else
     Session.AddStandardAlias(Dbp,GetCurrentDir,'Paradox');
    Session.SaveConfigFile;
  Finally
    AParam.Free;
  end;   {}
  
//  Table2.TableName := 'DBasePers';
//  BatchMove1.Execute;
//  Showmessage(IntToStr(BatchMove1.RecordCount));

  Form2.Visible := False; Form3.Visible := False;
  Form4.Visible := False; Form5.Visible := False;
  Form2.BitBtn2.Visible := False;
   Form2.BitBtn1.Visible := True;
  Form2.Edit1.Text := '';
  Form2.Edit2.Text := ''; Form2.Edit3.Text := '';
if form3Memo2 then begin
form3.Memo2.Lines.Add('--------------------------------------------------------------------');
form3.Memo2.Lines.Add('|اسم السلع   | ثمن السلع   | عدد السلع   | المجموع   |  المجموع الكلي     | التاريخ والوقت  |');
form3.Memo2.Lines.Add('--------------------------------------------------------------------');
form3.Memo2.Lines.Add(''); form3Memo2 := false;
form3.memo2.Modified := false;   end;
sss:=ExtractFilepath(application.ExeName);
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.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
  Form1.Table1.Open;
  form1.bidimode:=bdRightToLeft;
  form1.font.charset:=ARABIC_CHARSET;
  form1.font.name:='Arial';
  form1.caption:='';
  form1.Position:=poScreenCenter;
  form1.cursor:=crDefault;
  GroupBox1.bidimode:=bdRightToLeft;
  GroupBox1.font.charset:=ARABIC_CHARSET;
  GroupBox1.font.name:='Arial';
  GroupBox1.cursor:=crDefault;
  Label3.bidimode:=bdLeftToRight;
  Label3.font.charset:=ARABIC_CHARSET;
  Label3.font.name:='Arial';
  Label3.caption:='.';
  Label3.cursor:=crDefault;
  BitBtn1.bidimode:=bdRightToLeft;
  BitBtn1.font.charset:=ARABIC_CHARSET;
  BitBtn1.font.name:='Arial';
  BitBtn1.caption:='تسجيل السلع';
  BitBtn1.cursor:=crHandPoint;
  BitBtn2.bidimode:=bdRightToLeft;
  BitBtn2.font.charset:=ARABIC_CHARSET;
  BitBtn2.font.name:='Arial';
  BitBtn2.caption:='تحريـــر فاتـورة';
  BitBtn2.cursor:=crHandPoint;
  BitBtn3.bidimode:=bdRightToLeft;
  BitBtn3.font.charset:=ARABIC_CHARSET;
  BitBtn3.font.name:='Arial';
  BitBtn3.caption:='المجموع الكلي';
  BitBtn3.cursor:=crHandPoint;
  BitBtn4.bidimode:=bdRightToLeft;
  BitBtn4.font.charset:=ARABIC_CHARSET;
  BitBtn4.font.name:='Arial';
  BitBtn4.caption:='أصحاب الديــــون';
  BitBtn4.cursor:=crHandPoint;
  BitBtn5.bidimode:=bdRightToLeft;
  BitBtn5.font.charset:=ARABIC_CHARSET;
  BitBtn5.font.name:='Arial';
  BitBtn5.caption:='&خــروج';
  BitBtn5.cursor:=crHandPoint;
  Panel1.bidimode:=bdRightToLeft;
  Panel1.font.charset:=ARABIC_CHARSET;
  Panel1.font.name:='Arial';
  Panel1.cursor:=crDefault;
  Label1.bidimode:=bdRightToLeft;
  Label1.font.charset:=ARABIC_CHARSET;
  Label1.font.name:='Arial';
  Label1.caption:='';
  Label1.cursor:=crDefault;
  Label2.bidimode:=bdRightToLeft;
  Label2.font.charset:=ARABIC_CHARSET;
  Label2.font.name:='Arial';
end;

procedure TForm1.Label3Click(Sender: TObject);
begin
 //
 PostMessage(Handle, IBMsg, 0, 0);
 delph_forumalgerie_net := inputbox('هذا البرنامج انجز من طرف السيد : ال'
 ,'أدخل كلمة المرور من فضلك حتى تتعرف على الاسم'
 ,'');

 if delph_forumalgerie_net = '1954/1962' then
    Label3.Caption := 'ben taib allal site  http://delph.forumalgerie.net  '+
    's l v visite le site delph.forumalgerie.net'
  else Label3.Caption := ''; //else Label3.Enabled := false .FieldCount
  //Label3.Caption := inttostr(table1.RecordCount);

end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
 bitbtn1.free;
 bitbtn2.free;
 bitbtn3.free;
 bitbtn4.free;
 groupbox1.Free;
 panel1.Free;
 StatusBar1.Free;
 timer1.Free;
 timer2.Free;
 label1.Free;
 label2.Free;
 label3.Free;
 XPManifest1.Free;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 if form3.memo2.Modified then
 if MessageDlg
  ('هل تريد حفظ المدخول اليومي',
   mtInformation, [mbYes,mbNo], 0)=mrYes then
 Form3.savve1Click(Sender);
 Application.Terminate;
end;

procedure TForm1.EntreeNotPassItoile;
var
  ifm, hdt: HWND;
begin
  ifm := Screen.Forms[0].Handle;
  if (ifm <> 0) then
  begin
    hdt := FindWindowEx(ifm, 0, 'TEdit', nil);
    SendMessage(hdt, EM_SETPASSWORDCHAR, Ord('*'), 0);
  end;
end;

procedure TForm1.FormVide01;
begin
 with DataModuleMarche do begin
 Table2.Open;
 if Table2.RecordCount > 1 then
 begin
  Table1.Open;
   if Table1.RecordCount <= Table2.RecordCount  then
  MessageDlg
('تــحذيـــر نفـــاذ هـذه الـسلعـة مــن المــحـل التــجاري .'#13#10#13#10+
             'المــادة هــي   :   '+Table1Nom.Value+'   =   '+
 Table1Nombre_P2.Value, mtInformation, [mbOk], 0); end;
 end;
end;


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

procedure TForm1.Button1Click(Sender: TObject);
var
   strm: TFileStream;
   d: string;
begin
  try
    Strm := TFileStream.Create('test.dat', fmOpenReadWrite);
  except
    Strm := TFileStream.Create('test.dat', fmCreate);
  end;
  d := datetostr(now);
  Strm.WriteBuffer(d, SizeOf(10));
  Strm.Free;
  
end;

end.




هذه الوحد الاولى وسيتم وضع الوحدات الاخرى بعد أيام

_________________
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

ali1
مبرمج مجتهد

عدد المساهمات : 861
تاريخ التسجيل : 29/07/2013

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: النسخة الجديدة من برنامج برنامج تسيير محل تجاري

مُساهمة  ali1 في 27/3/2017, 1:26 pm


البرنامج
Marchand.dpr

الكود:


program Marchand;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2},
  Unit3 in 'Unit3.pas' {Form3},
  Unit4 in 'Unit4.pas' {Form4},
  Unit5 in 'Unit5.pas' {Form5},
  UnitDataModuleMarche in 'UnitDataModuleMarche.pas' {DataModuleMarche: TDataModule};

{$R *.RES}

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm2, Form2);
  Application.CreateForm(TForm3, Form3);
  Application.CreateForm(TForm4, Form4);
  Application.CreateForm(TForm5, Form5);
  Application.CreateForm(TDataModuleMarche, DataModuleMarche);
  Application.Run;
end.


_________________
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

ali1
مبرمج مجتهد

عدد المساهمات : 861
تاريخ التسجيل : 29/07/2013

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: النسخة الجديدة من برنامج برنامج تسيير محل تجاري

مُساهمة  ali1 في 27/3/2017, 1:29 pm

الوحدة الثانية
الكود:


unit Unit2;{delph.forumalgerie.net}
 {delph.forumalgerie.net}
interface{delph.forumalgerie.net}
{delph.forumalgerie.net}
uses{delph.forumalgerie.net}
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,{delph.forumalgerie.net}
  Db, DBTables, StdCtrls, Buttons, Grids, DBGrids, ComCtrls, math, DBCtrls,{delph.forumalgerie.net}
  ADODB;{delph.forumalgerie.net}
{delph.forumalgerie.net}
type{delph.forumalgerie.net}
  TForm2 = class(TForm){delph.forumalgerie.net}
    Edit1: TEdit;{delph.forumalgerie.net}
    Edit2: TEdit;{delph.forumalgerie.net}
    Edit3: TEdit;{delph.forumalgerie.net}
    BitBtn1: TBitBtn;{delph.forumalgerie.net}
    DBGrid1: TDBGrid;{delph.forumalgerie.net}
    BitBtn2: TBitBtn;{delph.forumalgerie.net}
    BitBtn3: TBitBtn;{delph.forumalgerie.net}
    CheckBox1: TCheckBox;{delph.forumalgerie.net}
    BitBtn4: TBitBtn;{delph.forumalgerie.net}
    Label1: TLabel;{delph.forumalgerie.net}
    Label2: TLabel;{delph.forumalgerie.net}
    Label3: TLabel;{delph.forumalgerie.net}
    BitBtn5: TBitBtn;{delph.forumalgerie.net}
    CheckBox2: TCheckBox;{delph.forumalgerie.net}
    CheckBox3: TCheckBox;{delph.forumalgerie.net}
    StatusBar1: TStatusBar;{delph.forumalgerie.net}
    CheckBox4: TCheckBox;{delph.forumalgerie.net}
    CheckBox5: TCheckBox;{delph.forumalgerie.net}
    procedure FormClose(Sender: TObject; var Action: TCloseAction);{delph.forumalgerie.net}
    procedure FormActivate(Sender: TObject);{delph.forumalgerie.net}
    procedure FormCreate(Sender: TObject);{delph.forumalgerie.net}
    procedure BitBtn1Click(Sender: TObject);{delph.forumalgerie.net}
    procedure Edit1Change(Sender: TObject);{delph.forumalgerie.net}
    procedure Edit2Change(Sender: TObject);{delph.forumalgerie.net}
    procedure BitBtn2Click(Sender: TObject);{delph.forumalgerie.net}
    procedure BitBtn3Click(Sender: TObject);{delph.forumalgerie.net}
    procedure CheckBox1Click(Sender: TObject);{delph.forumalgerie.net}
    procedure BitBtn4Click(Sender: TObject);{delph.forumalgerie.net}
    procedure DBGrid1DblClick(Sender: TObject);{delph.forumalgerie.net}
    procedure CheckBox2Click(Sender: TObject);{delph.forumalgerie.net}
    procedure CheckBox3Click(Sender: TObject);{delph.forumalgerie.net}
    procedure CheckBox4Click(Sender: TObject);{delph.forumalgerie.net}
    procedure CheckBox5Click(Sender: TObject);{delph.forumalgerie.net}
    procedure FormDestroy(Sender: TObject);{delph.forumalgerie.net}
  private{delph.forumalgerie.net}
  procedure Affichers;{delph.forumalgerie.net}
  public{delph.forumalgerie.net}
  procedure DisplayHint(Sender:TObject);{delph.forumalgerie.net}
  end;{delph.forumalgerie.net}
{delph.forumalgerie.net}
var{delph.forumalgerie.net}
  Form2: TForm2; i: Integer;{delph.forumalgerie.net}
{delph.forumalgerie.net}
implementation{delph.forumalgerie.net}
{delph.forumalgerie.net}
uses Unit1, UnitDataModuleMarche;{delph.forumalgerie.net}
{delph.forumalgerie.net}
{$R *.DFM}{delph.forumalgerie.net}
{delph.forumalgerie.net}
procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);{delph.forumalgerie.net}
begin{delph.forumalgerie.net}
  Form1.Visible := True;{delph.forumalgerie.net}
  i := 0;{delph.forumalgerie.net}
  Form1.Timer1.Enabled := True;{delph.forumalgerie.net}
  DataModuleMarche.Query1.Active := False;{delph.forumalgerie.net}
  edit1.Text:='';{delph.forumalgerie.net}
  edit2.Text:='';{delph.forumalgerie.net}
  edit3.Text:='';{delph.forumalgerie.net}
end;{delph.forumalgerie.net}
{delph.forumalgerie.net}
procedure TForm2.FormActivate(Sender: TObject);{delph.forumalgerie.net}
begin{delph.forumalgerie.net}
  Form2.Left := 163;{delph.forumalgerie.net}
  Form2.Top := 86;{delph.forumalgerie.net}
  Form2.Height := 591;{delph.forumalgerie.net}
  Form2.Width := 777; i := 0;{delph.forumalgerie.net}
  Affichers;{delph.forumalgerie.net}
  DataModuleMarche.Query1.Active := True;{delph.forumalgerie.net}
end;{delph.forumalgerie.net}
{delph.forumalgerie.net}
procedure TForm2.FormCreate(Sender: TObject);{delph.forumalgerie.net}
begin{delph.forumalgerie.net}
//  Application.OnHint :=DisplayHint;{delph.forumalgerie.net}
  form2.bidimode:=bdRightToLeft;{delph.forumalgerie.net}
  form2.font.charset:=ARABIC_CHARSET;{delph.forumalgerie.net}
  form2.font.name:='Arial';{delph.forumalgerie.net}
  form2.caption:='';{delph.forumalgerie.net}
  form2.Position:=poScreenCenter;{delph.forumalgerie.net}
  form2.cursor:=crDefault;{delph.forumalgerie.net}
  Label1.bidimode:=bdRightToLeft;{delph.forumalgerie.net}
  Label1.font.charset:=ARABIC_CHARSET;{delph.forumalgerie.net}
  Label1.font.name:='Arial';{delph.forumalgerie.net}
  Label1.caption:='اسم السلعة';{delph.forumalgerie.net}
  Label1.cursor:=crDefault;{delph.forumalgerie.net}
  Label2.bidimode:=bdRightToLeft;{delph.forumalgerie.net}
  Label2.font.charset:=ARABIC_CHARSET;{delph.forumalgerie.net}
  Label2.font.name:='Arial';{delph.forumalgerie.net}
  Label2.caption:='عدد السلعة';{delph.forumalgerie.net}
  Label2.cursor:=crDefault;{delph.forumalgerie.net}
  Label3.bidimode:=bdRightToLeft;{delph.forumalgerie.net}
  Label3.font.charset:=ARABIC_CHARSET;{delph.forumalgerie.net}
  Label3.font.name:='Arial';{delph.forumalgerie.net}
  Label3.caption:='ثمن السلعة';{delph.forumalgerie.net}
  Label3.cursor:=crDefault;{delph.forumalgerie.net}
  Edit2.bidimode:=bdRightToLeft;{delph.forumalgerie.net}
  Edit2.font.charset:=ARABIC_CHARSET;{delph.forumalgerie.net}
  Edit2.font.name:='Arial';{delph.forumalgerie.net}
  Edit2.cursor:=crDefault;{delph.forumalgerie.net}
  Edit3.bidimode:=bdRightToLeft;{delph.forumalgerie.net}
  Edit3.font.charset:=ARABIC_CHARSET;{delph.forumalgerie.net}
  Edit3.font.name:='Arial';{delph.forumalgerie.net}
  Edit3.cursor:=crDefault;{delph.forumalgerie.net}
  BitBtn1.bidimode:=bdRightToLeft;{delph.forumalgerie.net}
  BitBtn1.font.charset:=ARABIC_CHARSET;{delph.forumalgerie.net}
  BitBtn1.font.name:='Arial';{delph.forumalgerie.net}
  BitBtn1.caption:='تسجـيل السلع';{delph.forumalgerie.net}
  BitBtn1.cursor:=crHandPoint;{delph.forumalgerie.net}
  DBGrid1.bidimode:=bdRightToLeft;{delph.forumalgerie.net}
  DBGrid1.font.charset:=ARABIC_CHARSET;{delph.forumalgerie.net}
  DBGrid1.font.name:='Arial';{delph.forumalgerie.net}
  DBGrid1.cursor:=crDefault;{delph.forumalgerie.net}
  BitBtn2.bidimode:=bdRightToLeft;{delph.forumalgerie.net}
  BitBtn2.font.charset:=ARABIC_CHARSET;{delph.forumalgerie.net}
  BitBtn2.font.name:='Arial';{delph.forumalgerie.net}
  BitBtn2.caption:='تصحيح الأخطاء';{delph.forumalgerie.net}
  BitBtn2.cursor:=crHandPoint;{delph.forumalgerie.net}
  BitBtn3.bidimode:=bdRightToLeft;{delph.forumalgerie.net}
  BitBtn3.font.charset:=ARABIC_CHARSET;{delph.forumalgerie.net}
  BitBtn3.font.name:='Arial';{delph.forumalgerie.net}
  BitBtn3.caption:='مسح';{delph.forumalgerie.net}
  BitBtn3.cursor:=crHandPoint;{delph.forumalgerie.net}
  CheckBox1.bidimode:=bdRightToLeft;{delph.forumalgerie.net}
  CheckBox1.font.charset:=ARABIC_CHARSET;{delph.forumalgerie.net}
  CheckBox1.font.name:='Arial';{delph.forumalgerie.net}
  CheckBox1.caption:='اخفاء التسجيل';{delph.forumalgerie.net}
  CheckBox1.cursor:=crDefault;{delph.forumalgerie.net}
  BitBtn4.bidimode:=bdRightToLeft;{delph.forumalgerie.net}
  BitBtn4.font.charset:=ARABIC_CHARSET;{delph.forumalgerie.net}
  BitBtn4.font.name:='arial black';{delph.forumalgerie.net}
  BitBtn4.caption:='حذف سلعة';{delph.forumalgerie.net}
  BitBtn4.cursor:=crHandPoint;{delph.forumalgerie.net}
  BitBtn5.bidimode:=bdRightToLeft;{delph.forumalgerie.net}
  BitBtn5.font.charset:=ARABIC_CHARSET;{delph.forumalgerie.net}
  BitBtn5.font.name:='Arial';{delph.forumalgerie.net}
  BitBtn5.caption:='&عــودة';{delph.forumalgerie.net}
  BitBtn5.cursor:=crHandPoint;{delph.forumalgerie.net}
  Edit1.bidimode:=bdRightToLeft;{delph.forumalgerie.net}
  Edit1.font.charset:=ARABIC_CHARSET;{delph.forumalgerie.net}
  Edit1.font.name:='Arial';{delph.forumalgerie.net}
  Edit1.cursor:=crDefault;{delph.forumalgerie.net}
  CheckBox2.bidimode:=bdRightToLeft;{delph.forumalgerie.net}
  CheckBox2.font.charset:=ARABIC_CHARSET;{delph.forumalgerie.net}
  CheckBox2.font.name:='Arial';{delph.forumalgerie.net}
  CheckBox2.caption:='مجموع العدد القديم لكل السلع ';{delph.forumalgerie.net}
  CheckBox2.cursor:=crDefault;{delph.forumalgerie.net}
  CheckBox3.bidimode:=bdRightToLeft;{delph.forumalgerie.net}
  CheckBox3.font.charset:=ARABIC_CHARSET;{delph.forumalgerie.net}
  CheckBox3.font.name:='Arial';{delph.forumalgerie.net}
  CheckBox3.caption:='مجموع العدد الجديد  لكل السلع ';{delph.forumalgerie.net}
  CheckBox3.cursor:=crDefault;{delph.forumalgerie.net}
  StatusBar1.bidimode:=bdRightToLeft;{delph.forumalgerie.net}
  StatusBar1.font.charset:=ARABIC_CHARSET;{delph.forumalgerie.net}
  StatusBar1.font.name:='Arial';{delph.forumalgerie.net}
  StatusBar1.cursor:=crDefault;{delph.forumalgerie.net}
  CheckBox4.bidimode:=bdRightToLeft;{delph.forumalgerie.net}
  CheckBox4.font.charset:=ARABIC_CHARSET;{delph.forumalgerie.net}
  CheckBox4.font.name:='Arial';{delph.forumalgerie.net}
  CheckBox4.caption:='مجموع ثمن البيع لكل السلع ';{delph.forumalgerie.net}
  CheckBox4.cursor:=crDefault;{delph.forumalgerie.net}
  CheckBox5.bidimode:=bdRightToLeft;{delph.forumalgerie.net}
  CheckBox5.font.charset:=ARABIC_CHARSET;{delph.forumalgerie.net}
  CheckBox5.font.name:='Arial';{delph.forumalgerie.net}
  CheckBox5.caption:='مجموع ثمن الشراء  لكل السلع ';{delph.forumalgerie.net}
  CheckBox5.cursor:=crDefault;{delph.forumalgerie.net}
end;{delph.forumalgerie.net}
{delph.forumalgerie.net}
procedure TForm2.BitBtn1Click(Sender: TObject);{delph.forumalgerie.net}
var ba: array[0..1] of string;{delph.forumalgerie.net}
    boo: boolean;{delph.forumalgerie.net}
    InStr: string;{delph.forumalgerie.net}
begin{delph.forumalgerie.net}
  boo := False; InStr := '';{delph.forumalgerie.net}
  ba[1] := Edit1.Text;{delph.forumalgerie.net}
  with DataModuleMarche do begin  //////////////////////{delph.forumalgerie.net}
  Table1.Open;{delph.forumalgerie.net}
  Table1.DisableControls;{delph.forumalgerie.net}
  try{delph.forumalgerie.net}
  Table1.First;{delph.forumalgerie.net}
  while not Table1.Eof do{delph.forumalgerie.net}
  begin{delph.forumalgerie.net}
  if ba[1] = Table1Nom.Value then boo := True;{delph.forumalgerie.net}
  Table1.Next;{delph.forumalgerie.net}
  end;{delph.forumalgerie.net}
  finally{delph.forumalgerie.net}
    Table1.EnableControls; end;{delph.forumalgerie.net}
  if boo = False then{delph.forumalgerie.net}
  begin{delph.forumalgerie.net}
  Table1.Last;{delph.forumalgerie.net}
  if Table1Code.Text = '' then i := 0{delph.forumalgerie.net}
    else i := strtoint(Table1Code.Text);{delph.forumalgerie.net}
  i := i + 1;{delph.forumalgerie.net}
  Table1.Append;{delph.forumalgerie.net}
  Table1Code.Text :=  inttostr(i);{delph.forumalgerie.net}
  Table1Nom.Value := Edit1.Text;{delph.forumalgerie.net}
  Table1Nombre_P1.Value := Edit2.Text;{delph.forumalgerie.net}
  Table1Nombre_P2.Value := Edit2.Text;{delph.forumalgerie.net}
  Table1Prix.AsCurrency := StrToCurr(Edit3.Text);{delph.forumalgerie.net}
  InStr := InputBox('شراء السلع بالوحدة اختياري','أكتب ثمن شراء السلعة بالوحدة',{delph.forumalgerie.net}
            '');{delph.forumalgerie.net}
  if InStr <> '' then Table1['Prix_Achet'] := InStr;{delph.forumalgerie.net}
  Table1DateTimes.Value := Now;{delph.forumalgerie.net}
  Table1.Post;{delph.forumalgerie.net}
  ///  2016{delph.forumalgerie.net}
  end else if boo = True then{delph.forumalgerie.net}
  begin {delph.forumalgerie.net}
  Table1.Locate('Nom',Edit1.Text,[LopartialKey]);{delph.forumalgerie.net}
  Table1.Edit; {delph.forumalgerie.net}
  Table1['Nombre_P1'] := strtofloat(Table1Nombre_P1.Value) + strtofloat(Edit2.Text);{delph.forumalgerie.net}
  Table1['Nombre_P2'] := strtofloat(Table1Nombre_P2.Value) + strtofloat(Edit2.Text);{delph.forumalgerie.net}
  if Edit3.Text <> '' then{delph.forumalgerie.net}
  Table1Prix.AsCurrency := StrToCurr(Edit3.Text);{delph.forumalgerie.net}
  Table1.Post; {delph.forumalgerie.net}
  end;{delph.forumalgerie.net}
  end; /////////{delph.forumalgerie.net}
  Edit1.Text := ''; Edit2.Text := '';{delph.forumalgerie.net}
  Edit3.Text := '';{delph.forumalgerie.net}
  BitBtn1.Enabled := False;{delph.forumalgerie.net}
  Edit1.TabOrder := 0; Edit2.TabOrder := 1; Edit3.TabOrder := 2;{delph.forumalgerie.net}
  DataModuleMarche.Query1.Active := false; DataModuleMarche.Query1.Active := true;{delph.forumalgerie.net}
  DataModuleMarche.Query1.Filtered := False;{delph.forumalgerie.net}
  DataModuleMarche.Query1.Last;{delph.forumalgerie.net}
  Edit1.SetFocus;{delph.forumalgerie.net}
end;{delph.forumalgerie.net}
{delph.forumalgerie.net}
procedure TForm2.Edit1Change(Sender: TObject);{delph.forumalgerie.net}
begin{delph.forumalgerie.net}
  if (Edit1.Text <> '')and(Edit2.Text <> '')and(Edit3.Text <> '') then begin{delph.forumalgerie.net}
    BitBtn1.Enabled := True; BitBtn2.Enabled := True;{delph.forumalgerie.net}
    BitBtn4.Enabled := True; end {delph.forumalgerie.net}
    else begin BitBtn1.Enabled := False;{delph.forumalgerie.net}
      BitBtn2.Enabled := False; BitBtn4.Enabled := False;{delph.forumalgerie.net}
  end;{delph.forumalgerie.net}
///////////////////////////////{delph.forumalgerie.net}
 DataModuleMarche.Query1.First;{delph.forumalgerie.net}
 DataModuleMarche.Query1.Filter := 'Nom='+chr(39)+Edit1.Text+'*'+chr(39);{delph.forumalgerie.net}
 DataModuleMarche.Query1.Filtered := True;{delph.forumalgerie.net}
end;{delph.forumalgerie.net}
{delph.forumalgerie.net}
procedure TForm2.Edit2Change(Sender: TObject);{delph.forumalgerie.net}
begin{delph.forumalgerie.net}
  if (Edit1.Text <> '')and(Edit2.Text <> '')and(Edit3.Text <> '') then begin{delph.forumalgerie.net}
    BitBtn1.Enabled := True; BitBtn2.Enabled := True;{delph.forumalgerie.net}
    BitBtn4.Enabled := True; end{delph.forumalgerie.net}
    else begin BitBtn1.Enabled := False;{delph.forumalgerie.net}
      BitBtn2.Enabled := False; BitBtn4.Enabled := False; end;{delph.forumalgerie.net}
end;{delph.forumalgerie.net}
{delph.forumalgerie.net}
procedure TForm2.BitBtn2Click(Sender: TObject);{delph.forumalgerie.net}
var{delph.forumalgerie.net}
  InStr: string;{delph.forumalgerie.net}
  r11,r12,r13: real;{delph.forumalgerie.net}
begin{delph.forumalgerie.net}
 with DataModuleMarche do begin  //////////////////////{delph.forumalgerie.net}
  Table1.Locate('Nom',Edit1.Text,[LopartialKey]);{delph.forumalgerie.net}
  r12:=Table1Nombre_P1.AsFloat;{delph.forumalgerie.net}
  r13:=strtofloat(edit2.Text);{delph.forumalgerie.net}
  Table1.Edit;{delph.forumalgerie.net}
  Table1['Nom'] := Edit1.Text;{delph.forumalgerie.net}
  if (r12<>r13)and(edit2.Text <> '') then begin{delph.forumalgerie.net}
  Table1Nombre_P1.AsFloat := r13; r11:=r13-r12;{delph.forumalgerie.net}
  Table1['Nombre_P2']:=floattostr({delph.forumalgerie.net}
    strtofloat(Table1.FieldValues['Nombre_P2'])+r11); end;{delph.forumalgerie.net}
  InStr := '';  //2016{delph.forumalgerie.net}
  InStr := InputBox('ثمن الشراء الحالي','أكتب ثمن الشراء',{delph.forumalgerie.net}
            (Table1.FieldValues['Prix_Achet']));{delph.forumalgerie.net}
  if InStr <> '' then Table1['Prix_Achet'] := InStr;{delph.forumalgerie.net}
  Table1['Prix'] := Edit3.Text;{delph.forumalgerie.net}
  Table1.Post;{delph.forumalgerie.net}
  end;//////////{delph.forumalgerie.net}
  DataModuleMarche.Query1.Active := false;{delph.forumalgerie.net}
  DataModuleMarche.Query1.Active := true;{delph.forumalgerie.net}
  r11:=0;r12:=0;r13:=0; InStr := '';{delph.forumalgerie.net}
end; {delph.forumalgerie.net}
{delph.forumalgerie.net}
procedure TForm2.BitBtn3Click(Sender: TObject);{delph.forumalgerie.net}
begin {delph.forumalgerie.net}
  BitBtn1.Visible := True;{delph.forumalgerie.net}
  Edit1.Text := ''; Edit2.Text := ''; Edit3.Text := '';{delph.forumalgerie.net}
  BitBtn2.Visible := False; CheckBox1.Caption := 'اخفاء التسجيل';{delph.forumalgerie.net}
end; {delph.forumalgerie.net}
{delph.forumalgerie.net}
procedure TForm2.CheckBox1Click(Sender: TObject);{delph.forumalgerie.net}
begin {delph.forumalgerie.net}
 if CheckBox1.Checked = True then begin BitBtn1.Visible := True;{delph.forumalgerie.net}
    Edit1.Text := ''; Edit2.Text := '';{delph.forumalgerie.net}
    CheckBox1.Caption := 'اخفاء التسجيل';{delph.forumalgerie.net}
    Edit3.Text := '';  end{delph.forumalgerie.net}
  else begin BitBtn1.Visible := False;{delph.forumalgerie.net}
        CheckBox1.Caption := 'اظهار التسجيل'; end;{delph.forumalgerie.net}
end; {delph.forumalgerie.net}
{delph.forumalgerie.net}
procedure TForm2.BitBtn4Click(Sender: TObject);{delph.forumalgerie.net}
begin{delph.forumalgerie.net}
 with DataModuleMarche do begin  //////////////////////{delph.forumalgerie.net}
  Table1.Locate('Nom',Edit1.Text,[LopartialKey]);{delph.forumalgerie.net}
  if MessageDlg('هل تريد إزالة هذه السلعة ؟',mtConfirmation,[mbYes,mbNo],0){delph.forumalgerie.net}
  = mrYes then{delph.forumalgerie.net}
  begin{delph.forumalgerie.net}
  Table1.Delete; Edit1.Text := '';{delph.forumalgerie.net}
  Edit2.Text := ''; Edit3.Text := '';{delph.forumalgerie.net}
  end;{delph.forumalgerie.net}
  end;  /////////////////////{delph.forumalgerie.net}
 DataModuleMarche.Query1.Active := false;{delph.forumalgerie.net}
 DataModuleMarche.Query1.Active := true;{delph.forumalgerie.net}
end;{delph.forumalgerie.net}
 {delph.forumalgerie.net}
procedure TForm2.DBGrid1DblClick(Sender: TObject);{delph.forumalgerie.net}
begin{delph.forumalgerie.net}
  if DBGrid1.SelectedField.FieldName='Code' then{delph.forumalgerie.net}
      Caption := DBGrid1.Fields[0].AsString{delph.forumalgerie.net}
  else if DBGrid1.SelectedField.FieldName='Nom' then{delph.forumalgerie.net}
      Edit1.Text := DBGrid1.Fields[1].AsString{delph.forumalgerie.net}
  else if DBGrid1.SelectedField.FieldName='Nombre_P1' then{delph.forumalgerie.net}
      Edit2.Text := DBGrid1.Fields[2].AsString{delph.forumalgerie.net}
  else if DBGrid1.SelectedField.FieldName='Nombre_P2' then{delph.forumalgerie.net}
      Edit2.Text := DBGrid1.Fields[3].AsString{delph.forumalgerie.net}
  else if DBGrid1.SelectedField.FieldName='Prix' then{delph.forumalgerie.net}
      Edit3.Text := (DBGrid1.Fields[4].asstring);{delph.forumalgerie.net}
 DataModuleMarche.Query1.Filtered := False;{delph.forumalgerie.net}
end;{delph.forumalgerie.net}
{delph.forumalgerie.net}
function CalculTable(TabNum: string; a: byte): string;{delph.forumalgerie.net}
var{delph.forumalgerie.net}
  x1: real;{delph.forumalgerie.net}
  cur1: currency;{delph.forumalgerie.net}
{delph.forumalgerie.net}
begin{delph.forumalgerie.net}
{delph.forumalgerie.net}
 x1 := 0; cur1:=0;{delph.forumalgerie.net}
  with DataModuleMarche do begin  ////////////////////{delph.forumalgerie.net}
  Table1.DisableControls;{delph.forumalgerie.net}
  try{delph.forumalgerie.net}
  Table1.First;{delph.forumalgerie.net}
  while not Table1.Eof do{delph.forumalgerie.net}
  begin{delph.forumalgerie.net}
  if a = 1 then{delph.forumalgerie.net}
    x1 := x1+strtofloat(TabNum){delph.forumalgerie.net}
  else cur1 :=cur1+strtocurr(TabNum);{delph.forumalgerie.net}
  Table1.Next;{delph.forumalgerie.net}
  end;{delph.forumalgerie.net}
  finally{delph.forumalgerie.net}
    Table1.EnableControls;{delph.forumalgerie.net}
  end;{delph.forumalgerie.net}
  end;  ///////////////////////////////{delph.forumalgerie.net}
  if a = 1 then Result := floattostr(x1){delph.forumalgerie.net}
  else Result := currtostr(cur1);{delph.forumalgerie.net}
{delph.forumalgerie.net}
end;{delph.forumalgerie.net}
{delph.forumalgerie.net}
procedure TForm2.CheckBox2Click(Sender: TObject);{delph.forumalgerie.net}
begin{delph.forumalgerie.net}
 if CheckBox2.Checked then{delph.forumalgerie.net}
 begin{delph.forumalgerie.net}
  CheckBox2.Caption := CalculTable(DataModuleMarche.Table1Nombre_P1.Value,1);{delph.forumalgerie.net}
 end else CheckBox2.Caption :='مجموع العدد القديم لكل السلع ';{delph.forumalgerie.net}
end;{delph.forumalgerie.net}
{delph.forumalgerie.net}
procedure TForm2.CheckBox3Click(Sender: TObject);{delph.forumalgerie.net}
begin{delph.forumalgerie.net}
 if CheckBox3.Checked then{delph.forumalgerie.net}
 begin{delph.forumalgerie.net}
  CheckBox3.Caption := CalculTable(DataModuleMarche.Table1Nombre_P2.Value,1);{delph.forumalgerie.net}
  end else CheckBox3.Caption :='مجموع العدد الجديد  لكل السلع ';{delph.forumalgerie.net}
end;{delph.forumalgerie.net}
{delph.forumalgerie.net}
procedure TForm2.DisplayHint(Sender: TObject);{delph.forumalgerie.net}
begin{delph.forumalgerie.net}
  StatusBar1.SimpleText :=GetLongHint(Application.Hint);{delph.forumalgerie.net}
  Application.ShowHint :=True;{delph.forumalgerie.net}
end;{delph.forumalgerie.net}
{delph.forumalgerie.net}
procedure TForm2.CheckBox4Click(Sender: TObject);{delph.forumalgerie.net}
begin{delph.forumalgerie.net}
 if CheckBox4.Checked then{delph.forumalgerie.net}
 begin{delph.forumalgerie.net}
  CheckBox4.Caption := CalculTable(DataModuleMarche.Table1Prix.AsString,2);{delph.forumalgerie.net}
 end else CheckBox4.Caption :='مجموع ثمن البيع لكل السلع ';{delph.forumalgerie.net}
end;{delph.forumalgerie.net}
{delph.forumalgerie.net}
procedure TForm2.CheckBox5Click(Sender: TObject);{delph.forumalgerie.net}
begin{delph.forumalgerie.net}
 if CheckBox5.Checked then{delph.forumalgerie.net}
 begin{delph.forumalgerie.net}
  CheckBox5.Caption := CalculTable(DataModuleMarche.Table1Prix.AsString,2);{delph.forumalgerie.net}
 end else CheckBox5.Caption :='مجموع ثمن الشراء  لكل السلع ';{delph.forumalgerie.net}
end;{delph.forumalgerie.net}
{delph.forumalgerie.net}
procedure TForm2.FormDestroy(Sender: TObject);{delph.forumalgerie.net}
begin{delph.forumalgerie.net}
  edit1.free;{delph.forumalgerie.net}
  edit2.free;{delph.forumalgerie.net}
  edit3.free;{delph.forumalgerie.net}
  bitbtn1.free;{delph.forumalgerie.net}
  bitbtn2.free;{delph.forumalgerie.net}
  bitbtn3.free;{delph.forumalgerie.net}
  bitbtn4.free;{delph.forumalgerie.net}
  bitbtn5.free;{delph.forumalgerie.net}
  CheckBox1.Free;{delph.forumalgerie.net}
  CheckBox2.Free;{delph.forumalgerie.net}
  CheckBox3.Free;{delph.forumalgerie.net}
  CheckBox4.Free;{delph.forumalgerie.net}
  CheckBox5.Free;{delph.forumalgerie.net}
  DBGrid1.Free;{delph.forumalgerie.net}
  StatusBar1.Free;{delph.forumalgerie.net}
end;{delph.forumalgerie.net}
{delph.forumalgerie.net}
procedure TForm2.Affichers;{delph.forumalgerie.net}
begin{delph.forumalgerie.net}
  CheckBox2.Caption :='مجموع العدد القديم لكل السلع ';{delph.forumalgerie.net}
  CheckBox3.Caption :='مجموع العدد الجديد  لكل السلع ';{delph.forumalgerie.net}
  CheckBox4.Caption :='مجموع ثمن البيع لكل السلع ';{delph.forumalgerie.net}
  CheckBox5.Caption :='مجموع ثمن الشراء  لكل السلع ';{delph.forumalgerie.net}
end;{delph.forumalgerie.net}
{delph.forumalgerie.net}
end.{delph.forumalgerie.net}



_________________
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

ali1
مبرمج مجتهد

عدد المساهمات : 861
تاريخ التسجيل : 29/07/2013

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: النسخة الجديدة من برنامج برنامج تسيير محل تجاري

مُساهمة  ali1 في 27/3/2017, 1:31 pm

الوحدة الثالثة
الكود:


unit Unit3;{delph.forumalgerie.net}
{delph.forumalgerie.net}
interface{delph.forumalgerie.net}
{delph.forumalgerie.net}
uses{delph.forumalgerie.net}
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,{delph.forumalgerie.net}
  StdCtrls, Db, DBTables, Buttons, ExtCtrls, Menus, ComCtrls;{delph.forumalgerie.net}
{delph.forumalgerie.net}
type{delph.forumalgerie.net}
  TForm3 = class(TForm){delph.forumalgerie.net}
    ComboBox1: TComboBox;{delph.forumalgerie.net}
    Edit1: TEdit;{delph.forumalgerie.net}
    BitBtn1: TBitBtn;{delph.forumalgerie.net}
    Edit2: TEdit;{delph.forumalgerie.net}
    BitBtn2: TBitBtn;{delph.forumalgerie.net}
    Bevel1: TBevel;{delph.forumalgerie.net}
    Label7: TLabel;{delph.forumalgerie.net}
    BitBtn3: TBitBtn;{delph.forumalgerie.net}
    SaveDialog1: TSaveDialog;{delph.forumalgerie.net}
    MainMenu1: TMainMenu;{delph.forumalgerie.net}
    File1: TMenuItem;{delph.forumalgerie.net}
    Open1: TMenuItem;{delph.forumalgerie.net}
    Save1: TMenuItem;{delph.forumalgerie.net}
    N1: TMenuItem;{delph.forumalgerie.net}
    Exit1: TMenuItem;{delph.forumalgerie.net}
    OpenDialog1: TOpenDialog;{delph.forumalgerie.net}
    CheckBox1: TCheckBox;{delph.forumalgerie.net}
    ComboBox2: TComboBox;{delph.forumalgerie.net}
    Memo1: TRichEdit;{delph.forumalgerie.net}
  // NumToText1: TNumToText;{delph.forumalgerie.net}
    Label3: TLabel;{delph.forumalgerie.net}
    Label4: TLabel;{delph.forumalgerie.net}
    Edit3: TEdit;{delph.forumalgerie.net}
    Edit4: TEdit;{delph.forumalgerie.net}
    Edit5: TEdit;{delph.forumalgerie.net}
    Edit6: TEdit;{delph.forumalgerie.net}
    Edit7: TEdit;{delph.forumalgerie.net}
    Edit8: TEdit;{delph.forumalgerie.net}
    Edit9: TEdit;{delph.forumalgerie.net}
    Edit10: TEdit;{delph.forumalgerie.net}
    Label5: TLabel;{delph.forumalgerie.net}
    Label6: TLabel;{delph.forumalgerie.net}
    imrm1: TMenuItem;{delph.forumalgerie.net}
    Outils1: TMenuItem;{delph.forumalgerie.net}
    colour1: TMenuItem;{delph.forumalgerie.net}
    Fonts1: TMenuItem;{delph.forumalgerie.net}
    calcc1: TMenuItem;{delph.forumalgerie.net}
    ColorDialog1: TColorDialog;{delph.forumalgerie.net}
    FontDialog1: TFontDialog;{delph.forumalgerie.net}
    Label8: TLabel;{delph.forumalgerie.net}
    Label9: TLabel;{delph.forumalgerie.net}
    Label10: TLabel;{delph.forumalgerie.net}
    Label11: TLabel;{delph.forumalgerie.net}
    Memo2: TMemo;{delph.forumalgerie.net}
    Label1: TLabel;{delph.forumalgerie.net}
    savve1: TMenuItem;{delph.forumalgerie.net}
    procedure FormClose(Sender: TObject; var Action: TCloseAction);{delph.forumalgerie.net}
    procedure FormActivate(Sender: TObject);{delph.forumalgerie.net}
    procedure BitBtn1Click(Sender: TObject);{delph.forumalgerie.net}
    procedure Edit1Change(Sender: TObject);{delph.forumalgerie.net}
    procedure BitBtn3Click(Sender: TObject);{delph.forumalgerie.net}
    procedure Open1Click(Sender: TObject);{delph.forumalgerie.net}
    procedure Save1Click(Sender: TObject);{delph.forumalgerie.net}
    procedure FormCreate(Sender: TObject);{delph.forumalgerie.net}
    procedure BitBtn2Click(Sender: TObject);{delph.forumalgerie.net}
    procedure ChekBoxour(Sender: TObject);{delph.forumalgerie.net}
    procedure CheckBox1Click(Sender: TObject);{delph.forumalgerie.net}
    procedure FormCloses(Sender: TObject);{delph.forumalgerie.net}
    procedure colour1Click(Sender: TObject);{delph.forumalgerie.net}
    procedure Fonts1Click(Sender: TObject);{delph.forumalgerie.net}
    procedure calcc1Click(Sender: TObject);{delph.forumalgerie.net}
    procedure Label8Click(Sender: TObject);{delph.forumalgerie.net}
    procedure Label9Click(Sender: TObject);{delph.forumalgerie.net}
    procedure Label8MouseMove(Sender: TObject; Shift: TShiftState; X,{delph.forumalgerie.net}
      Y: Integer);{delph.forumalgerie.net}
    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,{delph.forumalgerie.net}
      Y: Integer);{delph.forumalgerie.net}
    procedure Label9MouseMove(Sender: TObject; Shift: TShiftState; X,{delph.forumalgerie.net}
      Y: Integer);{delph.forumalgerie.net}
    procedure ComboBox1Change(Sender: TObject);{delph.forumalgerie.net}
    procedure FormDestroy(Sender: TObject);{delph.forumalgerie.net}
    procedure Label1Click(Sender: TObject);{delph.forumalgerie.net}
    procedure Label1MouseMove(Sender: TObject; Shift: TShiftState; X,{delph.forumalgerie.net}
      Y: Integer);{delph.forumalgerie.net}
    procedure savve1Click(Sender: TObject);{delph.forumalgerie.net}
  private public{delph.forumalgerie.net}
  end;{delph.forumalgerie.net}
{delph.forumalgerie.net}
var{delph.forumalgerie.net}
  Form3: TForm3; i: Currency;{delph.forumalgerie.net}
  j: Integer;{delph.forumalgerie.net}
{delph.forumalgerie.net}
implementation{delph.forumalgerie.net}
{delph.forumalgerie.net}
uses Unit1, Unit2, Unit4, Unit5, UnitDataModuleMarche;{delph.forumalgerie.net}
{delph.forumalgerie.net}
{$R *.DFM}{delph.forumalgerie.net}
{delph.forumalgerie.net}
procedure TForm3.ChekBoxour(Sender: TObject);{delph.forumalgerie.net}
var booll: boolean;{delph.forumalgerie.net}
    entrier: string;{delph.forumalgerie.net}
begin{delph.forumalgerie.net}
with DataModuleMarche do begin  //////////////////////{delph.forumalgerie.net}
 if ComboBox1.Text <> 'خيارات' then begin{delph.forumalgerie.net}
  booll := False;{delph.forumalgerie.net}
  entrier := ComboBox2.Text;{delph.forumalgerie.net}
  Table4.Open;{delph.forumalgerie.net}
  Table4.DisableControls;{delph.forumalgerie.net}
  try{delph.forumalgerie.net}
  Table4.First;{delph.forumalgerie.net}
  while not Table4.Eof do{delph.forumalgerie.net}
  begin{delph.forumalgerie.net}
  if  entrier = Table4Nom.Value then booll := True;{delph.forumalgerie.net}
  Table4.Next;{delph.forumalgerie.net}
  end;{delph.forumalgerie.net}
  finally{delph.forumalgerie.net}
    Table4.EnableControls; end;{delph.forumalgerie.net}
  if (booll = False)or(Table4Code.Text = '') then{delph.forumalgerie.net}
  begin{delph.forumalgerie.net}
  Table4.Last;{delph.forumalgerie.net}
  if Table4Code.Text = '' then j := 0{delph.forumalgerie.net}
    else j := strtoint(Table4Code.Text);{delph.forumalgerie.net}
  j := j + 1;{delph.forumalgerie.net}
  Table4.Append;{delph.forumalgerie.net}
  Table4Code.Text :=  inttostr(j);{delph.forumalgerie.net}
  Table4Nom.Value := entrier;{delph.forumalgerie.net}
  Table4Nom_krid.Text := Edit2.Text;{delph.forumalgerie.net}
  Table4Datetimes.Value := Now;{delph.forumalgerie.net}
  Table4.Post;{delph.forumalgerie.net}
  end else if booll = True then //strtoCurr(){delph.forumalgerie.net}
  begin{delph.forumalgerie.net}
  Table4.Locate('Nom',entrier,[loCaseInsensitive,LopartialKey]);{delph.forumalgerie.net}
  Table4.Edit;{delph.forumalgerie.net}
  Table4['Nom_krid'] := Table4Nom_krid.Value + strtoCurr(Edit2.Text);{delph.forumalgerie.net}
  Table4.Post;{delph.forumalgerie.net}
 end; end; end;{delph.forumalgerie.net}
end;{delph.forumalgerie.net}
{delph.forumalgerie.net}
procedure TForm3.FormClose(Sender: TObject; var Action: TCloseAction);{delph.forumalgerie.net}
begin{delph.forumalgerie.net}
  FormCloses(Sender);{delph.forumalgerie.net}
end;{delph.forumalgerie.net}
{delph.forumalgerie.net}
procedure TForm3.FormActivate(Sender: TObject);{delph.forumalgerie.net}
begin{delph.forumalgerie.net}
  Form3.Left := 163;{delph.forumalgerie.net}
  Form3.Top := 86;{delph.forumalgerie.net}
  Form3.Height := 591;{delph.forumalgerie.net}
  Form3.Width := 777;{delph.forumalgerie.net}
{delph.forumalgerie.net}
  Memo1.Clear;{delph.forumalgerie.net}
  savve1.Enabled := false;{delph.forumalgerie.net}
  Edit2.Clear; i := 0;{delph.forumalgerie.net}
end;{delph.forumalgerie.net}
{delph.forumalgerie.net}
procedure TForm3.BitBtn1Click(Sender: TObject);{delph.forumalgerie.net}
Var iii: integer;{delph.forumalgerie.net}
    pool: Boolean;{delph.forumalgerie.net}
{delph.forumalgerie.net}
begin{delph.forumalgerie.net}
 with DataModuleMarche do begin  //////////////////////{delph.forumalgerie.net}
 Table1.First;{delph.forumalgerie.net}
 if (Table1Code.Text <> '')and(Combobox1.Text <> 'خــيارات') then{delph.forumalgerie.net}
 begin{delph.forumalgerie.net}
  Table1.Locate('Nom',Combobox1.Text,[LopartialKey]);{delph.forumalgerie.net}
  if strtoFloat(Table1Nombre_P2.Value) < strtoFloat(Edit1.Text) then begin{delph.forumalgerie.net}
 Showmessage('تم نفاذ هذه السلع وهي : ال'+Table1Nom.Value+'  '+{delph.forumalgerie.net}
Table1Nombre_P2.Value);{delph.forumalgerie.net}
    Edit1.Text := ''; end{delph.forumalgerie.net}
  else begin{delph.forumalgerie.net}
  Table1.Edit;{delph.forumalgerie.net}
  Table1['Nombre_P2'] := strtoFloat(Table1Nombre_P2.Value)-strtoFloat(Edit1.Text);{delph.forumalgerie.net}
  Table1.Post;{delph.forumalgerie.net}
{delph.forumalgerie.net}
  {delph.forumalgerie.net}
{delph.forumalgerie.net}
  i:=i+Table1Prix.Value*StrToCurr(Edit1.Text);{delph.forumalgerie.net}
  Edit2.Clear;{delph.forumalgerie.net}
  Edit2.Text :=Currtostr(i);{delph.forumalgerie.net}
{delph.forumalgerie.net}
  Memo1.Lines.Add('|  '+Table1Nom.Value+'  |  '+(Table1Prix.Text)+{delph.forumalgerie.net}
  '    |    ' + Edit1.Text + '    |    ' +{delph.forumalgerie.net}
    currtostr(Table1Prix.Value * StrToCurr(Edit1.Text))+'  |');{delph.forumalgerie.net}
{delph.forumalgerie.net}
    //////////////////////////////////////////////////////////////////2016{delph.forumalgerie.net}
  Memo2.Lines.Delete(Memo2.Lines.Count-1);{delph.forumalgerie.net}
  Memo2.Lines.Add('|  '+Table1Nom.Value+'  |  '+(Table1Prix.Text)+{delph.forumalgerie.net}
  '    |    ' + Edit1.Text + '    |    ' +{delph.forumalgerie.net}
    currtostr(Table1Prix.Value * StrToCurr(Edit1.Text))+'  |  '+edit2.Text+{delph.forumalgerie.net}
    '  |  '+datetimetostr(now));{delph.forumalgerie.net}
Memo2.Lines.Add('  المجموع الكلي  '+edit2.Text);{delph.forumalgerie.net}
    End; /////////////////////{delph.forumalgerie.net}
    /////////////////////////////////////////////////////////////{delph.forumalgerie.net}
  Edit1.Text := '';{delph.forumalgerie.net}
  end;{delph.forumalgerie.net}
{delph.forumalgerie.net}
//////// /////////////////////////////////////////////////////////  2017/2/12{delph.forumalgerie.net}
{delph.forumalgerie.net}
{delph.forumalgerie.net}
  pool := True;{delph.forumalgerie.net}
  if ComboBox1.Items.Count < 1 then ComboBox1.Items.Add(ComboBox1.Text);{delph.forumalgerie.net}
  for iii := 0 to ComboBox1.Items.Count - 1 do{delph.forumalgerie.net}
  if(ComboBox1.Items.Strings[iii]= ComboBox1.Text)and(ComboBox1.Text <> '0'){delph.forumalgerie.net}
    then pool := false; {delph.forumalgerie.net}
  if pool then ComboBox1.Items.Add(ComboBox1.Text);{delph.forumalgerie.net}
{delph.forumalgerie.net}
{delph.forumalgerie.net}
////  /////////////////////////////////////////////////////////  2017/2/12{delph.forumalgerie.net}
{delph.forumalgerie.net}
 // ComboBox1.Items.Add(ComboBox1.Text);{delph.forumalgerie.net}
{delph.forumalgerie.net}
  ComboBox1.Text:='';{delph.forumalgerie.net}
  savve1.Enabled := true;{delph.forumalgerie.net}
 end;{delph.forumalgerie.net}
 ComboBox1.SetFocus;{delph.forumalgerie.net}
end;{delph.forumalgerie.net}
{delph.forumalgerie.net}
procedure TForm3.Edit1Change(Sender: TObject);{delph.forumalgerie.net}
begin{delph.forumalgerie.net}
 if Edit1.Text <> '' then BitBtn1.Enabled := True{delph.forumalgerie.net}
    else BitBtn1.Enabled := False;{delph.forumalgerie.net}
end;{delph.forumalgerie.net}
{delph.forumalgerie.net}
procedure TForm3.BitBtn3Click(Sender: TObject);{delph.forumalgerie.net}
begin{delph.forumalgerie.net}
  FormCloses(Sender);{delph.forumalgerie.net}
end;{delph.forumalgerie.net}
{delph.forumalgerie.net}
procedure TForm3.Open1Click(Sender: TObject);{delph.forumalgerie.net}
begin{delph.forumalgerie.net}
 Memo1.Clear;{delph.forumalgerie.net}
 if OpenDialog1.Execute then{delph.forumalgerie.net}
  Memo1.Lines.LoadFromFile(OpenDialog1.FileName);{delph.forumalgerie.net}
 imrm1.Enabled := true;  {delph.forumalgerie.net}
end;{delph.forumalgerie.net}
{delph.forumalgerie.net}
procedure TForm3.Save1Click(Sender: TObject);{delph.forumalgerie.net}
begin{delph.forumalgerie.net}
  if Memo1.Lines.Count <> 0 then{delph.forumalgerie.net}
  begin{delph.forumalgerie.net}
  if SaveDialog1.Execute then{delph.forumalgerie.net}
    Memo1.Lines.SaveToFile(SaveDialog1.FileName);{delph.forumalgerie.net}
  Edit2.Text := ''; i := 0;{delph.forumalgerie.net}
  Memo1.Clear; ComboBox1.Text := 'خــيارات';{delph.forumalgerie.net}
  end;{delph.forumalgerie.net}
end;{delph.forumalgerie.net}
{delph.forumalgerie.net}
procedure TForm3.FormCreate(Sender: TObject);{delph.forumalgerie.net}
begin{delph.forumalgerie.net}
  form3.bidimode:=bdRightToLeft;{delph.forumalgerie.net}
  form3.font.charset:=ARABIC_CHARSET;{delph.forumalgerie.net}
  form3.font.name:='Arial';{delph.forumalgerie.net}
  form3.caption:='';{delph.forumalgerie.net}
  form3.Position:=poScreenCenter;{delph.forumalgerie.net}
  form3.cursor:=crDefault;{delph.forumalgerie.net}
  Bevel1.bidimode:=bdRightToLeft;{delph.forumalgerie.net}
  Bevel1.cursor:=crDefault;{delph.forumalgerie.net}
  Label7.bidimode:=bdRightToLeft;{delph.forumalgerie.net}
  Label7.font.charset:=ARABIC_CHARSET;{delph.forumalgerie.net}
  Label7.font.name:='Arial';{delph.forumalgerie.net}
  Label7.caption:='المجموع الكلي';{delph.forumalgerie.net}
  Label7.cursor:=crDefault;{delph.forumalgerie.net}
  Label3.bidimode:=bdRightToLeft;{delph.forumalgerie.net}
  Label3.font.charset:=ARABIC_CHARSET;{delph.forumalgerie.net}
  Label3.font.name:='Arial';{delph.forumalgerie.net}
  Label3.caption:='اسم صاحب الفاتورة';{delph.forumalgerie.net}
  Label3.cursor:=crDefault;{delph.forumalgerie.net}
  Label4.bidimode:=bdRightToLeft;{delph.forumalgerie.net}
  Label4.font.charset:=ARABIC_CHARSET;{delph.forumalgerie.net}
  Label4.font.name:='Arial';{delph.forumalgerie.net}
  Label4.caption:='رقم الهاتف';{delph.forumalgerie.net}
  Label4.cursor:=crDefault;{delph.forumalgerie.net}
  Label5.bidimode:=bdRightToLeft;{delph.forumalgerie.net}
  Label5.font.charset:=ARABIC_CHARSET;{delph.forumalgerie.net}
  Label5.font.name:='Arial';{delph.forumalgerie.net}
  Label5.caption:='تامبر';{delph.forumalgerie.net}
  Label5.cursor:=crDefault;{delph.forumalgerie.net}
  Label6.bidimode:=bdRightToLeft;{delph.forumalgerie.net}
  Label6.font.charset:=ARABIC_CHARSET;{delph.forumalgerie.net}
  Label6.font.name:='Arial';{delph.forumalgerie.net}
  Label6.caption:='مصاريف';{delph.forumalgerie.net}
  Label6.cursor:=crDefault;{delph.forumalgerie.net}
  Label8.bidimode:=bdRightToLeft;{delph.forumalgerie.net}
  Label8.font.charset:=ARABIC_CHARSET;{delph.forumalgerie.net}
  Label8.font.name:='Arial';{delph.forumalgerie.net}
  Label8.caption:='كتابة بعض المعلومات المتعلقة بصاحب الفاتورة';{delph.forumalgerie.net}
  Label8.cursor:=crHandPoint;{delph.forumalgerie.net}
  Label9.bidimode:=bdRightToLeft;{delph.forumalgerie.net}
  Label9.font.charset:=ARABIC_CHARSET;{delph.forumalgerie.net}
  Label9.font.name:='Arial';{delph.forumalgerie.net}
  Label9.caption:='كتابة بعض المصاريف او ضريبة';{delph.forumalgerie.net}
  Label9.cursor:=crHandPoint;{delph.forumalgerie.net}
  Label10.bidimode:=bdRightToLeft;{delph.forumalgerie.net}
  Label10.font.charset:=ARABIC_CHARSET;{delph.forumalgerie.net}
  Label10.font.name:='Arial';{delph.forumalgerie.net}
  Label10.caption:='اكتب اسم السلعة';{delph.forumalgerie.net}
  Label10.cursor:=crDefault;{delph.forumalgerie.net}
  Label11.bidimode:=bdRightToLeft;{delph.forumalgerie.net}
  Label11.font.charset:=ARABIC_CHARSET;{delph.forumalgerie.net}
  Label11.font.name:='Arial';{delph.forumalgerie.net}
  Label11.caption:='أكتب عددالسلعة';{delph.forumalgerie.net}
  Label11.cursor:=crDefault;{delph.forumalgerie.net}
  Label1.bidimode:=bdRightToLeft;{delph.forumalgerie.net}
  Label1.font.charset:=ARABIC_CHARSET;{delph.forumalgerie.net}
  Label1.font.name:='Arial';{delph.forumalgerie.net}
  Label1.caption:='اظهار واخفاء المدخول اليومي';{delph.forumalgerie.net}
  Label1.cursor:=crHandPoint;{delph.forumalgerie.net}
  ComboBox1.bidimode:=bdRightToLeft;{delph.forumalgerie.net}
  ComboBox1.font.charset:=ARABIC_CHARSET;{delph.forumalgerie.net}
  ComboBox1.font.name:='Arial';{delph.forumalgerie.net}
  ComboBox1.cursor:=crDefault;{delph.forumalgerie.net}
  Edit1.bidimode:=bdRightToLeft;{delph.forumalgerie.net}
  Edit1.font.charset:=ARABIC_CHARSET;{delph.forumalgerie.net}
  Edit1.font.name:='Arial';{delph.forumalgerie.net}
  Edit1.cursor:=crDefault;{delph.forumalgerie.net}
  BitBtn1.bidimode:=bdRightToLeft;{delph.forumalgerie.net}
  BitBtn1.font.charset:=ARABIC_CHARSET;{delph.forumalgerie.net}
  BitBtn1.font.name:='Arial';{delph.forumalgerie.net}
  BitBtn1.caption:='حـساب';{delph.forumalgerie.net}
  BitBtn1.cursor:=crHandPoint;{delph.forumalgerie.net}
  Edit2.bidimode:=bdRightToLeft;{delph.forumalgerie.net}
  Edit2.font.charset:=ARABIC_CHARSET;{delph.forumalgerie.net}
  Edit2.font.name:='Arial';{delph.forumalgerie.net}
  Edit2.cursor:=crDefault;{delph.forumalgerie.net}
  BitBtn2.bidimode:=bdRightToLeft;{delph.forumalgerie.net}
  BitBtn2.font.charset:=ARABIC_CHARSET;{delph.forumalgerie.net}
  BitBtn2.font.name:='Arial';{delph.forumalgerie.net}
  BitBtn2.caption:='&عـــردة';{delph.forumalgerie.net}
  BitBtn2.cursor:=crHandPoint;{delph.forumalgerie.net}
  BitBtn3.bidimode:=bdRightToLeft;{delph.forumalgerie.net}
  BitBtn3.font.charset:=ARABIC_CHARSET;{delph.forumalgerie.net}
  BitBtn3.font.name:='Arial';{delph.forumalgerie.net}
  BitBtn3.caption:='جديد وحفظ';{delph.forumalgerie.net}
  BitBtn3.cursor:=crHandPoint;{delph.forumalgerie.net}
  CheckBox1.bidimode:=bdRightToLeft;{delph.forumalgerie.net}
  CheckBox1.font.charset:=ARABIC_CHARSET;{delph.forumalgerie.net}
  CheckBox1.font.name:='Arial';{delph.forumalgerie.net}
  CheckBox1.caption:='تسجيل في قائمة الديون';{delph.forumalgerie.net}
  CheckBox1.cursor:=crDefault;{delph.forumalgerie.net}
  ComboBox2.bidimode:=bdRightToLeft;{delph.forumalgerie.net}
  ComboBox2.font.charset:=ARABIC_CHARSET;{delph.forumalgerie.net}
  ComboBox2.font.name:='Arial';{delph.forumalgerie.net}
  ComboBox2.cursor:=crDefault;{delph.forumalgerie.net}
  Memo1.bidimode:=bdRightToLeft;{delph.forumalgerie.net}
  Memo1.font.charset:=ARABIC_CHARSET;{delph.forumalgerie.net}
  Memo1.font.name:='Arial';{delph.forumalgerie.net}
  Memo1.cursor:=crDefault;{delph.forumalgerie.net}
  Edit4.bidimode:=bdRightToLeft;{delph.forumalgerie.net}
  Edit4.font.charset:=ARABIC_CHARSET;{delph.forumalgerie.net}
  Edit4.font.name:='Arial';{delph.forumalgerie.net}
  Edit4.cursor:=crDefault;{delph.forumalgerie.net}
  Edit3.bidimode:=bdRightToLeft;{delph.forumalgerie.net}
  Edit3.font.charset:=ARABIC_CHARSET;{delph.forumalgerie.net}
  Edit3.font.name:='Arial';{delph.forumalgerie.net}
  Edit3.cursor:=crDefault;{delph.forumalgerie.net}
  Edit5.bidimode:=bdRightToLeft;{delph.forumalgerie.net}
  Edit5.font.charset:=ARABIC_CHARSET;{delph.forumalgerie.net}
  Edit5.font.name:='Arial';{delph.forumalgerie.net}
  Edit5.cursor:=crDefault;{delph.forumalgerie.net}
  Edit6.bidimode:=bdRightToLeft;{delph.forumalgerie.net}
  Edit6.font.charset:=ARABIC_CHARSET;{delph.forumalgerie.net}
  Edit6.font.name:='Arial';{delph.forumalgerie.net}
  Edit6.cursor:=crDefault;{delph.forumalgerie.net}
  Edit7.bidimode:=bdRightToLeft;{delph.forumalgerie.net}
  Edit7.font.charset:=ARABIC_CHARSET;{delph.forumalgerie.net}
  Edit7.font.name:='Arial';{delph.forumalgerie.net}
  Edit7.cursor:=crDefault;{delph.forumalgerie.net}
  Edit8.bidimode:=bdRightToLeft;{delph.forumalgerie.net}
  Edit8.font.charset:=ARABIC_CHARSET;{delph.forumalgerie.net}
  Edit8.font.name:='Arial';{delph.forumalgerie.net}
  Edit8.cursor:=crDefault;{delph.forumalgerie.net}
  Edit9.bidimode:=bdRightToLeft;{delph.forumalgerie.net}
  Edit9.font.charset:=ARABIC_CHARSET;{delph.forumalgerie.net}
  Edit9.font.name:='Arial';{delph.forumalgerie.net}
  Edit9.cursor:=crDefault;{delph.forumalgerie.net}
  Edit10.bidimode:=bdRightToLeft;{delph.forumalgerie.net}
  Edit10.font.charset:=ARABIC_CHARSET;{delph.forumalgerie.net}
  Edit10.font.name:='Arial';{delph.forumalgerie.net}
  Edit10.cursor:=crDefault;{delph.forumalgerie.net}
  Memo2.bidimode:=bdRightToLeft;{delph.forumalgerie.net}
  Memo2.font.charset:=ARABIC_CHARSET;{delph.forumalgerie.net}
  Memo2.font.name:='Arial';{delph.forumalgerie.net}
  Memo2.cursor:=crDefault;{delph.forumalgerie.net}
end;{delph.forumalgerie.net}
{delph.forumalgerie.net}
procedure TForm3.BitBtn2Click(Sender: TObject);{delph.forumalgerie.net}
begin{delph.forumalgerie.net}
 Form3.Close;{delph.forumalgerie.net}
end;{delph.forumalgerie.net}
{delph.forumalgerie.net}
procedure TForm3.CheckBox1Click(Sender: TObject);{delph.forumalgerie.net}
begin{delph.forumalgerie.net}
 ComboBox2.Text := '';{delph.forumalgerie.net}
end;{delph.forumalgerie.net}
{delph.forumalgerie.net}
procedure TForm3.FormCloses(Sender: TObject);{delph.forumalgerie.net}
var TLListe: TStringList;{delph.forumalgerie.net}
  jj: byte;{delph.forumalgerie.net}
begin{delph.forumalgerie.net}
with DataModuleMarche do begin  //////////////////////{delph.forumalgerie.net}
 Form1.Visible := True;{delph.forumalgerie.net}
 if (Edit2.Text <> '')and(memo1.Modified) then begin{delph.forumalgerie.net}
  if CheckBox1.Checked = True then ChekBoxour(Form3);{delph.forumalgerie.net}
  Table2.Open; Table2.First;{delph.forumalgerie.net}
  Table3.Open; Table3.First;{delph.forumalgerie.net}
  Table3.Edit; Table3['Code'] := '1';{delph.forumalgerie.net}
  if Table3Grand_Prix.Text <> '' then{delph.forumalgerie.net}
  Table3['Grand_Prix'] := Table3Grand_Prix.Value+{delph.forumalgerie.net}
 StrToCurr(Edit2.Text)+{delph.forumalgerie.net}
 (StrToCurr(Edit2.Text) * strtofloat(Table2TVA.Value)){delph.forumalgerie.net}
  else Table3['Grand_Prix']:= strtoCurr(Edit2.Text)+(strtoCurr(Edit2.Text)*{delph.forumalgerie.net}
 strtofloat(Table2TVA.Value));{delph.forumalgerie.net}
  Table3.Post; end;{delph.forumalgerie.net}
{delph.forumalgerie.net}
  if Memo1.Lines.Count <> 0 then{delph.forumalgerie.net}
  begin{delph.forumalgerie.net}
  if SaveDialog1.Execute then{delph.forumalgerie.net}
  begin{delph.forumalgerie.net}
    TLListe := TStringList.Create;{delph.forumalgerie.net}
    TLListe.Clear;{delph.forumalgerie.net}
    TLListe.Add(Memo1.Lines.Text);{delph.forumalgerie.net}
    Memo1.Lines.Clear;{delph.forumalgerie.net}
    Memo1.Lines.Add('');{delph.forumalgerie.net}
    Memo1.Lines.Add('الفاتورة');{delph.forumalgerie.net}
    Memo1.Lines.Add('');{delph.forumalgerie.net}
    Memo1.Lines.Add('اسم : '+Edit4.Text+' '+Edit7.Text);{delph.forumalgerie.net}
    Memo1.Lines.Add('الهاتف : '+Edit3.Text+' '+Edit6.Text);{delph.forumalgerie.net}
    Memo1.Lines.Add(Edit5.Text+' '+Edit8.Text);{delph.forumalgerie.net}
    Memo1.Lines.Add('');{delph.forumalgerie.net}
  Memo1.Lines.Add('----------------------------------------------------');{delph.forumalgerie.net}
  Memo1.Lines.Add('| اسم السلع  | عدد السلع  | ثمن السلع  | المجموع |');{delph.forumalgerie.net}
  Memo1.Lines.Add('----------------------------------------------------');{delph.forumalgerie.net}
{delph.forumalgerie.net}
  for jj := 0 to TLListe.Count - 1 do{delph.forumalgerie.net}
    Memo1.Lines.Add(TLListe.Strings[jj]);{delph.forumalgerie.net}
    Memo1.Lines.Strings[Memo1.Lines.Count];{delph.forumalgerie.net}
    /////////////////////////////////////////  2016{delph.forumalgerie.net}
    [ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
  Memo1.Lines.Add('-------------------------------------------------------');{delph.forumalgerie.net}
  Memo1.Lines.Add('المجموع الكلي  :  '+{delph.forumalgerie.net}
  currtostr(strtoCurr(Edit9.Text)+strtoCurr(Edit10.Text)+strtoCurr(Edit2.Text)+{delph.forumalgerie.net}
(strtoCurr(Edit2.Text) * strtofloat(Table2TVA.Value))));{delph.forumalgerie.net}
  Memo1.Lines.Add('-------------------------------------------------------');{delph.forumalgerie.net}
  // NumToText1.Input := strtoint(edit2.text);{delph.forumalgerie.net}
  // NumToText1.Active := true;{delph.forumalgerie.net}
  // Memo1.Lines.Add(NumToText1.Output);{delph.forumalgerie.net}
  End;  ///////////////////////////{delph.forumalgerie.net}
      Memo1.Lines.Add('');{delph.forumalgerie.net}
    Memo1.Lines.Add(DateTimeToStr(Now));{delph.forumalgerie.net}
    Memo1.Lines.SaveToFile(SaveDialog1.FileName);{delph.forumalgerie.net}
    TLListe.Free;{delph.forumalgerie.net}
  end;{delph.forumalgerie.net}
  end;{delph.forumalgerie.net}
  Memo1.Clear; Edit2.Text := ''; i := 0;{delph.forumalgerie.net}
  Form1.Timer1.Enabled := True;{delph.forumalgerie.net}
  Edit3.Text := '';  Edit4.Text := '';{delph.forumalgerie.net}
  Edit5.Text := '';  Edit6.Text := '';{delph.forumalgerie.net}
  Edit7.Text := '';  Edit8.Text := '';{delph.forumalgerie.net}
  Edit9.Text := '0';  Edit10.Text := '0';{delph.forumalgerie.net}
  ComboBox1.Text:='';{delph.forumalgerie.net}
  label8.Visible := true;{delph.forumalgerie.net}
  label4.Visible := false;{delph.forumalgerie.net}
  edit3.Visible := false;{delph.forumalgerie.net}
  edit4.Visible := false;{delph.forumalgerie.net}
  edit5.Visible := false;{delph.forumalgerie.net}
  edit6.Visible := false;{delph.forumalgerie.net}
  edit7.Visible := false;{delph.forumalgerie.net}
  edit8.Visible := false;{delph.forumalgerie.net}
  Label9.Visible := true;{delph.forumalgerie.net}
  edit9.Visible := false;edit10.Visible := false;{delph.forumalgerie.net}
  label5.Visible := false;label6.Visible := false;{delph.forumalgerie.net}
  label3.Visible := false;{delph.forumalgerie.net}
end;{delph.forumalgerie.net}
{delph.forumalgerie.net}
procedure TForm3.colour1Click(Sender: TObject);{delph.forumalgerie.net}
begin{delph.forumalgerie.net}
 if ColorDialog1.Execute then{delph.forumalgerie.net}
 begin{delph.forumalgerie.net}
  Form3.Color := ColorDialog1.Color;{delph.forumalgerie.net}
  Form1.Color := Form3.Color;{delph.forumalgerie.net}
  Form2.Color := Form3.Color;{delph.forumalgerie.net}
  Form4.Color := Form3.Color;{delph.forumalgerie.net}
  Form5.Color := Form3.Color;{delph.forumalgerie.net}
 end;{delph.forumalgerie.net}
end;{delph.forumalgerie.net}
{delph.forumalgerie.net}
procedure TForm3.Fonts1Click(Sender: TObject);{delph.forumalgerie.net}
begin{delph.forumalgerie.net}
 if FontDialog1.Execute then{delph.forumalgerie.net}
 begin{delph.forumalgerie.net}
  Form3.Font := FontDialog1.Font;{delph.forumalgerie.net}
  Form1.Font := Form3.Font;{delph.forumalgerie.net}
  Form2.Font := Form3.Font;{delph.forumalgerie.net}
  Form4.Font := Form3.Font;{delph.forumalgerie.net}
  Form5.Font := Form3.Font;{delph.forumalgerie.net}
 end;{delph.forumalgerie.net}
end;{delph.forumalgerie.net}
{delph.forumalgerie.net}
procedure TForm3.calcc1Click(Sender: TObject);{delph.forumalgerie.net}
begin{delph.forumalgerie.net}
 WinExec('calc', 0);{delph.forumalgerie.net}
end;{delph.forumalgerie.net}
{delph.forumalgerie.net}
procedure TForm3.Label8Click(Sender: TObject);{delph.forumalgerie.net}
begin{delph.forumalgerie.net}
  Label3.Visible := true;{delph.forumalgerie.net}
  Label4.Visible := true;{delph.forumalgerie.net}
  edit3.Visible := true;{delph.forumalgerie.net}
  edit4.Visible := true;{delph.forumalgerie.net}
  edit5.Visible := true;{delph.forumalgerie.net}
  edit6.Visible := true;{delph.forumalgerie.net}
  edit7.Visible := true;{delph.forumalgerie.net}
  edit8.Visible := true;{delph.forumalgerie.net}
  Label8.Visible := false;{delph.forumalgerie.net}
end;{delph.forumalgerie.net}
{delph.forumalgerie.net}
procedure TForm3.Label9Click(Sender: TObject);{delph.forumalgerie.net}
begin{delph.forumalgerie.net}
  Label5.Visible := true;{delph.forumalgerie.net}
  Label9.Visible := false;{delph.forumalgerie.net}
  Label6.Visible := true;{delph.forumalgerie.net}
  edit9.Visible := true;{delph.forumalgerie.net}
  edit10.Visible := true;{delph.forumalgerie.net}
end;{delph.forumalgerie.net}
{delph.forumalgerie.net}
procedure TForm3.Label8MouseMove(Sender: TObject; Shift: TShiftState; X,{delph.forumalgerie.net}
  Y: Integer);{delph.forumalgerie.net}
begin{delph.forumalgerie.net}
  Label8.Font.Color:= clred;{delph.forumalgerie.net}
end;{delph.forumalgerie.net}
{delph.forumalgerie.net}
procedure TForm3.FormMouseMove(Sender: TObject; Shift: TShiftState; X,{delph.forumalgerie.net}
  Y: Integer);{delph.forumalgerie.net}
begin{delph.forumalgerie.net}
Label8.Font.Color:= clblack;  Label9.Font.Color:= clblack;{delph.forumalgerie.net}
Label1.Font.Color:= clblack;{delph.forumalgerie.net}
end;{delph.forumalgerie.net}
{delph.forumalgerie.net}
procedure TForm3.Label9MouseMove(Sender: TObject; Shift: TShiftState; X,{delph.forumalgerie.net}
  Y: Integer);{delph.forumalgerie.net}
begin{delph.forumalgerie.net}
Label9.Font.Color:= clred;{delph.forumalgerie.net}
end;{delph.forumalgerie.net}
{delph.forumalgerie.net}
procedure TForm3.ComboBox1Change(Sender: TObject);{delph.forumalgerie.net}
{delph.forumalgerie.net}
Procedure Triage_de_Liste;{delph.forumalgerie.net}
Var i: integer;{delph.forumalgerie.net}
    pool: Boolean;{delph.forumalgerie.net}
Begin{delph.forumalgerie.net}
  pool := True;{delph.forumalgerie.net}
  if ComboBox1.Items.Count < 1 then ComboBox1.Items.Add(ComboBox1.Text);{delph.forumalgerie.net}
  for i := 0 to ComboBox1.Items.Count - 1 do{delph.forumalgerie.net}
    if(ComboBox1.Items.Strings[i]= ComboBox1.Text)and(ComboBox1.Text <> '0') then pool := false;{delph.forumalgerie.net}
  if pool then ComboBox1.Items.Add(ComboBox1.Text);{delph.forumalgerie.net}
End;{delph.forumalgerie.net}
begin{delph.forumalgerie.net}
// Table1.Locate('Nom',Combobox1.Text,[loCaseInsensitive,loPartialKey]);{delph.forumalgerie.net}
 //{delph.forumalgerie.net}
// Table1.First;{delph.forumalgerie.net}
// Table1.Filter := 'Nom='+chr(39)+Edit1.Text+'*'+chr(39);{delph.forumalgerie.net}
// Table1.Filtered := True;{delph.forumalgerie.net}
{delph.forumalgerie.net}
 //Query1{delph.forumalgerie.net}
// Combobox1.Items.Add(Table1.FieldValues ['Nom']);{delph.forumalgerie.net}
 {delph.forumalgerie.net}
// ComboBox1.DroppedDown := false; //not ComboBox1.DroppedDown;{delph.forumalgerie.net}
end;{delph.forumalgerie.net}
{delph.forumalgerie.net}
procedure TForm3.FormDestroy(Sender: TObject);{delph.forumalgerie.net}
begin{delph.forumalgerie.net}
  ComboBox1.Free;{delph.forumalgerie.net}
  ComboBox2.Free;{delph.forumalgerie.net}
  edit1.free;{delph.forumalgerie.net}
  edit2.free;{delph.forumalgerie.net}
  edit3.free;{delph.forumalgerie.net}
  edit4.free;{delph.forumalgerie.net}
  edit5.free;{delph.forumalgerie.net}
  edit6.free;{delph.forumalgerie.net}
  edit7.free;{delph.forumalgerie.net}
  edit8.free;{delph.forumalgerie.net}
  edit9.free;{delph.forumalgerie.net}
  edit10.free;{delph.forumalgerie.net}
  BitBtn1.Free;{delph.forumalgerie.net}
  BitBtn2.Free;{delph.forumalgerie.net}
  BitBtn3.Free;{delph.forumalgerie.net}
    label1.Free;{delph.forumalgerie.net}
    label11.Free;{delph.forumalgerie.net}
    label10.Free;{delph.forumalgerie.net}
    label3.Free;{delph.forumalgerie.net}
    label4.Free;{delph.forumalgerie.net}
    label5.Free;{delph.forumalgerie.net}
    label6.Free;{delph.forumalgerie.net}
    label7.Free;{delph.forumalgerie.net}
    label8.Free;{delph.forumalgerie.net}
    label9.Free;{delph.forumalgerie.net}
    CheckBox1.Free;{delph.forumalgerie.net}
    MainMenu1.Free;{delph.forumalgerie.net}
    FontDialog1.Free;{delph.forumalgerie.net}
    ColorDialog1.Free;{delph.forumalgerie.net}
    SaveDialog1.Free;{delph.forumalgerie.net}
    OpenDialog1.Free;{delph.forumalgerie.net}
    bevel1.free;{delph.forumalgerie.net}
    memo1.Free;{delph.forumalgerie.net}
    memo2.Free;{delph.forumalgerie.net}
end;{delph.forumalgerie.net}
{delph.forumalgerie.net}
procedure TForm3.Label1Click(Sender: TObject);{delph.forumalgerie.net}
begin{delph.forumalgerie.net}
 memo2.Visible := not memo2.Visible;{delph.forumalgerie.net}
end;{delph.forumalgerie.net}
{delph.forumalgerie.net}
procedure TForm3.Label1MouseMove(Sender: TObject; Shift: TShiftState; X,{delph.forumalgerie.net}
  Y: Integer);{delph.forumalgerie.net}
begin{delph.forumalgerie.net}
 Label1.Font.Color:= clred;{delph.forumalgerie.net}
end;{delph.forumalgerie.net}
{delph.forumalgerie.net}
procedure TForm3.savve1Click(Sender: TObject);{delph.forumalgerie.net}
begin{delph.forumalgerie.net}
 if memo2.Lines.Count >= 4 then{delph.forumalgerie.net}
  if SaveDialog1.Execute then begin{delph.forumalgerie.net}
  SaveDialog1.FileName:=  'Saad.txt';{delph.forumalgerie.net}
  memo2.Lines.SaveToFile(SaveDialog1.FileName);end;{delph.forumalgerie.net}
end;{delph.forumalgerie.net}
{delph.forumalgerie.net}
end.{delph.forumalgerie.net}



_________________
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

ali1
مبرمج مجتهد

عدد المساهمات : 861
تاريخ التسجيل : 29/07/2013

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: النسخة الجديدة من برنامج برنامج تسيير محل تجاري

مُساهمة  ali1 في 27/3/2017, 1:33 pm

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


unit Unit4;{delph.forumalgerie.net}
{delph.forumalgerie.net}
interface{delph.forumalgerie.net}
{delph.forumalgerie.net}
uses{delph.forumalgerie.net}
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,{delph.forumalgerie.net}
  Grids, DBGrids, Db, DBTables, StdCtrls, Buttons, ExtCtrls, ComCtrls;{delph.forumalgerie.net}
{delph.forumalgerie.net}
type{delph.forumalgerie.net}
  TForm4 = class(TForm){delph.forumalgerie.net}
    Edit1: TEdit;{delph.forumalgerie.net}
    BitBtn1: TBitBtn;{delph.forumalgerie.net}
    BitBtn2: TBitBtn;{delph.forumalgerie.net}
    Panel1: TPanel;{delph.forumalgerie.net}
    Bevel1: TBevel;{delph.forumalgerie.net}
    BitBtn3: TBitBtn;{delph.forumalgerie.net}
    StatusBar1: TStatusBar;{delph.forumalgerie.net}
    Edit2: TEdit;{delph.forumalgerie.net}
    Edit3: TEdit;{delph.forumalgerie.net}
    Label1: TLabel;{delph.forumalgerie.net}
    Label2: TLabel;{delph.forumalgerie.net}
    Label3: TLabel;{delph.forumalgerie.net}
    BitBtn4: TBitBtn;{delph.forumalgerie.net}
    BitBtn5: TBitBtn;{delph.forumalgerie.net}
    BitBtn6: TBitBtn;{delph.forumalgerie.net}
    BitBtn7: TBitBtn;{delph.forumalgerie.net}
    Edit4: TEdit;{delph.forumalgerie.net}
    Edit5: TEdit;{delph.forumalgerie.net}
    BitBtn8: TBitBtn;{delph.forumalgerie.net}
    BitBtn9: TBitBtn;{delph.forumalgerie.net}
    Edit6: TEdit;{delph.forumalgerie.net}
    Label4: TLabel;{delph.forumalgerie.net}
    BitBtn10: TBitBtn;{delph.forumalgerie.net}
    Label5: TLabel;{delph.forumalgerie.net}
    Label6: TLabel;{delph.forumalgerie.net}
    procedure FormClose(Sender: TObject; var Action: TCloseAction);{delph.forumalgerie.net}
    procedure FormActivate(Sender: TObject);{delph.forumalgerie.net}
    procedure BitBtn1Click(Sender: TObject);{delph.forumalgerie.net}
    procedure Edit1Change(Sender: TObject);{delph.forumalgerie.net}
    procedure BitBtn3Click(Sender: TObject);{delph.forumalgerie.net}
    procedure Button1MouseMove(Sender: TObject; Shift: TShiftState; X,{delph.forumalgerie.net}
      Y: Integer);{delph.forumalgerie.net}
    procedure BitBtn2MouseMove(Sender: TObject; Shift: TShiftState; X,{delph.forumalgerie.net}
      Y: Integer);{delph.forumalgerie.net}
    procedure BitBtn1MouseMove(Sender: TObject; Shift: TShiftState; X,{delph.forumalgerie.net}
      Y: Integer);{delph.forumalgerie.net}
    procedure BitBtn3MouseMove(Sender: TObject; Shift: TShiftState; X,{delph.forumalgerie.net}
      Y: Integer);{delph.forumalgerie.net}
    procedure Edit1MouseMove(Sender: TObject; Shift: TShiftState; X,{delph.forumalgerie.net}
      Y: Integer);{delph.forumalgerie.net}
    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,{delph.forumalgerie.net}
      Y: Integer);{delph.forumalgerie.net}
    procedure Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,{delph.forumalgerie.net}
      Y: Integer);{delph.forumalgerie.net}
    procedure BitBtn4Click(Sender: TObject);{delph.forumalgerie.net}
    procedure Edit2MouseMove(Sender: TObject; Shift: TShiftState; X,{delph.forumalgerie.net}
      Y: Integer);{delph.forumalgerie.net}
    procedure BitBtn4MouseMove(Sender: TObject; Shift: TShiftState; X,{delph.forumalgerie.net}
      Y: Integer);{delph.forumalgerie.net}
    procedure Edit2Change(Sender: TObject);{delph.forumalgerie.net}
    procedure BitBtn5Click(Sender: TObject);{delph.forumalgerie.net}
    procedure BitBtn6Click(Sender: TObject);{delph.forumalgerie.net}
    procedure BitBtn7Click(Sender: TObject);{delph.forumalgerie.net}
    procedure BitBtn8Click(Sender: TObject);{delph.forumalgerie.net}
    procedure BitBtn10Click(Sender: TObject);{delph.forumalgerie.net}
    procedure BitBtn9Click(Sender: TObject);{delph.forumalgerie.net}
    procedure Edit5Change(Sender: TObject);{delph.forumalgerie.net}
    procedure FormCreate(Sender: TObject);{delph.forumalgerie.net}
    procedure FormDestroy(Sender: TObject);{delph.forumalgerie.net}
    procedure Label6Click(Sender: TObject);{delph.forumalgerie.net}
    procedure enregistrements(Sender: TObject; tblMove: TTable);{delph.forumalgerie.net}
  private{delph.forumalgerie.net}
  public{delph.forumalgerie.net}
  end;{delph.forumalgerie.net}
{delph.forumalgerie.net}
var{delph.forumalgerie.net}
  Form4: TForm4;{delph.forumalgerie.net}
  se1,sa2,si4: real;{delph.forumalgerie.net}
  s:string;{delph.forumalgerie.net}
  {delph.forumalgerie.net}
implementation{delph.forumalgerie.net}
{delph.forumalgerie.net}
uses Unit1, UnitDataModuleMarche;{delph.forumalgerie.net}
{delph.forumalgerie.net}
{$R *.DFM}{delph.forumalgerie.net}
{delph.forumalgerie.net}
procedure TForm4.FormClose(Sender: TObject; var Action: TCloseAction);{delph.forumalgerie.net}
begin{delph.forumalgerie.net}
  Form1.Visible := True;{delph.forumalgerie.net}
  Form1.Timer1.Enabled := True;{delph.forumalgerie.net}
end;{delph.forumalgerie.net}
{delph.forumalgerie.net}
procedure TForm4.FormActivate(Sender: TObject);{delph.forumalgerie.net}
begin{delph.forumalgerie.net}
  Form4.Left := 163; Form4.Top := 86;{delph.forumalgerie.net}
  Form4.Height := 449; Form4.Width := 585;{delph.forumalgerie.net}
  with DataModuleMarche do begin  //////////////////////{delph.forumalgerie.net}
  Table3.First;{delph.forumalgerie.net}
  Edit1.Text := Table3Grand_Prix.Text;{delph.forumalgerie.net}
  end;//////////{delph.forumalgerie.net}
  Edit2.Text := '0'; Edit3.Text := '';{delph.forumalgerie.net}
  Edit2.TabOrder := 0;{delph.forumalgerie.net}
end;{delph.forumalgerie.net}
{delph.forumalgerie.net}
procedure TForm4.BitBtn1Click(Sender: TObject);{delph.forumalgerie.net}
begin{delph.forumalgerie.net}
with DataModuleMarche do begin  //////////////////////{delph.forumalgerie.net}
  Table3.First;{delph.forumalgerie.net}
  if MessageDlg('هل تريد حذف هذا المجموع ؟',mtConfirmation,[mbYes,mbNo],0){delph.forumalgerie.net}
  = mrYes then{delph.forumalgerie.net}
  begin{delph.forumalgerie.net}
  Table3.Delete;{delph.forumalgerie.net}
  Edit1.Text := '';{delph.forumalgerie.net}
  Edit2.Text := '';{delph.forumalgerie.net}
  Edit3.Text := '';{delph.forumalgerie.net}
  end;{delph.forumalgerie.net}
  if (Table3Grand_Prix.Text = '')and(Table3Code.Text = '') then{delph.forumalgerie.net}
  begin{delph.forumalgerie.net}
  Table3.First;{delph.forumalgerie.net}
  Table3.Append;{delph.forumalgerie.net}
  Table3Code.Value := 1;{delph.forumalgerie.net}
  Table3Grand_Prix.Value := 0;{delph.forumalgerie.net}
  Table3Grand_Prix1.Value := 0;{delph.forumalgerie.net}
  Table3.Post;{delph.forumalgerie.net}
  end;{delph.forumalgerie.net}
  end; ////////////////////{delph.forumalgerie.net}
end;{delph.forumalgerie.net}
{delph.forumalgerie.net}
procedure TForm4.Edit1Change(Sender: TObject);{delph.forumalgerie.net}
begin{delph.forumalgerie.net}
 if Edit1.Text <> '' then{delph.forumalgerie.net}
  begin BitBtn1.Enabled := True; BitBtn3.Enabled := True;{delph.forumalgerie.net}
  end else begin BitBtn1.Enabled := False; BitBtn3.Enabled := False; end;{delph.forumalgerie.net}
end;{delph.forumalgerie.net}
{delph.forumalgerie.net}
procedure TForm4.BitBtn3Click(Sender: TObject);{delph.forumalgerie.net}
var strVar: String;{delph.forumalgerie.net}
begin{delph.forumalgerie.net}
 with DataModuleMarche do begin  //////////////////////{delph.forumalgerie.net}
  strVar:='هل تريد تصحيح مجموع المبيعات والمشتريات معا أو احداهما ؟';{delph.forumalgerie.net}
  if MessageDlg(strVar,mtConfirmation,[mbYes,mbNo],0){delph.forumalgerie.net}
  = mrYes then begin{delph.forumalgerie.net}
  Table3.Edit;{delph.forumalgerie.net}
  Table3['Grand_Prix'] := Edit1.Text;{delph.forumalgerie.net}
  Table3['Grand_Prix1'] := Edit2.Text;{delph.forumalgerie.net}
  Table3.Post;end;{delph.forumalgerie.net}
  end; ////////////////{delph.forumalgerie.net}
end;{delph.forumalgerie.net}
{delph.forumalgerie.net}
procedure TForm4.Button1MouseMove(Sender: TObject; Shift: TShiftState; X,{delph.forumalgerie.net}
  Y: Integer);{delph.forumalgerie.net}
begin{delph.forumalgerie.net}
 StatusBar1.SimpleText := '';{delph.forumalgerie.net}
end;{delph.forumalgerie.net}
{delph.forumalgerie.net}
procedure TForm4.BitBtn2MouseMove(Sender: TObject; Shift: TShiftState; X,{delph.forumalgerie.net}
  Y: Integer);{delph.forumalgerie.net}
begin{delph.forumalgerie.net}
 StatusBar1.SimpleText := 'عــــودة الى الصفحة الرئيسية';{delph.forumalgerie.net}
end;{delph.forumalgerie.net}
{delph.forumalgerie.net}
procedure TForm4.BitBtn1MouseMove(Sender: TObject; Shift: TShiftState; X,{delph.forumalgerie.net}
  Y: Integer);{delph.forumalgerie.net}
begin{delph.forumalgerie.net}
 StatusBar1.SimpleText := 'حــذف المجموع نهائيا ولا تستطـيع التراجع';{delph.forumalgerie.net}
end;{delph.forumalgerie.net}
{delph.forumalgerie.net}
procedure TForm4.BitBtn3MouseMove(Sender: TObject; Shift: TShiftState; X,{delph.forumalgerie.net}
  Y: Integer);{delph.forumalgerie.net}
begin{delph.forumalgerie.net}
 StatusBar1.SimpleText := 'التصحيح في حــالة حــدوث خطأ مــا';{delph.forumalgerie.net}
end;{delph.forumalgerie.net}
{delph.forumalgerie.net}
procedure TForm4.Edit1MouseMove(Sender: TObject; Shift: TShiftState; X,{delph.forumalgerie.net}
  Y: Integer);{delph.forumalgerie.net}
begin{delph.forumalgerie.net}
 StatusBar1.SimpleText := 'المجموع الكلي الذي تــم تسجيلـه حتى الآن ';{delph.forumalgerie.net}
end;{delph.forumalgerie.net}
{delph.forumalgerie.net}
procedure TForm4.FormMouseMove(Sender: TObject; Shift: TShiftState; X,{delph.forumalgerie.net}
  Y: Integer);{delph.forumalgerie.net}
begin{delph.forumalgerie.net}
 StatusBar1.SimpleText := '';{delph.forumalgerie.net}
end;{delph.forumalgerie.net}
{delph.forumalgerie.net}
procedure TForm4.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,{delph.forumalgerie.net}
  Y: Integer);{delph.forumalgerie.net}
begin{delph.forumalgerie.net}
 StatusBar1.SimpleText := '';{delph.forumalgerie.net}
end;{delph.forumalgerie.net}
{delph.forumalgerie.net}
procedure TForm4.BitBtn4Click(Sender: TObject);{delph.forumalgerie.net}
var strVar: String;{delph.forumalgerie.net}
begin{delph.forumalgerie.net}
  strVar:='هل تريد تسجيل مجوع المشتريات ؟';{delph.forumalgerie.net}
  with DataModuleMarche do begin  //////////////////////{delph.forumalgerie.net}
  if MessageDlg(strVar,mtConfirmation,[mbYes,mbNo],0){delph.forumalgerie.net}
  = mrYes then begin{delph.forumalgerie.net}
  Table3.First;{delph.forumalgerie.net}
  Table3.Edit;{delph.forumalgerie.net}
  Table3['Grand_Prix1'] := CurrToStr(StrToCurr(Edit2.Text) +{delph.forumalgerie.net}
 Table3Grand_Prix1.Value);{delph.forumalgerie.net}
  Table3.Post;{delph.forumalgerie.net}
  Edit4.Text := Table3Grand_Prix1.Text;{delph.forumalgerie.net}
  Edit2.Text := '';end; end;{delph.forumalgerie.net}
end;{delph.forumalgerie.net}
{delph.forumalgerie.net}
procedure TForm4.Edit2MouseMove(Sender: TObject; Shift: TShiftState; X,{delph.forumalgerie.net}
  Y: Integer);{delph.forumalgerie.net}
begin{delph.forumalgerie.net}
  StatusBar1.SimpleText := '  تسجيل ثمن كل ما قمت بشرائه من سلع';{delph.forumalgerie.net}
end;{delph.forumalgerie.net}
{delph.forumalgerie.net}
procedure TForm4.BitBtn4MouseMove(Sender: TObject; Shift: TShiftState; X,{delph.forumalgerie.net}
  Y: Integer);{delph.forumalgerie.net}
begin{delph.forumalgerie.net}
  StatusBar1.SimpleText := ' وأنقر على تسجيل';{delph.forumalgerie.net}
end;{delph.forumalgerie.net}
{delph.forumalgerie.net}
procedure TForm4.Edit2Change(Sender: TObject);{delph.forumalgerie.net}
begin{delph.forumalgerie.net}
  if Edit2.Text <> '' then BitBtn4.Enabled := True{delph.forumalgerie.net}
    else BitBtn4.Enabled := False;{delph.forumalgerie.net}
end;{delph.forumalgerie.net}
{delph.forumalgerie.net}
procedure TForm4.BitBtn5Click(Sender: TObject);{delph.forumalgerie.net}
begin{delph.forumalgerie.net}
with DataModuleMarche do begin  //////////////////////{delph.forumalgerie.net}
 Table1.First;{delph.forumalgerie.net}
 if (Table1Nombre_P1.Value <> '')or(Table1Nombre_P2.Value <> '') then{delph.forumalgerie.net}
  begin{delph.forumalgerie.net}
  se1 := 0; sa2 := 0;{delph.forumalgerie.net}
    si4 := 0;{delph.forumalgerie.net}
  Table1.DisableControls;{delph.forumalgerie.net}
  try{delph.forumalgerie.net}
  Table1.First;{delph.forumalgerie.net}
  while not Table1.Eof do{delph.forumalgerie.net}
  begin{delph.forumalgerie.net}
    se1 := se1 + StrToFloat(Table1Nombre_P1.Value);{delph.forumalgerie.net}
    sa2 := sa2 + StrToFloat(Table1Nombre_P2.Value);{delph.forumalgerie.net}
    Table1.Next;{delph.forumalgerie.net}
  end;{delph.forumalgerie.net}
  finally{delph.forumalgerie.net}
    Table1.EnableControls; end; {delph.forumalgerie.net}
{delph.forumalgerie.net}
  si4 := (sa2 * 100) / se1;{delph.forumalgerie.net}
  Edit3.Text := FloatToStr(si4);{delph.forumalgerie.net}
  end else{delph.forumalgerie.net}
    showmessage{delph.forumalgerie.net}
    ('لـم يتم تسجيل أي سلع بعد سجّل كل السلع ثم حاول مرة اخرى'#13#10#13#10+{delph.forumalgerie.net}
 'النسبة المئوية بنسبة للمبيعات'); end; ////////////{delph.forumalgerie.net}
end;{delph.forumalgerie.net}
{delph.forumalgerie.net}
procedure TForm4.BitBtn6Click(Sender: TObject);{delph.forumalgerie.net}
begin{delph.forumalgerie.net}
 with DataModuleMarche do begin  //////////////////////{delph.forumalgerie.net}
  Table3.First;{delph.forumalgerie.net}
  Edit4.Text := Table3Grand_Prix1.Text;{delph.forumalgerie.net}
  End;{delph.forumalgerie.net}
end;{delph.forumalgerie.net}
{delph.forumalgerie.net}
procedure TForm4.BitBtn7Click(Sender: TObject);{delph.forumalgerie.net}
begin{delph.forumalgerie.net}
 Edit1.Text := ''; Edit2.Text := ''; Edit3.Text := '';{delph.forumalgerie.net}
 Edit4.Text := ''; Edit5.Text := ''; Edit6.Text := '';{delph.forumalgerie.net}
end;{delph.forumalgerie.net}
{delph.forumalgerie.net}
procedure TForm4.BitBtn8Click(Sender: TObject);{delph.forumalgerie.net}
begin{delph.forumalgerie.net}
 with DataModuleMarche do begin  //////////////////////{delph.forumalgerie.net}
  Table5.First;{delph.forumalgerie.net}
  Table5.Edit;{delph.forumalgerie.net}
  Table5['Marchkrid'] := CurrToStr(Table5Marchkrid.Value+{delph.forumalgerie.net}
  StrToCurr(Edit5.Text));{delph.forumalgerie.net}
  Table5.Post;{delph.forumalgerie.net}
  Edit6.Text := Table5Marchkrid.Text;{delph.forumalgerie.net}
  Edit5.Text := ''; end; /////////////{delph.forumalgerie.net}
end;{delph.forumalgerie.net}
{delph.forumalgerie.net}
procedure TForm4.BitBtn10Click(Sender: TObject);{delph.forumalgerie.net}
begin{delph.forumalgerie.net}
 with DataModuleMarche do begin  //////////////////////{delph.forumalgerie.net}
  Table5.First;{delph.forumalgerie.net}
  if MessageDlg('هل تريد حذف هذا المجموع ؟',mtConfirmation,[mbYes,mbNo],0){delph.forumalgerie.net}
  = mrYes then{delph.forumalgerie.net}
  begin{delph.forumalgerie.net}
  Table5.Delete;{delph.forumalgerie.net}
  Edit5.Text := '';{delph.forumalgerie.net}
  Edit6.Text := '';{delph.forumalgerie.net}
  end;{delph.forumalgerie.net}
  if (Table5Marchkrid.Text = '')and(Table5Code.Text = '') then{delph.forumalgerie.net}
  begin{delph.forumalgerie.net}
  Table5.First;{delph.forumalgerie.net}
  Table5.Append;{delph.forumalgerie.net}
  Table5Code.Text := '1';{delph.forumalgerie.net}
  Table5Marchkrid.Value := 0;{delph.forumalgerie.net}
  Table5.Post;{delph.forumalgerie.net}
  end;  end;////////////{delph.forumalgerie.net}
end;{delph.forumalgerie.net}
{delph.forumalgerie.net}
procedure TForm4.BitBtn9Click(Sender: TObject);{delph.forumalgerie.net}
begin{delph.forumalgerie.net}
 with DataModuleMarche do begin  //////////////////////{delph.forumalgerie.net}
  Table5.First;{delph.forumalgerie.net}
  Edit6.Text := Table5Marchkrid.Text; end; //////{delph.forumalgerie.net}
end;{delph.forumalgerie.net}
{delph.forumalgerie.net}
procedure TForm4.Edit5Change(Sender: TObject);{delph.forumalgerie.net}
begin{delph.forumalgerie.net}
  if Edit5.Text <> '' then BitBtn8.Enabled := True{delph.forumalgerie.net}
    else BitBtn8.Enabled := False;{delph.forumalgerie.net}
end;{delph.forumalgerie.net}
{delph.forumalgerie.net}
procedure TForm4.FormCreate(Sender: TObject);{delph.forumalgerie.net}
begin{delph.forumalgerie.net}
Edit6.Hint :='مجموع الديون التي أستدان بها صاحب المحل التجاري';{delph.forumalgerie.net}
Edit6.ShowHint := true;{delph.forumalgerie.net}
  form4.bidimode:=bdRightToLeft;{delph.forumalgerie.net}
  form4.font.charset:=ARABIC_CHARSET;{delph.forumalgerie.net}
  form4.font.name:='Arial';{delph.forumalgerie.net}
  form4.caption:='';{delph.forumalgerie.net}
  form4.Position:=poScreenCenter;{delph.forumalgerie.net}
  form4.cursor:=crDefault;{delph.forumalgerie.net}
  Bevel1.bidimode:=bdRightToLeft;{delph.forumalgerie.net}
  Bevel1.cursor:=crDefault;{delph.forumalgerie.net}
  Label1.bidimode:=bdRightToLeft;{delph.forumalgerie.net}
  Label1.font.charset:=ARABIC_CHARSET;{delph.forumalgerie.net}
  Label1.font.name:='Arial';{delph.forumalgerie.net}
  Label1.caption:='مجــمــوع المبيعات التي تمّ بيعها';{delph.forumalgerie.net}
  Label1.cursor:=crDefault;{delph.forumalgerie.net}
  Label2.bidimode:=bdRightToLeft;{delph.forumalgerie.net}
  Label2.font.charset:=ARABIC_CHARSET;{delph.forumalgerie.net}
  Label2.font.name:='Arial';{delph.forumalgerie.net}
  Label2.caption:='مجــمــوع المشتريات التي تمّ شراؤها';{delph.forumalgerie.net}
  Label2.cursor:=crDefault;{delph.forumalgerie.net}
  Label3.bidimode:=bdRightToLeft;{delph.forumalgerie.net}
  Label3.font.charset:=ARABIC_CHARSET;{delph.forumalgerie.net}
  Label3.font.name:='Arial';{delph.forumalgerie.net}
  Label3.caption:='نسبة مئوية بنسبة للمبيعات % ';{delph.forumalgerie.net}
  Label3.cursor:=crDefault;{delph.forumalgerie.net}
  Label4.bidimode:=bdRightToLeft;{delph.forumalgerie.net}
  Label4.font.charset:=ARABIC_CHARSET;{delph.forumalgerie.net}
  Label4.font.name:='Arial';{delph.forumalgerie.net}
  Label4.caption:='تــــسـجــــيل مجــمــوع المشتريات التي تمّ شراؤها للمحـــل التجاري';{delph.forumalgerie.net}
  Label4.cursor:=crDefault;{delph.forumalgerie.net}
  Label5.bidimode:=bdRightToLeft;{delph.forumalgerie.net}
  Label5.font.charset:=ARABIC_CHARSET;{delph.forumalgerie.net}
  Label5.font.name:='Arial';{delph.forumalgerie.net}
  Label5.caption:='ادخال مجموع ';{delph.forumalgerie.net}
  Label5.cursor:=crDefault;{delph.forumalgerie.net}
  Label6.bidimode:=bdRightToLeft;{delph.forumalgerie.net}
  Label6.font.charset:=ARABIC_CHARSET;{delph.forumalgerie.net}
  Label6.font.name:='Arial';{delph.forumalgerie.net}
  Label6.caption:='أخذ نسخة احتياطية';{delph.forumalgerie.net}
  Label6.cursor:=crHandPoint;{delph.forumalgerie.net}
  Edit1.bidimode:=bdRightToLeft;{delph.forumalgerie.net}
  Edit1.font.charset:=ARABIC_CHARSET;{delph.forumalgerie.net}
  Edit1.font.name:='Arial';{delph.forumalgerie.net}
  Edit1.cursor:=crDefault;{delph.forumalgerie.net}
  BitBtn1.bidimode:=bdRightToLeft;{delph.forumalgerie.net}
  BitBtn1.font.charset:=ARABIC_CHARSET;{delph.forumalgerie.net}
  BitBtn1.font.name:='Arial';{delph.forumalgerie.net}
  BitBtn1.caption:='حذف المجموع';{delph.forumalgerie.net}
  BitBtn1.cursor:=crHandPoint;{delph.forumalgerie.net}
  BitBtn2.bidimode:=bdRightToLeft;{delph.forumalgerie.net}
  BitBtn2.font.charset:=ARABIC_CHARSET;{delph.forumalgerie.net}
  BitBtn2.font.name:='Arial';{delph.forumalgerie.net}
  BitBtn2.caption:='&عـــــودة';{delph.forumalgerie.net}
  BitBtn2.cursor:=crHandPoint;{delph.forumalgerie.net}
  Panel1.bidimode:=bdRightToLeft;{delph.forumalgerie.net}
  Panel1.font.charset:=ARABIC_CHARSET;{delph.forumalgerie.net}
  Panel1.font.name:='Arial';{delph.forumalgerie.net}
  Panel1.cursor:=crDefault;{delph.forumalgerie.net}
  Panel1.Caption:='مجموع المبيعات التي تم بيعها ستسجل هنا';{delph.forumalgerie.net}
  BitBtn3.bidimode:=bdRightToLeft;{delph.forumalgerie.net}
  BitBtn3.font.charset:=ARABIC_CHARSET;{delph.forumalgerie.net}
  BitBtn3.font.name:='Arial';{delph.forumalgerie.net}
  BitBtn3.caption:='تصحــــيح';{delph.forumalgerie.net}
  BitBtn3.cursor:=crHandPoint;{delph.forumalgerie.net}
  StatusBar1.bidimode:=bdRightToLeft;{delph.forumalgerie.net}
  StatusBar1.font.charset:=ARABIC_CHARSET;{delph.forumalgerie.net}
  StatusBar1.font.name:='Arial';{delph.forumalgerie.net}
  StatusBar1.cursor:=crDefault;{delph.forumalgerie.net}
  Edit2.bidimode:=bdRightToLeft;{delph.forumalgerie.net}
  Edit2.font.charset:=ARABIC_CHARSET;{delph.forumalgerie.net}
  Edit2.font.name:='Arial';{delph.forumalgerie.net}
  Edit2.cursor:=crDefault;{delph.forumalgerie.net}
  Edit3.bidimode:=bdRightToLeft;{delph.forumalgerie.net}
  Edit3.font.charset:=ARABIC_CHARSET;{delph.forumalgerie.net}
  Edit3.font.name:='Arial';{delph.forumalgerie.net}
  Edit3.cursor:=crDefault;{delph.forumalgerie.net}
  BitBtn4.bidimode:=bdRightToLeft;{delph.forumalgerie.net}
  BitBtn4.font.charset:=ARABIC_CHARSET;{delph.forumalgerie.net}
  BitBtn4.font.name:='Arial';{delph.forumalgerie.net}
  BitBtn4.caption:='تسجــل';{delph.forumalgerie.net}
  BitBtn4.cursor:=crHandPoint;{delph.forumalgerie.net}
  BitBtn5.bidimode:=bdRightToLeft;{delph.forumalgerie.net}
  BitBtn5.font.charset:=ARABIC_CHARSET;{delph.forumalgerie.net}
  BitBtn5.font.name:='Arial';{delph.forumalgerie.net}
  BitBtn5.caption:='&حساب';{delph.forumalgerie.net}
  BitBtn5.cursor:=crHandPoint;{delph.forumalgerie.net}
  BitBtn6.bidimode:=bdRightToLeft;{delph.forumalgerie.net}
  BitBtn6.font.charset:=ARABIC_CHARSET;{delph.forumalgerie.net}
  BitBtn6.font.name:='Arial';{delph.forumalgerie.net}
  BitBtn6.caption:='مجموع المشتريات';{delph.forumalgerie.net}
  BitBtn6.cursor:=crHandPoint;{delph.forumalgerie.net}
  BitBtn7.bidimode:=bdRightToLeft;{delph.forumalgerie.net}
  BitBtn7.font.charset:=ARABIC_CHARSET;{delph.forumalgerie.net}
  BitBtn7.font.name:='Arial';{delph.forumalgerie.net}
  BitBtn7.caption:='&مـــــســـــح';{delph.forumalgerie.net}
  BitBtn7.cursor:=crHandPoint;{delph.forumalgerie.net}
  Edit4.bidimode:=bdRightToLeft;{delph.forumalgerie.net}
  Edit4.font.charset:=ARABIC_CHARSET;{delph.forumalgerie.net}
  Edit4.font.name:='Arial';{delph.forumalgerie.net}
  Edit4.cursor:=crDefault;{delph.forumalgerie.net}
  Edit5.bidimode:=bdRightToLeft;{delph.forumalgerie.net}
  Edit5.font.charset:=ARABIC_CHARSET;{delph.forumalgerie.net}
  Edit5.font.name:='Arial';{delph.forumalgerie.net}
  Edit5.cursor:=crDefault;{delph.forumalgerie.net}
  BitBtn8.bidimode:=bdRightToLeft;{delph.forumalgerie.net}
  BitBtn8.font.charset:=ARABIC_CHARSET;{delph.forumalgerie.net}
  BitBtn8.font.name:='Arial';{delph.forumalgerie.net}
  BitBtn8.caption:='دين المحل';{delph.forumalgerie.net}
  BitBtn8.cursor:=crHandPoint;{delph.forumalgerie.net}
  BitBtn9.bidimode:=bdRightToLeft;{delph.forumalgerie.net}
  BitBtn9.font.charset:=ARABIC_CHARSET;{delph.forumalgerie.net}
  BitBtn9.font.name:='Arial';{delph.forumalgerie.net}
  BitBtn9.caption:='مجموع الدين';{delph.forumalgerie.net}
  BitBtn9.cursor:=crHandPoint;{delph.forumalgerie.net}
  Edit6.bidimode:=bdRightToLeft;{delph.forumalgerie.net}
  Edit6.font.charset:=ARABIC_CHARSET;{delph.forumalgerie.net}
  Edit6.font.name:='Arial';{delph.forumalgerie.net}
  Edit6.cursor:=crDefault;{delph.forumalgerie.net}
  BitBtn10.bidimode:=bdRightToLeft;{delph.forumalgerie.net}
  BitBtn10.font.charset:=ARABIC_CHARSET;{delph.forumalgerie.net}
  BitBtn10.font.name:='Arial';{delph.forumalgerie.net}
  BitBtn10.caption:='حـــذف مجــمو ع الديـن';{delph.forumalgerie.net}
  BitBtn10.cursor:=crHandPoint;{delph.forumalgerie.net}
end;{delph.forumalgerie.net}
{delph.forumalgerie.net}
procedure TForm4.FormDestroy(Sender: TObject);{delph.forumalgerie.net}
begin{delph.forumalgerie.net}
  edit1.free;{delph.forumalgerie.net}
  edit2.free;{delph.forumalgerie.net}
  edit3.free;{delph.forumalgerie.net}
  edit4.free;{delph.forumalgerie.net}
  edit5.free;{delph.forumalgerie.net}
  edit6.free;{delph.forumalgerie.net}
  label1.free;{delph.forumalgerie.net}
  label2.free;{delph.forumalgerie.net}
  label3.free;{delph.forumalgerie.net}
  label4.free;{delph.forumalgerie.net}
  label5.free;{delph.forumalgerie.net}
  bitbtn1.free;{delph.forumalgerie.net}
  bitbtn2.free;{delph.forumalgerie.net}
  bitbtn3.free;{delph.forumalgerie.net}
  bitbtn4.free;{delph.forumalgerie.net}
  bitbtn5.free;{delph.forumalgerie.net}
  bitbtn6.free;{delph.forumalgerie.net}
  bitbtn7.free;{delph.forumalgerie.net}
  bitbtn8.free;{delph.forumalgerie.net}
  bitbtn9.free;{delph.forumalgerie.net}
  bitbtn10.free;{delph.forumalgerie.net}
  panel1.Free;{delph.forumalgerie.net}
  StatusBar1.Free;{delph.forumalgerie.net}
  Bevel1.Free;{delph.forumalgerie.net}
end;{delph.forumalgerie.net}
{delph.forumalgerie.net}
procedure TForm4.Label6Click(Sender: TObject);{delph.forumalgerie.net}
begin{delph.forumalgerie.net}
 if MessageDlg('هل تريد أخذ نسخة احتياطية',{delph.forumalgerie.net}
  mtConfirmation,[mbYes,mbNoToAll],0){delph.forumalgerie.net}
  = mrYes then begin{delph.forumalgerie.net}
  with DataModuleMarche do begin  //////////////////////{delph.forumalgerie.net}
s:='Stocage'+FormatDateTime('DD_MM_YYYY',now);{delph.forumalgerie.net}
 if not DirectoryExists(s) then{delph.forumalgerie.net}
    CreateDir(s);{delph.forumalgerie.net}
  enregistrements(Sender,Table1);{delph.forumalgerie.net}
  Showmessage('تم حفظ كل السلع في المجلد  '+S);{delph.forumalgerie.net}
{delph.forumalgerie.net}
  if MessageDlg('هل تريد حفظ مبالغ البيع والشراء ؟',{delph.forumalgerie.net}
  mtConfirmation,[mbYes,mbNo],0){delph.forumalgerie.net}
  = mrYes then{delph.forumalgerie.net}
  enregistrements(Sender,Table3);{delph.forumalgerie.net}
{delph.forumalgerie.net}
  if MessageDlg('هل تريد حفظ الديون المتعلقة بالمحل التجاري ؟',{delph.forumalgerie.net}
  mtConfirmation,[mbYes,mbNo],0){delph.forumalgerie.net}
  = mrYes then{delph.forumalgerie.net}
  enregistrements(Sender,Table5);{delph.forumalgerie.net}
{delph.forumalgerie.net}
  if MessageDlg('هل تريد  حفظ تحذيرات و TVA ؟',{delph.forumalgerie.net}
  mtConfirmation,[mbYes,mbNo],0){delph.forumalgerie.net}
  = mrYes then{delph.forumalgerie.net}
  enregistrements(Sender,Table2);{delph.forumalgerie.net}
{delph.forumalgerie.net}
  if MessageDlg('هل تريد  حفظ اصحاب الديون ؟',{delph.forumalgerie.net}
  mtConfirmation,[mbYes,mbNo],0){delph.forumalgerie.net}
  = mrYes then{delph.forumalgerie.net}
  enregistrements(Sender,Table4);end; end;{delph.forumalgerie.net}
end;{delph.forumalgerie.net}
{delph.forumalgerie.net}
procedure TForm4.enregistrements;{delph.forumalgerie.net}
begin{delph.forumalgerie.net}
  DataModuleMarche.tblDestination.TableName := s+'\'+tblMove.TableName;{delph.forumalgerie.net}
  DataModuleMarche.BatchMove1.Source :=tblMove;{delph.forumalgerie.net}
  DataModuleMarche.BatchMove1.Destination :=DataModuleMarche.tblDestination;{delph.forumalgerie.net}
  DataModuleMarche.BatchMove1.Mode :=batCopy;{delph.forumalgerie.net}
  DataModuleMarche.BatchMove1.Execute;{delph.forumalgerie.net}
end;{delph.forumalgerie.net}
{delph.forumalgerie.net}
end.{delph.forumalgerie.net}



_________________
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

ali1
مبرمج مجتهد

عدد المساهمات : 861
تاريخ التسجيل : 29/07/2013

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: النسخة الجديدة من برنامج برنامج تسيير محل تجاري

مُساهمة  ali1 في 27/3/2017, 1:34 pm

الوحدة الخامسة
الكود:


unit Unit5;{delph.forumalgerie.net}
{delph.forumalgerie.net}
interface{delph.forumalgerie.net}
{delph.forumalgerie.net}
uses{delph.forumalgerie.net}
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,{delph.forumalgerie.net}
  ComCtrls, ExtCtrls, StdCtrls, Buttons, Db, DBTables, Grids, DBGrids;{delph.forumalgerie.net}
{delph.forumalgerie.net}
type{delph.forumalgerie.net}
  TForm5 = class(TForm){delph.forumalgerie.net}
    Panel1: TPanel;{delph.forumalgerie.net}
    StatusBar1: TStatusBar;{delph.forumalgerie.net}
    Edit1: TEdit;{delph.forumalgerie.net}
    Edit2: TEdit;{delph.forumalgerie.net}
    Edit3: TEdit;{delph.forumalgerie.net}
    Label1: TLabel;{delph.forumalgerie.net}
    Label2: TLabel;{delph.forumalgerie.net}
    Label3: TLabel;{delph.forumalgerie.net}
    ComboBox1: TComboBox;{delph.forumalgerie.net}
    DBGrid1: TDBGrid;{delph.forumalgerie.net}
    CheckBox1: TCheckBox;{delph.forumalgerie.net}
    BitBtn2: TBitBtn;{delph.forumalgerie.net}
    BitBtn3: TBitBtn;{delph.forumalgerie.net}
    BitBtn4: TBitBtn;{delph.forumalgerie.net}
    BitBtn5: TBitBtn;{delph.forumalgerie.net}
    Label4: TLabel;{delph.forumalgerie.net}
    BitBtn6: TBitBtn;{delph.forumalgerie.net}
    Bevel1: TBevel;{delph.forumalgerie.net}
    Bevel2: TBevel;{delph.forumalgerie.net}
    BitBtn7: TBitBtn;{delph.forumalgerie.net}
    BitBtn1: TBitBtn;{delph.forumalgerie.net}
    procedure FormClose(Sender: TObject; var Action: TCloseAction);{delph.forumalgerie.net}
    procedure FormActivate(Sender: TObject);{delph.forumalgerie.net}
    procedure BitBtn1Click(Sender: TObject);{delph.forumalgerie.net}
    procedure FormCreate(Sender: TObject);{delph.forumalgerie.net}
    procedure FormShow(Sender: TObject);{delph.forumalgerie.net}
    procedure ComboBox1Change(Sender: TObject);{delph.forumalgerie.net}
    procedure CheckBox1Click(Sender: TObject);{delph.forumalgerie.net}
    procedure BitBtn3Click(Sender: TObject);{delph.forumalgerie.net}
    procedure BitBtn4Click(Sender: TObject);{delph.forumalgerie.net}
    procedure BitBtn5Click(Sender: TObject);{delph.forumalgerie.net}
    procedure BitBtn6Click(Sender: TObject);{delph.forumalgerie.net}
    procedure BitBtn6MouseMove(Sender: TObject; Shift: TShiftState; X,{delph.forumalgerie.net}
      Y: Integer);{delph.forumalgerie.net}
    procedure BitBtn3MouseMove(Sender: TObject; Shift: TShiftState; X,{delph.forumalgerie.net}
      Y: Integer);{delph.forumalgerie.net}
    procedure BitBtn5MouseMove(Sender: TObject; Shift: TShiftState; X,{delph.forumalgerie.net}
      Y: Integer);{delph.forumalgerie.net}
    procedure BitBtn4MouseMove(Sender: TObject; Shift: TShiftState; X,{delph.forumalgerie.net}
      Y: Integer);{delph.forumalgerie.net}
    procedure BitBtn2MouseMove(Sender: TObject; Shift: TShiftState; X,{delph.forumalgerie.net}
      Y: Integer);{delph.forumalgerie.net}
    procedure Edit1Change(Sender: TObject);{delph.forumalgerie.net}
    procedure DBGrid1MouseMove(Sender: TObject; Shift: TShiftState; X,{delph.forumalgerie.net}
      Y: Integer);{delph.forumalgerie.net}
    procedure BitBtn7Click(Sender: TObject);{delph.forumalgerie.net}
    procedure FormDestroy(Sender: TObject);{delph.forumalgerie.net}
  private public{delph.forumalgerie.net}
  end;{delph.forumalgerie.net}
{delph.forumalgerie.net}
var{delph.forumalgerie.net}
  Form5: TForm5; j: Integer;{delph.forumalgerie.net}
{delph.forumalgerie.net}
implementation{delph.forumalgerie.net}
{delph.forumalgerie.net}
uses Unit1, UnitDataModuleMarche;{delph.forumalgerie.net}
{delph.forumalgerie.net}
{$R *.DFM}{delph.forumalgerie.net}
{delph.forumalgerie.net}
procedure TForm5.FormClose(Sender: TObject; var Action: TCloseAction);{delph.forumalgerie.net}
begin{delph.forumalgerie.net}
  Form1.Visible := True;{delph.forumalgerie.net}
  Form1.Timer1.Enabled := True;{delph.forumalgerie.net}
end;{delph.forumalgerie.net}
{delph.forumalgerie.net}
procedure TForm5.FormActivate(Sender: TObject);{delph.forumalgerie.net}
begin{delph.forumalgerie.net}
  Form5.Left := 163;{delph.forumalgerie.net}
  Form5.Top := 86;{delph.forumalgerie.net}
  Form5.Height := 449;{delph.forumalgerie.net}
  Form5.Width := 585;{delph.forumalgerie.net}
end;{delph.forumalgerie.net}
{delph.forumalgerie.net}
procedure TForm5.BitBtn1Click(Sender: TObject);{delph.forumalgerie.net}
var booll: boolean;{delph.forumalgerie.net}
begin{delph.forumalgerie.net}
with DataModuleMarche do begin /////////////{delph.forumalgerie.net}
 if ComboBox1.Text <> 'خيارات' then begin{delph.forumalgerie.net}
  booll := False;{delph.forumalgerie.net}
  Table4.DisableControls;{delph.forumalgerie.net}
  try{delph.forumalgerie.net}
  Table4.First;{delph.forumalgerie.net}
  while not Table4.Eof do{delph.forumalgerie.net}
  begin{delph.forumalgerie.net}
  if ComboBox1.Text = Table4Nom.Value then booll := True;{delph.forumalgerie.net}
  Table4.Next;{delph.forumalgerie.net}
  end;{delph.forumalgerie.net}
  finally{delph.forumalgerie.net}
    Table4.EnableControls; end;{delph.forumalgerie.net}
{delph.forumalgerie.net}
  if (booll = False)or(Table4Code.Text = '') then{delph.forumalgerie.net}
  begin{delph.forumalgerie.net}
  Table4.Last;{delph.forumalgerie.net}
  if Table4Code.Text = '' then j := 0{delph.forumalgerie.net}
    else j := strtoint(Table4Code.Text);{delph.forumalgerie.net}
  j := j + 1;{delph.forumalgerie.net}
  Table4.Append;{delph.forumalgerie.net}
  Table4Code.Text :=  inttostr(j);{delph.forumalgerie.net}
  Table4Nom.Value := ComboBox1.Text;{delph.forumalgerie.net}
  Table4Nom_krid.Text := Edit1.Text;{delph.forumalgerie.net}
  Table4Datetimes.Value := Now;{delph.forumalgerie.net}
  Table4.Post;{delph.forumalgerie.net}
  end else if booll = True then //strtoCurr(){delph.forumalgerie.net}
  begin{delph.forumalgerie.net}
  Table4.Locate('Nom',ComboBox1.Text,[LopartialKey]);{delph.forumalgerie.net}
  Table4.Edit;{delph.forumalgerie.net}
  Table4['Nom_krid'] := Table4Nom_krid.Value + strtoCurr(Edit1.Text);{delph.forumalgerie.net}
  Table4.Post;{delph.forumalgerie.net}
  end;{delph.forumalgerie.net}
  Combobox1.Clear;{delph.forumalgerie.net}
  Combobox1.Text := 'خيارات';{delph.forumalgerie.net}
{delph.forumalgerie.net}
  Table4.DisableControls;{delph.forumalgerie.net}
  try{delph.forumalgerie.net}
  Table4.First;{delph.forumalgerie.net}
  while not Table4.Eof do{delph.forumalgerie.net}
  begin{delph.forumalgerie.net}
    Combobox1.Items.Add(Table4Nom.Value);{delph.forumalgerie.net}
    Table4.Next;{delph.forumalgerie.net}
  end;{delph.forumalgerie.net}
  finally{delph.forumalgerie.net}
    Table4.EnableControls; end;{delph.forumalgerie.net}
    {delph.forumalgerie.net}
  end;  end;{delph.forumalgerie.net}
 Edit1.Text := '';{delph.forumalgerie.net}
end;{delph.forumalgerie.net}
{delph.forumalgerie.net}
procedure TForm5.FormCreate(Sender: TObject);{delph.forumalgerie.net}
begin{delph.forumalgerie.net}
  form5.bidimode:=bdRightToLeft;{delph.forumalgerie.net}
  form5.font.charset:=ARABIC_CHARSET;{delph.forumalgerie.net}
  form5.font.name:='Arial';{delph.forumalgerie.net}
  form5.caption:='';{delph.forumalgerie.net}
  form5.Position:=poScreenCenter;{delph.forumalgerie.net}
  form5.cursor:=crDefault;{delph.forumalgerie.net}
  form5.bidimode:=bdRightToLeft;{delph.forumalgerie.net}
  form5.font.charset:=ARABIC_CHARSET;{delph.forumalgerie.net}
  form5.font.name:='Arial';{delph.forumalgerie.net}
  form5.caption:='';{delph.forumalgerie.net}
  form5.Position:=poScreenCenter;{delph.forumalgerie.net}
  form5.cursor:=crDefault;{delph.forumalgerie.net}
  Label1.bidimode:=bdRightToLeft;{delph.forumalgerie.net}
  Label1.font.charset:=ARABIC_CHARSET;{delph.forumalgerie.net}
  Label1.font.name:='Arial';{delph.forumalgerie.net}
  Label1.caption:='الاســم';{delph.forumalgerie.net}
  Label1.cursor:=crDefault; {delph.forumalgerie.net}
  Label2.bidimode:=bdRightToLeft;{delph.forumalgerie.net}
  Label2.font.charset:=ARABIC_CHARSET;{delph.forumalgerie.net}
  Label2.font.name:='Arial';{delph.forumalgerie.net}
  Label2.caption:='الـمـــبــلـــغ';{delph.forumalgerie.net}
  Label2.cursor:=crDefault;{delph.forumalgerie.net}
  Label3.bidimode:=bdRightToLeft;{delph.forumalgerie.net}
  Label3.font.charset:=ARABIC_CHARSET;{delph.forumalgerie.net}
  Label3.font.name:='Arial';{delph.forumalgerie.net}
  Label3.caption:='تحذيرات';{delph.forumalgerie.net}
  Label3.cursor:=crDefault;{delph.forumalgerie.net}
  Label4.bidimode:=bdRightToLeft;{delph.forumalgerie.net}
  Label4.font.charset:=ARABIC_CHARSET;{delph.forumalgerie.net}
  Label4.font.name:='Arial';{delph.forumalgerie.net}
  Label4.caption:='TVA ضريبة';{delph.forumalgerie.net}
  Label4.cursor:=crDefault;{delph.forumalgerie.net}
  Bevel1.bidimode:=bdRightToLeft;{delph.forumalgerie.net}
  Bevel2.bidimode:=bdRightToLeft;{delph.forumalgerie.net}
  Panel1.bidimode:=bdRightToLeft;{delph.forumalgerie.net}
  Panel1.font.charset:=ARABIC_CHARSET;{delph.forumalgerie.net}
  Panel1.font.name:='Arial';{delph.forumalgerie.net}
  Panel1.cursor:=crDefault;{delph.forumalgerie.net}
  Panel1.Caption:='اسماء اصحاب الديون والمبالغ المسجلة عليهم';{delph.forumalgerie.net}
  StatusBar1.bidimode:=bdRightToLeft;{delph.forumalgerie.net}
  StatusBar1.font.charset:=ARABIC_CHARSET;{delph.forumalgerie.net}
  StatusBar1.font.name:='Arial';{delph.forumalgerie.net}
  StatusBar1.cursor:=crDefault;{delph.forumalgerie.net}
  Edit1.bidimode:=bdRightToLeft;{delph.forumalgerie.net}
  Edit1.font.charset:=ARABIC_CHARSET;{delph.forumalgerie.net}
  Edit1.font.name:='Arial';{delph.forumalgerie.net}
  Edit1.cursor:=crDefault;{delph.forumalgerie.net}
  Edit2.bidimode:=bdRightToLeft;{delph.forumalgerie.net}
  Edit2.font.charset:=ARABIC_CHARSET;{delph.forumalgerie.net}
  Edit2.font.name:='Arial';{delph.forumalgerie.net}
  Edit2.cursor:=crDefault;{delph.forumalgerie.net}
  Edit3.bidimode:=bdRightToLeft;{delph.forumalgerie.net}
  Edit3.font.charset:=ARABIC_CHARSET;{delph.forumalgerie.net}
  Edit3.font.name:='Arial';{delph.forumalgerie.net}
  Edit3.cursor:=crDefault;{delph.forumalgerie.net}
  ComboBox1.bidimode:=bdRightToLeft;{delph.forumalgerie.net}
  ComboBox1.font.charset:=ARABIC_CHARSET;{delph.forumalgerie.net}
  ComboBox1.font.name:='Arial';{delph.forumalgerie.net}
  ComboBox1.cursor:=crDefault;{delph.forumalgerie.net}
  DBGrid1.bidimode:=bdRightToLeft;{delph.forumalgerie.net}
  DBGrid1.font.charset:=ARABIC_CHARSET;{delph.forumalgerie.net}
  DBGrid1.font.name:='Arial';{delph.forumalgerie.net}
  DBGrid1.cursor:=crDefault;{delph.forumalgerie.net}
  CheckBox1.bidimode:=bdRightToLeft;{delph.forumalgerie.net}
  CheckBox1.font.charset:=ARABIC_CHARSET;{delph.forumalgerie.net}
  CheckBox1.font.name:='Arial';{delph.forumalgerie.net}
  CheckBox1.caption:='تسجيل';{delph.forumalgerie.net}
  CheckBox1.cursor:=crDefault;{delph.forumalgerie.net}
  BitBtn2.bidimode:=bdRightToLeft;{delph.forumalgerie.net}
  BitBtn2.font.charset:=ARABIC_CHARSET;{delph.forumalgerie.net}
  BitBtn2.font.name:='Arial';{delph.forumalgerie.net}
  BitBtn2.caption:='&عــودة';{delph.forumalgerie.net}
  BitBtn2.cursor:=crHandPoint;{delph.forumalgerie.net}
  BitBtn3.bidimode:=bdRightToLeft;{delph.forumalgerie.net}
  BitBtn3.font.charset:=ARABIC_CHARSET;{delph.forumalgerie.net}
  BitBtn3.font.name:='Arial';{delph.forumalgerie.net}
  BitBtn3.caption:='حـــذف';{delph.forumalgerie.net}
  BitBtn3.cursor:=crHandPoint;{delph.forumalgerie.net}
  BitBtn4.bidimode:=bdRightToLeft;{delph.forumalgerie.net}
  BitBtn4.font.charset:=ARABIC_CHARSET;{delph.forumalgerie.net}
  BitBtn4.font.name:='Arial';{delph.forumalgerie.net}
  BitBtn4.caption:='تصحيح';{delph.forumalgerie.net}
  BitBtn4.cursor:=crHandPoint;{delph.forumalgerie.net}
  BitBtn5.bidimode:=bdRightToLeft;{delph.forumalgerie.net}
  BitBtn5.font.charset:=ARABIC_CHARSET;{delph.forumalgerie.net}
  BitBtn5.font.name:='Arial';{delph.forumalgerie.net}
  BitBtn5.caption:='مسح';{delph.forumalgerie.net}
  BitBtn5.cursor:=crHandPoint;{delph.forumalgerie.net}
  BitBtn6.bidimode:=bdRightToLeft;{delph.forumalgerie.net}
  BitBtn6.font.charset:=ARABIC_CHARSET;{delph.forumalgerie.net}
  BitBtn6.font.name:='Arial';{delph.forumalgerie.net}
  BitBtn6.caption:='تسجيل ';{delph.forumalgerie.net}
  BitBtn6.cursor:=crHandPoint;{delph.forumalgerie.net}
  BitBtn7.bidimode:=bdRightToLeft;{delph.forumalgerie.net}
  BitBtn7.font.charset:=ARABIC_CHARSET;{delph.forumalgerie.net}
  BitBtn7.font.name:='Arial';{delph.forumalgerie.net}
  BitBtn7.caption:='تسديد بالتقسيط';{delph.forumalgerie.net}
  BitBtn7.cursor:=crHandPoint;{delph.forumalgerie.net}
  BitBtn1.bidimode:=bdRightToLeft;{delph.forumalgerie.net}
  BitBtn1.font.charset:=ARABIC_CHARSET;{delph.forumalgerie.net}
  BitBtn1.font.name:='Arial';{delph.forumalgerie.net}
  BitBtn1.caption:='تسجيل';{delph.forumalgerie.net}
  BitBtn1.cursor:=crHandPoint;{delph.forumalgerie.net}
end;{delph.forumalgerie.net}
{delph.forumalgerie.net}
procedure TForm5.FormShow(Sender: TObject);{delph.forumalgerie.net}
begin          {delph.forumalgerie.net}
  Combobox1.Clear;{delph.forumalgerie.net}
  Combobox1.Text := 'خيارات';{delph.forumalgerie.net}
 with DataModuleMarche do begin /////////////{delph.forumalgerie.net}
  Table4.DisableControls;{delph.forumalgerie.net}
  try{delph.forumalgerie.net}
  Table4.First;{delph.forumalgerie.net}
  while not Table4.Eof do{delph.forumalgerie.net}
  begin{delph.forumalgerie.net}
    Combobox1.Items.Add(Table4Nom.Value);{delph.forumalgerie.net}
    Table4.Next;{delph.forumalgerie.net}
  end;{delph.forumalgerie.net}
  finally{delph.forumalgerie.net}
    Table4.EnableControls; end;{delph.forumalgerie.net}
{delph.forumalgerie.net}
  Table2.First;{delph.forumalgerie.net}
  Edit2.Text := Table2Aton_tion.Value;{delph.forumalgerie.net}
  Edit3.Text := Table2TVA.Value;end;{delph.forumalgerie.net}
  CheckBox1.Checked := False; {delph.forumalgerie.net}
end;{delph.forumalgerie.net}
{delph.forumalgerie.net}
procedure TForm5.ComboBox1Change(Sender: TObject);{delph.forumalgerie.net}
begin{delph.forumalgerie.net}
 with DataModuleMarche do begin /////////////{delph.forumalgerie.net}
  Table4.Locate('Nom',Combobox1.Text,[LopartialKey]);{delph.forumalgerie.net}
  Edit1.Text := Table4Nom_krid.Text;end;{delph.forumalgerie.net}
end;{delph.forumalgerie.net}
{delph.forumalgerie.net}
procedure TForm5.CheckBox1Click(Sender: TObject);{delph.forumalgerie.net}
begin{delph.forumalgerie.net}
  if CheckBox1.Checked = True then  BitBtn1.Visible := True{delph.forumalgerie.net}
      else BitBtn1.Visible := False;{delph.forumalgerie.net}
  CheckBox1.Caption := '';{delph.forumalgerie.net}
end;{delph.forumalgerie.net}
{delph.forumalgerie.net}
procedure TForm5.BitBtn3Click(Sender: TObject);{delph.forumalgerie.net}
begin{delph.forumalgerie.net}
 with DataModuleMarche do begin /////////////{delph.forumalgerie.net}
  Table4.Locate('Nom',ComboBox1.Text,[LopartialKey]);{delph.forumalgerie.net}
  if MessageDlg{delph.forumalgerie.net}
  ('هــل تريد حذف هذا الشخص من قائمة الديون',mtConfirmation,[mbYes,mbNo],0){delph.forumalgerie.net}
      = mrYes then{delph.forumalgerie.net}
  begin{delph.forumalgerie.net}
  Table4.Delete;{delph.forumalgerie.net}
  Edit1.Text := '';{delph.forumalgerie.net}
    Combobox1.Clear;{delph.forumalgerie.net}
  Combobox1.Text := 'خيارات';{delph.forumalgerie.net}
  Table4.DisableControls;{delph.forumalgerie.net}
  try{delph.forumalgerie.net}
  Table4.First;{delph.forumalgerie.net}
  while not Table4.Eof do{delph.forumalgerie.net}
  begin{delph.forumalgerie.net}
    Combobox1.Items.Add(Table4Nom.Value);{delph.forumalgerie.net}
    Table4.Next;{delph.forumalgerie.net}
  end;{delph.forumalgerie.net}
  finally{delph.forumalgerie.net}
    Table4.EnableControls; end;{delph.forumalgerie.net}
  end;  end;{delph.forumalgerie.net}
end;{delph.forumalgerie.net}
{delph.forumalgerie.net}
procedure TForm5.BitBtn4Click(Sender: TObject);{delph.forumalgerie.net}
begin{delph.forumalgerie.net}
with DataModuleMarche do begin /////////////{delph.forumalgerie.net}
  Table4.Locate('Nom',ComboBox1.Text,[LopartialKey]);{delph.forumalgerie.net}
  Table4.Edit;{delph.forumalgerie.net}
  Table4['Nom'] := ComboBox1.Text;{delph.forumalgerie.net}
  Table4['Nom_krid'] := Edit1.Text;{delph.forumalgerie.net}
  Table4.Post;{delph.forumalgerie.net}
  Combobox1.Clear;{delph.forumalgerie.net}
  Combobox1.Text := 'خيارات';{delph.forumalgerie.net}
  Table4.DisableControls;{delph.forumalgerie.net}
  try{delph.forumalgerie.net}
  Table4.First;{delph.forumalgerie.net}
  while not Table4.Eof do{delph.forumalgerie.net}
  begin{delph.forumalgerie.net}
    Combobox1.Items.Add(Table4Nom.Value);{delph.forumalgerie.net}
    Table4.Next;{delph.forumalgerie.net}
  end;{delph.forumalgerie.net}
  finally{delph.forumalgerie.net}
    Table4.EnableControls; end;  end;{delph.forumalgerie.net}
      {delph.forumalgerie.net}
end;{delph.forumalgerie.net}
{delph.forumalgerie.net}
procedure TForm5.BitBtn5Click(Sender: TObject);{delph.forumalgerie.net}
begin{delph.forumalgerie.net}
  Edit1.Text := '';{delph.forumalgerie.net}
end;{delph.forumalgerie.net}
{delph.forumalgerie.net}
procedure TForm5.BitBtn6Click(Sender: TObject);{delph.forumalgerie.net}
begin{delph.forumalgerie.net}
 if (Edit2.Text <> '')and(Edit3.Text <> '') then{delph.forumalgerie.net}
 begin{delph.forumalgerie.net}
 with DataModuleMarche do begin /////////////{delph.forumalgerie.net}
  Table2.Edit;{delph.forumalgerie.net}
  Table2['Code'] := '1';{delph.forumalgerie.net}
  Table2['Aton_tion'] := Edit2.Text;{delph.forumalgerie.net}
  Table2['TVA'] := Edit3.Text;{delph.forumalgerie.net}
  Table2.Post;{delph.forumalgerie.net}
 end; end;{delph.forumalgerie.net}
end;{delph.forumalgerie.net}
{delph.forumalgerie.net}
procedure TForm5.BitBtn6MouseMove(Sender: TObject; Shift: TShiftState; X,{delph.forumalgerie.net}
  Y: Integer);{delph.forumalgerie.net}
begin{delph.forumalgerie.net}
 StatusBar1.SimpleText :={delph.forumalgerie.net}
 'تسجيل الضريبة( TVA )  والتحذيرات في حالة نفاذ احدى السلع من المحل التجاري';{delph.forumalgerie.net}
end;{delph.forumalgerie.net}
{delph.forumalgerie.net}
procedure TForm5.BitBtn3MouseMove(Sender: TObject; Shift: TShiftState; X,{delph.forumalgerie.net}
  Y: Integer);{delph.forumalgerie.net}
begin{delph.forumalgerie.net}
 StatusBar1.SimpleText :={delph.forumalgerie.net}
 'في حالة اختيار نعم (Oui) يتم الحذف ولا تستطيع التراجع عن الحذف وفي حالة العكس  اختر لا(Non)';{delph.forumalgerie.net}
end;{delph.forumalgerie.net}
{delph.forumalgerie.net}
procedure TForm5.BitBtn5MouseMove(Sender: TObject; Shift: TShiftState; X,{delph.forumalgerie.net}
  Y: Integer);{delph.forumalgerie.net}
begin{delph.forumalgerie.net}
 StatusBar1.SimpleText := 'مسح ماهو ظاهر في مربع المبلغ';{delph.forumalgerie.net}
end;{delph.forumalgerie.net}
{delph.forumalgerie.net}
procedure TForm5.BitBtn4MouseMove(Sender: TObject; Shift: TShiftState; X,{delph.forumalgerie.net}
  Y: Integer);{delph.forumalgerie.net}
begin{delph.forumalgerie.net}
 StatusBar1.SimpleText :={delph.forumalgerie.net}
  'تصحيح الاخطاء التي يحتمل  ان ترتكب اثناء الكتابة وذلك بالكتابة الصحيحة ';{delph.forumalgerie.net}
end;{delph.forumalgerie.net}
{delph.forumalgerie.net}
procedure TForm5.BitBtn2MouseMove(Sender: TObject; Shift: TShiftState; X,{delph.forumalgerie.net}
  Y: Integer);{delph.forumalgerie.net}
begin{delph.forumalgerie.net}
 StatusBar1.SimpleText := 'عودة الى الصفحة الرئيسية من البرنامج';{delph.forumalgerie.net}
end;{delph.forumalgerie.net}
{delph.forumalgerie.net}
procedure TForm5.Edit1Change(Sender: TObject);{delph.forumalgerie.net}
begin{delph.forumalgerie.net}
 if Edit1.Text = '' then begin BitBtn4.Enabled := False;{delph.forumalgerie.net}
  BitBtn7.Enabled := False; end{delph.forumalgerie.net}
    else begin BitBtn4.Enabled := True; BitBtn7.Enabled := True; end;{delph.forumalgerie.net}
end;{delph.forumalgerie.net}
{delph.forumalgerie.net}
procedure TForm5.DBGrid1MouseMove(Sender: TObject; Shift: TShiftState; X,{delph.forumalgerie.net}
  Y: Integer);{delph.forumalgerie.net}
begin{delph.forumalgerie.net}
  StatusBar1.SimpleText := 'لا يمكن تسجيل من هنا';{delph.forumalgerie.net}
end;{delph.forumalgerie.net}
{delph.forumalgerie.net}
procedure TForm5.BitBtn7Click(Sender: TObject);{delph.forumalgerie.net}
begin{delph.forumalgerie.net}
 with DataModuleMarche do begin /////////////{delph.forumalgerie.net}
 if (ComboBox1.Text <> '')and(ComboBox1.Text <> 'خيارات')then{delph.forumalgerie.net}
 begin{delph.forumalgerie.net}
  Table4.First;{delph.forumalgerie.net}
  if strtoCurr(Edit1.Text) > Table4Nom_krid.Value then{delph.forumalgerie.net}
        Showmessage('المبلغ الذي تم ادخاله أكبر من الدين'){delph.forumalgerie.net}
  else{delph.forumalgerie.net}
  begin{delph.forumalgerie.net}
    Table4.Locate('Nom',ComboBox1.Text,[LopartialKey]);{delph.forumalgerie.net}
    Table4.Edit;{delph.forumalgerie.net}
    Table4['Nom_krid']:=Table4Nom_krid.Value-strtoCurr(Edit1.Text);{delph.forumalgerie.net}
    Table4.Post;{delph.forumalgerie.net}
  end;{delph.forumalgerie.net}
  Edit1.Text := '';{delph.forumalgerie.net}
 end;  end;{delph.forumalgerie.net}
end;{delph.forumalgerie.net}
{delph.forumalgerie.net}
procedure TForm5.FormDestroy(Sender: TObject);{delph.forumalgerie.net}
begin{delph.forumalgerie.net}
 edit1.free;{delph.forumalgerie.net}
 edit2.free;{delph.forumalgerie.net}
 edit3.free;{delph.forumalgerie.net}
 bitbtn1.free;{delph.forumalgerie.net}
 bitbtn2.free;{delph.forumalgerie.net}
 bitbtn3.free;{delph.forumalgerie.net}
 bitbtn4.free;{delph.forumalgerie.net}
 bitbtn5.free;{delph.forumalgerie.net}
 bitbtn6.free;{delph.forumalgerie.net}
 bitbtn7.free;{delph.forumalgerie.net}
 combobox1.free;{delph.forumalgerie.net}
 CheckBox1.Free;{delph.forumalgerie.net}
 bevel1.Free;{delph.forumalgerie.net}
 StatusBar1.Free;{delph.forumalgerie.net}
 panel1.Free;{delph.forumalgerie.net}
 dbgrid1.Free;{delph.forumalgerie.net}
 label1.Free;{delph.forumalgerie.net}
 label2.Free;{delph.forumalgerie.net}
 label3.Free;{delph.forumalgerie.net}
 label4.Free;{delph.forumalgerie.net}
end;{delph.forumalgerie.net}
{delph.forumalgerie.net}
end.{delph.forumalgerie.net}



_________________
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

ali1
مبرمج مجتهد

عدد المساهمات : 861
تاريخ التسجيل : 29/07/2013

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: النسخة الجديدة من برنامج برنامج تسيير محل تجاري

مُساهمة  ali1 في 27/3/2017, 1:37 pm

الوحدة السادسة
الكود:


unit UnitDataModuleMarche;{delph.forumalgerie.net}
{delph.forumalgerie.net}
interface{delph.forumalgerie.net}
{delph.forumalgerie.net}
uses{delph.forumalgerie.net}
  SysUtils, Classes, DB, DBTables;{delph.forumalgerie.net}
{delph.forumalgerie.net}
type{delph.forumalgerie.net}
  TDataModuleMarche = class(TDataModule){delph.forumalgerie.net}
    Table2: TTable;{delph.forumalgerie.net}
    Table1: TTable;{delph.forumalgerie.net}
    Table2Code: TFloatField;{delph.forumalgerie.net}
    Table2Aton_tion: TStringField;{delph.forumalgerie.net}
    Table2TVA: TStringField;{delph.forumalgerie.net}
    Table1Code: TFloatField;{delph.forumalgerie.net}
    Table1Nom: TStringField;{delph.forumalgerie.net}
    Table1Nombre_P1: TStringField;{delph.forumalgerie.net}
    Table1Nombre_P2: TStringField;{delph.forumalgerie.net}
    Table1Prix: TCurrencyField;{delph.forumalgerie.net}
    Table1Prix_Achet: TCurrencyField;{delph.forumalgerie.net}
    Table1DateTimes: TDateTimeField;{delph.forumalgerie.net}
    Table3: TTable;{delph.forumalgerie.net}
    Table4: TTable;{delph.forumalgerie.net}
    Table5: TTable;{delph.forumalgerie.net}
    Table3Code: TFloatField;{delph.forumalgerie.net}
    Table3Grand_Prix: TCurrencyField;{delph.forumalgerie.net}
    Table3Grand_Prix1: TCurrencyField;{delph.forumalgerie.net}
    Table3Datetaimes: TDateTimeField;{delph.forumalgerie.net}
    Table4Code: TFloatField;{delph.forumalgerie.net}
    Table4Nom: TStringField;{delph.forumalgerie.net}
    Table4Nom_krid: TCurrencyField;{delph.forumalgerie.net}
    Table4Datetimes: TDateTimeField;{delph.forumalgerie.net}
    Table5Code: TFloatField;{delph.forumalgerie.net}
    Table5Marchkrid: TCurrencyField;{delph.forumalgerie.net}
    Table5DateTimes: TDateTimeField;{delph.forumalgerie.net}
    Query1: TQuery;{delph.forumalgerie.net}
    Query1Code: TFloatField;{delph.forumalgerie.net}
    Query1Nom: TStringField;{delph.forumalgerie.net}
    Query1Nombre_P1: TStringField;{delph.forumalgerie.net}
    Query1Nombre_P2: TStringField;{delph.forumalgerie.net}
    Query1Prix: TCurrencyField;{delph.forumalgerie.net}
    Query1DateTimes: TDateTimeField;{delph.forumalgerie.net}
    Query1Prix_Achet: TCurrencyField;{delph.forumalgerie.net}
    DataSource1: TDataSource;{delph.forumalgerie.net}
    tblDestination: TTable;{delph.forumalgerie.net}
    BatchMove1: TBatchMove;{delph.forumalgerie.net}
    DataSource4: TDataSource;{delph.forumalgerie.net}
    procedure DataModuleCreate(Sender: TObject);{delph.forumalgerie.net}
    procedure Table1BeforeOpen(DataSet: TDataSet);{delph.forumalgerie.net}
  private{delph.forumalgerie.net}
  public{delph.forumalgerie.net}
  end;{delph.forumalgerie.net}
{delph.forumalgerie.net}
const pass='19';{delph.forumalgerie.net}
var{delph.forumalgerie.net}
  DataModuleMarche: TDataModuleMarche;{delph.forumalgerie.net}
{delph.forumalgerie.net}
implementation{delph.forumalgerie.net}
{delph.forumalgerie.net}
uses Unit1;{delph.forumalgerie.net}
{$R *.dfm}{delph.forumalgerie.net}
{delph.forumalgerie.net}
procedure TDataModuleMarche.DataModuleCreate(Sender: TObject);{delph.forumalgerie.net}
const{delph.forumalgerie.net}
    NomAlias = 'Marchand';{delph.forumalgerie.net}
var MeList:TStringList;{delph.forumalgerie.net}
 s:string;{delph.forumalgerie.net}
begin{delph.forumalgerie.net}
 if fileexists('tst.txt')then begin{delph.forumalgerie.net}
 MeList:=TStringList.Create;{delph.forumalgerie.net}
 try{delph.forumalgerie.net}
 MeList.LoadFromFile('tst.txt');{delph.forumalgerie.net}
 s:=MeList.Strings[0];{delph.forumalgerie.net}
 finally{delph.forumalgerie.net}
  MeList.Free;{delph.forumalgerie.net}
  end; end else s:=sss;{delph.forumalgerie.net}
 DataModuleMarche.Table1.Close;{delph.forumalgerie.net}
 DataModuleMarche.Table2.Close;{delph.forumalgerie.net}
 DataModuleMarche.Table3.Close;{delph.forumalgerie.net}
 DataModuleMarche.Table4.Close;{delph.forumalgerie.net}
 DataModuleMarche.Table5.Close;{delph.forumalgerie.net}
 DataModuleMarche.Query1.Close;{delph.forumalgerie.net}
 try{delph.forumalgerie.net}
  DataModuleMarche.Table1.DatabaseName:=NomAlias;{delph.forumalgerie.net}
  DataModuleMarche.Table2.DatabaseName:=NomAlias;{delph.forumalgerie.net}
  DataModuleMarche.Table3.DatabaseName:=NomAlias;{delph.forumalgerie.net}
  DataModuleMarche.Table4.DatabaseName:=NomAlias;{delph.forumalgerie.net}
  DataModuleMarche.Table5.DatabaseName:=NomAlias;{delph.forumalgerie.net}
  DataModuleMarche.Query1.DatabaseName:=NomAlias;{delph.forumalgerie.net}
  DataModuleMarche.Table1.TableType := ttParadox;{delph.forumalgerie.net}
  DataModuleMarche.Table2.TableType := ttParadox;{delph.forumalgerie.net}
  DataModuleMarche.Table3.TableType := ttParadox;{delph.forumalgerie.net}
  DataModuleMarche.Table4.TableType := ttParadox;{delph.forumalgerie.net}
  DataModuleMarche.Table5.TableType := ttParadox;{delph.forumalgerie.net}
  DataModuleMarche.Table1.TableName := 'March.DB';{delph.forumalgerie.net}
  DataModuleMarche.Table2.TableName := 'MarchTV.db';{delph.forumalgerie.net}
  DataModuleMarche.Table3.TableName := 'Marche.DB';{delph.forumalgerie.net}
  DataModuleMarche.Table4.TableName := 'Marchkr.DB';{delph.forumalgerie.net}
  DataModuleMarche.Table5.TableName := 'Marchkri.DB';{delph.forumalgerie.net}
  DataModuleMarche.Table1.Open;{delph.forumalgerie.net}
  DataModuleMarche.Table2.Open;{delph.forumalgerie.net}
  DataModuleMarche.Table3.Open;{delph.forumalgerie.net}
  DataModuleMarche.Table4.Open;{delph.forumalgerie.net}
  DataModuleMarche.Table5.Open;{delph.forumalgerie.net}
  DataModuleMarche.Query1.Open;{delph.forumalgerie.net}
 except{delph.forumalgerie.net}
  on EDatabaseError do begin{delph.forumalgerie.net}
  DataModuleMarche.Table1.DatabaseName:=s;{delph.forumalgerie.net}
  DataModuleMarche.Table2.DatabaseName:=s;{delph.forumalgerie.net}
  DataModuleMarche.Table3.DatabaseName:=s;{delph.forumalgerie.net}
  DataModuleMarche.Table4.DatabaseName:=s;{delph.forumalgerie.net}
  DataModuleMarche.Table5.DatabaseName:=s;{delph.forumalgerie.net}
  DataModuleMarche.Query1.DatabaseName:=s;{delph.forumalgerie.net}
  DataModuleMarche.Table1.TableType := ttParadox;{delph.forumalgerie.net}
  DataModuleMarche.Table2.TableType := ttParadox;{delph.forumalgerie.net}
  DataModuleMarche.Table3.TableType := ttParadox;{delph.forumalgerie.net}
  DataModuleMarche.Table4.TableType := ttParadox;{delph.forumalgerie.net}
  DataModuleMarche.Table5.TableType := ttParadox;{delph.forumalgerie.net}
  DataModuleMarche.Table1.TableName := 'March.DB';{delph.forumalgerie.net}
  DataModuleMarche.Table2.TableName := 'MarchTV.db';{delph.forumalgerie.net}
  DataModuleMarche.Table3.TableName := 'Marche.DB';{delph.forumalgerie.net}
  DataModuleMarche.Table4.TableName := 'Marchkr.DB';{delph.forumalgerie.net}
  DataModuleMarche.Table5.TableName := 'Marchkri.DB';{delph.forumalgerie.net}
  DataModuleMarche.Table1.Open;{delph.forumalgerie.net}
  DataModuleMarche.Table2.Open;{delph.forumalgerie.net}
  DataModuleMarche.Table3.Open;{delph.forumalgerie.net}
  DataModuleMarche.Table4.Open;{delph.forumalgerie.net}
  DataModuleMarche.Table5.Open;{delph.forumalgerie.net}
  DataModuleMarche.Query1.Open;{delph.forumalgerie.net}
 end;{delph.forumalgerie.net}
 end;{delph.forumalgerie.net}
end;{delph.forumalgerie.net}
{delph.forumalgerie.net}
procedure TDataModuleMarche.Table1BeforeOpen(DataSet: TDataSet);{delph.forumalgerie.net}
begin{delph.forumalgerie.net}
  Session.AddPassword(pass+'62');{delph.forumalgerie.net}
end;{delph.forumalgerie.net}
{delph.forumalgerie.net}
end.{delph.forumalgerie.net}



_________________
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

ali1
مبرمج مجتهد

عدد المساهمات : 861
تاريخ التسجيل : 29/07/2013

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: النسخة الجديدة من برنامج برنامج تسيير محل تجاري

مُساهمة  ali1 في 27/3/2017, 1:42 pm


النماذج أو الفورم المستعملة في البرنامج
---------------------------------------------

الفورم الأولى
Unit1.dfm

الكود:


object Form1: TForm1
  Left = 301
  Top = 132
  BiDiMode = bdRightToLeft
  BorderStyle = bsDialog
  BorderWidth = 20
  Caption = #1578#1587#1610#1610#1585' '#1605#1581#1604' '#1578#1580#1575#1585#1610'.'
  ClientHeight = 312
  ClientWidth = 511
  Color = clBtnFace
  Font.Charset = ARABIC_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'MS Sans Serif'
  Font.Style = [fsBold]
  Icon.Data = {
    0000010001002020100000000000E80200001600000028000000200000004000
    0000010004000000000080020000000000000000000000000000000000000000
    0000000080000080000000808000800000008000800080800000C0C0C0008080
    80000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0999999999999999999999900000000009000000000000000000009000000000
    0900000000000000000000900000000009022222222222222222009000000000
    0902000000000000000200900000000009020000000000000002009000000000
    090200DDDDDDDDDDD002009000000000090200D000000000D002009000000000
    090200D0CCCCCC00D002009000000000090200D0C0000C00D002009000000000
    090200D0C0000C00D002009000000000090200D0CCCCCC00D002009000000000
    090200D000000000D002009000000000090200DDDDDDDDDDD002009000000000
    0902000000000000000200900000000009020000000000000002009000000000
    0902222222222222222200900000000009000000000000000000009000000000
    0900000000000000000000900000000009999999999999999999999000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    000000000000000000000000000000000000000000000000000000000000FFFF
    FFFFFFFFFFFFFFFFFFFFC0000003DFFFFFFBDFFFFFFBD800001BDBFFFFDBDBFF
    FFDBDA0000DBDAFFFEDBDAFFFEDBDAC006DBDADFF6DBDAD036DBDAD7B6DBDAD7
    B6DBDAD036DBDADFF6DBDAC006DBDAFFFEDBDAFFFEDBDA0000DBDBFFFFDBDBFF
    FFDBD800001BDFFFFFFBDFFFFFFBC0000003FFFFFFFFFFFFFFFFFFFFFFFF}
  OldCreateOrder = False
  ParentBiDiMode = False
  Position = poScreenCenter
  OnActivate = FormActivate
  OnClose = FormClose
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 16
  object GroupBox1: TGroupBox
    Left = 0
    Top = 57
    Width = 511
    Height = 236
    Align = alClient
    Caption = #1578#1587#1610#1610#1585' '#1605#1600#1600#1581#1604' '#1578#1600#1580#1600#1600#1600#1575#1585#1610
    Font.Charset = ARABIC_CHARSET
    Font.Color = clBlue
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 0
    object Label3: TLabel
      Left = 4
      Top = 170
      Width = 5
      Height = 16
      BiDiMode = bdLeftToRight
      Caption = '.'
      Font.Charset = ARABIC_CHARSET
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentBiDiMode = False
      ParentFont = False
      WordWrap = True
      OnClick = Label3Click
    end
    object BitBtn1: TBitBtn
      Left = 16
      Top = 32
      Width = 161
      Height = 41
      Cursor = crHandPoint
      Hint =
        #1610#1605#1603#1606#1603' '#1607#1584#1575' '#1575#1604#1576#1575#1576' '#1605#1606' '#1578#1587#1580#1610#1604' '#1575#1604#1587#1604#1593' '#1575#1604#1578#1610' '#1602#1605#1578' '#1576#1588#1585#1575#1574#1607#1575' '#1587#1580#1604' '#1575#1587#1605' '#1575#1604#1587#1604#1593#1577' '#1608 +
        #1593#1583#1583#1607#1575' '#1608#1579#1605#1606' '#1588#1585#1575#1574#1607#1575
      Caption = #1578#1587#1580#1610#1604' '#1575#1604#1587#1604#1593
      Font.Charset = ARABIC_CHARSET
      Font.Color = clMaroon
      Font.Height = -15
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      OnClick = BitBtn1Click
      OnMouseMove = BitBtn1MouseMove
      Kind = bkOK
    end
    object BitBtn2: TBitBtn
      Left = 320
      Top = 32
      Width = 153
      Height = 41
      Cursor = crHandPoint
      Caption = #1578#1581#1585#1610#1600#1600#1600#1585' '#1601#1575#1578#1600#1608#1585#1577
      Font.Charset = ARABIC_CHARSET
      Font.Color = clFuchsia
      Font.Height = -15
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 1
      OnClick = BitBtn2Click
      OnMouseMove = BitBtn2MouseMove
      Kind = bkOK
    end
    object BitBtn3: TBitBtn
      Left = 16
      Top = 96
      Width = 161
      Height = 41
      Cursor = crHandPoint
      Caption = #1575#1604#1605#1580#1605#1608#1593' '#1575#1604#1603#1604#1610
      Font.Charset = ARABIC_CHARSET
      Font.Color = clGreen
      Font.Height = -15
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 2
      OnClick = BitBtn3Click
      OnMouseMove = BitBtn3MouseMove
      Kind = bkOK
    end
    object BitBtn4: TBitBtn
      Left = 320
      Top = 96
      Width = 153
      Height = 41
      Cursor = crHandPoint
      Caption = #1571#1589#1581#1575#1576' '#1575#1604#1583#1610#1600#1600#1600#1600#1608#1606
      Font.Charset = ARABIC_CHARSET
      Font.Color = clBlue
      Font.Height = -15
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 3
      OnClick = BitBtn4Click
      OnMouseMove = BitBtn4MouseMove
      Kind = bkOK
    end
    object BitBtn5: TBitBtn
      Left = 320
      Top = 168
      Width = 153
      Height = 41
      Cursor = crHandPoint
      Caption = '&'#1582#1600#1600#1585#1608#1580
      Font.Charset = ARABIC_CHARSET
      Font.Color = clRed
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 4
      OnMouseMove = BitBtn5MouseMove
      Kind = bkClose
    end
    object Button1: TButton
      Left = 192
      Top = 192
      Width = 75
      Height = 25
      Caption = 'Button1'
      TabOrder = 5
      OnClick = Button1Click
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 511
    Height = 57
    Align = alTop
    Font.Charset = ARABIC_CHARSET
    Font.Color = clGreen
    Font.Height = -21
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 1
    object Label1: TLabel
      Left = 56
      Top = 8
      Width = 56
      Height = 17
      Caption = '13:22:00'
      Font.Charset = ARABIC_CHARSET
      Font.Color = clGreen
      Font.Height = -15
      Font.Name = 'Arial'
      Font.Style = [fsItalic]
      ParentFont = False
    end
    object Label2: TLabel
      Left = 406
      Top = 8
      Width = 74
      Height = 17
      Caption = '2017-01-06'
      Font.Charset = ARABIC_CHARSET
      Font.Color = clGreen
      Font.Height = -15
      Font.Name = 'Arial'
      Font.Style = [fsItalic]
      ParentFont = False
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 293
    Width = 511
    Height = 19
    Font.Charset = ARABIC_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    Panels = <>
    ParentShowHint = False
    ShowHint = False
    SimplePanel = True
    UseSystemFont = False
  end
  object Timer1: TTimer
    Interval = 500
    OnTimer = Timer1Timer
    Left = 408
    Top = 24
  end
  object Timer2: TTimer
    OnTimer = Timer2Timer
    Left = 104
    Top = 16
  end
  object XPManifest1: TXPManifest
    Left = 472
    Top = 201
  end
  object Table1: TTable
    BeforeOpen = Table1BeforeOpen
    TableName = 'March.DB'
    Left = 264
    Top = 16
  end
end



_________________
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

ali1
مبرمج مجتهد

عدد المساهمات : 861
تاريخ التسجيل : 29/07/2013

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: النسخة الجديدة من برنامج برنامج تسيير محل تجاري

مُساهمة  ali1 في 27/3/2017, 1:43 pm

الفورم الثانية
الكود:


object Form2: TForm2
  Left = 197
  Top = 129
  Width = 777
  Height = 591
  BiDiMode = bdRightToLeft
  BorderIcons = [biSystemMenu, biMinimize]
  Caption = '  '#1578#1600#1587#1580#1600#1600#1600#1610#1604' '#1575#1604#1587#1600#1604#1593
  Color = clBtnFace
  Font.Charset = ARABIC_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'Arial'
  Font.Style = [fsBold]
  Icon.Data = {
    0000010001002020100000000000E80200001600000028000000200000004000
    0000010004000000000080020000000000000000000000000000000000000000
    0000000080000080000000808000800000008000800080800000C0C0C0008080
    80000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0999999999999999999999900000000009000000000000000000009000000000
    0900000000000000000000900000000009022222222222222222009000000000
    0902000000000000000200900000000009020000000000000002009000000000
    090200DDDDDDDDDDD002009000000000090200D000000000D002009000000000
    090200D0CCCCCC00D002009000000000090200D0C0000C00D002009000000000
    090200D0C0000C00D002009000000000090200D0CCCCCC00D002009000000000
    090200D000000000D002009000000000090200DDDDDDDDDDD002009000000000
    0902000000000000000200900000000009020000000000000002009000000000
    0902222222222222222200900000000009000000000000000000009000000000
    0900000000000000000000900000000009999999999999999999999000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    000000000000000000000000000000000000000000000000000000000000FFFF
    FFFFFFFFFFFFFFFFFFFFC0000003DFFFFFFBDFFFFFFBD800001BDBFFFFDBDBFF
    FFDBDA0000DBDAFFFEDBDAFFFEDBDAC006DBDADFF6DBDAD036DBDAD7B6DBDAD7
    B6DBDAD036DBDADFF6DBDAC006DBDAFFFEDBDAFFFEDBDA0000DBDBFFFFDBDBFF
    FFDBD800001BDFFFFFFBDFFFFFFBC0000003FFFFFFFFFFFFFFFFFFFFFFFF}
  OldCreateOrder = False
  ParentBiDiMode = False
  Position = poScreenCenter
  OnActivate = FormActivate
  OnClose = FormClose
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 16
  object Label1: TLabel
    Left = 681
    Top = 24
    Width = 54
    Height = 18
    Caption = #1575#1587#1605' '#1575#1604#1587#1604#1593#1577
    Font.Charset = ARABIC_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label2: TLabel
    Left = 681
    Top = 56
    Width = 54
    Height = 18
    Caption = #1593#1583#1583' '#1575#1604#1587#1604#1593#1577
    Font.Charset = ARABIC_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label3: TLabel
    Left = 681
    Top = 88
    Width = 54
    Height = 18
    Caption = #1579#1605#1606' '#1575#1604#1587#1604#1593#1577
    Font.Charset = ARABIC_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Edit2: TEdit
    Left = 416
    Top = 48
    Width = 241
    Height = 26
    Hint = #1587#1580#1617#1600#1600#1600#1604' '#1593#1600#1600#1583#1583#1575#1604#1587#1604#1593#1577
    Font.Charset = ARABIC_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 1
    OnChange = Edit2Change
  end
  object Edit3: TEdit
    Left = 352
    Top = 80
    Width = 305
    Height = 26
    Hint = #1587#1580#1617#1600#1600#1600#1604' '#1579#1600#1600#1605#1606' '#1575#1604#1587#1604#1593#1577
    Font.Charset = ARABIC_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 2
    OnChange = Edit2Change
  end
  object BitBtn1: TBitBtn
    Left = 128
    Top = 16
    Width = 123
    Height = 25
    Cursor = crHandPoint
    Hint = #1578#1578#1605' '#1593#1605#1604#1610#1577' '#1575#1604#1578#1587#1580#1610#1604' '#1576#1575#1604#1606#1602#1585
    Caption = #1578#1587#1580#1600#1610#1604' '#1575#1604#1587#1604#1593
    Enabled = False
    Font.Charset = ARABIC_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 3
    OnClick = BitBtn1Click
    Kind = bkOK
  end
  object DBGrid1: TDBGrid
    Left = 24
    Top = 152
    Width = 713
    Height = 297
    Hint =
      #1575#1604#1602#1575#1574#1600#1600#1605#1577' '#1575#1604#1600#1585#1574#1600#1600#1610#1587#1610#1577' '#1575#1604#1578#1610' '#1578#1606#1592#1585' '#1605#1606' '#1582#1604#1575#1604#1607#1575' '#1575#1604#1610' '#1575#1587#1605#1575#1569' '#1575#1604#1587#1604#1593' '#1608#1575#1593#1583#1575#1583 +
      #1607#1575' '#1608#1575#1579#1605#1575#1606#1607#1575' '#1576#1578#1601#1589#1610#1604
    TabStop = False
    DataSource = DataModuleMarche.DataSource1
    Font.Charset = ARABIC_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 4
    TitleFont.Charset = ARABIC_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -13
    TitleFont.Name = 'Arial'
    TitleFont.Style = [fsBold]
    OnDblClick = DBGrid1DblClick
    Columns = <
      item
        Expanded = False
        FieldName = 'Code'
        Visible = False
      end
      item
        Expanded = False
        FieldName = 'Nom'
        Title.Caption = #1575#1587#1605' '#1575#1604#1587#1604#1593#1577
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Nombre_P1'
        Title.Caption = #1575#1604#1593#1583#1583' '#1575#1604#1602#1583#1610#1605
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Nombre_P2'
        Title.Caption = #1575#1604#1593#1583#1583' '#1575#1604#1580#1583#1610#1583
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Prix'
        Title.Caption = #1579#1605#1606' '#1575#1604#1576#1610#1593
        Width = 99
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Prix_Achet'
        Title.Caption = #1579#1605#1606' '#1575#1604#1588#1585#1575
        Width = 116
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'DateTimes'
        Title.Caption = #1578#1575#1585#1610#1582' '#1575#1604#1578#1587#1580#1610#1604
        Visible = True
      end>
  end
  object BitBtn2: TBitBtn
    Left = 128
    Top = 48
    Width = 123
    Height = 25
    Cursor = crHandPoint
    Hint =
      #1578#1589#1581#1600#1600#1600#1600#1610#1581' '#1575#1604#1575#1582#1591#1575#1569' '#1575#1604#1603#1578#1575#1576#1610#1577' '#1576#1575#1593#1575#1583#1577' '#1575#1604#1603#1578#1575#1576#1577' '#1575#1604#1589#1581#1600#1610#1581#1577' '#1604#1604#1593#1576#1575#1585#1577' '#1608#1575#1604#1606#1602 +
      #1585' '#1593#1604#1609' '#1578#1589#1581#1610#1581
    Caption = #1578#1589#1581#1610#1581' '#1575#1604#1571#1582#1591#1575#1569
    Enabled = False
    Font.Charset = ARABIC_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 5
    Visible = False
    OnClick = BitBtn2Click
    Kind = bkOK
  end
  object BitBtn3: TBitBtn
    Left = 168
    Top = 80
    Width = 83
    Height = 25
    Cursor = crHandPoint
    Hint = #1605#1600#1587#1600#1581' '#1605#1585#1576#1593#1575#1578' '#1575#1604#1578#1581#1585#1610#1600#1600#1600#1585
    Caption = #1605#1587#1581
    Font.Charset = ARABIC_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 6
    OnClick = BitBtn3Click
    Kind = bkOK
  end
  object CheckBox1: TCheckBox
    Left = 16
    Top = 16
    Width = 97
    Height = 17
    Caption = #1575#1582#1601#1575#1569' '#1575#1604#1578#1587#1580#1610#1604
    Checked = True
    Font.Charset = ARABIC_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    State = cbChecked
    TabOrder = 7
    OnClick = CheckBox1Click
  end
  object BitBtn4: TBitBtn
    Left = 16
    Top = 120
    Width = 145
    Height = 25
    Cursor = crHandPoint
    Hint = #1581#1600#1600#1584#1601' '#1575#1581#1583' '#1575#1604#1587#1604#1593' '#1605#1600#1600#1606' '#1575#1604#1602#1575#1574#1600#1600#1600#1605#1577
    Caption = #1581#1584#1601' '#1587#1604#1593#1577
    Enabled = False
    Font.Charset = ARABIC_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 8
    OnClick = BitBtn4Click
    Kind = bkOK
  end
  object BitBtn5: TBitBtn
    Left = 24
    Top = 488
    Width = 97
    Height = 33
    Cursor = crHandPoint
    Hint = #1585#1580#1600#1600#1600#1608#1593' '#1575#1604#1609' '#1575#1604#1589#1600#1600#1601#1600#1581#1600#1600#1577' '#1575#1604#1600#1600#1585#1574#1610#1587#1610#1577' '#1605#1606' '#1575#1604#1600#1600#1576#1585#1606#1600#1600#1575#1605#1600#1600#1580
    Caption = '&'#1593#1600#1600#1608#1583#1577
    Font.Charset = ARABIC_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 9
    Kind = bkClose
  end
  object Edit1: TEdit
    Left = 272
    Top = 16
    Width = 385
    Height = 26
    Hint = #1587#1580#1617#1600#1600#1600#1604' '#1575#1587#1605' '#1575#1604#1587#1604#1593#1577
    Font.Charset = ARABIC_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 0
    OnChange = Edit1Change
  end
  object CheckBox2: TCheckBox
    Left = 488
    Top = 504
    Width = 201
    Height = 17
    Hint = #1605#1580#1605#1608#1593' '#1575#1604#1593#1583#1583' '#1575#1604#1602#1583#1610#1605' '#1604#1603#1604' '#1575#1604#1587#1604#1593' '
    Caption = #1605#1580#1605#1608#1593' '#1575#1604#1593#1583#1583' '#1575#1604#1602#1583#1610#1605' '#1604#1603#1604' '#1575#1604#1587#1604#1593' '
    Font.Charset = ARABIC_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 10
    OnClick = CheckBox2Click
  end
  object CheckBox3: TCheckBox
    Left = 344
    Top = 464
    Width = 209
    Height = 17
    Hint = #1605#1580#1605#1608#1593' '#1575#1604#1593#1583#1583' '#1575#1604#1580#1583#1610#1583'  '#1604#1603#1604' '#1575#1604#1587#1604#1593' '
    Caption = #1605#1580#1605#1608#1593' '#1575#1604#1593#1583#1583' '#1575#1604#1580#1583#1610#1583'  '#1604#1603#1604' '#1575#1604#1587#1604#1593' '
    Font.Charset = ARABIC_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 11
    OnClick = CheckBox3Click
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 538
    Width = 769
    Height = 19
    Panels = <>
  end
  object CheckBox4: TCheckBox
    Left = 208
    Top = 504
    Width = 225
    Height = 17
    Hint = #1605#1580#1605#1608#1593' '#1579#1605#1606' '#1575#1604#1576#1610#1593' '#1604#1603#1604' '#1575#1604#1587#1604#1593' '
    Caption = #1605#1580#1605#1608#1593' '#1579#1605#1606' '#1575#1604#1576#1610#1593' '#1604#1603#1604' '#1575#1604#1587#1604#1593' '
    Font.Charset = ARABIC_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 13
    OnClick = CheckBox4Click
  end
  object CheckBox5: TCheckBox
    Left = 128
    Top = 464
    Width = 185
    Height = 17
    Hint = #1605#1580#1605#1608#1593' '#1579#1605#1606' '#1575#1604#1588#1585#1575#1569' '#1604#1603#1604' '#1575#1604#1587#1604#1593' '
    Caption = #1605#1580#1605#1608#1593' '#1579#1605#1606' '#1575#1604#1588#1585#1575#1569' '#1604#1603#1604' '#1575#1604#1587#1604#1593' '
    Font.Charset = ARABIC_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 14
    OnClick = CheckBox5Click
  end
end



_________________
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

ali1
مبرمج مجتهد

عدد المساهمات : 861
تاريخ التسجيل : 29/07/2013

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: النسخة الجديدة من برنامج برنامج تسيير محل تجاري

مُساهمة  ali1 في 27/3/2017, 1:45 pm



الفورم الثالثة
الكود:


object Form3: TForm3
  Left = 197
  Top = 113
  Width = 777
  Height = 591
  BiDiMode = bdRightToLeft
  BorderIcons = [biMinimize]
  Caption = #1578#1581#1585#1610#1585' '#1601#1575#1578#1600#1600#1608#1585#1577
  Color = clBtnFace
  Font.Charset = ARABIC_CHARSET
  Font.Color = clWindowText
  Font.Height = -15
  Font.Name = 'Arial'
  Font.Style = [fsBold]
  Icon.Data = {
    0000010001002020100000000000E80200001600000028000000200000004000
    0000010004000000000080020000000000000000000000000000000000000000
    0000000080000080000000808000800000008000800080800000C0C0C0008080
    80000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0999999999999999999999900000000009000000000000000000009000000000
    0900000000000000000000900000000009022222222222222222009000000000
    0902000000000000000200900000000009020000000000000002009000000000
    090200DDDDDDDDDDD002009000000000090200D000000000D002009000000000
    090200D0CCCCCC00D002009000000000090200D0C0000C00D002009000000000
    090200D0C0000C00D002009000000000090200D0CCCCCC00D002009000000000
    090200D000000000D002009000000000090200DDDDDDDDDDD002009000000000
    0902000000000000000200900000000009020000000000000002009000000000
    0902222222222222222200900000000009000000000000000000009000000000
    0900000000000000000000900000000009999999999999999999999000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    000000000000000000000000000000000000000000000000000000000000FFFF
    FFFFFFFFFFFFFFFFFFFFC0000003DFFFFFFBDFFFFFFBD800001BDBFFFFDBDBFF
    FFDBDA0000DBDAFFFEDBDAFFFEDBDAC006DBDADFF6DBDAD036DBDAD7B6DBDAD7
    B6DBDAD036DBDADFF6DBDAC006DBDAFFFEDBDAFFFEDBDA0000DBDBFFFFDBDBFF
    FFDBD800001BDFFFFFFBDFFFFFFBC0000003FFFFFFFFFFFFFFFFFFFFFFFF}
  Menu = MainMenu1
  OldCreateOrder = False
  ParentBiDiMode = False
  Position = poScreenCenter
  OnActivate = FormActivate
  OnClose = FormClose
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnMouseMove = FormMouseMove
  PixelsPerInch = 96
  TextHeight = 18
  object Bevel1: TBevel
    Left = 8
    Top = 112
    Width = 737
    Height = 9
    Shape = bsTopLine
  end
  object Label7: TLabel
    Left = 279
    Top = 448
    Width = 73
    Height = 18
    Caption = #1575#1604#1605#1580#1605#1608#1593' '#1575#1604#1603#1604#1610
    Font.Charset = ARABIC_CHARSET
    Font.Color = clBlue
    Font.Height = -15
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label3: TLabel
    Left = 229
    Top = 0
    Width = 99
    Height = 18
    Caption = #1575#1587#1605' '#1589#1575#1581#1576' '#1575#1604#1601#1575#1578#1608#1585#1577
    Font.Charset = ARABIC_CHARSET
    Font.Color = clBlue
    Font.Height = -15
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    Visible = False
  end
  object Label4: TLabel
    Left = 274
    Top = 40
    Width = 54
    Height = 18
    Caption = #1585#1602#1605' '#1575#1604#1607#1575#1578#1601
    Font.Charset = ARABIC_CHARSET
    Font.Color = clBlue
    Font.Height = -15
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    Visible = False
  end
  object Label5: TLabel
    Left = 720
    Top = 464
    Width = 24
    Height = 18
    Caption = #1578#1575#1605#1576#1585
    Font.Charset = ARABIC_CHARSET
    Font.Color = clBlue
    Font.Height = -15
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    Visible = False
  end
  object Label6: TLabel
    Left = 709
    Top = 488
    Width = 43
    Height = 18
    Caption = #1605#1589#1575#1585#1610#1601
    Font.Charset = ARABIC_CHARSET
    Font.Color = clBlue
    Font.Height = -15
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    Visible = False
  end
  object Label8: TLabel
    Left = 165
    Top = 0
    Width = 123
    Height = 36
    Cursor = crHandPoint
    Hint = #1575#1606#1602#1585' '#1607#1606#1575
    Caption = #1603#1578#1575#1576#1577' '#1576#1593#1590' '#1575#1604#1605#1593#1604#1608#1605#1575#1578' '#1575#1604#1605#1578#1593#1604#1602#1577' '#1576#1589#1575#1581#1576' '#1575#1604#1601#1575#1578#1608#1585#1577
    Font.Charset = ARABIC_CHARSET
    Font.Color = clBlue
    Font.Height = -15
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    WordWrap = True
    OnClick = Label8Click
    OnMouseMove = Label8MouseMove
  end
  object Label9: TLabel
    Left = 538
    Top = 440
    Width = 158
    Height = 18
    Cursor = crHandPoint
    Hint = #1575#1606#1602#1585' '#1607#1606#1575
    Caption = #1603#1578#1575#1576#1577' '#1576#1593#1590' '#1575#1604#1605#1589#1575#1585#1610#1601' '#1575#1608' '#1590#1585#1610#1576#1577
    Font.Charset = ARABIC_CHARSET
    Font.Color = clBlue
    Font.Height = -15
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    OnClick = Label9Click
    OnMouseMove = Label9MouseMove
  end
  object Label10: TLabel
    Left = 664
    Top = 16
    Width = 81
    Height = 18
    Caption = #1575#1603#1578#1576' '#1575#1587#1605' '#1575#1604#1587#1604#1593#1577
    Font.Charset = ARABIC_CHARSET
    Font.Color = clBlue
    Font.Height = -15
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label11: TLabel
    Left = 668
    Top = 48
    Width = 77
    Height = 18
    Caption = #1571#1603#1578#1576' '#1593#1583#1583#1575#1604#1587#1604#1593#1577
    Font.Charset = ARABIC_CHARSET
    Font.Color = clBlue
    Font.Height = -15
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label1: TLabel
    Left = 409
    Top = 512
    Width = 151
    Height = 18
    Cursor = crHandPoint
    Hint = #1575#1606#1602#1585' '#1607#1606#1575
    Caption = #1575#1592#1607#1575#1585' '#1608#1575#1582#1601#1575#1569' '#1575#1604#1605#1583#1582#1608#1604' '#1575#1604#1610#1608#1605#1610
    Font.Charset = ARABIC_CHARSET
    Font.Color = clBlue
    Font.Height = -15
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    OnClick = Label1Click
    OnMouseMove = Label1MouseMove
  end
  object ComboBox1: TComboBox
    Left = 344
    Top = 16
    Width = 289
    Height = 26
    Font.Charset = ARABIC_CHARSET
    Font.Color = clBlack
    Font.Height = -15
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ItemHeight = 18
    ParentFont = False
    TabOrder = 0
    OnChange = ComboBox1Change
  end
  object Edit1: TEdit
    Left = 448
    Top = 48
    Width = 185
    Height = 26
    Font.Charset = ARABIC_CHARSET
    Font.Color = clBlack
    Font.Height = -15
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 1
    OnChange = Edit1Change
  end
  object BitBtn1: TBitBtn
    Left = 344
    Top = 48
    Width = 97
    Height = 25
    Cursor = crHandPoint
    Caption = #1581#1600#1587#1575#1576
    Enabled = False
    Font.Charset = ARABIC_CHARSET
    Font.Color = clBlue
    Font.Height = -15
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 2
    OnClick = BitBtn1Click
    Kind = bkOK
  end
  object Edit2: TEdit
    Left = 24
    Top = 448
    Width = 233
    Height = 26
    Font.Charset = ARABIC_CHARSET
    Font.Color = clBlack
    Font.Height = -15
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 3
  end
  object BitBtn2: TBitBtn
    Left = 432
    Top = 464
    Width = 105
    Height = 41
    Cursor = crHandPoint
    Caption = '&'#1593#1600#1600#1600#1585#1583#1577
    Font.Charset = ARABIC_CHARSET
    Font.Color = clBlue
    Font.Height = -15
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 4
    OnClick = BitBtn2Click
    Glyph.Data = {
      DE010000424DDE01000000000000760000002800000024000000120000000100
      0400000000006801000000000000000000001000000000000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00388888888877
      F7F787F8888888888333333F00004444400888FFF444448888888888F333FF8F
      000033334D5007FFF4333388888888883338888F0000333345D50FFFF4333333
      338F888F3338F33F000033334D5D0FFFF43333333388788F3338F33F00003333
      45D50FEFE4333333338F878F3338F33F000033334D5D0FFFF43333333388788F
      3338F33F0000333345D50FEFE4333333338F878F3338F33F000033334D5D0FFF
      F43333333388788F3338F33F0000333345D50FEFE4333333338F878F3338F33F
      000033334D5D0EFEF43333333388788F3338F33F0000333345D50FEFE4333333
      338F878F3338F33F000033334D5D0EFEF43333333388788F3338F33F00003333
      4444444444333333338F8F8FFFF8F33F00003333333333333333333333888888
      8888333F00003333330000003333333333333FFFFFF3333F00003333330AAAA0
      333333333333888888F3333F00003333330000003333333333338FFFF8F3333F
      0000}
    NumGlyphs = 2
  end
  object BitBtn3: TBitBtn
    Left = 488
    Top = 80
    Width = 105
    Height = 25
    Cursor = crHandPoint
    Caption = #1580#1583#1610#1583' '#1608#1581#1601#1592
    Font.Charset = ARABIC_CHARSET
    Font.Color = clBlue
    Font.Height = -15
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 5
    OnClick = BitBtn3Click
    Kind = bkOK
  end
  object CheckBox1: TCheckBox
    Left = 32
    Top = 480
    Width = 161
    Height = 17
    Hint = #1575#1588#1617#1585' '#1601#1610' '#1581#1575#1604#1577' '#1578#1587#1580#1610#1604' '#1601#1610' '#1602#1575#1574#1605#1577' '#1575#1604#1583#1610#1608#1606
    Caption = #1578#1587#1580#1610#1604' '#1601#1610' '#1602#1575#1574#1605#1577' '#1575#1604#1583#1610#1608#1606
    Font.Charset = ARABIC_CHARSET
    Font.Color = clBlue
    Font.Height = -15
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 6
    OnClick = CheckBox1Click
  end
  object ComboBox2: TComboBox
    Left = 208
    Top = 480
    Width = 209
    Height = 26
    Hint = #1575#1603#1578#1576' '#1589#1575#1581#1576' '#1575#1604#1583#1610#1606' '#1571#1608' '#1575#1582#1578#1585' '#1605#1606' '#1575#1604#1602#1575#1574#1605#1577
    Font.Charset = ARABIC_CHARSET
    Font.Color = clBlack
    Font.Height = -15
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ItemHeight = 18
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 7
  end
  object Memo1: TRichEdit
    Left = 24
    Top = 128
    Width = 705
    Height = 305
    Font.Charset = ARABIC_CHARSET
    Font.Color = clBlack
    Font.Height = -15
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    ScrollBars = ssBoth
    TabOrder = 8
  end
  object Edit4: TEdit
    Left = 120
    Top = 16
    Width = 209
    Height = 26
    Font.Charset = ARABIC_CHARSET
    Font.Color = clBlack
    Font.Height = -15
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 9
    Visible = False
  end
  object Edit3: TEdit
    Left = 152
    Top = 56
    Width = 169
    Height = 26
    Font.Charset = ARABIC_CHARSET
    Font.Color = clBlack
    Font.Height = -15
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 10
    Visible = False
  end
  object Edit5: TEdit
    Left = 176
    Top = 80
    Width = 305
    Height = 26
    Hint = #1610#1589#1575#1601' '#1575#1604#1609' '#1575#1604#1601#1575#1578#1608#1585#1577' '#1603#1605#1575' '#1578#1585#1575#1607' '#1608#1581#1587#1576' '#1575#1604#1578#1585#1578#1610#1576
    Font.Charset = ARABIC_CHARSET
    Font.Color = clBlack
    Font.Height = -15
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 11
    Visible = False
  end
  object Edit6: TEdit
    Left = 24
    Top = 56
    Width = 121
    Height = 26
    Hint = #1575#1604#1605#1590#1575#1601#1577' '#1607#1606#1575' '#1578#1590#1575#1601'  '#1576#1593#1583' '#1585#1602#1605' '#1575#1604#1607#1575#1578#1601
    Font.Charset = ARABIC_CHARSET
    Font.Color = clBlack
    Font.Height = -15
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 12
    Visible = False
  end
  object Edit7: TEdit
    Left = 24
    Top = 16
    Width = 89
    Height = 26
    Hint = #1575#1604#1605#1590#1575#1601#1577' '#1607#1606#1575' '#1578#1590#1575#1601'  '#1576#1593#1583' '#1575#1604#1575#1587#1605
    Font.Charset = ARABIC_CHARSET
    Font.Color = clBlack
    Font.Height = -15
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 13
    Visible = False
  end
  object Edit8: TEdit
    Left = 24
    Top = 80
    Width = 145
    Height = 26
    Hint = #1610#1589#1575#1601' '#1575#1604#1609' '#1575#1604#1601#1575#1578#1608#1585#1577' '#1603#1605#1575' '#1578#1585#1575#1607' '#1608#1581#1587#1576' '#1575#1604#1578#1585#1578#1610#1576
    Font.Charset = ARABIC_CHARSET
    Font.Color = clBlack
    Font.Height = -15
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 14
    Visible = False
  end
  object Edit9: TEdit
    Left = 560
    Top = 456
    Width = 121
    Height = 26
    Hint = #1578#1575#1576#1593' '#1576#1585#1610#1583#1610' '#1571#1608' '#1594#1610#1585' '#1571#1608' '#1575#1578#1585#1603#1607#1575' '#1589#1601#1585
    Font.Charset = ARABIC_CHARSET
    Font.Color = clBlack
    Font.Height = -15
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 15
    Text = '0'
    Visible = False
  end
  object Edit10: TEdit
    Left = 560
    Top = 488
    Width = 121
    Height = 26
    Hint = #1605#1589#1575#1585#1610#1601' '#1571#1608' '#1594#1610#1585#1607#1575'  '#1571#1608' '#1571#1578#1585#1603#1607#1575' '#1603#1605#1575' '#1607#1610' '#1571#1610' '#1589#1601#1585
    Font.Charset = ARABIC_CHARSET
    Font.Color = clBlack
    Font.Height = -15
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 16
    Text = '0'
    Visible = False
  end
  object Memo2: TMemo
    Left = 16
    Top = 296
    Width = 737
    Height = 145
    Font.Charset = ARABIC_CHARSET
    Font.Color = clBlack
    Font.Height = -15
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    ScrollBars = ssBoth
    TabOrder = 17
    Visible = False
  end
  object SaveDialog1: TSaveDialog
    FileName = 'Saad.rtf'
    Filter = 'Fichier Text(*.rtf)|*.rtf'
    InitialDir = '.'
    Options = [ofReadOnly, ofHideReadOnly, ofAllowMultiSelect, ofEnableSizing]
    Left = 672
    Top = 72
  end
  object MainMenu1: TMainMenu
    Left = 600
    Top = 72
    object File1: TMenuItem
      Caption = '&'#1605#1604#1601
      object Open1: TMenuItem
        Caption = '&'#1601#1578#1581'...'
        OnClick = Open1Click
      end
      object Save1: TMenuItem
        Caption = '&'#1581#1601#1592
        OnClick = Save1Click
      end
      object imrm1: TMenuItem
        Caption = #1591#1576#1575#1593#1577
        Enabled = False
      end
      object savve1: TMenuItem
        Caption = #1581#1601#1592' '#1575#1604#1605#1583#1582#1608#1604' '#1575#1604#1610#1608#1605#1610
        Enabled = False
        OnClick = savve1Click
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object Exit1: TMenuItem
        Caption = '&'#1593#1600#1608#1583#1577
        OnClick = BitBtn2Click
      end
    end
    object Outils1: TMenuItem
      Caption = #1571#1583#1608#1575#1578
      object colour1: TMenuItem
        Caption = #1578#1594#1610#1610#1585' '#1575#1604#1604#1608#1606
        OnClick = colour1Click
      end
      object Fonts1: TMenuItem
        Caption = #1578#1594#1610#1610#1585' '#1575#1604#1582#1591
        OnClick = Fonts1Click
      end
      object calcc1: TMenuItem
        Caption = #1575#1604#1581#1575#1587#1576#1577
        OnClick = calcc1Click
      end
    end
  end
  object OpenDialog1: TOpenDialog
    Filter = 'Fichier Text(*.rtf)|*.rtf|Tout Fichier|*.*'
    InitialDir = '.'
    Left = 640
    Top = 72
  end
  object ColorDialog1: TColorDialog
    Left = 720
    Top = 80
  end
  object FontDialog1: TFontDialog
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    Left = 720
    Top = 64
  end
end



_________________
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

ali1
مبرمج مجتهد

عدد المساهمات : 861
تاريخ التسجيل : 29/07/2013

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: النسخة الجديدة من برنامج برنامج تسيير محل تجاري

مُساهمة  ali1 في 27/3/2017, 1:48 pm


الفورم الرابعة
الكود:


object Form4: TForm4
  Left = 192
  Top = 107
  Width = 544
  Height = 435
  BiDiMode = bdRightToLeft
  BorderIcons = [biSystemMenu, biMinimize]
  Caption = #1575#1604#1605#1580#1605#1608#1593' '#1575#1604#1603#1604
  Color = clBtnFace
  Font.Charset = ARABIC_CHARSET
  Font.Color = clWindowText
  Font.Height = -15
  Font.Name = 'Arial'
  Font.Style = [fsBold]
  Icon.Data = {
    0000010001002020100000000000E80200001600000028000000200000004000
    0000010004000000000080020000000000000000000000000000000000000000
    0000000080000080000000808000800000008000800080800000C0C0C0008080
    80000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0999999999999999999999900000000009000000000000000000009000000000
    0900000000000000000000900000000009022222222222222222009000000000
    0902000000000000000200900000000009020000000000000002009000000000
    090200DDDDDDDDDDD002009000000000090200D000000000D002009000000000
    090200D0CCCCCC00D002009000000000090200D0C0000C00D002009000000000
    090200D0C0000C00D002009000000000090200D0CCCCCC00D002009000000000
    090200D000000000D002009000000000090200DDDDDDDDDDD002009000000000
    0902000000000000000200900000000009020000000000000002009000000000
    0902222222222222222200900000000009000000000000000000009000000000
    0900000000000000000000900000000009999999999999999999999000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    000000000000000000000000000000000000000000000000000000000000FFFF
    FFFFFFFFFFFFFFFFFFFFC0000003DFFFFFFBDFFFFFFBD800001BDBFFFFDBDBFF
    FFDBDA0000DBDAFFFEDBDAFFFEDBDAC006DBDADFF6DBDAD036DBDAD7B6DBDAD7
    B6DBDAD036DBDADFF6DBDAC006DBDAFFFEDBDAFFFEDBDA0000DBDBFFFFDBDBFF
    FFDBD800001BDFFFFFFBDFFFFFFBC0000003FFFFFFFFFFFFFFFFFFFFFFFF}
  OldCreateOrder = False
  ParentBiDiMode = False
  Position = poScreenCenter
  OnActivate = FormActivate
  OnClose = FormClose
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnMouseMove = FormMouseMove
  PixelsPerInch = 96
  TextHeight = 18
  object Bevel1: TBevel
    Left = 0
    Top = 57
    Width = 536
    Height = 9
    Align = alTop
    Shape = bsTopLine
  end
  object Label1: TLabel
    Left = 354
    Top = 72
    Width = 158
    Height = 18
    Caption = #1605#1580#1600#1600#1605#1600#1600#1608#1593' '#1575#1604#1605#1576#1610#1593#1575#1578' '#1575#1604#1578#1610' '#1578#1605#1617' '#1576#1610#1593#1607#1575
  end
  object Label2: TLabel
    Left = 331
    Top = 168
    Width = 181
    Height = 18
    Caption = #1605#1580#1600#1600#1605#1600#1600#1608#1593' '#1575#1604#1605#1588#1578#1585#1610#1575#1578' '#1575#1604#1578#1610' '#1578#1605#1617' '#1588#1585#1575#1572#1607#1575
  end
  object Label3: TLabel
    Left = 361
    Top = 232
    Width = 151
    Height = 18
    Caption = #1606#1587#1576#1577' '#1605#1574#1608#1610#1577' '#1576#1606#1587#1576#1577' '#1604#1604#1605#1576#1610#1593#1575#1578' % '
  end
  object Label4: TLabel
    Left = 182
    Top = 128
    Width = 330
    Height = 18
    Caption =
      #1578#1600#1600#1600#1600#1587#1600#1580#1600#1600#1600#1600#1610#1604' '#1605#1580#1600#1600#1605#1600#1600#1608#1593' '#1575#1604#1605#1588#1578#1585#1610#1575#1578' '#1575#1604#1578#1610' '#1578#1605#1617' '#1588#1585#1575#1572#1607#1575' '#1604#1604#1605#1581#1600#1600#1600#1604' '#1575#1604#1578#1580 +
      #1575#1585#1610
    Font.Charset = ARABIC_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label5: TLabel
    Left = 441
    Top = 280
    Width = 71
    Height = 18
    Caption = #1575#1583#1582#1575#1604' '#1605#1580#1605#1608#1593' '
  end
  object Label6: TLabel
    Left = 240
    Top = 352
    Width = 137
    Height = 17
    Cursor = crHandPoint
    Alignment = taCenter
    AutoSize = False
    Caption = #1571#1582#1584' '#1606#1587#1582#1577' '#1575#1581#1578#1610#1575#1591#1610#1577
    Color = clCream
    Font.Charset = ARABIC_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentColor = False
    ParentFont = False
    WordWrap = True
    OnClick = Label6Click
  end
  object Edit1: TEdit
    Left = 240
    Top = 88
    Width = 273
    Height = 26
    Hint = #1593#1605#1604#1610#1577' '#1575#1604#1578#1587#1580#1610#1604' '#1578#1604#1602#1575#1574#1610#1577' '#1608#1610#1605#1603#1606' '#1575#1604#1578#1589#1581#1610#1581' '#1601#1610' '#1581#1575#1604#1577' '#1575#1604#1582#1591#1571
    ParentShowHint = False
    ShowHint = True
    TabOrder = 3
    OnChange = Edit1Change
    OnMouseMove = Edit1MouseMove
  end
  object BitBtn1: TBitBtn
    Left = 24
    Top = 64
    Width = 113
    Height = 33
    Cursor = crHandPoint
    Caption = #1581#1584#1601' '#1575#1604#1605#1580#1605#1608#1593
    Enabled = False
    Font.Charset = ARABIC_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 4
    OnClick = BitBtn1Click
    OnMouseMove = BitBtn1MouseMove
    Kind = bkOK
  end
  object BitBtn2: TBitBtn
    Left = 416
    Top = 336
    Width = 97
    Height = 33
    Cursor = crHandPoint
    Caption = '&'#1593#1600#1600#1600#1600#1600#1608#1583#1577
    Font.Charset = ARABIC_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 5
    OnMouseMove = BitBtn2MouseMove
    Kind = bkClose
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 536
    Height = 57
    Align = alTop
    Caption = #1605#1580#1605#1608#1593' '#1575#1604#1605#1576#1610#1593#1575#1578' '#1575#1604#1578#1610' '#1578#1605' '#1576#1610#1593#1607#1575' '#1587#1578#1587#1580#1604' '#1607#1606#1575
    Font.Charset = ARABIC_CHARSET
    Font.Color = clPurple
    Font.Height = -15
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 6
    OnMouseMove = Panel1MouseMove
  end
  object BitBtn3: TBitBtn
    Left = 152
    Top = 88
    Width = 75
    Height = 25
    Cursor = crHandPoint
    Caption = #1578#1589#1581#1600#1600#1600#1600#1610#1581
    Enabled = False
    Font.Charset = ARABIC_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 7
    OnClick = BitBtn3Click
    OnMouseMove = BitBtn3MouseMove
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 382
    Width = 536
    Height = 19
    Font.Charset = ARABIC_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    Panels = <>
    SimplePanel = True
    UseSystemFont = False
  end
  object Edit2: TEdit
    Left = 240
    Top = 144
    Width = 273
    Height = 26
    Hint = #1571#1603#1578#1576' '#1607#1606#1575'  '#1578#1587#1580#1576#1604' '#1603#1604' '#1575#1604#1588#1578#1585#1610#1575#1578
    ParentShowHint = False
    ShowHint = True
    TabOrder = 0
    OnChange = Edit2Change
    OnMouseMove = Edit2MouseMove
  end
  object Edit3: TEdit
    Left = 240
    Top = 248
    Width = 273
    Height = 26
    Hint = #1606#1587#1576#1577' '#1605#1574#1608#1610#1577' '#1576#1606#1587#1576#1577' '#1604#1604#1605#1576#1610#1593#1575#1578
    ParentShowHint = False
    ShowHint = True
    TabOrder = 9
  end
  object BitBtn4: TBitBtn
    Left = 152
    Top = 152
    Width = 75
    Height = 25
    Cursor = crHandPoint
    Hint = #1571#1606#1600#1602#1600#1585' '#1607#1600#1600#1606#1575
    Caption = #1578#1587#1580#1600#1600#1604
    ParentShowHint = False
    ShowHint = True
    TabOrder = 1
    OnClick = BitBtn4Click
    OnMouseMove = BitBtn4MouseMove
    Kind = bkOK
  end
  object BitBtn5: TBitBtn
    Left = 152
    Top = 248
    Width = 75
    Height = 25
    Cursor = crHandPoint
    Caption = '&'#1581#1587#1575#1576
    TabOrder = 2
    OnClick = BitBtn5Click
    Kind = bkAll
  end
  object BitBtn6: TBitBtn
    Left = 24
    Top = 184
    Width = 201
    Height = 41
    Cursor = crHandPoint
    Caption = #1605#1580#1605#1608#1593' '#1575#1604#1605#1588#1578#1585#1610#1575#1578
    Font.Charset = ARABIC_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 10
    OnClick = BitBtn6Click
    Kind = bkOK
  end
  object BitBtn7: TBitBtn
    Left = 24
    Top = 152
    Width = 113
    Height = 25
    Cursor = crHandPoint
    Caption = '&'#1605#1600#1600#1600#1600#1600#1587#1600#1600#1600#1600#1600#1581
    TabOrder = 11
    OnClick = BitBtn7Click
    Kind = bkAll
  end
  object Edit4: TEdit
    Left = 240
    Top = 184
    Width = 273
    Height = 26
    Hint = #1575#1592#1607#1575#1585' '#1605#1580#1605#1608#1593
    ParentShowHint = False
    ShowHint = True
    TabOrder = 12
  end
  object Edit5: TEdit
    Left = 128
    Top = 280
    Width = 281
    Height = 26
    Hint = #1575#1583#1582#1575#1604' '#1605#1580#1605#1608#1593' '#1583#1610#1600#1600#1600#1606' '#1575#1604#1605#1600#1600#1600#1581#1604' '#1575#1604#1578#1580#1575#1585#1610
    ParentShowHint = False
    ShowHint = True
    TabOrder = 13
    OnChange = Edit5Change
  end
  object BitBtn8: TBitBtn
    Left = 24
    Top = 280
    Width = 97
    Height = 25
    Cursor = crHandPoint
    Caption = #1583#1610#1606' '#1575#1604#1605#1581#1604
    Enabled = False
    TabOrder = 14
    OnClick = BitBtn8Click
    Kind = bkOK
  end
  object BitBtn9: TBitBtn
    Left = 24
    Top = 312
    Width = 97
    Height = 25
    Cursor = crHandPoint
    Caption = #1605#1580#1605#1608#1593' '#1575#1604#1583#1610#1606
    TabOrder = 15
    OnClick = BitBtn9Click
    NumGlyphs = 2
  end
  object Edit6: TEdit
    Left = 128
    Top = 312
    Width = 281
    Height = 26
    TabOrder = 16
  end
  object BitBtn10: TBitBtn
    Left = 24
    Top = 344
    Width = 161
    Height = 33
    Cursor = crHandPoint
    Caption = #1581#1600#1600#1600#1584#1601' '#1605#1580#1600#1600#1605#1608' '#1593' '#1575#1604#1583#1610#1600#1606
    TabOrder = 17
    OnClick = BitBtn10Click
    Kind = bkOK
  end
end



_________________
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

ali1
مبرمج مجتهد

عدد المساهمات : 861
تاريخ التسجيل : 29/07/2013

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: النسخة الجديدة من برنامج برنامج تسيير محل تجاري

مُساهمة  ali1 في 27/3/2017, 1:49 pm

الفورم الخامسة
الكود:


object Form5: TForm5
  Left = 189
  Top = 103
  Width = 590
  Height = 451
  BiDiMode = bdRightToLeft
  BorderIcons = [biSystemMenu, biMinimize]
  Color = clBtnFace
  Font.Charset = ARABIC_CHARSET
  Font.Color = clWindowText
  Font.Height = -15
  Font.Name = 'Arial'
  Font.Style = [fsBold]
  Icon.Data = {
    0000010001002020100000000000E80200001600000028000000200000004000
    0000010004000000000080020000000000000000000000000000000000000000
    0000000080000080000000808000800000008000800080800000C0C0C0008080
    80000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0999999999999999999999900000000009000000000000000000009000000000
    0900000000000000000000900000000009022222222222222222009000000000
    0902000000000000000200900000000009020000000000000002009000000000
    090200DDDDDDDDDDD002009000000000090200D000000000D002009000000000
    090200D0CCCCCC00D002009000000000090200D0C0000C00D002009000000000
    090200D0C0000C00D002009000000000090200D0CCCCCC00D002009000000000
    090200D000000000D002009000000000090200DDDDDDDDDDD002009000000000
    0902000000000000000200900000000009020000000000000002009000000000
    0902222222222222222200900000000009000000000000000000009000000000
    0900000000000000000000900000000009999999999999999999999000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    000000000000000000000000000000000000000000000000000000000000FFFF
    FFFFFFFFFFFFFFFFFFFFC0000003DFFFFFFBDFFFFFFBD800001BDBFFFFDBDBFF
    FFDBDA0000DBDAFFFEDBDAFFFEDBDAC006DBDADFF6DBDAD036DBDAD7B6DBDAD7
    B6DBDAD036DBDADFF6DBDAC006DBDAFFFEDBDAFFFEDBDA0000DBDBFFFFDBDBFF
    FFDBD800001BDFFFFFFBDFFFFFFBC0000003FFFFFFFFFFFFFFFFFFFFFFFF}
  OldCreateOrder = False
  ParentBiDiMode = False
  Position = poScreenCenter
  OnActivate = FormActivate
  OnClose = FormClose
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 18
  object Label1: TLabel
    Left = 488
    Top = 48
    Width = 31
    Height = 18
    Caption = #1575#1604#1575#1587#1600#1600#1605
  end
  object Label2: TLabel
    Left = 239
    Top = 48
    Width = 56
    Height = 18
    Caption = #1575#1604#1600#1605#1600#1600#1600#1576#1600#1600#1604#1600#1600#1600#1594
  end
  object Label3: TLabel
    Left = 230
    Top = 136
    Width = 41
    Height = 18
    Caption = #1578#1581#1584#1610#1585#1575#1578
  end
  object Label4: TLabel
    Left = 72
    Top = 136
    Width = 64
    Height = 18
    Caption = 'TVA '#1590#1585#1610#1576#1577
  end
  object Bevel1: TBevel
    Left = 0
    Top = 41
    Width = 582
    Height = 9
    Align = alTop
    Shape = bsTopLine
  end
  object Bevel2: TBevel
    Left = 8
    Top = 122
    Width = 561
    Height = 15
    Shape = bsBottomLine
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 582
    Height = 41
    Align = alTop
    Caption = #1575#1587#1605#1575#1569' '#1575#1589#1581#1575#1576' '#1575#1604#1583#1610#1608#1606' '#1608#1575#1604#1605#1576#1575#1604#1594' '#1575#1604#1605#1587#1580#1604#1577' '#1593#1604#1610#1607#1605
    Font.Charset = ARABIC_CHARSET
    Font.Color = clRed
    Font.Height = -15
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 0
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 398
    Width = 582
    Height = 19
    Panels = <>
    SimplePanel = True
  end
  object Edit1: TEdit
    Left = 144
    Top = 64
    Width = 153
    Height = 26
    TabOrder = 2
    OnChange = Edit1Change
  end
  object Edit2: TEdit
    Left = 152
    Top = 152
    Width = 121
    Height = 26
    TabOrder = 3
  end
  object Edit3: TEdit
    Left = 16
    Top = 152
    Width = 121
    Height = 26
    TabOrder = 4
  end
  object ComboBox1: TComboBox
    Left = 304
    Top = 64
    Width = 225
    Height = 26
    ItemHeight = 18
    TabOrder = 5
    OnChange = ComboBox1Change
  end
  object DBGrid1: TDBGrid
    Left = 16
    Top = 184
    Width = 545
    Height = 169
    DataSource = DataModuleMarche.DataSource4
    TabOrder = 6
    TitleFont.Charset = ARABIC_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -15
    TitleFont.Name = 'Arial'
    TitleFont.Style = [fsBold]
    OnMouseMove = DBGrid1MouseMove
    Columns = <
      item
        Expanded = False
        FieldName = 'Code'
        Title.Caption = #1585#1602#1605
        Width = 101
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Nom'
        Title.Caption = #1575#1587#1605
        Width = 114
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Nom_krid'
        Title.Caption = #1579#1605#1606' '#1575#1604#1583#1610#1606
        Width = 114
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Datetimes'
        Title.Caption = #1575#1604#1608#1602#1578' '#1608#1575#1604#1578#1575#1585#1610#1582
        Width = 151
        Visible = True
      end>
  end
  object CheckBox1: TCheckBox
    Left = 392
    Top = 96
    Width = 57
    Height = 17
    Hint = #1575#1592#1607#1575#1585' '#1608#1575#1582#1601#1575#1569' '#1575#1604#1578#1587#1580#1610#1604
    Caption = #1578#1587#1580#1610#1604
    ParentShowHint = False
    ShowHint = True
    TabOrder = 7
    OnClick = CheckBox1Click
  end
  object BitBtn2: TBitBtn
    Left = 16
    Top = 360
    Width = 129
    Height = 25
    Cursor = crHandPoint
    Caption = '&'#1593#1600#1600#1608#1583#1577
    TabOrder = 8
    OnMouseMove = BitBtn2MouseMove
    Kind = bkClose
  end
  object BitBtn3: TBitBtn
    Left = 8
    Top = 96
    Width = 89
    Height = 25
    Cursor = crHandPoint
    Caption = #1581#1600#1600#1600#1584#1601
    Font.Charset = ARABIC_CHARSET
    Font.Color = clRed
    Font.Height = -15
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 9
    OnClick = BitBtn3Click
    OnMouseMove = BitBtn3MouseMove
    Kind = bkOK
  end
  object BitBtn4: TBitBtn
    Left = 456
    Top = 96
    Width = 75
    Height = 25
    Cursor = crHandPoint
    Caption = #1578#1589#1581#1610#1581
    Enabled = False
    TabOrder = 10
    OnClick = BitBtn4Click
    OnMouseMove = BitBtn4MouseMove
    Kind = bkOK
  end
  object BitBtn5: TBitBtn
    Left = 240
    Top = 96
    Width = 75
    Height = 25
    Cursor = crHandPoint
    Caption = #1605#1587#1581
    TabOrder = 11
    OnClick = BitBtn5Click
    OnMouseMove = BitBtn5MouseMove
    Kind = bkOK
  end
  object BitBtn6: TBitBtn
    Left = 288
    Top = 152
    Width = 75
    Height = 25
    Cursor = crHandPoint
    Hint = #1601#1610' '#1581#1575#1604#1577'  '#1575#1604#1575#1604#1594#1575#1569' '#1575#1603#1578#1576' '#1575#1589#1601#1575#1585' '#1575#1610' 00'
    Caption = #1578#1587#1580#1610#1604' '
    ParentShowHint = False
    ShowHint = True
    TabOrder = 12
    OnClick = BitBtn6Click
    OnMouseMove = BitBtn6MouseMove
    Kind = bkOK
  end
  object BitBtn7: TBitBtn
    Left = 104
    Top = 96
    Width = 121
    Height = 25
    Cursor = crHandPoint
    Caption = #1578#1587#1583#1610#1583' '#1576#1575#1604#1578#1602#1587#1610#1591
    Enabled = False
    Font.Charset = ARABIC_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 13
    OnClick = BitBtn7Click
    Kind = bkOK
  end
  object BitBtn1: TBitBtn
    Left = 336
    Top = 96
    Width = 75
    Height = 25
    Cursor = crHandPoint
    Caption = #1578#1587#1580#1610#1604
    TabOrder = 14
    Visible = False
    OnClick = BitBtn1Click
    Kind = bkOK
  end
end



_________________
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

ali1
مبرمج مجتهد

عدد المساهمات : 861
تاريخ التسجيل : 29/07/2013

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: النسخة الجديدة من برنامج برنامج تسيير محل تجاري

مُساهمة  ali1 في 27/3/2017, 1:51 pm


الفورم السادسة وهي من أجل الاتصال بقاعدة البيانات

الكود:

object DataModuleMarche: TDataModuleMarche
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  Left = 522
  Top = 319
  Height = 304
  Width = 351
  object Table2: TTable
    BeforeOpen = Table1BeforeOpen
    TableName = 'MarchTV.db'
    Left = 136
    Top = 17
    object Table2Code: TFloatField
      FieldName = 'Code'
    end
    object Table2Aton_tion: TStringField
      FieldName = 'Aton_tion'
      Size = 8
    end
    object Table2TVA: TStringField
      FieldName = 'TVA'
      Size = 4
    end
  end
  object Table1: TTable
    BeforeOpen = Table1BeforeOpen
    TableName = 'March.DB'
    Left = 176
    Top = 17
    object Table1Code: TFloatField
      FieldName = 'Code'
    end
    object Table1Nom: TStringField
      FieldName = 'Nom'
    end
    object Table1Nombre_P1: TStringField
      FieldName = 'Nombre_P1'
    end
    object Table1Nombre_P2: TStringField
      FieldName = 'Nombre_P2'
    end
    object Table1Prix: TCurrencyField
      FieldName = 'Prix'
    end
    object Table1Prix_Achet: TCurrencyField
      FieldName = 'Prix_Achet'
    end
    object Table1DateTimes: TDateTimeField
      FieldName = 'DateTimes'
    end
  end
  object Table3: TTable
    BeforeOpen = Table1BeforeOpen
    TableName = 'Marche.DB'
    Left = 96
    Top = 16
    object Table3Code: TFloatField
      FieldName = 'Code'
    end
    object Table3Grand_Prix: TCurrencyField
      FieldName = 'Grand_Prix'
    end
    object Table3Grand_Prix1: TCurrencyField
      FieldName = 'Grand_Prix1'
    end
    object Table3Datetaimes: TDateTimeField
      FieldName = 'Datetaimes'
    end
  end
  object Table4: TTable
    BeforeOpen = Table1BeforeOpen
    TableName = 'Marchkr.DB'
    Left = 56
    Top = 16
    object Table4Code: TFloatField
      FieldName = 'Code'
    end
    object Table4Nom: TStringField
      FieldName = 'Nom'
    end
    object Table4Nom_krid: TCurrencyField
      FieldName = 'Nom_krid'
    end
    object Table4Datetimes: TDateTimeField
      FieldName = 'Datetimes'
    end
  end
  object Table5: TTable
    BeforeOpen = Table1BeforeOpen
    TableName = 'Marchkri.DB'
    Left = 16
    Top = 16
    object Table5Code: TFloatField
      FieldName = 'Code'
    end
    object Table5Marchkrid: TCurrencyField
      FieldName = 'Marchkrid'
    end
    object Table5DateTimes: TDateTimeField
      FieldName = 'DateTimes'
    end
  end
  object Query1: TQuery
    BeforeOpen = Table1BeforeOpen
    RequestLive = True
    SQL.Strings = (
      'Select *'
      'From March')
    Left = 24
    Top = 64
    object Query1Code: TFloatField
      FieldName = 'Code'
    end
    object Query1Nom: TStringField
      FieldName = 'Nom'
    end
    object Query1Nombre_P1: TStringField
      FieldName = 'Nombre_P1'
    end
    object Query1Nombre_P2: TStringField
      FieldName = 'Nombre_P2'
    end
    object Query1Prix: TCurrencyField
      FieldName = 'Prix'
    end
    object Query1DateTimes: TDateTimeField
      FieldName = 'DateTimes'
    end
    object Query1Prix_Achet: TCurrencyField
      FieldName = 'Prix_Achet'
    end
  end
  object DataSource1: TDataSource
    DataSet = Query1
    Left = 240
    Top = 72
  end
  object tblDestination: TTable
    Left = 88
    Top = 64
  end
  object BatchMove1: TBatchMove
    Left = 136
    Top = 128
  end
  object DataSource4: TDataSource
    DataSet = Table4
    Left = 168
    Top = 72
  end
end


_________________
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

ali1
مبرمج مجتهد

عدد المساهمات : 861
تاريخ التسجيل : 29/07/2013

الرجوع الى أعلى الصفحة اذهب الى الأسفل

الرجوع الى أعلى الصفحة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى