serch.pas

来自「delphi+sql server 我是delphi的初学者」· PAS 代码 · 共 61 行

unit serch;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, Wwdbigrd, Wwdbgrid, ImgList, ComCtrls, ExtCtrls, DB,
  Buttons;

type
  TFRMserch = class(TForm)
    pnl1: TPanel;
    wwDBGrid1: TwwDBGrid;
    ds1: TDataSource;
    btn1: TSpeedButton;
    btn4: TSpeedButton;
    btn5: TSpeedButton;
    procedure FormShow(Sender: TObject);
    procedure btn5Click(Sender: TObject);
    procedure btn4Click(Sender: TObject);
    procedure btn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FRMserch: TFRMserch;

implementation

{$R *.dfm}
uses UDM,inputsrch;

procedure TFRMserch.FormShow(Sender: TObject);
begin
   DM.qryserch.OPEN;

end;

procedure TFRMserch.btn5Click(Sender: TObject);
begin
  dm.qryserch.Close;
  dm.qryserch.Open;
end;

procedure TFRMserch.btn4Click(Sender: TObject);
begin
  close;
end;

procedure TFRMserch.btn1Click(Sender: TObject);
begin
    frminputsrch:=Tfrminputsrch.Create(self);
    frminputsrch.ShowModal;
    freeandnil(frminputsrch);
end;

end.