|
منتدى البرمجة كل ما يتعلق بلغات البرمجة، فيجوال بيسيك , سي ++ , دلفي , أكسيس , جافا , هتمل... |
في حال وجود أي مواضيع أو ردود مُخالفة من قبل الأعضاء، يُرجى الإبلاغ عنها فورًا باستخدام أيقونة ( تقرير عن مشاركة سيئة )، و الموجودة أسفل كل مشاركة .
آخر المواضيع |
|
برمجة برنامج بالدلفي تسيير مــحل تـجـــاري
|
أدوات الموضوع | انواع عرض الموضوع |
2016-02-13, 23:30 | رقم المشاركة : 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.
|
||||
2016-02-14, 09:51 | رقم المشاركة : 2 | |||
|
|
|||
2016-02-14, 19:55 | رقم المشاركة : 3 | |||
|
بارك الله فيكم |
|||
2016-02-19, 19:09 | رقم المشاركة : 4 | |||
|
الوحدة الثانية كود:
unit Unit2; { djelfa.info/vb منتدى البرمجة } interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, Db, DBTables, StdCtrls, Buttons, Grids, DBGrids; { djelfa.info/vb منتدى البرمجة } type TForm2 = class(TForm) Table1: TTable; Edit1: TEdit; Edit2: TEdit; Edit3: TEdit; BitBtn1: TBitBtn; Table1Code: TFloatField; Table1Nom: TStringField; Table1Nombre_P1: TStringField; Table1Nombre_P2: TStringField; Table1Prix: TStringField; DBGrid1: TDBGrid; DataSource1: TDataSource; BitBtn2: TBitBtn; BitBtn3: TBitBtn; ComboBox1: TComboBox; CheckBox1: TCheckBox; BitBtn4: TBitBtn; Label1: TLabel; Label2: TLabel; Label3: TLabel; BitBtn5: TBitBtn; Query1: TQuery; procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormActivate(Sender: TObject); procedure FormCreate(Sender: TObject); procedure Table1BeforeOpen(DataSet: TDataSet); procedure BitBtn1Click(Sender: TObject); procedure Edit1Change(Sender: TObject); procedure Edit2Change(Sender: TObject); procedure Edit3Change(Sender: TObject); procedure BitBtn2Click(Sender: TObject); procedure FormShow(Sender: TObject); procedure ComboBox1Change(Sender: TObject); procedure BitBtn3Click(Sender: TObject); procedure CheckBox1Click(Sender: TObject); procedure BitBtn4Click(Sender: TObject); procedure chargComb(Sender: TObject); private { Déclarations privées } public { Déclarations publiques } end; var Form2: TForm2; i: Integer; implementation uses Unit1; {$R *.DFM} { djelfa.info/vb منتدى البرمجة } procedure TForm2.chargComb(Sender: TObject); begi Combobox1.Clear; Combobox1.Text := 'خيارات'; Table1.DisableControls; try Table1.First; while not Table1.Eof do begin Combobox1.Items.Add(Table1Nom.Value); Table1.Next; { djelfa.info/vb منتدى البرمجة } end; finally { djelfa.info/vb منتدى البرمجة } Table1.EnableControls; end; procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction); begin Form1.Visible := True; i := 0; Form1.Timer1.Enabled := True; Query1.Active := False; end; procedure TForm2.FormActivate(Sender: TObject); begin Form2.Left := 163; { djelfa.info/vb منتدى البرمجة } Form2.Top := 86; Form2.Height := 449; Form2.Width := 585; i := 0; { djelfa.info/vb منتدى البرمجة } Query1.Active := True; end; { djelfa.info/vb منتدى البرمجة } procedure TForm2.FormCreate(Sender: TObject); begin { djelfa.info/vb منتدى البرمجة } Table1.Open; //////// //Query1.Active := True; end; procedure TForm2.Table1BeforeOpen(DataSet: TDataSet); begin Session.AddPassword('1962'); { djelfa.info/vb منتدى البرمجة } end; { djelfa.info/vb منتدى البرمجة } procedure TForm2.BitBtn1Click(Sender: TObject); var ba: array[0..1] of string; boo: boolean; begin boo := False; { djelfa.info/vb منتدى البرمجة } ba[1] := Edit1.Text; Table1.Open; Table1.DisableControls; { djelfa.info/vb منتدى البرمجة } try Table1.First; while not Table1.Eof do { djelfa.info/vb منتدى البرمجة } begin if ba[1] = Table1Nom.Value then boo := True; Table1.Next; { djelfa.info/vb منتدى البرمجة } { djelfa.info/vb منتدى البرمجة } end; finally Table1.EnableControls; { djelfa.info/vb منتدى البرمجة } if boo = False then begin { djelfa.info/vb منتدى البرمجة } Table1.Last; if Table1Code.Text = '' then i := 0 else i := strtoint(Table1Code.Text); i := i + 1; Table1.Append; { djelfa.info/vb منتدى البرمجة } Table1Code.Text := inttostr(i); Table1Nom.Value := Edit1.Text; Table1Nombre_P1.Value := Edit2.Text; Table1Nombre_P2.Value := Edit2.Text; Table1Prix.Value := Edit3.Text; Table1.Post; { djelfa.info/vb منتدى البرمجة } end else if boo = True then begin { djelfa.info/vb منتدى البرمجة } Table1.Locate('Nom',Edit1.Text,[LopartialKey]); Table1.Edit; { djelfa.info/vb منتدى البرمجة } Table1['Nombre_P1'] := strtoint(Table1Nombre_P1.Value) + strtoint(Edit2.Text); Table1['Nombre_P2'] := strtoint(Table1Nombre_P2.Value) + strtoint(Edit2.Text); Table1.Post; { djelfa.info/vb منتدى البرمجة } end; { djelfa.info/vb منتدى البرمجة } Edit1.Text := ''; Edit2.Text := ''; Edit3.Text := ''; { djelfa.info/vb منتدى البرمجة } BitBtn1.Enabled := False; chargComb(Form2); Edit1.TabOrder := 0; Edit2.TabOrder := 1; Edit3.TabOrder := 2; end; { djelfa.info/vb منتدى البرمجة } procedure TForm2.Edit1Change(Sender: TObject); begin if (Edit1.Text <> '')and(Edit2.Text <> '')and(Edit3.Text <> '') then begin BitBtn1.Enabled := True; BitBtn2.Enabled := True; BitBtn4.Enabled := True; end { djelfa.info/vb منتدى البرمجة } else begin BitBtn1.Enabled := False; BitBtn2.Enabled := False; BitBtn4.Enabled := False; end; end; { djelfa.info/vb منتدى البرمجة } procedure TForm2.Edit2Change(Sender: TObject); begin if (Edit1.Text <> '')and(Edit2.Text <> '')and(Edit3.Text <> '') then begin BitBtn1.Enabled := True; BitBtn2.Enabled := True; BitBtn4.Enabled := True; end else begin BitBtn1.Enabled := False; BitBtn2.Enabled := False; BitBtn4.Enabled := False; end; end; { djelfa.info/vb منتدى البرمجة } procedure TForm2.Edit3Change(Sender: TObject); begin if (Edit1.Text <> '')and(Edit2.Text <> '')and(Edit3.Text <> '') then begin BitBtn1.Enabled := True; BitBtn2.Enabled := True; BitBtn4.Enabled := True; end else begin BitBtn1.Enabled := False; BitBtn2.Enabled := False; BitBtn4.Enabled := False; end; end; { djelfa.info/vb منتدى البرمجة } procedure TForm2.BitBtn2Click(Sender: TObject); begin Table1.Locate('Nom',Edit1.Text,[LopartialKey]); Table1.Edit; { djelfa.info/vb منتدى البرمجة } Table1['Nom'] := Edit1.Text; Table1['Nombre_P1'] := Edit2.Text; Table1['Nombre_P2'] := Edit2.Text; Table1['Prix'] := Edit3.Text; Table1.Post; end; { djelfa.info/vb منتدى البرمجة } procedure TForm2.FormShow(Sender: TObject); begin Table1.Open; chargComb(Form2); end; { djelfa.info/vb منتدى البرمجة } { djelfa.info/vb منتدى البرمجة } procedure TForm2.ComboBox1Change(Sender: TObject); begin { djelfa.info/vb منتدى البرمجة } Table1.Locate('Nom',Combobox1.Text,[LopartialKey]); Edit1.Text := Table1Nom.Value; Edit2.Text := Table1Nombre_P1.Value; Edit2.Text := Table1Nombre_P2.Value; Edit3.Text := Table1Prix.Value; CheckBox1.Checked := False; BitBtn1.Visible := False; BitBtn2.Visible := True; CheckBox1.Caption := 'اظهار التسجيل'; end; { djelfa.info/vb منتدى البرمجة } procedure TForm2.BitBtn3Click(Sender: TObject); begin { djelfa.info/vb منتدى البرمجة } Combobox1.Text := 'خيارات'; BitBtn1.Visible := True; Edit1.Text := ''; Edit2.Text := ''; Edit3.Text := ''; BitBtn2.Visible := False; CheckBox1.Caption := 'اخفاء التسجيل'; end; { djelfa.info/vb منتدى البرمجة } procedure TForm2.CheckBox1Click(Sender: TObject); begin { djelfa.info/vb منتدى البرمجة } if CheckBox1.Checked = True then begin BitBtn1.Visible := True; Edit1.Text := ''; Edit2.Text := ''; CheckBox1.Caption := 'اخفاء التسجيل'; Edit3.Text := ''; Combobox1.Text := 'خيارات'; end else begin BitBtn1.Visible := False; CheckBox1.Caption := 'اظهار التسجيل'; end; end; { djelfa.info/vb منتدى البرمجة } procedure TForm2.BitBtn4Click(Sender: TObject); begin { djelfa.info/vb منتدى البرمجة } Table1.Locate('Nom',Edit1.Text,[LopartialKey]); if MessageDlg('هل تريد إزالة هذه السلعة ؟',mtConfirmation,[mbYes,mbNo],0) = mrYes then begin { djelfa.info/vb منتدى البرمجة } Table1.Delete; Edit1.Text := ''; Edit2.Text := ''; Edit3.Text := ''; end; { djelfa.info/vb منتدى البرمجة } chargComb(Form2); end; { djelfa.info/vb منتدى البرمجة } { djelfa.info/vb منتدى البرمجة } end. |
|||
2016-02-20, 07:50 | رقم المشاركة : 5 | |||
|
بارك الله فيكم |
|||
2016-02-20, 14:40 | رقم المشاركة : 6 | |||
|
بارك الله فيك |
|||
2016-02-21, 18:25 | رقم المشاركة : 7 | |||
|
في المتابعة ان شاء الله
لكن لو تكرمت بارفاق صور للفورمات |
|||
2016-02-23, 13:19 | رقم المشاركة : 8 | |||
|
بسم الله الرحمن الرحيم كود:
procedure TForm4.BitBtn10Click(Sender: TObject); begin // if Table3Marchkrid.Value <> '' then begin Table3.Open; Table3.First; if MessageDlg('هل تريد حذف هذا المجموع ؟',mtConfirmation,[mbYes,mbNo],0) = mrYes then begin Table3.Delete; Edit5.Text := ''; Edit6.Text := ''; end; if (Table3Marchkrid.Value = '')and(Table3Code.Text = '') then begin Table3.Open; Table3.First; Table3.Append; Table3Code.Text := '1'; Table3Marchkrid.Value := '0'; Table3.Post; end; //end; end; آخر تعديل طيباوي ابو علي1 2016-02-24 في 19:33.
|
|||
2016-02-23, 13:26 | رقم المشاركة : 9 | |||
|
اسم الوحدة الثالثة كود:
unit Unit3; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, { djelfa.info/vb منتدى البرمجة } StdCtrls, Db, DBTables, Buttons, ExtCtrls, Menus; type TForm3 = class(TForm) { djelfa.info/vb منتدى البرمجة } ComboBox1: TComboBox; Table1: TTable; Table1Code: TFloatField; Table1Nom: TStringField; Table1Nombre_P1: TStringField; Table1Nombre_P2: TStringField; Table1Prix: TStringField; Edit1: TEdit; BitBtn1: TBitBtn; Memo1: TMemo; Edit2: TEdit; BitBtn2: TBitBtn; Label1: TLabel; Label2: TLabel; { djelfa.info/vb منتدى البرمجة } Bevel1: TBevel; Label3: TLabel; Label4: TLabel; Label5: TLabel; Label6: TLabel; Label7: TLabel; Table2: TTable; BitBtn3: TBitBtn; SaveDialog1: TSaveDialog; MainMenu1: TMainMenu; File1: TMenuItem; Open1: TMenuItem; Save1: TMenuItem; N1: TMenuItem; Exit1: TMenuItem; OpenDialog1: TOpenDialog; Table3: TTable; Table3Code: TFloatField; Table3Aton_tion: TStringField; Table3TVA: TStringField; Table2Code: TStringField; Table2Grand_Prix: TStringField; Table2Grand_Prix1: TStringField; CheckBox1: TCheckBox; Table4: TTable; Table4Code: TFloatField; Table4Nom: TStringField; Table4Nom_krid: TStringField; ComboBox2: TComboBox; procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormActivate(Sender: TObject); procedure FormShow(Sender: TObject); procedure BitBtn1Click(Sender: TObject); procedure Edit1Change(Sender: TObject); procedure BitBtn3Click(Sender: TObject); procedure Open1Click(Sender: TObject); procedure Save1Click(Sender: TObject); procedure FormCreate(Sender: TObject); procedure BitBtn2Click(Sender: TObject); procedure ChekBoxour(Sender: TObject); procedure CheckBox1Click(Sender: TObject); private { Déclarations privées } public { Déclarations publiques } end; var Form3: TForm3; i,j: Integer; const DefaultFileName = 'Untitled'; implementation uses Unit1; {$R *.DFM} procedure TForm3.ChekBoxour(Sender: TObject); var booll: boolean; entrier: string; begin if ComboBox1.Text <> 'خيارات' then begin booll := False; entrier := ComboBox2.Text; Table4.Open; Table4.DisableControls; try Table4.First; while not Table4.Eof do begin if entrier = Table4Nom.Value then booll := True; Table4.Next; end; finally Table4.EnableControls; end; if (booll = False)or(Table4Code.Text = '') then begin Table4.Last; if Table4Code.Text = '' then j := 0 else j := strtoint(Table4Code.Text); j := j + 1; Table4.Append; Table4Code.Text := inttostr(j); Table4Nom.Value := entrier; Table4Nom_krid.value := Edit2.Text; Table4.Post; end else if booll = True then begin Table4.Locate('Nom',entrier,[LopartialKey]); Table4.Edit; Table4['Nom_krid'] := strtoint(Table4Nom_krid.Value) + strtoint(Edit2.Text); Table4.Post; end; end; end; procedure TForm3.FormClose(Sender: TObject; var Action: TCloseAction); begin Form1.Visible := True; if Edit2.Text <> '' then begin if CheckBox1.Checked = True then ChekBoxour(Form3); Table3.Open; Table3.First; Table2.Open; Table2.First; Table2.Edit; Table2.Edit; Table2['Code'] := '1'; if Table2Grand_Prix.Value <> '' then Table2['Grand_Prix'] := strtoint(Table2Grand_Prix.Value) + strtoint(Edit2.Text) + (strtoint(Edit2.Text) * strtofloat(Table3TVA.Value)) else Table2['Grand_Prix']:= strtoint(Edit2.Text) + (strtoint(Edit2.Text) * strtofloat(Table3TVA.Value)); Table2.Post; end; Edit2.Text := ''; i := 0; if Memo1.Lines.Count <> 0 then begin if SaveDialog1.Execute then Memo1.Lines.SaveToFile(SaveDialog1.FileName); end; Memo1.Clear; Form1.Timer1.Enabled := True; end; //khjkjhkhjkhjkhjkhjkhjkhjkhjk procedure TForm3.FormActivate(Sender: TObject); begin Form3.Left := 163; Form3.Top := 86; Form3.Height := 460; Form3.Width := 590; Memo1.Clear; Edit2.Clear; i := 0; end; procedure TForm3.Form{ djelfa.info/vb منتدى البرمجة }Show(Sender: TObject); begin Combobox1.Clear; { djelfa.info/vb منتدى البرمجة } Combobox1.Text := 'خــيارات'; Table1.Open; Table1.DisableControls; try Table1.First; while not Table1.Eof do begin Combobox1.Items.Add(Table1Nom.Value); Table1.Next; end; finally Table1.EnableControls; end; Combobox2.Clear; Combobox2.Text := 'خــيارات'; Table4.Open; Table4.DisableControls; try Table4.First; while not Table4.Eof do begin Combobox2.Items.Add(Table4Nom.Value); Table4.Next; end; finally Table4.EnableControls; end; end; procedure TForm3.BitBtn1Click(Sender: TObject); begin Table1.First; if (Table1Code.Text <> '')and(Combobox1.Text <> 'خــيارات') then begin Table1.Locate('Nom',Combobox1.Text,[LopartialKey]); if strtoint(Table1Nombre_P2.Value) < strtoint(Edit1.Text) then begin Showmessage('تم نفاذ هذه السلع وهي : ال'+Table1Nom.Value+' '+ Table1Nombre_P2.Value); Edit1.Text := ''; end else begin Table1.Edit; Table1['Nombre_P2'] := strtoint(Table1Nombre_P2.Value) - strtoint(Edit1.Text); Table1.Post; i := i + strtoint(Table1Prix.Value) * strtoint(Edit1.Text); Edit2.Clear; Edit2.Text := inttostr(i); Memo1.Lines.Add(Table1Nom.Value + ' : ' + Table1Prix.Value + ' * ' + Edit1.Text + ' = ' + inttostr(strtoint(Table1Prix.Value) * strtoint(Edit1.Text))); { djelfa.info/vb منتدى البرمجة } Edit1.Text := ''; end; end; end; procedure TForm3.Edit1Change(Sender: TObject); begin if Edit1.Text <> '' then BitBtn1.Enabled := True else BitBtn1.Enabled := False; end; procedure TForm3.BitBtn3Click(Sender: TObject); begin if Edit2.Text <> '' then begin if CheckBox1.Checked = True then ChekBoxour(Form3); Table2.Open; Table2.First; Table2.Edit; Table2.Edit; Table2['Code'] := '1'; if Table2Grand_Prix.Value <> '' then Table2['Grand_Prix'] := strtoint(Table2Grand_Prix.Value) + strtoint(Edit2.Text) + (strtoint(Edit2.Text) * strtofloat(Table3TVA.Value)) else Table2['Grand_Prix']:= strtoint(Edit2.Text) + (strtoint(Edit2.Text) * strtofloat(Table3TVA.Value)); Table2.Post; end; if Memo1.Lines.Count <> 0 then begin Memo1.Lines.Add('ضــريـبة : TVA '+ floattostr(strtofloat(Edit2.Text) * { djelfa.info/vb منتدى البرمجة } strtofloat(Table3TVA.Value)) + ' دج'); Memo1.Lines.Add('المجموع الكلي : '+floattostr(strtoint(Edit2.Text) + (strtofloat(Edit2.Text) * strtofloat(Table3TVA.Value))) + ' دج '); if SaveDialog1.Execute then Memo1.Lines.SaveToFile(SaveDialog1.FileName); end; Edit2.Text := ''; i := 0; Memo1.Clear; ComboBox1.Text := 'خــيارات'; end; procedure TForm3.Open1Click(Sender: TObject); begin Memo1.Clear; if OpenDialog1.Execute then Memo1.Lines.LoadFromFile(OpenDialog1.FileName); end; procedure TForm3.Save1Click(Sender: TObject); begin if Memo1.Lines.Count <> 0 then begin if SaveDialog1.Execute then Memo1.Lines.SaveToFile(SaveDialog1.FileName); Edit2.Text := ''; i := 0; Memo1.Clear; ComboBox1.Text := 'خــيارات'; end; end; procedure TForm3.FormCreate(Sender: TObject); begin Table1.Open; Table2.Open; Table3.Open; end; procedure TForm3.BitBtn2Click(Sender: TObject); begin if Memo1.Lines.Count <> 0 then begin Memo1.Lines.Add('ضــريـبة : TVA '+ floattostr(strtofloat(Edit2.Text) * strtofloat(Table3TVA.Value)) + ' دج'); Memo1.Lines.Add('المجموع الكلي : '+floattostr(strtoint(Edit2.Text) + (strtofloat(Edit2.Text) * strtofloat(Table3TVA.Value))) + ' دج '); end; Form3.Close; end; procedure TForm3.CheckBox1Click(Sender: TObject); begin ComboBox2.Text := ''; end; end. |
|||
2016-02-24, 19:37 | رقم المشاركة : 10 | |||
|
اسم الوحدة الرابعة كود:
unit Unit4; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, Grids, DBGrids, Db, DBTables, StdCtrls, Buttons, ExtCtrls, ComCtrls; type TForm4 = class(TForm) Table1: TTable; Edit1: TEdit; BitBtn1: TBitBtn; BitBtn2: TBitBtn; Panel1: TPanel; Bevel1: TBevel; BitBtn3: TBitBtn; StatusBar1: TStatusBar; Edit2: TEdit; Edit3: TEdit; Label1: TLabel; Label2: TLabel; Label3: TLabel; BitBtn4: TBitBtn; Table1Code: TStringField; Table1Grand_Prix: TStringField; Table1Grand_Prix1: TStringField; BitBtn5: TBitBtn; Table2: TTable; Table2Code: TFloatField; Table2Nom: TStringField; Table2Nombre_P1: TStringField; Table2Nombre_P2: TStringField; Table2Prix: TStringField; BitBtn6: TBitBtn; BitBtn7: TBitBtn; Edit4: TEdit; Edit5: TEdit; BitBtn8: TBitBtn; BitBtn9: TBitBtn; Edit6: TEdit; Label4: TLabel; Table3: TTable; Table3Code: TFloatField; Table3Marchkrid: TStringField; BitBtn10: TBitBtn; Label5: TLabel; procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormActivate(Sender: TObject); procedure BitBtn1Click(Sender: TObject); procedure Edit1Change(Sender: TObject); procedure BitBtn3Click(Sender: TObject); procedure Button1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); procedure BitBtn2MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); procedure BitBtn1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); procedure BitBtn3MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); procedure Edit1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); procedure Panel1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); procedure BitBtn4Click(Sender: TObject); procedure Edit2MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); procedure BitBtn4MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); procedure Edit2Change(Sender: TObject); procedure BitBtn5Click(Sender: TObject); procedure BitBtn6Click(Sender: TObject); procedure BitBtn7Click(Sender: TObject); procedure BitBtn8Click(Sender: TObject); procedure BitBtn10Click(Sender: TObject); procedure BitBtn9Click(Sender: TObject); procedure Edit5Change(Sender: TObject); private { Déclarations privées } public { Déclarations publiques } end; var Form4: TForm4; se1,sa2,su3,si4: real; implementation uses Unit1; {$R *.DFM} procedure TForm4.FormClose(Sender: TObject; var Action: TCloseAction); begin Form1.Visible := True; Form1.Timer1.Enabled := True; end; procedure TForm4.FormActivate(Sender: TObject); begin Form4.Left := 163; Form4.Top := 86; Form4.Height := 449; Form4.Width := 585; Table1.Open; Table1.First; Edit1.Text := Table1Grand_Prix.Value; Edit2.Text := '0'; Edit3.Text := ''; Edit2.TabOrder := 0; end; procedure TForm4.BitBtn1Click(Sender: TObject); begin Table1.Open; Table1.First; if MessageDlg('هل تريد حذف هذا المجموع ؟',mtConfirmation,[mbYes,mbNo],0) = mrYes then begin Table1.Delete; Edit1.Text := ''; Edit2.Text := ''; Edit3.Text := ''; end; if (Table1Grand_Prix.Value = '')and(Table1Code.Value = '') then begin Table1.Open; Table1.First; Table1.Append; Table1Code.Value := '1'; Table1Grand_Prix.Value := '0'; Table1Grand_Prix1.Value := '0'; Table1.Post; end; end; procedure TForm4.Edit1Change(Sender: TObject); begin if Edit1.Text <> '' then begin BitBtn1.Enabled := True; BitBtn3.Enabled := True; end else begin BitBtn1.Enabled := False; BitBtn3.Enabled := False; end; end; procedure TForm4.BitBtn3Click(Sender: TObject); begin Table1.Edit; Table1['Grand_Prix'] := Edit1.Text; Table1['Grand_Prix1'] := Edit2.Text; Table1.Post; end; procedure TForm4.Button1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin StatusBar1.SimpleText := ''; end; procedure TForm4.BitBtn2MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin StatusBar1.SimpleText := 'عــــودة الى الصفحة الرئيسية'; end; procedure TForm4.BitBtn1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin StatusBar1.SimpleText := 'حــذف المجموع نهائيا ولا تستطـيع التراجع'; end; procedure TForm4.BitBtn3MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin StatusBar1.SimpleText := 'التصحيح في حــالة حــدوث خطأ مــا'; end; procedure TForm4.Edit1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin StatusBar1.SimpleText := 'المجموع الكلي الذي تــم تسجيلـه حتى الآن '; end; procedure TForm4.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin StatusBar1.SimpleText := ''; end; procedure TForm4.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin StatusBar1.SimpleText := ''; end; procedure TForm4.BitBtn4Click(Sender: TObject); begin Table1.Open; Table1.First; Table1.Edit; Table1['Grand_Prix1'] := IntToStr(StrToInt(Edit2.Text) + StrToInt(Table1Grand_Prix1.Value)); Table1.Post; Edit4.Text := Table1Grand_Prix1.Value; Edit2.Text := ''; end; procedure TForm4.Edit2MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin StatusBar1.SimpleText := ' تسجيل ثمن كل ما قمت بشرائه من سلع'; end; procedure TForm4.BitBtn4MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin StatusBar1.SimpleText := ' وأنقر على تسجيل'; end; procedure TForm4.Edit2Change(Sender: TObject); begin if Edit2.Text <> '' then BitBtn4.Enabled := True else BitBtn4.Enabled := False; end; procedure TForm4.BitBtn5Click(Sender: TObject); begin Table2.Open; Table2.First; if (Table2Nombre_P1.Value <> '')or(Table2Nombre_P2.Value <> '') then begin se1 := 0; sa2 := 0; su3 := 0; si4 := 0; Table2.DisableControls; try Table2.First; while not Table2.Eof do begin se1 := se1 + StrToFloat(Table2Nombre_P1.Value); sa2 := sa2 + StrToFloat(Table2Nombre_P2.Value); Table2.Next; end; finally Table2.EnableControls; end; su3 := se1 - sa2; si4 := (su3 * 100) / se1; Edit3.Text := FloatToStr(si4); end else showmessage ('لـم يتم تسجيل أي سلع بعد سجّل كل السلع ثم حاول مرة اخرى'#13#10#13#10+ 'النسبة المئوية بنسبة للمبيعات'); end; procedure TForm4.BitBtn6Click(Sender: TObject); begin Table1.Open; Table1.First; Edit4.Text := Table1Grand_Prix1.Value; end; procedure TForm4.BitBtn7Click(Sender: TObject); begin Edit1.Text := ''; Edit2.Text := ''; Edit3.Text := ''; Edit4.Text := ''; Edit5.Text := ''; Edit6.Text := ''; end; procedure TForm4.BitBtn8Click(Sender: TObject); begin Table3.Open; Table3.First; Table3.Edit; Table3['Marchkrid'] := IntToStr(StrToInt(Table3Marchkrid.Value)+ StrToInt(Edit5.Text)); Table3.Post; Edit6.Text := Table3Marchkrid.Value; Edit5.Text := ''; end; procedure TForm4.BitBtn10Click(Sender: TObject); begin // if Table3Marchkrid.Value <> '' then begin Table3.Open; Table3.First; if MessageDlg('هل تريد حذف هذا المجموع ؟',mtConfirmation,[mbYes,mbNo],0) = mrYes then begin Table3.Delete; Edit5.Text := ''; Edit6.Text := ''; end; if (Table3Marchkrid.Value = '')and(Table3Code.Text = '') then begin Table3.Open; Table3.First; Table3.Append; Table3Code.Text := '1'; Table3Marchkrid.Value := '0'; Table3.Post; end; //end; end; procedure TForm4.BitBtn9Click(Sender: TObject); begin Table3.Open; Table3.First; Edit6.Text := Table3Marchkrid.Value; end; procedure TForm4.Edit5Change(Sender: TObject); begin if Edit5.Text <> '' then BitBtn8.Enabled := True else BitBtn8.Enabled := False; end; end. |
|||
2016-02-24, 19:42 | رقم المشاركة : 11 | |||
|
اسم الوحدة الخامسة كود:
unit Unit5; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, ExtCtrls, StdCtrls, Buttons, Db, DBTables, Grids, DBGrids; type TForm5 = class(TForm) Panel1: TPanel; StatusBar1: TStatusBar; Edit1: TEdit; Edit2: TEdit; Edit3: TEdit; Label1: TLabel; Label2: TLabel; Label3: TLabel; Table1: TTable; DataSource1: TDataSource; ComboBox1: TComboBox; DBGrid1: TDBGrid; Table1Code: TFloatField; Table1Nom: TStringField; Table1Nom_krid: TStringField; CheckBox1: TCheckBox; BitBtn2: TBitBtn; BitBtn3: TBitBtn; BitBtn4: TBitBtn; BitBtn5: TBitBtn; Table2: TTable; Table2Code: TFloatField; Table2Aton_tion: TStringField; Table2TVA: TStringField; Label4: TLabel; BitBtn6: TBitBtn; Bevel1: TBevel; Bevel2: TBevel; BitBtn7: TBitBtn; BitBtn1: TBitBtn; procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormActivate(Sender: TObject); procedure BitBtn1Click(Sender: TObject); procedure FormCreate(Sender: TObject); procedure FormShow(Sender: TObject); procedure ComboBox1Change(Sender: TObject); procedure CheckBox1Click(Sender: TObject); procedure BitBtn3Click(Sender: TObject); procedure BitBtn4Click(Sender: TObject); procedure BitBtn5Click(Sender: TObject); procedure BitBtn6Click(Sender: TObject); procedure BitBtn6MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); procedure BitBtn3MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); procedure BitBtn5MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); procedure BitBtn4MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); procedure BitBtn2MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); procedure Edit1Change(Sender: TObject); procedure DBGrid1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); procedure BitBtn7Click(Sender: TObject); private { Déclarations privées } public { Déclarations publiques } end; var Form5: TForm5; j: Integer; implementation uses Unit1; {$R *.DFM} procedure TForm5.FormClose(Sender: TObject; var Action: TCloseAction); begin Form1.Visible := True; Form1.Timer1.Enabled := True; end; procedure TForm5.FormActivate(Sender: TObject); begin Form5.Left := 163; Form5.Top := 86; Form5.Height := 449; Form5.Width := 585; end; procedure TForm5.BitBtn1Click(Sender: TObject); var booll: boolean; begin if ComboBox1.Text <> 'خيارات' then begin booll := False; Table1.Open; Table1.DisableControls; try Table1.First; while not Table1.Eof do begin if ComboBox1.Text = Table1Nom.Value then booll := True; Table1.Next; end; finally Table1.EnableControls; end; if (booll = False)or(Table1Code.Text = '') then begin Table1.Last; if Table1Code.Text = '' then j := 0 else j := strtoint(Table1Code.Text); j := j + 1; Table1.Append; Table1Code.Text := inttostr(j); Table1Nom.Value := ComboBox1.Text; Table1Nom_krid.value := Edit1.Text; Table1.Post; end else if booll = True then begin Table1.Locate('Nom',ComboBox1.Text,[LopartialKey]); Table1.Edit; Table1['Nom_krid'] := strtoint(Table1Nom_krid.Value) + strtoint(Edit1.Text); Table1.Post; end; Combobox1.Clear; Combobox1.Text := 'خيارات'; Table1.DisableControls; try Table1.First; while not Table1.Eof do begin Combobox1.Items.Add(Table1Nom.Value); Table1.Next; end; finally Table1.EnableControls; end; end; Edit1.Text := ''; end; procedure TForm5.FormCreate(Sender: TObject); begin Table1.Open; Table2.Open; end; procedure TForm5.FormShow(Sender: TObject); begin Combobox1.Clear; Combobox1.Text := 'خيارات'; Table1.DisableControls; try Table1.First; while not Table1.Eof do begin Combobox1.Items.Add(Table1Nom.Value); Table1.Next; end; finally Table1.EnableControls; end; Table2.First; Edit2.Text := Table2Aton_tion.Value; Edit3.Text := Table2TVA.Value; CheckBox1.Checked := False; end; procedure TForm5.ComboBox1Change(Sender: TObject); begin Table1.Locate('Nom',Combobox1.Text,[LopartialKey]); Edit1.Text := Table1Nom_krid.Value; end; procedure TForm5.CheckBox1Click(Sender: TObject); begin if CheckBox1.Checked = True then BitBtn1.Visible := True else BitBtn1.Visible := False; CheckBox1.Caption := ''; end; procedure TForm5.BitBtn3Click(Sender: TObject); begin Table1.Locate('Nom',ComboBox1.Text,[LopartialKey]); if MessageDlg ('هــل تريد حذف هذا الشخص من قائمة الديون',mtConfirmation,[mbYes,mbNo],0) = mrYes then begin Table1.Delete; Edit1.Text := ''; Combobox1.Clear; Combobox1.Text := 'خيارات'; Table1.DisableControls; try Table1.First; while not Table1.Eof do begin Combobox1.Items.Add(Table1Nom.Value); Table1.Next; end; finally Table1.EnableControls; end; end; end; procedure TForm5.BitBtn4Click(Sender: TObject); begin Table1.Locate('Nom',ComboBox1.Text,[LopartialKey]); Table1.Edit; Table1['Nom'] := ComboBox1.Text; Table1['Nom_krid'] := Edit1.Text; Table1.Post; Combobox1.Clear; Combobox1.Text := 'خيارات'; Table1.DisableControls; try Table1.First; while not Table1.Eof do begin Combobox1.Items.Add(Table1Nom.Value); Table1.Next; end; finally Table1.EnableControls; end; end; procedure TForm5.BitBtn5Click(Sender: TObject); begin Edit1.Text := ''; end; procedure TForm5.BitBtn6Click(Sender: TObject); begin if (Edit2.Text <> '')and(Edit3.Text <> '') then begin Table2.Edit; Table2['Code'] := '1'; Table2['Aton_tion'] := Edit2.Text; Table2['TVA'] := Edit3.Text; Table2.Post; end; end; procedure TForm5.BitBtn6MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin StatusBar1.SimpleText := 'تسجيل الضريبة( TVA ) والتحذيرات في حالة نفاذ احدى السلع من المحل التجاري'; end; procedure TForm5.BitBtn3MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin StatusBar1.SimpleText := 'في حالة اختيار نعم (Oui) يتم الحذف ولا تستطيع التراجع عن الحذف وفي حالة العكس اختر لا(Non)'; end; procedure TForm5.BitBtn5MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin StatusBar1.SimpleText := 'مسح ماهو ظاهر في مربع المبلغ'; end; procedure TForm5.BitBtn4MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin StatusBar1.SimpleText := 'تصحيح الاخطاء التي يحتمل ان ترتكب اثناء الكتابة وذلك بالكتابة الصحيحة '; end; procedure TForm5.BitBtn2MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin StatusBar1.SimpleText := 'عودة الى الصفحة الرئيسية من البرنامج'; end; procedure TForm5.Edit1Change(Sender: TObject); begin if Edit1.Text = '' then begin BitBtn4.Enabled := False; BitBtn7.Enabled := False; end else begin BitBtn4.Enabled := True; BitBtn7.Enabled := True; end; end; procedure TForm5.DBGrid1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin StatusBar1.SimpleText := 'لا يمكن تسجيل من هنا'; end; procedure TForm5.BitBtn7Click(Sender: TObject); begin if (ComboBox1.Text <> '')and(ComboBox1.Text <> 'خيارات')then begin Table1.Open; Table1.First; if strtoint(Edit1.Text) > strtoint(Table1Nom_krid.Value) then Showmessage('المبلغ الذي تم ادخاله أكبر من الدين') else begin Table1.Locate('Nom',ComboBox1.Text,[LopartialKey]); Table1.Edit; Table1['Nom_krid'] := strtoint(Table1Nom_krid.Value) - strtoint(Edit1.Text); Table1.Post; end; Edit1.Text := ''; end; end; end. |
|||
2016-02-24, 19:44 | رقم المشاركة : 12 | |||
|
=======================
ملفات قاعدة البيانات March.db Marche.db Marchkr.DB Marchkri.db MarchTV.db =========================== March.db --------- Code N * Nom A 15 Nombre_P1 A 10 Nombre_P2 A 10 Prix A 15 ===================== Marche.db ------- Code A 2 * Grand_Prix A 30 Grand_Prix A 33 ====================== Marchkr.DB -------- Code N * Nom A 15 Nom_krid A 15 ====================== Marchkri.db --------- Code N * Marchkrid A 35 ====================== MarchTV.db ----------- Code N * Aton_tion A 8 TVA A 4 |
|||
2016-02-24, 21:13 | رقم المشاركة : 13 | |||
|
جزيت خيرا على الملف
الملف لم يشتغل عندي لاني اعمل بنسخة xe7 لم يتعرف على DBTables مع ذلك اخذت فكرة جيدة عن الكودلات المستخدمة في الازرار آخر تعديل عبدالله بولنوار 2016-02-24 في 21:44.
|
|||
2016-02-25, 11:00 | رقم المشاركة : 14 | ||||
|
اقتباس:
السلام عليكم أنا أستعمل الان Delphi5 و Delphi6 و Delphi7 من borland ولم أطلع على النسخ الجديدة والتي صدرت من الشريكة الحالية بعد والبرنامج يعمل يشكل جيد عني ملاحظة اذا وضعت على الفورم العنصر TTable سيتم اضافة وحدتين في القسم uses وهما DB, DBTables انظر عندك بماذا عوض العنصر TTable واذا وضعته على الفورم ما هي الوحدات التي ستضاف في القسم uses ثم عوض الوحدات الجدبدة بالقديمة ونأسف لان النسخة الجدبدة ليست عند ولو اطلعت عليها لربما أفدك أكثر وأشكرك أخي على المعلومات |
||||
2016-02-25, 17:02 | رقم المشاركة : 15 | |||
|
قمت بتثبيت BDE components و مشى البرنامج عادي |
|||
|
|
المشاركات المنشورة تعبر عن وجهة نظر صاحبها فقط، ولا تُعبّر بأي شكل من الأشكال عن وجهة نظر إدارة المنتدى
المنتدى غير مسؤول عن أي إتفاق تجاري بين الأعضاء... فعلى الجميع تحمّل المسؤولية
Powered by vBulletin .Copyright آ© 2018 vBulletin Solutions, Inc