?? unit2.pas
字號:
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.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -