📄 u_gloat.pas
字号:
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_Gloat.ComboBox6DropDown(Sender: TObject);
var List:TstringList;
i:integer;
begin
ComboBox6.clear;
List:=Tstringlist.Create;
with List do
begin
with Table6 do
TableName:='METERNO.dbf';
with Table6 do
begin
open;
first;
read;
for i:=1 to Table6.RecordCount do
begin
Add(Table6['METERNO']);
next;
ComboBox6.items := List;
end;
close;
end;
end;
end;
procedure TF_Gloat.Button1Click(Sender: TObject);
begin
close;
end;
procedure TF_Gloat.RadioButton1Click(Sender: TObject);
var SeekData:string;
begin
{ if (Combobox1.Text='') or (Combobox2.Text='') or
(Combobox3.Text='') or (Combobox4.Text='') or
(Combobox5.Text='') or (Combobox6.Text='') then
begin
MessageDlg('请选择有效资料',mtWarning,[mbOK],0);
Exit;
end; }
Edit1.Text:='0';
Edit2.Text:='0';
Edit3.Text:='0';
Edit4.Text:='0';
RadioButton1.Checked:=True;
RadioButton2.Checked:=False;
RadioButton3.Checked:=False;
RadioButton4.Checked:=False;
NoONE:=True;
NoTWO:=False;
NoTHREE:=False;
NoFOUR:=False;
with Table5 do
TableName:='Gloat.dbf';
with Table5 do
begin
IndexFieldNames:='CARNO';
SeekData:=Combobox2.Text;
open;
if (FindKey([SeekData])) and (Table5['Kno']=formatdatetime( 'dd',now)) then
begin
Combobox3.Text:=Table5['SD'];
Combobox4.Text:=Table5['RD'];
Combobox5.Text:=Table5['Name'];
Combobox6.Text:=Table5['METERNO'];
Edit1.Text:=Table5['ONE'];
Edit2.Text:=Table5['TWO'];
Edit3.Text:=Table5['THREE'];
Edit4.Text:=Table5['FOUR'];
Edit5.Text:=Table5['ORD'];
end;
end;
Table5.close;
end;
procedure TF_Gloat.RadioButton2Click(Sender: TObject);
var SeekData:string;
begin
if (Combobox1.Text='') or (Combobox2.Text='') or
(Combobox3.Text='') or (Combobox4.Text='') or
(Combobox5.Text='') or (Combobox6.Text='') then
begin
MessageDlg('请选择有效资料',mtWarning,[mbOK],0);
Exit;
end;
Edit1.Text:='0';
Edit2.Text:='0';
Edit3.Text:='0';
Edit4.Text:='0';
RadioButton1.Checked:=False;
RadioButton2.Checked:=True;
RadioButton3.Checked:=False;
RadioButton4.Checked:=False;
NoONE:=False;
NoTWO:=True;
NoTHREE:=False;
NoFOUR:=False;
with Table5 do
TableName:='Gloat.dbf';
with Table5 do
begin
IndexFieldNames:='CARNO';
SeekData:=Combobox2.Text;
open;
if FindKey([SeekData])and (Table5['Kno']=formatdatetime( 'dd',now)) then
begin
Combobox3.Text:=Table5['SD'];
Combobox4.Text:=Table5['RD'];
Combobox5.Text:=Table5['Name'];
Combobox6.Text:=Table5['METERNO'];
Edit1.Text:=Table5['ONE'];
Edit2.Text:=Table5['TWO'];
Edit3.Text:=Table5['THREE'];
Edit4.Text:=Table5['FOUR'];
Edit5.Text:=Table5['ORD'];
end;
end;
Table5.close;
end;
procedure TF_Gloat.RadioButton3Click(Sender: TObject);
var SeekData:string;
begin
if (Combobox1.Text='') or (Combobox2.Text='') or
(Combobox3.Text='') or (Combobox4.Text='') or
(Combobox5.Text='') or (Combobox6.Text='') then
begin
MessageDlg('请选择有效资料',mtWarning,[mbOK],0);
Exit;
end;
Edit1.Text:='0';
Edit2.Text:='0';
Edit3.Text:='0';
Edit4.Text:='0';
RadioButton1.Checked:=False;
RadioButton2.Checked:=False;
RadioButton3.Checked:=True;
RadioButton4.Checked:=False;
NoONE:=False;
NoTWO:=False;
NoTHREE:=True;
NoFOUR:=False;
with Table5 do
TableName:='Gloat.dbf';
with Table5 do
begin
IndexFieldNames:='CARNO';
SeekData:=Combobox2.Text;
open;
if FindKey([SeekData])and (Table5['Kno']=formatdatetime( 'dd',now)) then
begin
Combobox3.Text:=Table5['SD'];
Combobox4.Text:=Table5['RD'];
Combobox5.Text:=Table5['Name'];
Combobox6.Text:=Table5['METERNO'];
Edit1.Text:=Table5['ONE'];
Edit2.Text:=Table5['TWO'];
Edit3.Text:=Table5['THREE'];
Edit4.Text:=Table5['FOUR'];
Edit5.Text:=Table5['ORD'];
end;
end;
Table5.close;
end;
procedure TF_Gloat.RadioButton4Click(Sender: TObject);
var SeekData:string;
begin
if (Combobox1.Text='') or (Combobox2.Text='') or
(Combobox3.Text='') or (Combobox4.Text='') or
(Combobox5.Text='') or (Combobox6.Text='') then
begin
MessageDlg('请选择有效资料',mtWarning,[mbOK],0);
Exit;
end;
Edit1.Text:='0';
Edit2.Text:='0';
Edit3.Text:='0';
Edit4.Text:='0';
RadioButton1.Checked:=False;
RadioButton2.Checked:=False;
RadioButton3.Checked:=False;
RadioButton4.Checked:=True;
NoONE:=False;
NoTWO:=False;
NoTHREE:=False;
NoFOUR:=True;
with Table5 do
TableName:='Gloat.dbf';
with Table5 do
begin
IndexFieldNames:='CARNO';
SeekData:=Combobox2.Text;
open;
if FindKey([SeekData]) and (Table5['Kno']=formatdatetime( 'dd',now)) then
begin
Combobox3.Text:=Table5['SD'];
Combobox4.Text:=Table5['RD'];
Combobox5.Text:=Table5['Name'];
Combobox6.Text:=Table5['METERNO'];
Edit1.Text:=Table5['ONE'];
Edit2.Text:=Table5['TWO'];
Edit3.Text:=Table5['THREE'];
Edit4.Text:=Table5['FOUR'];
Edit5.Text:=Table5['ORD'];
end;
end;
Table5.close;
end;
procedure TF_Gloat.Button2Click(Sender: TObject);
begin
Button2.Caption:='车头第二次称量';
with Table8 do ///////////////空罐存盘
TableName:='EmptyJar.dbf';
with Table8 do
begin
open;
first ;
begin
edit;
Table8['JARWET']:=FloatToStr(StrToFloat(Edit3.Text)-StrToFloat(Edit4.Text));
Table8['DATE']:=DateToStr(Now);
post;
next;
end;
end;
if Edit4.Text<>'0' then
begin
close;
Table8.close;
end;
end;
procedure TF_Gloat.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Table1.Close;
Table2.Close;
Table3.Close;
Table4.Close;
Table5.Close;
Table6.Close;
Table7.Close;
Table8.Close;
end;
end.
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -