unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  XP_Button, ExtCtrls, XP_GroupBox, XP_Form, StdCtrls, Menus, Db, DBTables;
  var str3:string;
type
  TForm2 = class(TForm)
    XP_Form1: TXP_Form;
    XP_Button1: TXP_Button;
    XP_Button2: TXP_Button;
    XP_Button3: TXP_Button;
    XP_Button4: TXP_Button;
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    XP_groupbox1: TXP_GroupBox;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    Table1: TTable;
    procedure Button4Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.DFM}

procedure TForm2.Button4Click(Sender: TObject);
begin
form2.close;
end;

procedure TForm2.Button1Click(Sender: TObject);
begin
popupmenu1.popup(form2.left+70,form2.top+185);
end;

procedure TForm2.N1Click(Sender: TObject);
begin
  XP_groupbox1.caption:='請輸入你欲搜索的姓名';
  str3:='姓名';
end;

procedure TForm2.N2Click(Sender: TObject);
begin
 XP_groupbox1.caption:='請輸入你欲搜索的職工編號';
 str3:='職工編號';
 end;

procedure TForm2.N3Click(Sender: TObject);
begin
 XP_groupbox1.caption:='請輸入你欲搜索的身份證號';
 str3:='身份證號';
 end;

procedure TForm2.N4Click(Sender: TObject);
begin
XP_groupbox1.caption:='請輸入你欲搜索的電話號';
str3:='電話';
end;

procedure TForm2.FormCreate(Sender: TObject);
begin
table1.active:=true;
end;

end.