uckhquery.pas

来自「我的毕业设计」· PAS 代码 · 共 67 行

unit Uckhquery;

interface

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

type
  Tfrmckhquery = class(TForm)
    Label1: TLabel;
    Comckh: 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
  frmckhquery: Tfrmckhquery;

implementation

uses Uquery,Umcquery;

{$R *.dfm}

procedure Tfrmckhquery.FormCreate(Sender: TObject);

begin
comckh.Items.Add('1');
comckh.Items.Add('2');
comckh.Items.Add('3');
comckh.Items.Add('4');
comckh.Items.Add('5');
end;

procedure Tfrmckhquery.SpeedButton1Click(Sender: TObject);
begin
if comckh.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(comckh.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 Tfrmckhquery.SpeedButton2Click(Sender: TObject);
begin
close
end;

end.