ugysmquery.~pas

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

unit Ugysmquery;

interface

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

type
  Tfrmgymquery = 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
  frmgymquery: Tfrmgymquery;

implementation

uses  Uquery1,Ugyshquery;

{$R *.dfm}

procedure Tfrmgymquery.FormCreate(Sender: TObject);
 var
 j:integer;
begin
frmgyhquery.query1.Close;
frmgyhquery.query1.open;
frmgyhquery.table1.Active:=true;
for j:=1 to frmgyhquery.table1.RecordCount do
begin
  commc.Items.Add(frmgyhquery.table1.fieldbyname('供应商名').AsString );
  frmgyhquery.table1.Next;
end;
 frmgyhquery.table1.Active:=false;
end;

procedure Tfrmgymquery.SpeedButton1Click(Sender: TObject);
begin
if commc.Text='' then
 messagebox(getforegroundwindow, '请选择要查询的供应商名！','系统提示', mb_ok + mb_iconinformation)
else
 begin
  frmgyhquery.query1.close;
  frmgyhquery.query1.SQL.Clear;
  frmgyhquery.query1.SQL.Add('select * from gysb where 供应商名 =' + #39 +trim(commc.Text)+ #39);
  frmgyhquery.query1.Open;
  frmquery1.dbgrid1.refresh;
  frmquery1.showmodal;

 end
 end;

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

end.