uqueryimportcm.pas

物流行业

unit Uqueryimportcm;

interface

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

type
  Tfmqueryimportcm = class(TForm)
    DataSource1: TDataSource;
    Label1: TLabel;
    groupbox1: TGroupBox;
    GroupBox2: TGroupBox;
    DBGrid1: TDBGrid;
    BitBtn4: TBitBtn;
    StatusBar1: TStatusBar;
    Edit1: TEdit;
    Button1: TButton;
    Query3: TQuery;
    BitBtn1: TBitBtn;
    Label2: TLabel;
    Query1: TQuery;
    DataSource2: TDataSource;
    DBLookupListBox1: TDBLookupListBox;
    Query2: TQuery;
    procedure FormCreate(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure DBLookupListBox1Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fmqueryimportcm: Tfmqueryimportcm;

implementation

uses Uimportreport;

{$R *.dfm}

procedure Tfmqueryimportcm.FormCreate(Sender: TObject);
begin
edit1.Text:='';
end;

procedure Tfmqueryimportcm.BitBtn4Click(Sender: TObject);
begin
fmqueryimportcm.Close;
end;


procedure Tfmqueryimportcm.Button1Click(Sender: TObject);
begin
if trim(edit1.Text)<>'' then begin
query1.Params[0].AsString:=trim(edit1.Text);
query1.Active:=true;
query1.Open;
//end;
if query1.RecordCount=0 then
begin
showmessage('库中没有找到该船名,请重新输入!');
edit1.SetFocus;
end;
end
else
showmessage('船名不能为空!');

end;

procedure Tfmqueryimportcm.FormActivate(Sender: TObject);
begin
edit1.SetFocus;
end;

procedure Tfmqueryimportcm.DBLookupListBox1Click(Sender: TObject);
var sstring:string;
begin
sstring:='';
query3.close;
query3.Params[0].asstring:=trim(edit1.Text);
query3.Params[1].AsString:=dblookuplistbox1.KeyValue;
query3.Open;


query2.close;
query2.SQL.Clear;
query2.SQL.Add('select count(ccc),sum(nxz) from importcontainer where (ccm='+QuotedStr(trim(edit1.Text)) +') and (chc= '+ QuotedStr(dblookuplistbox1.KeyValue) + ') and (lzt=False) and (ccc=''20'''+''''')');
query2.Open;
sstring:=inttostr(query2.Fields[0].Value);
sstring:='20'''+' E 箱量  '+sstring;
statusbar1.Panels[0].Text:=sstring;

query2.close;
query2.SQL.Clear;
query2.SQL.Add('select count(ccc),sum(nxz) from importcontainer where (ccm='+QuotedStr(trim(edit1.Text)) +') and (chc= '+ QuotedStr(dblookuplistbox1.KeyValue) + ') and (lzt=true) and (ccc=''20'''+''''')');
query2.Open;
sstring:=inttostr(query2.Fields[0].Value);
sstring:='20'''+' F 箱量  '+sstring;
statusbar1.Panels[1].Text:=sstring;

query2.close;
query2.SQL.Clear;
query2.SQL.Add('select count(ccc),sum(nxz) from importcontainer where (ccm='+QuotedStr(trim(edit1.Text)) +') and (chc= '+ QuotedStr(dblookuplistbox1.KeyValue) + ') and (lzt=False) and (ccc=''40'''+''''')');
query2.Open;
sstring:=inttostr(query2.Fields[0].Value);
sstring:='40'''+' E 箱量  '+sstring;
statusbar1.Panels[2].Text:=sstring;

query2.close;
query2.SQL.Clear;
query2.SQL.Add('select count(ccc),sum(nxz) from importcontainer where (ccm='+QuotedStr(trim(edit1.Text)) +') and (chc= '+ QuotedStr(dblookuplistbox1.KeyValue) + ') and (lzt=true) and (ccc=''40'''+''''')');
query2.Open;
sstring:=inttostr(query2.Fields[0].Value);
sstring:='40'''+' F 箱量  '+sstring;
statusbar1.Panels[3].Text:=sstring;

query2.close;
query2.SQL.Clear;
query2.SQL.Add('select count(ccc),sum(nxz) from importcontainer where (ccm='+QuotedStr(trim(edit1.Text)) +') and (chc= '+ QuotedStr(dblookuplistbox1.KeyValue) + ') and (lzt=False) and (ccc=''45'''+''''')');
query2.Open;
sstring:=inttostr(query2.Fields[0].Value);
sstring:='45'''+' F 箱量  '+sstring;
statusbar1.Panels[4].Text:=sstring;

query2.close;
query2.SQL.Clear;
query2.SQL.Add('select count(ccc),sum(nxz) from importcontainer where (ccm='+QuotedStr(trim(edit1.Text)) +') and (chc= '+ QuotedStr(dblookuplistbox1.KeyValue) + ') and (lzt=true) and (ccc=''45'''+''''')');
query2.Open;
sstring:=inttostr(query2.Fields[0].Value);
sstring:='45'''+' F 箱量  '+sstring;
statusbar1.Panels[5].Text:=sstring;
end;

procedure Tfmqueryimportcm.BitBtn1Click(Sender: TObject);
begin
application.CreateForm(Tfmimportreport,fmimportreport);
fmimportreport.Query1:=query3;
fmimportreport.QuickRep1.DataSet:=fmimportreport.Query1;
fmimportreport.QRDBText1.DataSet:=fmimportreport.Query1;
fmimportreport.QRDBText2.DataSet:=fmimportreport.Query1;
fmimportreport.QRDBText3.DataSet:=fmimportreport.Query1;
fmimportreport.QRDBText4.DataSet:=fmimportreport.Query1;
fmimportreport.QRDBText5.DataSet:=fmimportreport.Query1;
fmimportreport.QRDBText6.DataSet:=fmimportreport.Query1;
fmimportreport.QRDBText7.DataSet:=fmimportreport.Query1;
fmimportreport.QRDBText8.DataSet:=fmimportreport.Query1;
fmimportreport.QRDBText9.DataSet:=fmimportreport.Query1;
fmimportreport.QRDBText10.DataSet:=fmimportreport.Query1;
fmimportreport.QRDBText11.DataSet:=fmimportreport.Query1;
fmimportreport.QRDBText12.DataSet:=fmimportreport.Query1;
fmimportreport.QRDBText13.DataSet:=fmimportreport.Query1;
fmimportreport.QRDBText14.DataSet:=fmimportreport.Query1;
fmimportreport.QRDBText15.DataSet:=fmimportreport.Query1;

fmimportreport.QRLabel18.Caption:=fmqueryimportcm.StatusBar1.Panels[0].Text;
fmimportreport.QRLabel19.Caption:=fmqueryimportcm.StatusBar1.Panels[1].Text;
fmimportreport.QRLabel20.Caption:=fmqueryimportcm.StatusBar1.Panels[2].Text;
fmimportreport.QRLabel21.Caption:=fmqueryimportcm.StatusBar1.Panels[3].Text;
fmimportreport.QRLabel22.Caption:=fmqueryimportcm.StatusBar1.Panels[4].Text;
fmimportreport.QRLabel23.Caption:=fmqueryimportcm.StatusBar1.Panels[5].Text;

fmimportreport.QuickRep1.Preview;
end;

end.