addmac.pas

倉庫下線條碼源碼

unit AddMac;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, ADODB;

type
  TfrmMacAdd = class(TForm)
    meIPAddr: TEdit;
    edtPort: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Button1: TButton;
    Label3: TLabel;
    edtMacNo: TEdit;
    edtMacName: TEdit;
    Label4: TLabel;
    ADOQuery1: TADOQuery;
    procedure meIPAddrExit(Sender: TObject);
    procedure edtPortKeyPress(Sender: TObject; var Key: Char);
    procedure meIPAddrKeyPress(Sender: TObject; var Key: Char);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmMacAdd: TfrmMacAdd;

implementation

uses unMain;

{$R *.dfm}

procedure TfrmMacAdd.meIPAddrExit(Sender: TObject);
function CheckIp(IP: string): boolean;
var i,j:integer;
    IpTemp:string;
begin
  Result:=true;
  if (length(IP)<7) or (length(IP)>15) then
    begin
      Result:=false;
      exit;
    end;
  try
  for j:=0 to 2 do
    begin
      i:=pos('.',ip);
      if (i=0) or (i>4) then
        begin
          Result:=false;
          exit;
        end;
      IpTemp:=copy(IP,1,(i-1));
      IP:=copy(ip,(i+1),length(ip));
      if ( (copy(IpTemp,1,1)='0') and (length(IpTemp)>1) ) or
         (copy(IpTemp,1,2)='00') or
         (copy(IpTemp,1,3)='000')  then
        begin
          Result:=false;
          exit;
        end;
      if (StrToIntDef(iptemp,-1)=-1) or (StrToIntDef(iptemp,-1)>255)  then
        begin
          Result:=false;
          exit;
        end;
    end;
  if pos('.',ip)>0 then
     Result:=false;

  if ( (copy(Ip,1,1)='0') and (length(Ip)>1) ) or
     (copy(Ip,1,2)='00') or
     (copy(Ip,1,3)='000')  then
    begin
      Result:=false;
      exit;
    end;

  if (StrToIntDef(ip,-1)=-1) or (StrToIntDef(ip,-1)>255)  then
     begin
       Result:=false;
       exit;
     end;
  except
    Result:=false;
  end;
end;
begin
  if CheckIp((sender as TEdit).Text)=false then
    begin
      Showmessage('IP