search.~pas

个人朋友信息的管理

unit Search;

interface

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

type
  TFormSearch = class(TForm)
    GroupBox1: TGroupBox;
    LabelSearchItem: TLabel;
    Label2: TLabel;
    LabeName: TLabel;
    LabeCorp: TLabel;
    LabeGraduteshcool: TLabel;
    LabelDistrict: TLabel;
    LabelOfficephone: TLabel;
    LabelEMail: TLabel;
    DBEditName: TDBEdit;
    DBEditCorp: TDBEdit;
    DBEditGraduateshcool: TDBEdit;
    DBEditDistrict: TDBEdit;
    DBEditOfficephone: TDBEdit;
    DBEditEMail: TDBEdit;
    BTNSearch: TButton;
    BTNMoreinformation: TButton;
    BTNClose: TButton;
    RadioGroup1: TRadioGroup;
    EditSearchContext: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure EditSearchContextChange(Sender: TObject);
    procedure BTNSearchClick(Sender: TObject);
    procedure BTNCloseClick(Sender: TObject);

    procedure RadioGroup1Click(Sender: TObject);
    procedure BTNMoreinformationClick(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;
  BTNMoreinformation.Enabled := False;
  SearchField := 'ChineseName';
end;
procedure TFormSearch.EditSearchContextChange(Sender: TObject);
begin
  if EditSearchContext.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 := 'EMail';
end;

procedure TFormSearch.BTNSearchClick(Sender: TObject);
var
  Bookmark1: string;
  Searchwhat: string;
begin
  BTNMoreinformation.Enabled := False;
  BTNSearch.Enabled := False;
  DataModule1.ADODataSet1.Refresh;
  with DataModule1.ADODataSet1 do try
    Disablecontrols;
    Filtered := False;
    Searchwhat := SearchField + '=' + '''' + EditSearchContext.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;
        BTNMore.Enabled := True;
    end;
  end;
  DataModule1.ADODataSet1.Bookmark := Bookmark1;
end;
procedure TFormSearch.BTNCloseClick(Sender: TObject);
begin
  Close;
end;

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

end.