c_vcdsearch.pas

《delphi数据库设计与实例开发》随书光盘

unit c_vcdsearch;

interface

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

type
  Tcfrm_vcdsearch = class(TForm)
    GroupBox1: TGroupBox;
    Edit1: TEdit;
    cxGroup: TRadioGroup;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure FormShow(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure cxGroupClick(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  cfrm_vcdsearch: Tcfrm_vcdsearch;

implementation
uses datam;

{$R *.dfm}

procedure Tcfrm_vcdsearch.FormShow(Sender: TObject);
begin
  edit1.SetFocus();
  if cxgroup.ItemIndex=0 then
   edit1.MaxLength:=5
  else
   edit1.MaxLength:=0;
end;

procedure Tcfrm_vcdsearch.BitBtn1Click(Sender: TObject);
var
  cxz:string;
begin
  if edit1.Text='' then
   begin
    Application.MessageBox(PChar('查询条件不能为空,请重新录入！'), PChar('提示'),
      MB_ICONEXCLAMATION);
    edit1.SetFocus();
    exit;
   end;
  cxz:=edit1.Text;
  case cxgroup.ItemIndex of
   0:begin
     if not dm.ADO_vip.Locate('证号',cxz,[]) then
      begin
       Application.MessageBox(PChar('没有符合条件的记录！'), PChar('提示'),
       MB_ICONEXCLAMATION);
       edit1.setfocus();
       exit;
      end;
     end;
   1:begin
      if not dm.ADO_vip.Locate('姓名',cxz,[]) then
      begin
       Application.MessageBox(PChar('没有符合条件的记录！'), PChar('提示'),
       MB_ICONEXCLAMATION);
       edit1.setfocus();
       exit;
      end;
     end;
   2:begin
      if not dm.ADO_vip.Locate('电话',cxz,[]) then
      begin
       Application.MessageBox(PChar('没有符合条件的记录！'), PChar('提示'),
       MB_ICONEXCLAMATION);
       edit1.setfocus();
       exit;
      end;
     end;
   3:begin
      if not dm.ADO_vip.Locate('地址',cxz,[]) then
      begin
       Application.MessageBox(PChar('没有符合条件的记录！'), PChar('提示'),
       MB_ICONEXCLAMATION);
       edit1.setfocus();
       exit;
      end;
     end;
   end;
  close;
end;


procedure Tcfrm_vcdsearch.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
 if cxgroup.ItemIndex=0 then
    if not ( Key in ['0'..'9',#13,#8]) then Key := #0;
    if key=#13 then
      begin
       Bitbtn1.OnClick(Bitbtn1);
      end;
end;

procedure Tcfrm_vcdsearch.cxGroupClick(Sender: TObject);
begin
edit1.Text:='';
  edit1.SetFocus();
  if cxgroup.ItemIndex=0 then
   edit1.MaxLength:=5
  else
   edit1.MaxLength:=0;
end;

procedure Tcfrm_vcdsearch.BitBtn2Click(Sender: TObject);
begin
close;
end;

procedure Tcfrm_vcdsearch.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
release;
end;

end.