www.pudn.com > 短信发送2.0.rar > regform.pas

unit regform; 
 
interface 
 
uses 
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
  Dialogs, StdCtrls, ExtCtrls, Buttons; 
 
type 
  Tregfrm = class(TForm) 
    username: TLabeledEdit; 
    userpwd: TLabeledEdit; 
    userphone: TLabeledEdit; 
    userpwd1: TLabeledEdit; 
    SpeedButton2: TSpeedButton; 
    SpeedButton1: TSpeedButton; 
    Shape1: TShape; 
    Shape2: TShape; 
    Shape6: TShape; 
    Shape3: TShape; 
    Shape4: TShape; 
    Shape5: TShape; 
    procedure SpeedButton2Click(Sender: TObject); 
    procedure SpeedButton1Click(Sender: TObject); 
    procedure usernameKeyPress(Sender: TObject; var Key: Char); 
    procedure userphoneKeyPress(Sender: TObject; var Key: Char); 
    procedure userpwdKeyPress(Sender: TObject; var Key: Char); 
    procedure userpwd1KeyPress(Sender: TObject; var Key: Char); 
    procedure Shape4MouseMove(Sender: TObject; Shift: TShiftState; X, 
      Y: Integer); 
    procedure Shape5MouseMove(Sender: TObject; Shift: TShiftState; X, 
      Y: Integer); 
    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X, 
      Y: Integer); 
    procedure FormShow(Sender: TObject); 
  private 
    { Private declarations } 
  public 
    { Public declarations } 
  end; 
 
var 
  regfrm: Tregfrm; 
 
implementation 
    uses smsdll,loginform, smsform; 
{$R *.dfm} 
 
procedure Tregfrm.SpeedButton2Click(Sender: TObject); 
var i,j:integer; 
begin 
if (trim(username.Text )='')or(trim(userphone.Text )='') 
    or(trim(userpwd.Text )='') then 
begin 
    messagebox(handle,'您输入的信息不完整，请重新输入。','警告',mb_ok or mb_iconinformation); 
    exit; 
end; 
if length(userphone.Text)<>11 then 
begin 
    messagebox(handle,'您输入的手机号码错误。','警告',mb_ok or mb_iconinformation); 
    userphone.SetFocus; 
    userphone.SelectAll; 
    exit; 
end; 
if (trim(userpwd.Text))<>(trim(userpwd1.Text)) then 
begin 
    messagebox(handle,'您输入的用户密码错误。','警告',mb_ok or mb_iconinformation); 
    userpwd.SetFocus; 
    userpwd1.SelectAll; 
    exit; 
end; 
if not ismodi then 
begin 
for i:=1 to count do 
  if (trim(username.Text)=userinfo[i-1].name) then 
  begin 
      if messagebox(handle,'该用户的信息已经存在，要覆盖吗？','警告',mb_yesno or mb_iconwarning)<>idyes then 
        exit; 
  end; 
writeuserini(trim(username.Text),trim(userphone.Text),trim(userpwd.Text)); 
readuserini; 
with loginfrm do 
  comusername.Text :=trim(username.Text); 
end; 
if ismodi then//如果是修改用户信息则 
begin 
    j:=1; 
    for i:=1 to count do 
    begin 
      if (trim(username.Text)=userinfo[i-1].name) 
          and(userinfo[i-1].name<>curuser.name) then 
      begin 
        messagebox(handle,'该用户的信息已经存在。','警告',mb_ok or mb_iconwarning); 
        exit; 
      end; 
      if curuser.name=userinfo[i-1].Name then 
        j:=i; 
    end; 
    userini.WriteString('user'+inttostr(j),'name',trim(username.Text)); 
    userini.WriteString('user'+inttostr(j),'phone',trim(userphone.Text)); 
    userini.WriteString('user'+inttostr(j),'password',passwordstring(trim(userpwd.Text))); 
readuserini; 
curuser:=userinfo[j-1]; 
smsfrm.mycode.text:=curuser.phone; 
end; 
close; 
end; 
 
procedure Tregfrm.SpeedButton1Click(Sender: TObject); 
begin 
  close; 
end; 
 
procedure Tregfrm.usernameKeyPress(Sender: TObject; var Key: Char); 
begin 
  if key=#13 then 
  begin 
    userphone.SetFocus; 
    userphone.SelectAll; 
    exit; 
  end; 
end; 
 
procedure Tregfrm.userphoneKeyPress(Sender: TObject; var Key: Char); 
begin 
  if key=#13 then 
  begin 
    userpwd.SetFocus; 
    userpwd.SelectAll; 
  end; 
  if (key<'0')or(key>'9') then 
     if key<>#8 then key:=#0; 
 
end; 
 
procedure Tregfrm.userpwdKeyPress(Sender: TObject; var Key: Char); 
begin 
  if key=#13 then 
  begin 
    userpwd1.SetFocus; 
    userpwd1.SelectAll; 
  end; 
 
end; 
 
procedure Tregfrm.userpwd1KeyPress(Sender: TObject; var Key: Char); 
begin 
  if key=#13 then 
  begin 
     speedbutton2.OnClick(sender); 
  end; 
 
end; 
 
procedure Tregfrm.Shape4MouseMove(Sender: TObject; Shift: TShiftState; X, 
  Y: Integer); 
begin 
 shape4.Visible :=false; 
 shape6.Pen.Color :=clblue; 
end; 
 
procedure Tregfrm.Shape5MouseMove(Sender: TObject; Shift: TShiftState; X, 
  Y: Integer); 
begin 
  shape5.Visible :=false; 
  shape3.Pen.Color :=clblue; 
end; 
 
procedure Tregfrm.FormMouseMove(Sender: TObject; Shift: TShiftState; X, 
  Y: Integer); 
begin 
  shape4.Visible :=true; 
  shape5.Visible :=true; 
  shape3.Pen.Color :=bkcolor; 
  shape6.Pen.Color :=bkcolor; 
end; 
 
procedure Tregfrm.FormShow(Sender: TObject); 
begin 
   regfrm.OnMouseMove(sender,[ssleft],0,0); 
   if ismodi then 
   begin 
      username.Text :=curuser.name; 
      userphone.Text :=curuser.phone; 
      userpwd.Text :=''; 
      userpwd1.Text :=''; 
   end; 
end; 
 
end.