ufmspotgoodsjc.pas

来自「港口货物管理系统」· PAS 代码 · 共 711 行 · 第 1/2 页

procedure Tfmspotgoodsjc.RadioGroup1Click(Sender: TObject);
begin
combobox2.OnClick(sender);
end;

procedure Tfmspotgoodsjc.BitBtn4Click(Sender: TObject);
begin
application.CreateForm(Tfminitspotform,fminitspotform);
fminitspotform.show;
end;

procedure Tfmspotgoodsjc.BitBtn3Click(Sender: TObject);
var j,i,nline,sl,l:integer;
    showquery:tquery;
    fmpanel:array of tmemo;
    name1:tcomponentname;

begin
query6.Close;
query6.SQL.clear;
query6.SQL.add('select * from aspot where aspot='''+fmspotprivew.Query1.FieldValues['aspot']+'''');
query6.Open;
if query6.FieldValues['aspottype']='内建库场' then
begin
application.CreateForm(tfmspotform,fmspotform);
fmspotform.Caption:='南←──  '+fmspotprivew.Query1.FieldValues['aspot']+'  ──→北';
nline:=4;
fmspotform.Width:=935;
fmspotform.Image1.Width:=200*query6.FieldValues['Aspotpiece']+query6.FieldValues['Aspotpiece']*10;
fmspotform.Image2.Width:=200*query6.FieldValues['Aspotpiece']+query6.FieldValues['Aspotpiece']*10;
sl:=query6.FieldValues['Aspotpiece']+1;
SetLength(fmpanel,sl);
name1:=fmspotprivew.Query1.FieldValues['ahw'];
for j:=1 to nline do
begin
if j=1 then
for i:=1 to high(fmpanel) do
begin
fmpanel[i]:=tmemo.Create(self);
fmpanel[i].Parent:=fmspotform;
fmpanel[i].ReadOnly:=true;
fmpanel[i].Color:=clcream;
fmpanel[i].Font.Color:=clblue;
fmpanel[i].Alignment:=tacenter;
fmpanel[i].Name:='A'+inttostr(i);
if fmpanel[i].Name=name1 then fmpanel[i].Color:=clMoneyGreen;
fmpanel[i].Lines.Clear;
fmpanel[i].Lines.Add('场位：'+fmpanel[i].Name);
fmpanel[i].Width:=200;
fmpanel[i].Left:=(i-1)*200+(i-1)*10+10;
fmpanel[i].Height:=113;
fmpanel[i].Top:=6;
fmpanel[i].ScrollBars:=ssVertical;
showquery:=tquery.Create(self);
showquery.DatabaseName:='port';
showquery.close;
showquery.SQL.Clear;
showquery.SQL.add('select * from spotgoods where  aspot='''+fmspotprivew.Query1.FieldValues['aspot']+'''');
showquery.SQL.add(' and ahw='''+fmpanel[i].Name+'''');
showquery.Open;
if showquery.RecordCount>0 then
for l:=1 to showquery.RecordCount do
begin
fmpanel[i].Lines.Add('货代：'+showquery.FieldValues['agoodd']);
fmpanel[i].Lines.Add('货名：'+showquery.FieldValues['agname']);
fmpanel[i].Lines.Add('规格：'+showquery.FieldValues['adime']);
fmpanel[i].Lines.Add('提单号：'+showquery.FieldValues['atnum']);
fmpanel[i].Lines.Add('计划吨位：'+inttostr(showquery.FieldValues['nplanton']));
fmpanel[i].Lines.Add('件数：'+inttostr(showquery.FieldValues['ncoil']));
fmpanel[i].Lines.Add('支数：'+inttostr(showquery.FieldValues['npiece']));
fmpanel[i].Lines.Add('──────────────');
showquery.Next;
end;
if showquery<>nil then showquery.Destroy;
end;
if j=2 then
for i:=1 to high(fmpanel) do
begin
fmpanel[i]:=tmemo.Create(self);
fmpanel[i].Parent:=fmspotform;
fmpanel[i].ReadOnly:=true;
fmpanel[i].Color:=clcream;
fmpanel[i].Font.Color:=clblue;
fmpanel[i].ScrollBars:=ssVertical;
fmpanel[i].Alignment:=tacenter;
fmpanel[i].Name:='B'+inttostr(i);
if fmpanel[i].Name=name1 then fmpanel[i].Color:=clMoneyGreen;
fmpanel[i].Lines.Clear;
fmpanel[i].Lines.Add('场位：'+fmpanel[i].Name);
fmpanel[i].Width:=200;
fmpanel[i].Left:=(i-1)*200+(i-1)*10+10;
fmpanel[i].Height:=138;
fmpanel[i].Top:=fmspotform.Image1.Top+20;
showquery:=tquery.Create(self);
showquery.DatabaseName:='port';
showquery.close;
showquery.SQL.Clear;
showquery.SQL.add('select * from spotgoods where  aspot='''+fmspotprivew.Query1.FieldValues['aspot']+'''');
showquery.SQL.add(' and ahw='''+fmpanel[i].Name+'''');
showquery.Open;
if showquery.RecordCount>0 then
for l:=1 to showquery.RecordCount do
begin
fmpanel[i].Lines.Add('货代：'+showquery.FieldValues['agoodd']);
fmpanel[i].Lines.Add('货名：'+showquery.FieldValues['agname']);
fmpanel[i].Lines.Add('规格：'+showquery.FieldValues['adime']);
fmpanel[i].Lines.Add('提单号：'+showquery.FieldValues['atnum']);
fmpanel[i].Lines.Add('计划吨位：'+inttostr(showquery.FieldValues['nplanton']));
fmpanel[i].Lines.Add('件数：'+inttostr(showquery.FieldValues['ncoil']));
fmpanel[i].Lines.Add('支数：'+inttostr(showquery.FieldValues['npiece']));
fmpanel[i].Lines.Add('──────────────');
showquery.Next;
end;
if showquery<>nil then showquery.Destroy;
end;

if j=3 then
for i:=1 to high(fmpanel) do
begin
fmpanel[i]:=tmemo.Create(self);
fmpanel[i].Parent:=fmspotform;
fmpanel[i].ReadOnly:=true;
fmpanel[i].Color:=clcream;
fmpanel[i].Font.Color:=clblue;
fmpanel[i].ScrollBars:=ssVertical;
fmpanel[i].Alignment:=tacenter;
fmpanel[i].Name:='C'+inttostr(i);
if fmpanel[i].Name=name1 then fmpanel[i].Color:=clMoneyGreen;
fmpanel[i].Lines.Clear;
fmpanel[i].Lines.Add('场位：'+fmpanel[i].Name);
fmpanel[i].Width:=200;
fmpanel[i].Left:=(i-1)*200+(i-1)*10+10;
fmpanel[i].Height:=138;
fmpanel[i].Top:=fmspotform.Image2.Top+fmspotform.Image2.Height-20-138;
showquery:=tquery.Create(self);
showquery.DatabaseName:='port';
showquery.close;
showquery.SQL.Clear;
showquery.SQL.add('select * from spotgoods where  aspot='''+fmspotprivew.Query1.FieldValues['aspot']+'''');
showquery.SQL.add(' and ahw='''+fmpanel[i].Name+'''');
showquery.Open;
if showquery.RecordCount>0 then
for l:=1 to showquery.RecordCount do
begin
fmpanel[i].Lines.Add('货代：'+showquery.FieldValues['agoodd']);
fmpanel[i].Lines.Add('货名：'+showquery.FieldValues['agname']);
fmpanel[i].Lines.Add('规格：'+showquery.FieldValues['adime']);
fmpanel[i].Lines.Add('提单号：'+showquery.FieldValues['atnum']);
fmpanel[i].Lines.Add('计划吨位：'+inttostr(showquery.FieldValues['nplanton']));
fmpanel[i].Lines.Add('件数：'+inttostr(showquery.FieldValues['ncoil']));
fmpanel[i].Lines.Add('支数：'+inttostr(showquery.FieldValues['npiece']));
fmpanel[i].Lines.Add('──────────────');
showquery.Next;
end;
if showquery<>nil then showquery.Destroy;
end;
if j=4 then
for i:=1 to high(fmpanel) do
begin
fmpanel[i]:=tmemo.Create(self);
fmpanel[i].Parent:=fmspotform;
fmpanel[i].ReadOnly:=true;
fmpanel[i].Color:=clcream;
fmpanel[i].Font.Color:=clblue;
fmpanel[i].ScrollBars:=ssVertical;
fmpanel[i].Alignment:=tacenter;
fmpanel[i].Name:='D'+inttostr(i);
if fmpanel[i].Name=name1 then fmpanel[i].Color:=clMoneyGreen;
fmpanel[i].Lines.Clear;
fmpanel[i].Lines.Add('场位：'+fmpanel[i].Name);
fmpanel[i].Width:=200;
fmpanel[i].Left:=(i-1)*200+(i-1)*10+10;
fmpanel[i].Height:=113;
fmpanel[i].Top:=fmspotform.Image2.Top+fmspotform.Image2.Height+6;
showquery:=tquery.Create(self);
showquery.DatabaseName:='port';
showquery.close;
showquery.SQL.Clear;
showquery.SQL.add('select * from spotgoods where  aspot='''+fmspotprivew.Query1.FieldValues['aspot']+'''');
showquery.SQL.add(' and ahw='''+fmpanel[i].Name+'''');
showquery.Open;
if showquery.RecordCount>0 then
for l:=1 to showquery.RecordCount do
begin
fmpanel[i].Lines.Add('货代：'+showquery.FieldValues['agoodd']);
fmpanel[i].Lines.Add('货名：'+showquery.FieldValues['agname']);
fmpanel[i].Lines.Add('规格：'+showquery.FieldValues['adime']);
fmpanel[i].Lines.Add('提单号：'+showquery.FieldValues['atnum']);
fmpanel[i].Lines.Add('计划吨位：'+inttostr(showquery.FieldValues['nplanton']));
fmpanel[i].Lines.Add('件数：'+inttostr(showquery.FieldValues['ncoil']));
fmpanel[i].Lines.Add('支数：'+inttostr(showquery.FieldValues['npiece']));
fmpanel[i].Lines.Add('──────────────');
showquery.Next;
end;
if showquery<>nil then showquery.Destroy;
end;
end;
fmspotform.Show;
end

else if query6.FieldValues['aspottype']='码头前沿' then
begin
application.CreateForm(tfmfront,fmfront);
fmfront.Caption:='南←──  '+fmspotprivew.Query1.FieldValues['aspot']+'  ──→北';
nline:=2;
fmfront.Width:=935;
fmfront.Image1.Width:=200*query6.FieldValues['aspotpiece']+query6.FieldValues['aspotpiece']*10;
fmfront.Image2.Width:=200*query6.FieldValues['aspotpiece']+query6.FieldValues['aspotpiece']*10;
sl:=query6.FieldValues['aspotpiece']+1;
SetLength(fmpanel,sl);
name1:=fmspotprivew.Query1.FieldValues['ahw'];
for j:=1 to nline do
begin
if j=1 then
for i:=1 to high(fmpanel) do
begin
fmpanel[i]:=tmemo.Create(self);
fmpanel[i].Parent:=fmfront;
fmpanel[i].ReadOnly:=true;
fmpanel[i].Color:=clcream;
fmpanel[i].Font.Color:=clblue;
fmpanel[i].Alignment:=tacenter;
fmpanel[i].Name:='A'+inttostr(i);
if fmpanel[i].Name=name1 then fmpanel[i].Color:=clMoneyGreen;
fmpanel[i].Lines.Clear;
fmpanel[i].Lines.Add('场位：'+fmpanel[i].Name);
fmpanel[i].Width:=200;
fmpanel[i].Left:=(i-1)*200+(i-1)*10+10;
fmpanel[i].Height:=145;
fmpanel[i].Top:=60;
fmpanel[i].ScrollBars:=ssVertical;
showquery:=tquery.Create(self);
showquery.DatabaseName:='port';
showquery.close;
showquery.SQL.Clear;
showquery.SQL.add('select * from spotgoods where  aspot='''+fmspotprivew.Query1.FieldValues['aspot']+'''');
showquery.SQL.add(' and ahw='''+fmpanel[i].Name+'''');
showquery.Open;
if showquery.RecordCount>0 then
for l:=1 to showquery.RecordCount do
begin
fmpanel[i].Lines.Add('货代：'+showquery.FieldValues['agoodd']);
fmpanel[i].Lines.Add('货名：'+showquery.FieldValues['agname']);
fmpanel[i].Lines.Add('规格：'+showquery.FieldValues['adime']);
fmpanel[i].Lines.Add('提单号：'+showquery.FieldValues['atnum']);
fmpanel[i].Lines.Add('计划吨位：'+inttostr(showquery.FieldValues['nplanton']));
fmpanel[i].Lines.Add('件数：'+inttostr(showquery.FieldValues['ncoil']));
fmpanel[i].Lines.Add('支数：'+inttostr(showquery.FieldValues['npiece']));
fmpanel[i].Lines.Add('──────────────');
showquery.Next;
end;
if showquery<>nil then showquery.Destroy;
end;
if j=2 then
for i:=1 to high(fmpanel) do
begin
fmpanel[i]:=tmemo.Create(self);
fmpanel[i].Parent:=fmfront;
fmpanel[i].ReadOnly:=true;
fmpanel[i].Color:=clcream;
fmpanel[i].Font.Color:=clblue;
fmpanel[i].ScrollBars:=ssVertical;
fmpanel[i].Alignment:=tacenter;
fmpanel[i].Name:='B'+inttostr(i);
if fmpanel[i].Name=name1 then fmpanel[i].Color:=clMoneyGreen;
fmpanel[i].Lines.Clear;
fmpanel[i].Lines.Add('场位：'+fmpanel[i].Name);
fmpanel[i].Width:=200;
fmpanel[i].Left:=(i-1)*200+(i-1)*10+10;
fmpanel[i].Height:=170;
fmpanel[i].Top:=400;
showquery:=tquery.Create(self);
showquery.DatabaseName:='port';
showquery.close;
showquery.SQL.Clear;
showquery.SQL.add('select * from spotgoods where  aspot='''+fmspotprivew.Query1.FieldValues['aspot']+'''');
showquery.SQL.add(' and ahw='''+fmpanel[i].Name+'''');
showquery.Open;
if showquery.RecordCount>0 then
for l:=1 to showquery.RecordCount do
begin
fmpanel[i].Lines.Add('货代：'+showquery.FieldValues['agoodd']);
fmpanel[i].Lines.Add('货名：'+showquery.FieldValues['agname']);
fmpanel[i].Lines.Add('规格：'+showquery.FieldValues['adime']);
fmpanel[i].Lines.Add('提单号：'+showquery.FieldValues['atnum']);
fmpanel[i].Lines.Add('计划吨位：'+inttostr(showquery.FieldValues['nplanton']));
fmpanel[i].Lines.Add('件数：'+inttostr(showquery.FieldValues['ncoil']));
fmpanel[i].Lines.Add('支数：'+inttostr(showquery.FieldValues['npiece']));
fmpanel[i].Lines.Add('──────────────');
showquery.Next;
end;
if showquery<>nil then showquery.Destroy;
end;

end;
fmfront.Show;
end

else if query6.FieldValues['aspottype']='附加库场' then
begin
application.CreateForm(totherspotform,otherspotform);
otherspotform.Caption:='南←──  '+fmspotprivew.Query1.FieldValues['aspot']+'  ──→北';
nline:=1;
otherspotform.Width:=935;
sl:=query6.FieldValues['aspotpiece']+1;
SetLength(fmpanel,sl);
name1:=fmspotprivew.Query1.FieldValues['ahw'];
for i:=1 to high(fmpanel) do
begin
fmpanel[i]:=tmemo.Create(self);
fmpanel[i].Parent:=otherspotform;
fmpanel[i].ReadOnly:=true;
fmpanel[i].Color:=clcream;
fmpanel[i].Font.Color:=clblue;
fmpanel[i].Alignment:=tacenter;
fmpanel[i].Name:='A'+inttostr(i);
if fmpanel[i].Name=name1 then fmpanel[i].Color:=clMoneyGreen;
fmpanel[i].Lines.Clear;
fmpanel[i].Lines.Add('场位：'+fmpanel[i].Name);
fmpanel[i].Width:=200;
fmpanel[i].Left:=(i-1)*200+(i-1)*10+10;
fmpanel[i].Height:=300;
fmpanel[i].Top:=60;
fmpanel[i].ScrollBars:=ssVertical;
showquery:=tquery.Create(self);
showquery.DatabaseName:='port';
showquery.close;
showquery.SQL.Clear;
showquery.SQL.add('select * from spotgoods where  aspot='''+fmspotprivew.Query1.FieldValues['aspot']+'''');
showquery.SQL.add(' and ahw='''+fmpanel[i].Name+'''');
showquery.Open;
if showquery.RecordCount>0 then
for l:=1 to showquery.RecordCount do
begin
fmpanel[i].Lines.Add('货代：'+showquery.FieldValues['agoodd']);
fmpanel[i].Lines.Add('货名：'+showquery.FieldValues['agname']);
fmpanel[i].Lines.Add('规格：'+showquery.FieldValues['adime']);
fmpanel[i].Lines.Add('提单号：'+showquery.FieldValues['atnum']);
fmpanel[i].Lines.Add('计划吨位：'+inttostr(showquery.FieldValues['nplanton']));
fmpanel[i].Lines.Add('件数：'+inttostr(showquery.FieldValues['ncoil']));
fmpanel[i].Lines.Add('支数：'+inttostr(showquery.FieldValues['npiece']));
fmpanel[i].Lines.Add('──────────────');
showquery.Next;
end;
if showquery<>nil then showquery.Destroy;
end;
otherspotform.Show;
end;
end;




end.