initspotform.pas

来自「港口货物管理系统」· PAS 代码 · 共 389 行

unit initspotform;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls, Spin, DB, DBTables, DBCtrls,
  dbcgrids, Grids, DBGrids;

type
  Tfminitspotform = class(TForm)
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    DBLookupComboBox1: TDBLookupComboBox;
    Label1: TLabel;
    Query1: TQuery;
    DataSource1: TDataSource;
    panel1: TPanel;
    DBCtrlGrid1: TDBCtrlGrid;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    DBText1: TDBText;
    DBText2: TDBText;
    DBText3: TDBText;
    DBText4: TDBText;
    DBText5: TDBText;
    Table1: TTable;
    Table2: TTable;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
   { Public declarations }
  end;

var
  fminitspotform: Tfminitspotform;

implementation

uses spotform, ufmfront, ufmotherspot;

{$R *.dfm}


procedure Tfminitspotform.BitBtn1Click(Sender: TObject);
var j,i,nline,sl,l:integer;
    showquery:tquery;
    fmpanel:array of tmemo;
begin
if query1.FieldValues['aspottype']='内建库场' then
begin
application.CreateForm(tfmspotform,fmspotform);
fmspotform.Caption:='南←──  '+fminitspotform.DBLookupComboBox1.Text+'  ──→北';
nline:=4;
fmspotform.Width:=935;
fmspotform.Image1.Width:=200*query1.FieldValues['aspotpiece']+query1.FieldValues['aspotpiece']*10;
fmspotform.Image2.Width:=200*query1.FieldValues['aspotpiece']+query1.FieldValues['aspotpiece']*10;
sl:=query1.FieldValues['aspotpiece']+1;
SetLength(fmpanel,sl);
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);
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='''+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);
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='''+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);
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='''+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);
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='''+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 query1.FieldValues['aspottype']='码头前沿' then
begin
{if fmfront<>nil then fmfront.Destroy;
if  otherspotform<>nil then  otherspotform.Destroy;
if fmspotform<>nil then fmspotform.Destroy;}
application.CreateForm(tfmfront,fmfront);
fmfront.Caption:='南←──  '+fminitspotform.DBLookupComboBox1.Text+'  ──→北';
nline:=2;
fmfront.Width:=935;
fmfront.Image1.Width:=200*query1.FieldValues['aspotpiece']+query1.FieldValues['aspotpiece']*10;
fmfront.Image2.Width:=200*query1.FieldValues['aspotpiece']+query1.FieldValues['aspotpiece']*10;
sl:=query1.FieldValues['aspotpiece']+1;
SetLength(fmpanel,sl);
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);
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='''+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);
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='''+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 query1.FieldValues['aspottype']='附加库场' then
begin
{if fmfront<>nil then fmfront.Destroy;
if  otherspotform<>nil then  otherspotform.Destroy;
if fmspotform<>nil then fmspotform.Destroy;}

application.CreateForm(totherspotform,otherspotform);
otherspotform.Caption:='南←──  '+fminitspotform.DBLookupComboBox1.Text+'  ──→北';
nline:=1;
otherspotform.Width:=935;
//fmfront.Image1.Width:=200*query1.FieldValues['aspotpiece']+query1.FieldValues['aspotpiece']*10;
//fmfront.Image2.Width:=200*query1.FieldValues['aspotpiece']+query1.FieldValues['aspotpiece']*10;
sl:=query1.FieldValues['aspotpiece']+1;
SetLength(fmpanel,sl);
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);
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='''+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;


procedure Tfminitspotform.BitBtn2Click(Sender: TObject);
begin
fminitspotform.Close;
end;

end.