النسخة الجديدة من برنامج برنامج تسيير محل تجاري
صفحة 1 من اصل 1
النسخة الجديدة من برنامج برنامج تسيير محل تجاري
النسخة الجديدة من برنامج برنامج تسيير محل تجاري
هذه الوحد الاولى وسيتم وضع الوحدات الاخرى بعد أيام
- الكود:
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
رد: النسخة الجديدة من برنامج برنامج تسيير محل تجاري
البرنامج
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
رد: النسخة الجديدة من برنامج برنامج تسيير محل تجاري
الوحدة الثانية
- الكود:
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
رد: النسخة الجديدة من برنامج برنامج تسيير محل تجاري
الوحدة الثالثة
- الكود:
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
رد: النسخة الجديدة من برنامج برنامج تسيير محل تجاري
الوحدة الرابعة
- الكود:
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
رد: النسخة الجديدة من برنامج برنامج تسيير محل تجاري
الوحدة الخامسة
- الكود:
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
رد: النسخة الجديدة من برنامج برنامج تسيير محل تجاري
الوحدة السادسة
- الكود:
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
رد: النسخة الجديدة من برنامج برنامج تسيير محل تجاري
النماذج أو الفورم المستعملة في البرنامج
---------------------------------------------
الفورم الأولى
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
رد: النسخة الجديدة من برنامج برنامج تسيير محل تجاري
الفورم الثانية
- الكود:
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
رد: النسخة الجديدة من برنامج برنامج تسيير محل تجاري
الفورم الثالثة
- الكود:
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
رد: النسخة الجديدة من برنامج برنامج تسيير محل تجاري
الفورم الرابعة
- الكود:
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
رد: النسخة الجديدة من برنامج برنامج تسيير محل تجاري
الفورم الخامسة
- الكود:
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
رد: النسخة الجديدة من برنامج برنامج تسيير محل تجاري
الفورم السادسة وهي من أجل الاتصال بقاعدة البيانات
- الكود:
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
مواضيع مماثلة
» النسخة الجديدة من برنامج - برنامج تسيير محل تجاري - الموضوع من الاعضاء فقط
» برنامج تسيير محل تجاري بدون دلفي
» برنامج بالدلفي لتسيير مــحل تـجـــاري النسخة 2
» برنامج لتسيير محل تجاري لبيع منتوجات
» برنامج لتسجيل موظفين أو طلبة النسخة الاولى
» برنامج تسيير محل تجاري بدون دلفي
» برنامج بالدلفي لتسيير مــحل تـجـــاري النسخة 2
» برنامج لتسيير محل تجاري لبيع منتوجات
» برنامج لتسجيل موظفين أو طلبة النسخة الاولى
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى