u_login.pas

小银行系统

unit U_login;

interface

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

type
  TF_login = class(TForm)
    ScrollBox1: TScrollBox;
    ScrollBox2: TScrollBox;
    StaticText1: TStaticText;
    StaticText2: TStaticText;
    StaticText3: TStaticText;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    MaskEdit1: TMaskEdit;
    MaskEdit2: TMaskEdit;
    MaskEdit3: TMaskEdit;
    ADODataSet1: TADODataSet;
    DosMove1: TDosMove;
    ScrollBox3: TScrollBox;
    StaticText4: TStaticText;
    StaticText5: TStaticText;
    MaskEdit4: TMaskEdit;
    MaskEdit5: TMaskEdit;
    StaticText6: TStaticText;
    MaskEdit6: TMaskEdit;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn3Click(Sender: TObject);
    procedure MaskEdit3Enter(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure MaskEdit1Enter(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    flag,flag1:boolean;
  end;

var
  F_login: TF_login;
  vflag:boolean;
implementation

uses  U_main,UDM;

{$R *.dfm}

procedure TF_login.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  F_login:=nil;
end;

procedure TF_login.BitBtn3Click(Sender: TObject);
begin
   //close;
   flag:=true;
   flag1:=true;
end;

procedure TF_login.MaskEdit3Enter(Sender: TObject);
begin
    SELF.ADODataSet1.Active:=FALSE;
    SELF.ADODataSet1.Active:=TRUE;
    IF  not ADODataSet1.Locate('user_no',self.MaskEdit1.Text,[])  THEN
    BEGIN
        SHOWMESSAGE('用户编号输入错误！');
        SELF.MaskEdit1.SetFocus;
        SELF.MaskEdit2.Text:='';
    END
    ELSE
    begin
       SELF.MaskEdit2.Text:=SELF.ADODataSet1.FIELDBYNAME('USER_NM').AsString;
       self.BitBtn1.Enabled:=true;
       self.BitBtn2.Enabled:=true;
    end;
end;

procedure TF_login.BitBtn1Click(Sender: TObject);
begin
 if  vflag  then
 begin
   if  self.ADODataSet1.FieldByName('password').AsString<>self.MaskEdit3.Text  then
   begin
      showmessage('对不起密码输入错误！');
      self.MaskEdit3.SetFocus;
      flag:=false;
      flag1:=false;
      exit;
   end
   else
   begin
      flag:=true;
      flag1:=false;
      f_main.vuser_no:=self.MaskEdit1.Text;
      f_main.vuser_nm:=self.ADODataSet1.fieldbyname('user_nm').AsString;
      f_main.vfac_no:=self.ADODataSet1.fieldbyname('fac_no').AsString;
      f_main.vadministrator:=self.ADODataSet1.fieldbyname('administrator').AsString;
   end;
 end
 else
 begin
   if  self.ADODataSet1.FieldByName('password').AsString<>self.MaskEdit6.Text  then
   begin
      showmessage('对不起密码输入错误！');
      self.MaskEdit6.SetFocus;
      flag:=false;
      flag1:=false;
      exit;
   end;

   if  self.MaskEdit4.Text<>self.MaskEdit5.Text  then
   begin
       showmessage('更改密码前后不一致!');
       self.MaskEdit5.SetFocus;
       exit;
   end;

   try
      self.ADODataSet1.Edit;
      self.ADODataSet1.FieldByName('password').Value:=self.MaskEdit4.Text;
      self.ADODataSet1.UpdateBatch(arall);
      self.ScrollBox3.Visible:=false;
      vflag:=true;
      self.BitBtn2.Caption:='修改密码';
      self.MaskEdit3.Text:=self.MaskEdit4.Text;
   except
      showmessage('密码更新失败！');
   end;
 end;
end;

procedure TF_login.FormCreate(Sender: TObject);
begin
          flag:=false;
          flag1:=false;
          self.ScrollBox3.Visible:=false;
          vflag:=true;
end;

procedure TF_login.MaskEdit1Enter(Sender: TObject);
begin
    self.BitBtn1.Enabled:=false;
    self.BitBtn2.Enabled:=false;

end;

procedure TF_login.BitBtn2Click(Sender: TObject);
begin
  if vflag  then
  begin
    self.BitBtn2.Caption:='取消';
    self.ScrollBox3.Top:=0;
    self.ScrollBox3.Left:=0;
    self.ScrollBox3.Visible:=true;
    vflag:=false;
    self.MaskEdit6.SetFocus;
  end
  else
  begin
    self.ScrollBox3.Visible:=false;
    self.BitBtn2.Caption:='更改密码';
    self.ScrollBox3.Visible:=false;
    vflag:=true;
  end;

end;

end.