queryproduct.pas

企业库存管理系统

unit queryproduct;

interface

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

type
  Tqueryproductfrm = class(TForm)
    GroupBox1: TGroupBox;
    RadioButton1: TRadioButton;
    Edit1: TEdit;
    RadioButton2: TRadioButton;
    GroupBox2: TGroupBox;
    ADOQuery1: TADOQuery;
    StringGrid1: TStringGrid;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;

    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  queryproductfrm: Tqueryproductfrm;

implementation
  uses main;
{$R *.dfm}




procedure Tqueryproductfrm.BitBtn1Click(Sender: TObject);

var
query:string;
i:integer;
begin

  for i:=1 to 10 do
    begin
     with stringgrid1 do
     begin
     cells[0,i]:='';
     cells[1,i]:='';
     cells[2,i]:='';
     cells[3,i]:='';
     cells[4,i]:='';
     cells[5,i]:='';
     cells[6,i]:='';
     end;
   next;
end;

if radiobutton1.checked=true then
  if edit1.text='' then
     showmessage('请输入相应的查询条件！')
  else
   query:='select * from PRODUCT where productname like'+''''+'%'+edit1.text+'%'+''''+'order by productid';
if radiobutton2.checked=true then
query:='select * from PRODUCT order by productid';
if query<>'' then
begin
  with adoquery1 do
  begin
    close;
    sql.clear;
    sql.add(query);
    open;
    first;
    if recordcount=0 then
    begin
     showmessage('对不起，没有符合条件的查询结果');
     edit1.setfocus;
     end
    else
     begin
     stringgrid1.rowcount:=adoquery1.RecordCount+1;
     for i:=1 to adoquery1.RecordCount do
     with stringgrid1 do
     begin
     cells[0,i]:=fieldbyname('productid').asstring;
     cells[1,i]:=fieldbyname('productname').asstring;
     cells[2,i]:=fieldbyname('unit').asstring;
     cells[3,i]:=fieldbyname('spec').asstring;
     cells[4,i]:=fieldbyname('class').asstring;
     cells[5,i]:=fieldbyname('min_sto').asstring;
     cells[6,i]:=fieldbyname('max_sto').asstring;
     end;
     next;
     end;
     end;
   end;
end;
procedure Tqueryproductfrm.BitBtn2Click(Sender: TObject);
begin
queryproductfrm.Hide;
mainfrm.Show;
end;
end.