uqueryexportcm.pas

物流行业

unit Uqueryexportcm;

interface

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

type
  Tfmqueryexportcm = 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
  fmqueryexportcm: Tfmqueryexportcm;

implementation

uses Uexportreport;

{$R *.dfm}

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

procedure Tfmqueryexportcm.BitBtn4Click(Sender: TObject);
begin
fmqueryexportcm.Close;
end;


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

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

procedure Tfmqueryexportcm.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 exportcontainer 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 exportcontainer 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 exportcontainer 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 exportcontainer 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 exportcontainer 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 exportcontainer 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;







//statusbar1.Panels[0].Text:='共计: '+inttostr(query3.RecordCount)+' 条记录 ';
end;

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

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

fmexportreport.QuickRep1.Preview;

end;

end.