winpass.~pas

考勤管理 考勤管理 考勤管理

    Keys.F9:
      begin
        e.Handled := False;
        self.ButCancel.Focus();
      end;
    end;
  except
    on ex:Exception do
    begin
      messagebox.Show('TWinPass.TWinPass_KeyDown : (' + ex.message + ') ' , '考勤管理系统');
    end;
  end;
end;
//****************************************************************
//*  ButOK_Click
//*
//*  [参数]
//*      1：系统参数
//*      2：系统参数
//*  [返回]
//*      无
//****************************************************************
procedure TWinpass.Butok_Click(sender: System.Object; e: System.EventArgs);
begin
  try
    if item_check()=false then
    begin
      exit;
    end;
    //数据修改
   if data_upd()=true then
     begin
       messagebox.Show('密码修改成功！请记住新密码','提示');
     end;
  except
   on ex:exception do
    begin
      messagebox.Show('TWinpass.butok_click:('+ex.message+')','考勤管理系统');
    end;
  end;
end;
//****************************************************************
//*  ButCancel_Click
//*
//*  [参数]
//*      1：系统参数
//*      2：系统参数
//*  [返回]
//*      无
//****************************************************************
procedure TWinpass.Butcancel_Click(sender: System.Object; e: System.EventArgs);

begin
  try
    self.Close;
  except
   on ex:exception do
    begin
      messagebox.Show('TWinpass.butcancel_click:('+ex.message+')','考勤管理系统');
    end;
  end;
end;
//****************************************************************
//*  窗体项目清空
//*
//*  [参数]
//*      无
//*  [返回]
//*      无
//****************************************************************
procedure TWinpass.item_clear();
begin
 try
   self.Textold.Text:='';
   self.Textnew.Text:='';
   self.Textnewer.Text:='';
 except
   on ex:exception do
    begin
      messagebox.Show('TWinpass.item_clear:('+ex.message+')','考勤管理系统');
    end;
  end;
end;
//****************************************************************
//* item_check
//*
//*  [参数]
//*      无
//*  [返回]
//*      无
//****************************************************************
function TWinpass.item_check():boolean;
begin
  try
    //原密码的验证
    if check_textold()=false then
    begin
      self.Textold.Focus();
      exit;
    end;
    // 检查新密码是否符合条件
    if check_textnew()=false then
    begin
      self.Textnew.Focus();
      exit;
    end;
    //检查确认密码
    if check_textnewer()=false then
    begin
      self.Textnewer.Focus();
      exit;
    end;

     //返回值的设定
    result:=true;
  except
   on ex:exception do
    begin
      messagebox.Show('TWinpass.item_check:('+ex.message+')','考勤管理系统');
    end;
  end;
end;
//****************************************************************
//* check_textold
//*
//*  [参数]
//*      无
//*  [返回]
//*      无
//****************************************************************
function  twinpass.check_textold():boolean;
var
  w_sql:string;
  w_textold:string;
begin
  try
    w_textold:=textold.text.Trim;
    //输入并且检查
    if w_textold.length>20 then
    begin
       messagebox.Show('超出范围','登陆');
       result:=false;
       exit;
    end;
    //不可为空
    if w_textold.Length=0 then
    begin
      messagebox.show('此项不可为空','登陆');
      result:=false;
      exit;
    end;

     w_sql:='';
     w_sql:=w_sql+' select *';
     w_sql:=w_sql+' from 用户表';
     w_sql:=w_sql+' where 用户名='''+clsmain.username+'''';
     w_sql:=w_sql+' and 密码='''+w_textold+'''';

     myds:=dataset.Create;
     //执行sql语句并把记录返回
     myds:=clsmain.tclass1.create.cmn_ado_select(w_sql);

     if myds.Tables[0].Rows.count=0 then
     begin
       result:=false;
       exit;
     end;
    //返回值的设定
    result:=true;
  except
    on ex:exception do
    begin
      result:=false;
      messagebox.Show('twinpass.check_textold:('+ex.Message+')','考勤管理系统');
    end;
  end;
end;
//****************************************************************
//*  check_textnew
//*
//*  [参数]
//*      无
//*  [返回]
//*      无
//****************************************************************
function twinpass.check_textnew():boolean;
var
  w_textnew:string;
begin
  try
    w_textnew:=textnew.text.Trim;
    //输入并且检查
    if w_textnew.length>20 then
    begin
       messagebox.Show('超出范围','登陆');
       result:=false;
       exit;
    end;
    //不可为空
    if w_textnew.Length=0 then
    begin
      messagebox.show('此项不可为空','登陆');
      result:=false;
      exit;
    end;
    //返回值的设定
    result:=true;
  except
    on ex:exception do
    begin
      result:=true;
      messagebox.Show('twinpass.check_textnew:('+ex.Message+')','考勤管理系统');
    end;
  end;
end;
//****************************************************************
//*  检查确认密码是否符合条件
//*
//*  [参数]
//*      系统参数
//*  [返回]
//*      无
//****************************************************************
function twinpass.check_textnewer():boolean;
var
  w_textnewer:string;
  w_textnew:string;
begin
  try
    w_textnewer:=textnewer.text.Trim;
    w_textnew:=textnew.text.Trim;
    //输入并且检查
    if w_textnewer.length>20 then
    begin
       messagebox.Show('超出范围','登陆');
       result:=false;
       exit;
    end;
    //不可为空
    if w_textnewer.Length=0 then
    begin
      messagebox.show('此项不可为空','登陆');
      result:=false;
      exit;
    end;
    //检查与新密码一致
    if w_textnewer<>w_textnew then
    begin
       messagebox.Show('确认密码必须与新密码保持一致','请重新输入');
       self.Cursor:=cursors.Default;
       exit;
    end;
    //返回值的设定
    result:=true;
  except
    on ex:exception do
    begin
      result:=false;
      messagebox.Show('twinpass.check_textnewer:('+ex.Message+')','考勤管理系统');
    end;
  end;
end;
//****************************************************************
//*  数据修改
//*
//*  [参数]
//*      无
//*  [返回]
//*      实行状况
//*      True：成功
//*      False：失败
//****************************************************************
function twinpass.data_upd():boolean;
var
  w_sql:string;
  w_textnew:string;
begin
  try
    w_textnew:=textnew.Text.Trim();
    self.Cursor:=cursors.WaitCursor;

     w_sql :='';
     w_sql :=w_sql+' update 用户表 set';
     w_sql :=w_sql+' 密码='''+w_textnew+'''';
     w_sql :=w_sql+' where 用户名='''+clsmain.username+'''';

     clsmain.TClass1.Create.begintrans; //开始事务
     clsmain.TClass1.Create.cmn_ado_execute(w_sql); //执行sql语句
     clsmain.TClass1.Create.commit();     //提交事务

     self.Cursor:=cursors.default;
     result:=true;
  except
    on ex:exception do
    begin
      result:=false;
      messagebox.Show('twinpass.data_upd:('+ex.Message+')','考勤管理系统');
    end;
  end;
end;







end.