📄 u_comlwet.pas
字号:
begin
append;
Table1['SD']:=ComboBox3.Text; //送货单位
Table1['RD']:=ComboBox4.Text; //收货单位
Table1['Name']:=ComboBox5.Text; // 货品名称
Table1['Opter']:=Combobox1.text;
Table1['Ord']:=Table1.RecordCount+1;
Table1['InTime']:=Edit14.Text;
Table1['OutTime']:= Edit10.Text;
Table1['Date']:=DateToStr(Now);
Table1['CarNo']:=Combobox2.text;
Table1['MeterNo']:=ComboBox6.Text;
Table1['TWet']:=StrToFloat(Edit6.Text);
Table1['LWet']:=StrToFloat(Edit7.Text);
Table1['Wet']:=StrToFloat(Edit9.Text);
Table1['Kno']:=formatdatetime( 'mmdd',now);
post;
next;
end;
Edit;
Table1['SD']:=ComboBox3.Text; //送货单位
Table1['RD']:=ComboBox4.Text; //收货单位
Table1['Name']:=ComboBox5.Text; // 货品名称
Table1['Opter']:=Combobox1.text;
Table1['Ord']:=Table1.RecordCount+1;
Table1['InTime']:=Edit14.Text;
Table1['OutTime']:= Edit10.Text;
Table1['Date']:=DateToStr(Now);
Table1['CarNo']:=Combobox2.text;
Table1['MeterNo']:=ComboBox6.Text;
Table1['TWet']:=StrToFloat(Edit6.Text);
Table1['LWet']:=StrToFloat(Edit7.Text);
Table1['Wet']:=StrToFloat(Edit9.Text);
Table1['Kno']:=formatdatetime( 'mmdd',now);
post;
next;
end;
with Table2 do //////////// /////////存盘2
TableName:='DATA\'+'MainWeight.dbf';
with Table2 do
begin
open;
first;
if not EOF then
begin
append;
Table2['SD']:=ComboBox3.Text; //送货单位
Table2['RD']:=ComboBox4.Text; //收货单位
Table2['Name']:=ComboBox5.Text; // 货品名称
Table2['Opter']:=Combobox1.text;
Table2['Ord']:=Table1.RecordCount+1;
Table2['InTime']:=Edit14.Text;
Table2['OutTime']:= Edit10.Text;
Table2['Date']:=DateToStr(Now);
Table2['CarNo']:=Combobox2.text;
Table2['MeterNo']:=ComboBox6.Text;
Table2['TWet']:=StrToFloat(Edit6.Text);
Table2['LWet']:=StrToFloat(Edit7.Text);
Table2['Wet']:=StrToFloat(Edit9.Text);
Table2['Kno']:=formatdatetime( 'mmdd',now);
post;
next;
end;
Edit;
Table2['SD']:=ComboBox3.Text; //送货单位
Table2['RD']:=ComboBox4.Text; //收货单位
Table2['Name']:=ComboBox5.Text; // 货品名称
Table2['Opter']:=Combobox1.text;
Table2['Ord']:=Table1.RecordCount+1;
Table2['InTime']:=Edit14.Text;
Table2['OutTime']:= Edit10.Text;
Table2['Date']:=DateToStr(Now);
Table2['CarNo']:=Combobox2.text;
Table2['MeterNo']:=ComboBox6.Text;
Table2['TWet']:=StrToFloat(Edit6.Text);
Table2['LWet']:=StrToFloat(Edit7.Text);
Table2['Wet']:=StrToFloat(Edit9.Text);
Table2['Kno']:=formatdatetime( 'mmdd',now);
post;
next;
end;
DataPrn;
Table1.close;
Table2.close;
close;
end;
procedure TF_ComLwet.DataPrn; //行高＝70 性宽＝480
begin
with printer do
begin
BeginDoc;
with canvas do
begin
Pen.color:=clBlack; //字体颜色
//Pen.Width:=2;
Font.Charset := DEFAULT_CHARSET;
Font.Color := clWindowText ;
Font.Style := [];
// Font.Name := 'MS Sans Serif';
Font.Name := '宋体';
Font.Height := 11;
//====================第一联====================================//
Font.Size:=18;
TextOut(40,25,'60T地磅称重记录单');
Font.Size:=11;
TextOut(20,110,'送货单位:');
TextOut(20,180,'收货单位:');
TextOut(20,250,'货品名称:');
TextOut(20,320,' 司称员:');
Font.Size:=10;
TextOut(153,110,Combobox3.Text);
TextOut(153,180,Combobox4.Text);
TextOut(153,250,Combobox5.Text);
TextOut(153,320,ComboBox1.Text);
Font.Size:=11;
TextOut(25,380,'请保留好单据');
MoveTo(10,440); //横线
LineTo(480,440);
//************************//上半框
Pen.Width:=4; //框
MoveTo(10,2); //主横条
LineTo(480,2);
MoveTo(10,360);
LineTo(480,360);
MoveTo(10,2); //主竖条
LineTo(10,360);
MoveTo(180,80); //竖隔线
moveTo(180,360);
MoveTo(480,2);
LineTo(480,360);
Pen.Width:=2; //横条
moveTo(10,80);
LineTo(480,80); //
moveTo(10,150);
LineTo(480,150);//
moveTo(10,220);
LineTo(480,220); //
moveTo(10,290);
LineTo(480,290);//
// moveTo(10,360);
// LineTo(500,360); //
//************************//上半框 x=10 y=440
Font.Size:=12;
TextOut(40,460,' 第一联： 客户留存');
Pen.Width:=4; //框
MoveTo(10,500); //主横条1
LineTo(154,500);
MoveTo(10,1130);
LineTo(154,1130);
MoveTo(10,500); //主竖条1
LineTo(10,1130);
MoveTo(154,500);
LineTo(154,1130);
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,Combobox6.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,ComboBox6.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,ComboBox6.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_COMLWET.ComboBox2KeyPress(Sender: TObject; var Key: Char);
begin
TimeRun :=False;
Edit5.Text:='';
Edit6.Text:='';
Edit7.Text:='';
Edit9.Text:='';
Edit10.Text:='';
Edit14.Text:='';
ComboBox3.clear;
ComboBox4.clear;
ComboBox5.clear;
ComboBox6.clear;
ComboBox1.clear;
Edit6.Text:='0';
Edit9.Text:='0';
end;
end.
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -