السلام عليكم
اخوتي الاعزاء اسعد الله مساءكم
لدية برنامج صغير قائمة مبيعات تحتوي علي
رقم الفاتورة -والصنف -وعدد الوحدات- والاجمالي
اريد انشاء فاتورة بالاصناف المباعة على الفورم ثم تحويلها علي الطابعة فقط. ساعدوني جزاكم الله خيرا.
فيديو غير واضح ومعقد .شكرا لك اخي على تعاونك معي
الحمد لله
لقد تغلبت علي مشكلة انشاء فاتورة وحبيت ان اضعها واشارك بيها في البرنامج
للاستفادة لمن يحتاجها وهي عبارة عن 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;