uhhquery.~pas

我的毕业设计

unit Uhhquery;

interface

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

type
  Tfrmhhquery = class(TForm)
    Label1: TLabel;
    Commc: TComboBox;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    procedure FormCreate(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmhhquery: Tfrmhhquery;

implementation

uses Uquery,Umcquery;

{$R *.dfm}

procedure Tfrmhhquery.FormCreate(Sender: TObject);
 var
 i:integer;
begin
frmmcquery.query1.open;
frmmcquery.table1.Active:=true;
for i:=1 to frmmcquery.table1.RecordCount do
begin
  commc.Items.Add(frmmcquery.table1.fieldbyname('货物号').AsString );
  frmmcquery.table1.Next;
end ;
 frmmcquery.table1.Active:=false;
end;

procedure Tfrmhhquery.SpeedButton1Click(Sender: TObject);
begin
if commc.Text='' then
 messagebox(getforegroundwindow, '请选择要查询的货物号！','系统提示', mb_ok + mb_iconinformation)
else
 begin
  frmmcquery.query1.close;
  frmmcquery.query1.SQL.Clear;
  frmmcquery.query1.SQL.Add('select * from hwb where 货物号=' + #39 +trim(commc.Text)+ #39);
  frmmcquery.query1.Open;
  if frmmcquery.query1.RecordCount=0 then
    messagebox(getforegroundwindow, '没有符合要求的记录！','系统提示', mb_ok + mb_iconinformation);
  frmquery.dbgrid1.refresh;
  frmquery.showmodal;

 end
 end;

procedure Tfrmhhquery.SpeedButton2Click(Sender: TObject);
begin
close
end;

end.