![]() |
|
منتدى البرمجة كل ما يتعلق بلغات البرمجة، فيجوال بيسيك , سي ++ , دلفي , أكسيس , جافا , هتمل... |
في حال وجود أي مواضيع أو ردود
مُخالفة من قبل الأعضاء، يُرجى الإبلاغ عنها فورًا باستخدام أيقونة
( تقرير عن مشاركة سيئة )، و الموجودة أسفل كل مشاركة .
آخر المواضيع |
|
برمجة برنامج بالدلفي تسيير مــحل تـجـــاري
|
أدوات الموضوع | انواع عرض الموضوع |
![]() |
رقم المشاركة : 1 | ||||
|
![]() بسم الله الرحمن الرحيم كود:
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. سيتم وضعه على فترات أقصد كل يوم أو أكثر حتى أنتهي من وضع في المنتدى وعندما انتهي منه أضعه مرفق
آخر تعديل طيباوي ابو علي1 2016-02-24 في 19:28.
|
||||
![]() |
|
|
المشاركات المنشورة تعبر عن وجهة نظر صاحبها فقط، ولا تُعبّر بأي شكل من الأشكال عن وجهة نظر إدارة المنتدى
المنتدى غير مسؤول عن أي إتفاق تجاري بين الأعضاء... فعلى الجميع تحمّل المسؤولية
Powered by vBulletin .Copyright آ© 2018 vBulletin Solutions, Inc