دخول

سليم 2024 · 11-09-2024, 08:25 PM

السلام عليكم
اخوتي الاعزاء اسعد الله مساءكم
لدية برنامج صغير قائمة مبيعات تحتوي علي

رقم الفاتورة -والصنف -وعدد الوحدات- والاجمالي

اريد انشاء فاتورة بالاصناف المباعة على الفورم ثم تحويلها علي الطابعة فقط. ساعدوني جزاكم الله خيرا.

Med-01 · 12-09-2024, 10:47 PM

استعمل الفاست ريبورت

https://www.youtube.com/watch?v=cStFyf5AYi8

سليم 2024 · 14-09-2024, 08:01 AM

فيديو غير واضح ومعقد .شكرا لك اخي على تعاونك معي

سليم 2024

الحمد لله
لقد تغلبت علي مشكلة انشاء فاتورة وحبيت ان اضعها واشارك بيها في البرنامج
للاستفادة لمن يحتاجها وهي عبارة عن 2 ملفات الاول تخزن فيه الفاتورة والتاني ملف يتكون من نفس حقول الملف الاول ولكنة فاضي يت تخزين فية البيانات اثناء الطباعة فقط ويتم الغاء عند الطباعة مرة اخري يعني يعبي تم يتم الغاء البيانات في كل عملية طباعه الفاتورة وهذا سورس البرنامج

كود :
procedure TForm1.Table1BeforePost(DataSet: TDataSet);
begin
Table1FN.Text:=Edit1.Text;
Table1NAME.Text:=Edit2.Text;
Table1BAYAN.Text:=Edit3.Text;
Table1QWLTY.Text:=Edit4.Text;
Table1PRICE.Text:=Edit5.Text;
Table1TOT.Text:=Edit6.Text;

end;

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
Table1.Post;
BitBtn1.Enabled:=true;
BitBtn2.Enabled:=false;

Edit3.Text:='';
Edit4.Text:='';
Edit5.Text:='';
Edit6.Text:='';
BitBtn1.SetFocus;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
Table1.Append;
BitBtn1.Enabled:=false;
BitBtn2.Enabled:=true;

Table1NAME.Text:=Edit2.Text;
Edit2.SetFocus;
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
Table1.Open;
Table1.Last;
Edit1.SetFocus;
Label11.Caption:=FormatDateTime('hh:mm',now );
Label4.Caption:=FormatDateTime('',date);
end;

procedure TForm1.BitBtn4Click(Sender: TObject);
begin
close;
end;

procedure TForm1.Edit5Exit(Sender: TObject);
VAR
A,B,C:REAL;
begin
A:=StrToFloat(Edit4.Text);
B:=StrToFloat(Edit5.Text);
C:=A*B;
Edit6.Text:=FloatToStr(C)   ;
end;

procedure TForm1.B(Sender: TObject);
begin
BitBtn1.SetFocus;
end;

procedure TForm1.BitBtn1Exit(Sender: TObject);
begin
Edit2.SetFocus;
end;

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then SelectNext(ActiveControl,True,true);
end;

procedure TForm1.Edit2Enter(Sender: TObject);
begin
LoadKeyboardLayout('00000401',klf_activate);
end;

procedure TForm1.Edit3Enter(Sender: TObject);
begin
LoadKeyboardLayout('00000401',klf_activate);
end;

procedure TForm1.Edit4Enter(Sender: TObject);
begin
LoadKeyboardLayout('00000409',klf_activate);
end;

procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
Table1.Edit;
Edit2.Text:=Table1NAME.Text;
end;

procedure TForm1.DBGrid1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key = VK_F12 then
begin
IF Application.MessageBox('åá ÇäÊ ãÊÇßÏ','ÊÍÐíÜÜÑ',MB_OKCANCEL)=IDOK THEN
BEGIN
Table1.Delete;
END;
END;
END;

دخول
اسم المستخدم/البريد الالكتروني :
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة