selectinfofm.pas

来自「一个朋友管理系统,让你对朋友的点滴都可以记载在上面,以方便以后查看!」· PAS 代码 · 共 58 行

unit SelectinfoFM;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, Mask, DBCtrls, Grids, DBGrids, DB, DBTables;

type
  TSelectinfo = class(TForm)
    Label7: TLabel;
    BTNSearch: TButton;
    BTNClose: TButton;
    Edit1: TEdit;
    DBGrid1: TDBGrid;
    Table1: TTable;
    DataSource1: TDataSource;
    procedure BTNSearchClick(Sender: TObject);
    procedure BTNCloseClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Selectinfo: TSelectinfo;

implementation
uses DataModule;
{$R *.dfm}

procedure TSelectinfo.BTNCloseClick(Sender: TObject);
begin
close;
end;

procedure TSelectinfo.BTNSearchClick(Sender: TObject);
begin
if Edit1.text='' then
begin
  showmessage('姓名不可以空');
end
else
begin
  table1.Active:=true;
  table1.Filtered:=true;
  table1.Filter:='name='''+Edit1.Text+'''';
  if table1.RecordCount=0 then
    begin
      showmessage('没有你要找的朋友');
      edit1.SetFocus;
    end;
end;
end;

end.