search.pas

来自「培训管理系统」· PAS 代码 · 共 76 行

unit search;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, DBTables, Wwtable, wwDialog, wwidlg, ExtCtrls, Wwquery,
  Wwdatsrc, Grids, Wwdbigrd, Wwdbgrid, StdCtrls, Buttons, Wwkeycb;

type
  Tsearchf = class(TForm)
    wwDBGrid1: TwwDBGrid;
    wwDataSource1: TwwDataSource;
    Qu_find: TwwQuery;
    Panel1: TPanel;
    Panel2: TPanel;
    key_find: TwwIncrementalSearch;
    Label1: TLabel;
    Btn_ok: TBitBtn;
    Btn_cancel: TBitBtn;
    StatusHeader: THeader;
    procedure writeStatusInfo;
    procedure wwDataSource1DataChange(Sender: TObject; Field: TField);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Btn_okClick(Sender: TObject);
    procedure Btn_cancelClick(Sender: TObject);
    procedure wwDBGrid1DblClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    search_str :string;
  end;

var
  searchf: Tsearchf;

implementation

{$R *.dfm}

procedure Tsearchf.writeStatusInfo;
begin
  StatusHeader.sections[0]:='记录数：' +inttostr(qu_find.RecordCount);
end;

procedure Tsearchf.wwDataSource1DataChange(Sender: TObject; Field: TField);
begin
  writeStatusInfo;
end;

procedure Tsearchf.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action:=Cafree;
end;

procedure Tsearchf.Btn_okClick(Sender: TObject);
begin
  search_str:=Qu_find.Fields[0].Text;
  ModalResult:=mrOK;
end;

procedure Tsearchf.Btn_cancelClick(Sender: TObject);
begin
  search_str:='';
  ModalResult:=mrCancel;
end;

procedure Tsearchf.wwDBGrid1DblClick(Sender: TObject);
begin
  search_str:=Qu_find.Fields[0].Text;
  ModalResult:=mrOK;
end;

end.