umcquery.pas

我的毕业设计

unit Umcquery;

interface

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

type
  Tfrmmcquery = class(TForm)
    Label1: TLabel;
    Commc: TComboBox;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    DataSource1: TDataSource;
    Table1: TTable;
    Query1: TQuery;
    procedure FormCreate(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmmcquery: Tfrmmcquery;

implementation

uses Uquery;

{$R *.dfm}

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

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

end
 end;

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

end.