search.pas

关于DEPHI7.0的朋友信息管理系统源代码

unit Search;

interface

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

type
  TFormSearch = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    Label4: TLabel;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    Label5: TLabel;
    DBEdit6: TDBEdit;
    Label6: TLabel;
    BTNMore: TButton;
    BTNSearch: TButton;
    BTNClose: TButton;
    Edit1: TEdit;
    DBEdit1: TDBEdit;
    Bevel2: TBevel;
    Label7: TLabel;
    RadioGroup1: TRadioGroup;
    procedure FormCreate(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure BTNSearchClick(Sender: TObject);
    procedure BTNCloseClick(Sender: TObject);
    procedure RadioGroup1Click(Sender: TObject);
    procedure BTNMoreClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormSearch: TFormSearch;
  SearchField : String;

implementation
uses DataModule, AddMore;

{$R *.dfm}

procedure TFormSearch.FormCreate(Sender: TObject);
begin
BTNSearch.Enabled := False;
BTNMore.Enabled := False;
SearchField := 'ChineseName';
end;

procedure TFormSearch.Edit1Change(Sender: TObject);
begin
if Edit1.Text <> '' then
BTNSearch.Enabled := True;
end;

procedure TFormSearch.RadioGroup1Click(Sender: TObject);
begin
if RadioGroup1.ItemIndex =0 then
   SearchField := 'ChineseName'
else if RadioGroup1.ItemIndex =1 then
   SearchField := 'Corp'
else if RadioGroup1.ItemIndex =2 then
   SearchField := 'GraduateSchool'
else if RadioGroup1.ItemIndex =3 then
   SearchField := 'OfficePhone'
else
   SearchField := 'EMail';
end;

procedure TFormSearch.BTNSearchClick(Sender: TObject);
var
  Bookmark1 : String;
  Searchwhat : String;
begin
  BTNMore.Enabled := False;
  BTNSearch.Enabled := False;
  DataModule1.ADODataSet1.Refresh;
  with DataModule1.ADODataSet1 do
  try
    Disablecontrols;
    Filtered := False;
    Searchwhat := SearchField+'='+''''+Edit1.Text+'''';
    Filter := Searchwhat;
    Filtered := True;
  finally
    Enablecontrols;
    if DataModule1.ADODataSet1.RecordCount =0 then
    begin
    messagebeep(1);
    showmessage('没有符合条件的记录，请确定查询条件或放弃查询！');
    if messageDlg('是否继续查询？只有结束查询才能进行其他操作！',mtinformation,
       [mbYes,mbNo],0) = mrNo then
     begin
       Filtered := False;
       DataModule1.ADODataSet1.Close;
       DataModule1.ADODataSet1.Open;
     end;
    end
    else
    begin
      showmessage('找到朋友了！');
      Bookmark1 := DataModule1.ADODataSet1.Bookmark;
      filtered := False;
      BTNMore.Enabled := True;
     end;
  end;
   DataModule1.ADODataSet1.Bookmark := Bookmark1;
end;

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

procedure TFormSearch.BTNMoreClick(Sender: TObject);
begin
FormAddMore.Show;
end;

end.