id.~pas

測 USB 鼠 標 的 PVID 號

unit ID;

interface

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

type
  Tidfrm = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Button1: TButton;
    RzEdit1: TRzEdit;
    RzEdit2: TRzEdit;
    Label3: TLabel;
    Label4: TLabel;
    procedure RzEdit1KeyPress(Sender: TObject; var Key: Char);
    procedure RzEdit2KeyPress(Sender: TObject; var Key: Char);
    procedure Button1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
    function isfefa(s:string):boolean;
  public
    { Public declarations }

  end;

var
  idfrm: Tidfrm;
  closeflg:Boolean;
implementation

uses Main;

{$R *.dfm}
function tidfrm.isfefa(s:string):Boolean;
begin
     Result:=true;
     if Length(s)<>4 then Result:=False;
end;
procedure Tidfrm.RzEdit1KeyPress(Sender: TObject; var Key: Char);
begin
   if not ( ( key in['0'..'9',#13,#8]) or
             (key in['a'..'z','A'..'Z',#13,#8]))then key:=#0;
   Label3.Font.Color:=clBlack;
   if Key=#13 then
   begin
   		if isfefa(RzEdit1.Text) then RzEdit2.SetFocus
         else
         begin
         label3.Font.Color:=clRed;RzEdit1.SelectAll;
         end;
   end;
end;

procedure Tidfrm.RzEdit2KeyPress(Sender: TObject; var Key: Char);
begin
    if not ( ( key in['0'..'9',#13,#8]) or
             (key in['a'..'z','A'..'Z',#13,#8]))then key:=#0;
    Label4.Font.Color:=clBlack;
    if Key=#13 then
    begin
        if isfefa(RzEdit2.Text) then Button1.Click
        else
        begin
        Label4.Font.Color:=clRed;RzEdit2.SelectAll;
        end;
    end;
end;

procedure Tidfrm.Button1Click(Sender: TObject);
begin
			if ( RzEdit1.Text='' ) or
            ( RzEdit2.Text='' ) then Exit
         else
         begin
             if ( isfefa(RzEdit1.Text)  and isfefa( RzEdit2.Text) ) then
             begin
             	Mainfrm.activeflg:=true;closeflg:=true;Mainfrm.s_vid:=RzEdit1.Text;
               Mainfrm.s_pid:=RzEdit2.Text; idfrm.Close;mainfrm.BringToFront; 
             end
             else
             begin
                if not isfefa(RzEdit1.Text) then
                begin
                	Label3.Font.Color:=clRed;RzEdit1.SetFocus;RzEdit1.SelectAll;exit;
                end;
                if not isfefa(RzEdit2.Text) then
                begin
                  Label4.Font.Color:=clRed;RzEdit2.SetFocus;RzEdit2.SelectAll;Exit;
                end;
             end;
         end;
end;

procedure Tidfrm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
		if closeflg=false then  Application.Terminate;  
end;

procedure Tidfrm.FormShow(Sender: TObject);
begin
 closeflg:=false;
end;

end.