unit Unit5;

interface

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

type
  TForm5 = class(TForm)
    DBGrid1: TDBGrid;
    Label1: TLabel;
    Label2: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Edit1: TEdit;
    BitBtn3: TBitBtn;
    Label3: TLabel;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form5: TForm5;

implementation

uses Unit2, Unit10;

{$R *.dfm}

procedure TForm5.BitBtn1Click(Sender: TObject);


begin

if  edit1.Text='' then
   begin
   MessageBox(handle,'請輸入姓名,不能為空！','提示',MB_OK or MB_ICONINFORMATION);
   exit;
   end
else
   with dm.Adoquery1 do
   begin
   SQL.Clear;
   Close;
   sql.Add('select RY.姓名,出生日期,性別,籍貫,政治面貌,公司,編號,職位,部門,家庭成員,家庭住址,聯系電話,郵編 from RY,GZ,JT where RY.姓名=GZ.姓名 and RY.姓名=JT.姓名 and RY.姓名='''+Edit1.Text+'''');
   MessageBox(handle,'查詢完畢！','提示',MB_OK or MB_ICONINFORMATION);
   Open;
   edit1.Text:='';
   end;
end;

procedure TForm5.BitBtn2Click(Sender: TObject);
begin
Form5.Visible:=false;
Form2.show;

end;

procedure TForm5.BitBtn4Click(Sender: TObject);
begin
Form5.Visible:=false;
end;

procedure TForm5.BitBtn3Click(Sender: TObject);
begin
with dm.adoquery1 do
begin
   SQL.Clear;
   Close;
   sql.Add('select RY.姓名,出生日期,性別,籍貫,政治面貌,公司,編號,職位,部門,家庭成員,家庭住址,聯系電話,郵編 from RY,GZ,JT where RY.姓名=GZ.姓名 and RY.姓名=JT.姓名');
   MessageBox(handle,'查詢完畢！','提示',MB_OK or MB_ICONINFORMATION);
   Open;
   end;

end;

end.