كيف يمكنني إظهار مبلغ موزع كل مربع يحمل رقم

medreg كتب:

السلام عليكم ورحمة الله تعالى

احتاج الى طريقة من خلال كود اضعه حتى يظهر المبلغ على ورقة الطباعة

بهذا الشكل حسب المرفق

انني اعمل بنسخة الدلفي7 وقاعدة البيانات absolute database

وجزاكم الله عنا كل خير

ولتعم الفائدة لقد وجدت الحل لمن يحتاج اليه

وارجو من المشرفين على المنتدى يلغو المشاركة إذا كان وضع الكود الجاهز ممنوع

function PadLeft(s, sChar: string; Len : SmallInt): string;
var
  i : SmallInt;
begin
  len := Len - length(s);
  For i := 1 to len do s := sChar + s;
  PadLeft := S;
end;

procedure TForm1.Button2Click(Sender: TObject);
var   MontantText,NumeroText,NomText,codeText: string;
begin
MontantText := DataSource1.DataSet.FieldByName('Montant').AsString;
MontantText := PadLeft(MontantText, ' ', 15);
NumeroText := DataSource1.DataSet.FieldByName('Numero').AsString;
NumeroText := PadLeft(NumeroText, ' ', 10);
NomText := DataSource1.DataSet.FieldByName('Nom').AsString;
NomText := PadLeft(NomText, ' ', 10);
codeText := DataSource1.DataSet.FieldByName('Cde').AsString;
codeText := PadLeft(codeText, ' ', 3);

QRCode1.Caption := codeText[1];
QRCode2.Caption := codeText[2];
QRCode3.Caption := codeText[3];

QRNom1.Caption := NomText[1];
QRNom2.Caption := NomText[2];
QRNom3.Caption := NomText[3];
QRNom4.Caption := NomText[4];
QRNom5.Caption := NomText[5];
QRNom6.Caption := NomText[6];
QRNom7.Caption := NomText[7];
QRNom8.Caption := NomText[8];
QRNom9.Caption := NomText[9];
QRNom10.Caption := NomText[10];

QRNumero1.Caption:= NumeroText[1];
QRNumero2.Caption:= NumeroText[2];
QRNumero3.Caption:= NumeroText[3];
QRNumero4.Caption:= NumeroText[4];
QRNumero5.Caption:= NumeroText[5];
QRNumero6.Caption:= NumeroText[6];
QRNumero7.Caption:= NumeroText[7];
QRNumero8.Caption:= NumeroText[8];
QRNumero9.Caption:= NumeroText[9];
QRNumero10.Caption:= NumeroText[10];

bLabel1.Caption := MontantText[1];
bLabel2.Caption := MontantText[2];
bLabel3.Caption := MontantText[3];
bLabel4.Caption := MontantText[4];

bLabel5.Caption := MontantText[5];
bLabel6.Caption := MontantText[6];
bLabel7.Caption := MontantText[7];
bLabel8.Caption := MontantText[8];
bLabel9.Caption := MontantText[9];

bLabel10.Caption := MontantText[10];
bLabel11.Caption := MontantText[11];
bLabel12.Caption := MontantText[12];
bLabel13.Caption := MontantText[13];
bLabel14.Caption := MontantText[14];
bLabel15.Caption := MontantText[15];
end;

غير واضح ممكن شرح