c_vcdlocate.pas

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

unit c_vcdlocate;

interface

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

type
  Tcfrm_vcdlocate = class(TForm)
    Group_tj: TRadioGroup;
    GroupBox1: TGroupBox;
    e_tj: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure Group_tjClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn1Click(Sender: TObject);
    procedure e_tjKeyPress(Sender: TObject; var Key: Char);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  cfrm_vcdlocate: Tcfrm_vcdlocate;

implementation
uses datam;

{$R *.dfm}

procedure Tcfrm_vcdlocate.Group_tjClick(Sender: TObject);
begin
   e_tj.Text:='';
   e_tj.SetFocus();
end;

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

procedure Tcfrm_vcdlocate.BitBtn1Click(Sender: TObject);
var
  cxz:string;
begin
  if e_tj.Text='' then
   begin
    Application.MessageBox(PChar('定位条件不能为空,请重新录入！'), PChar('提示'),
      MB_ICONEXCLAMATION);
    e_tj.SetFocus();
    exit;
   end;
  cxz:=e_tj.Text;
  case group_tj.ItemIndex of
   0:begin
     if not dm.ADO_vcd.Locate('编号',cxz,[]) then
      begin
       Application.MessageBox(PChar('没有符合条件的记录！'), PChar('提示'),
       MB_ICONEXCLAMATION);
       e_tj.setfocus();
       exit;
      end;
     end;
   1:begin
      if not dm.ADO_vcd.Locate('名称',cxz,[]) then
      begin
       Application.MessageBox(PChar('没有符合条件的记录！'), PChar('提示'),
       MB_ICONEXCLAMATION);
       e_tj.setfocus();
       exit;
      end;
     end;
   2:begin
      if not dm.ADO_vcd.Locate('货位号',cxz,[]) then
       begin
        Application.MessageBox(PChar('没有符合条件的记录！'), PChar('提示'),
        MB_ICONEXCLAMATION);
        e_tj.setfocus();
        exit;
       end;
      end;
   end;
  close;
end;

procedure Tcfrm_vcdlocate.e_tjKeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
      begin
       Bitbtn1.OnClick(Bitbtn1);
      end;
end;

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

end.