maisam57
سه شنبه 25 مهر 1385, 14:40 عصر
با سلام
یه مشکل عجیب توی fast report واسم پیش اومده بدین صورت که
یه فرم جهت ورودی اطلاعات کارمند طراحی کردم و میخوام علاوه بر ثبت عمل پرینت هم انجام بشه یه فرم بنام report ایجاد کردم و کامپوننتهای fastreport مربوط به پرینت هم اونجا گذاشتم ولی توی دکمه ثبت و چاپ این کد رو که مینویسم اطلاعات دیگری رو چاپ میکنه
with ADOTable2 do if state in [dsedit,dsinsert] then
begin
post;
with print_karmand_family_form.ADOTable2 do
begin
Open;
Locate('bimeh_code,fname', VarArrayOf([trim(DBText1.Caption),trim(DBEdit2.Text)]), [locaseinsensitive]);
print_karmand_family_form.frxReport2.PrepareReport ();
print_karmand_family_form.frxReport2.Print;
Close;
end;
append;
DBEdit2.SetFocus;
end;
dbtext1 فیلد id از نوع numeric
dbedit2 فیلد lname از نوع char
با تشکر
یه مشکل عجیب توی fast report واسم پیش اومده بدین صورت که
یه فرم جهت ورودی اطلاعات کارمند طراحی کردم و میخوام علاوه بر ثبت عمل پرینت هم انجام بشه یه فرم بنام report ایجاد کردم و کامپوننتهای fastreport مربوط به پرینت هم اونجا گذاشتم ولی توی دکمه ثبت و چاپ این کد رو که مینویسم اطلاعات دیگری رو چاپ میکنه
with ADOTable2 do if state in [dsedit,dsinsert] then
begin
post;
with print_karmand_family_form.ADOTable2 do
begin
Open;
Locate('bimeh_code,fname', VarArrayOf([trim(DBText1.Caption),trim(DBEdit2.Text)]), [locaseinsensitive]);
print_karmand_family_form.frxReport2.PrepareReport ();
print_karmand_family_form.frxReport2.Print;
Close;
end;
append;
DBEdit2.SetFocus;
end;
dbtext1 فیلد id از نوع numeric
dbedit2 فیلد lname از نوع char
با تشکر