دلفي تعليم
هل تريد التفاعل مع هذه المساهمة؟ كل ما عليك هو إنشاء حساب جديد ببضع خطوات أو تسجيل الدخول للمتابعة.

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

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

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

مُساهمة  ali 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.




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

ali
مبرمج مجتهد

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

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

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

مُساهمة  ali 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.


ali
مبرمج مجتهد

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

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

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

مُساهمة  ali 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}



ali
مبرمج مجتهد

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

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

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

مُساهمة  ali 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}



ali
مبرمج مجتهد

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

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

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

مُساهمة  ali 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}



ali
مبرمج مجتهد

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

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

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

مُساهمة  ali 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}



ali
مبرمج مجتهد

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

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

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

مُساهمة  ali 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}



ali
مبرمج مجتهد

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

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

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

مُساهمة  ali 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



ali
مبرمج مجتهد

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

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

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

مُساهمة  ali 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



ali
مبرمج مجتهد

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

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

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

مُساهمة  ali 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



ali
مبرمج مجتهد

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

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

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

مُساهمة  ali 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



ali
مبرمج مجتهد

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

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

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

مُساهمة  ali 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



ali
مبرمج مجتهد

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

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

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

مُساهمة  ali 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


ali
مبرمج مجتهد

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

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

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

- مواضيع مماثلة

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