uqueryimportxh.~pas

物流行业

unit Uqueryimportxh;

interface

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

type
  Tfmqueryimportxh = 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;
    procedure FormCreate(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fmqueryimportxh: Tfmqueryimportxh;

implementation

{$R *.dfm}

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

procedure Tfmqueryimportxh.BitBtn4Click(Sender: TObject);
begin
fmqueryimportxh.Close;
end;


procedure Tfmqueryimportxh.Button1Click(Sender: TObject);
begin
if trim(edit1.Text)<>'' then begin
query3.Close;
query3.Params[0].Value:=trim(edit1.Text);
query3.Active:=true;
statusbar1.Panels[0].Text:='共计: '+inttostr(query3.RecordCount)+' 条记录 ';
end;
if query3.RecordCount=0 then
begin
showmessage('库中没有找到该箱号,请重新输入!');
edit1.SetFocus;
end;

end;

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

end.