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

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

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

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

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



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

1

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

2


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

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

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

ملاحظة هامة

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

3

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

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

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

4

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

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

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

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

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

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

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

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

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

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

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



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


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

unit Unit1;

interface

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

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

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

implementation

uses Unit2, Unit3, Unit4, Unit5;

{$R *.DFM}

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

end.

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

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

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