unit Unit4;

interface

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

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

var
  Form4: TForm4;

implementation

uses Unit1, Unit10;

{$R *.dfm}

procedure TForm4.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 * from RY where 姓名='''+Edit1.Text+''' order by 姓名');


   MessageBox(handle,'查詢完畢！','提示',MB_OK or MB_ICONINFORMATION);
   Open;
   edit1.Text:='';



if RecordCount=0 then
begin
Application.MessageBox('找不到匹配記錄!','錯誤!',MB_OKCANCEL);

end;
end;



end;

procedure TForm4.BitBtn2Click(Sender: TObject);
begin
with dm.AdoQuery1 do
begin
close;
with sql do
begin
clear;
Add('select RY.姓名,出生日期,性別,籍貫,政治面貌,公司,編號,職位,部門,家庭成員,家庭住址,聯系電話,郵編 from RY,GZ,JT where RY.姓名=GZ.姓名 and RY.姓名=JT.姓名');

   MessageBox(handle,'查詢完畢！','提示',MB_OK or MB_ICONINFORMATION);
end;
open;


end;

end;

procedure TForm4.FormCreate(Sender: TObject);
begin
Form4.Visible:=false;
end;

procedure TForm4.BitBtn3Click(Sender: TObject);
begin
Form4.Visible:=false;
Form1.show;
end;

end.