📄 u_gloatrecord.pas
字号:
MoveTo(154,500); //主横条2
LineTo(480,500);
MoveTo(154,1130);
LineTo(480,1130);
MoveTo(154,500); //主竖条2
LineTo(154,1130);
MoveTo(480,500);
LineTo(480,1130);
Pen.Width:=2; //横条
moveTo(10,500);
LineTo(480,500); //
moveTo(10,570);
LineTo(480,570);//
moveTo(10,640);
LineTo(480,640); //
moveTo(10,710);
LineTo(480,710);//
moveTo(10,780);
LineTo(480,780); //
moveTo(10,850);
LineTo(480,850); //
moveTo(10,920);
LineTo(480,920);//
moveTo(10,990);
LineTo(480,990); //
moveTo(10,1060);
LineTo(480,1060);//
TextOut(20,530,'序 号');
TextOut(20,590,'日 期');
TextOut(20,660,'入厂时间');
TextOut(20,730,'出厂时间');
TextOut(20,810,'车牌号码');
TextOut(20,870,'空 罐 重');
TextOut(20,950,'总 重 量');
TextOut(20,1010,'皮 重');
TextOut(20,1080,'净 重');
TextOut(400,950,' Kg'); //总重
TextOut(400,1010,' Kg'); //皮重
TextOut(400,1080,' Kg'); //净重
Font.Size:=10;
TextOut(164,530,Edit5.Text);
TextOut(164,590,formatdatetime('yyyy"年"mm"月"dd"日" ',NOW));//DateToStr(NOW));
TextOut(164,660,Edit14.Text);
TextOut(164,730,Edit10.Text);
TextOut(164,810,ComboBox2.Text);
TextOut(164,870,Edit8.Text);
TextOut(164,950,Edit6.Text);
TextOut(164,1010,Edit7.Text);
TextOut(164,1080,Edit9.Text);
TextOut(20,1300,'送货单位签名:');
MoveTo(180,1380);
LineTo(460,1380);
TextOut(20,1500,'收货单位签名:');
MoveTo(180,1580);
LineTo(460,1580);
//===================第二联===========================//
Font.Size:=18;
TextOut(550,25,'60T地磅称重记录单');
Font.Size:=11;
TextOut(530,110,'送货单位:');
TextOut(530,180,'收货单位:');
TextOut(530,250,'货品名称:');
TextOut(530,320,' 司称员:');
Font.Size:=10;
TextOut(663,110,Combobox3.Text);
TextOut(663,180,Combobox4.Text);
TextOut(663,250,Combobox5.Text);
TextOut(663,320,ComboBox1.Text);
Font.Size:=11;
TextOut(535,380,'请保留好单据');
MoveTo(520,440); //横线
LineTo(990,440);
Pen.Width:=4; //框
MoveTo(520,2); //主横条
LineTo(990,2);
MoveTo(520,360);
LineTo(990,360);
MoveTo(520,2); //主竖条
LineTo(520,360);
MoveTo(690,80); //竖隔线
moveTo(690,360);
MoveTo(990,2);
LineTo(990,360);
Pen.Width:=2; //横条
moveTo(520,80);
LineTo(990,80); //
moveTo(520,150);
LineTo(990,150);//
moveTo(520,220);
LineTo(990,220); //
moveTo(520,290);
LineTo(990,290);//
// moveTo(520,360);
// LineTo(1010,360); //
//************************//上半框 x=10 y=440
Font.Size:=12;
TextOut(550,460,' 第二联：收货单位留存');
Pen.Width:=4; //框
MoveTo(520,500); //主横条
LineTo(664,500);
MoveTo(520,1130);
LineTo(664,1130);
MoveTo(520,500); //主竖条
LineTo(520,1130);
MoveTo(664,500);
LineTo(664,1130);
MoveTo(664,500); //主横条
LineTo(990,500);
MoveTo(664,1130);
LineTo(990,1130);
MoveTo(664,500); //主竖条
LineTo(664,1130);
MoveTo(990,500);
LineTo(990,1130);
Pen.Width:=2; //横条
moveTo(520,500);
LineTo(990,500); //
moveTo(520,570);
LineTo(990,570);//
moveTo(520,640);
LineTo(990,640); //
moveTo(520,710);
LineTo(990,710);//
moveTo(520,780);
LineTo(990,780); //
moveTo(520,850);
LineTo(990,850); //
moveTo(520,920);
LineTo(990,920);//
moveTo(520,990);
LineTo(990,990); //
moveTo(520,1060);
LineTo(990,1060);//
TextOut(530,530,'序 号');
TextOut(530,590,'日 期');
TextOut(530,660,'入厂时间');
TextOut(530,730,'出厂时间');
TextOut(530,810,'车牌号码');
TextOut(530,870,'空 罐 重');
TextOut(530,950,'总 重 量');
TextOut(530,1010,'皮 重');
TextOut(530,1080,'净 重');
TextOut(910,950,' Kg'); //总重
TextOut(910,1010,' Kg'); //皮重
TextOut(910,1080,' Kg'); //净重
Font.Size:=10;
TextOut(674,530,Edit5.Text);
TextOut(674,590,formatdatetime('yyyy"年"mm"月"dd"日" ',NOW));
TextOut(674,660,Edit14.Text);
TextOut(674,730,Edit10.Text);
TextOut(674,810,ComboBox2.Text);
TextOut(674,870,Edit8.Text);
TextOut(674,950,Edit6.Text);
TextOut(674,1010,Edit7.Text);
TextOut(674,1080,Edit9.Text);
TextOut(530,1300,'送货单位签名:');
MoveTo(690,1380);
LineTo(970,1380);
TextOut(530,1500,'收货单位签名:');
MoveTo(690,1580);
LineTo(970,1580);
//===================第三联===========================//
Font.Size:=18;
TextOut(1035,25,'60T地磅称重记录单');
Font.Size:=11;
TextOut(1040,110,'送货单位:');
TextOut(1040,180,'收货单位:');
TextOut(1040,250,'货品名称:');
TextOut(1040,320,' 司称员:');
Font.Size:=10;
TextOut(1173,110,Combobox3.Text);
TextOut(1173,180,Combobox4.Text);
TextOut(1173,250,Combobox5.Text);
TextOut(1173,320,ComboBox1.Text);
Font.Size:=11;
TextOut(1045,380,'请保留好单据');
MoveTo(1030,440); //横线
LineTo(1440,440);
Pen.Width:=4; //框
MoveTo(1030,2); //主横条
LineTo(1440,2);
MoveTo(1030,360);
LineTo(1440,360);
MoveTo(1030,2); //主竖条
LineTo(1030,360);
MoveTo(1200,80); //竖隔线
moveTo(1200,360);
MoveTo(1440,2);
LineTo(1440,360);
Pen.Width:=2; //横条
moveTo(1030,80);
LineTo(1440,80); //
moveTo(1030,150);
LineTo(1440,150);//
moveTo(1030,220);
LineTo(1440,220); //
moveTo(1030,290);
LineTo(1440,290);//
// moveTo(1030,360);
// LineTo(1520,360); //
//************************//上半框 x=10 y=440
Font.Size:=12;
TextOut(1060,460,' 第三联： 地称室留存');
Pen.Width:=4; //框
MoveTo(1030,500); //主横条
LineTo(1174,500);
MoveTo(1030,1130);
LineTo(1174,1130);
MoveTo(1030,500); //主竖条
LineTo(1030,1130);
MoveTo(1174,500);
LineTo(1174,1130);
MoveTo(1174,500); //主横条
LineTo(1440,500);
MoveTo(1174,1130);
LineTo(1440,1130);
MoveTo(1174,500); //主竖条
LineTo(1174,1130);
MoveTo(1440,500);
LineTo(1440,1130);
Pen.Width:=2; //横条
moveTo(1030,500);
LineTo(1440,500); //
moveTo(1030,570);
LineTo(1440,570);//
moveTo(1030,640);
LineTo(1440,640); //
moveTo(1030,710);
LineTo(1440,710);//
moveTo(1030,780);
LineTo(1440,780); //
moveTo(1030,850);
LineTo(1480,850); //
moveTo(1030,920);
LineTo(1440,920);//
moveTo(1030,990);
LineTo(1440,990); //
moveTo(1030,1060);
LineTo(1440,1060);//
TextOut(1040,530,'序 号');
TextOut(1040,590,'日 期');
TextOut(1040,660,'入厂时间');
TextOut(1040,730,'出厂时间');
TextOut(1040,810,'车牌号码');
TextOut(1040,870,'空 罐 重');
TextOut(1040,950,'总 重 量');
TextOut(1040,1010,'皮 重');
TextOut(1040,1080,'净 重');
TextOut(1350,950,' Kg'); //总重
TextOut(1350,1010,' Kg'); //皮重
TextOut(1350,1080,' Kg'); //净重
Font.Size:=10;
TextOut(1184,530,Edit5.Text);
TextOut(1184,590,formatdatetime('yyyy"年"mm"月"dd"日" ',NOW));
TextOut(1184,660,Edit14.Text);
TextOut(1184,730,Edit10.Text);
TextOut(1184,810,ComboBox2.Text);
TextOut(1184,870,Edit8.Text);
TextOut(1184,950,Edit6.Text);
TextOut(1184,1010,Edit7.Text);
TextOut(1184,1080,Edit9.Text);
TextOut(1040,1300,'送货单位签名:');
MoveTo(1200,1380);
LineTo(1420,1380);
TextOut(1040,1500,'收货单位签名:');
MoveTo(1200,1580);
LineTo(1420,1580);
EndDoc;
end;
end;
close;
end;
procedure TF_GloatRecord.Button1Click(Sender: TObject);
begin
close;
end;
procedure TF_GloatRecord.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Table1.Close;
Table5.Close;
Table8.Close;
end;
end.
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -