queryunit.pas

这是一个自制的通讯录

unit queryunit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, Buttons;

type
  Tqueryform = class(TForm)
    GroupBox1: TGroupBox;
    rbname: TRadioButton;
    rbphone: TRadioButton;
    rbremark: TRadioButton;
    rbmilitary: TRadioButton;
    rbfamily: TRadioButton;
    rbdorm: TRadioButton;
    rblt: TRadioButton;
    rbblur: TRadioButton;
    Panel2: TPanel;
    Panel1: TPanel;
    Label1: TLabel;
    edtquery: TEdit;
    btnquery: TBitBtn;
    BitBtn2: TBitBtn;
    procedure BitBtn2Click(Sender: TObject);
    procedure btnqueryClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure rbnameClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure isexist;
  end;

var
  queryform: Tqueryform;

implementation

uses datamodule, browse;

{$R *.dfm}

procedure tqueryform.isexist;
begin
  if dm.ADOQ.IsEmpty then
    begin
      application.MessageBox('查询内容为空','查询',mb_ok or mb_iconwarning);
      edtquery.SetFocus;
      exit;
    end
  else
    begin
      dm.ADOQ.Open;
      browseform.ShowModal;
    end;
end;

procedure Tqueryform.BitBtn2Click(Sender: TObject);
begin
  with dm do
  begin
    ds.DataSet:=adod;
    adod.Connection:=adoc;
    adod.Active:=true;
    browseform.dbgrid1.datasource:=dm.ds;
    adod.Active:=false;
    adod.Active:=true;
  end;
  edtquery.Clear;
  close;
end;

procedure Tqueryform.btnqueryClick(Sender: TObject);
begin
  if edtquery.Text='' then
    application.MessageBox('请输入查询内容　　','查询',mb_ok or MB_ICONINFORMATION)
  else
  begin
  with dm do
  begin
    ds.DataSet:=adoq;
    adoq.Connection:=adoc;
    adoq.Active:=true;
    browseform.dbgrid1.datasource:=dm.ds;
    adoq.Close;
    adoq.SQL.Clear;
    adoq.SQL.Add('select * from phone');
                    
    if rbname.Checked=true then
      adoq.SQL.Add('where 姓名 like'+''''+'%'+edtquery.Text+'%'+''''+'order by 姓名');
    if rbphone.Checked=true then
      adoq.SQL.Add('where 手机 like'+''''+'%'+edtquery.Text+'%'+''''+'order by 姓名');
    if rbremark.Checked=true then
      adoq.SQL.Add('where 备注 like'+''''+'%'+edtquery.Text+'%'+''''+'order by 姓名');
    if rbmilitary.Checked=true then
      adoq.SQL.Add('where 军线 like'+''''+'%'+edtquery.Text+'%'+''''+'order by 姓名');
    if rbfamily.Checked=true then
      adoq.SQL.Add('where 家庭电话 like'+''''+'%'+edtquery.Text+'%'+''''+'order by 姓名');
    if rbdorm.Checked=true then
      adoq.SQL.Add('where 宿舍电话 like'+''''+'%'+edtquery.Text+'%'+''''+'order by 姓名');
    if rblt.Checked=true then
      adoq.SQL.Add('where 小灵通 like'+''''+'%'+edtquery.Text+'%'+''''+'order by 姓名');
    if rbblur.Checked=true then
      adoq.SQL.Add('where 姓名 and 手机 and 备注 and 军线 and 家庭电话 and 宿舍电话 and 小灵通 and 办公室电话 like'+''''+'%'+edtquery.Text+'%'+''''+'order by 姓名');

    dm.ADOQ.Open;
    browseform.Caption:='　查询';    
    browseform.Show;      
  end;
  end;
  edtquery.SetFocus;
end;

procedure Tqueryform.FormShow(Sender: TObject);
begin
  rbblur.Checked:=true;
  edtquery.SetFocus;
end;

procedure Tqueryform.rbnameClick(Sender: TObject);
begin
  edtquery.SetFocus;
end;

end.