regform.pas

delphi开发

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.