BMS-HOSxP Community

HOSxP => Delphi / Pascal => ข้อความที่เริ่มโดย: apisak ที่ กุมภาพันธ์ 26, 2013, 15:36:13 PM

หัวข้อ: From login MD5 เป็นค่าว่าง
เริ่มหัวข้อโดย: apisak ที่ กุมภาพันธ์ 26, 2013, 15:36:13 PM

From login MD5 เป็นค่าว่าง (ไม่รับค่าจาก Rzedit2.text)

var
  Md5:TIdHashMessageDigest5;
  Str:string;
  Sai:string;
 begin
        Md5:=TIdHashMessageDigest5.Create;
        Sai:=md5.HashStringAsHex(Str);
        RzEdit2.Text := Sai;
        DataModule1.Qmember2.Open;
  while not  DataModule1.Qmember2.Eof do

     if(RzEdit1.Text = DataModule1.Qmember2['username']) and (Sai = DataModule1.Qmember2['password'])  then

           begin

              if Fmenu=nil then
              Application.CreateForm(TFmenu, Fmenu);
              Fmenu.Show;
              //Frlogin4.Hide;
              Frlogin4.Close;

              exit;
           end

        else
        begin
         DataModule1.Qmember2.Next;
              if(RzEdit1.Text = DataModule1.Qmember2['username']) and (Sai=DataModule1.Qmember2['password']) then
                     begin
                       Exit;

                     end

             else
                     begin
                         ShowMessage('กรุณาล็อกอินใหม่');
                         RzEdit1.Text:='';
                         RzEdit2.Text:='';
                         RzEdit1.SetFocus;
                         Exit;
                     end;
         end;

หัวข้อ: Re: From login MD5 เป็นค่าว่าง
เริ่มหัวข้อโดย: Bond_007 ที่ กุมภาพันธ์ 26, 2013, 16:07:41 PM

Frlogin4.Close; มันปิดไปเลยไม่ได้รับค่าหรือเปล่าครับ ;D ขอดูหน้าตาด้วยได้หรือเปล่าครับผมก

หัวข้อ: Re: From login MD5 เป็นค่าว่าง
เริ่มหัวข้อโดย: apisak ที่ กุมภาพันธ์ 26, 2013, 16:16:33 PM

อ้างจาก: Bond_007 ที่ กุมภาพันธ์ 26, 2013, 16:07:41 PM

Frlogin4.Close; มันปิดไปเลยไม่ได้รับค่าหรือเปล่าครับ ;D ขอดูหน้าตาด้วยได้หรือเปล่าครับผมก

ร่วมด้วยช่วยกัน ครับผม

หัวข้อ: Re: From login MD5 เป็นค่าว่าง
เริ่มหัวข้อโดย: Bond_007 ที่ กุมภาพันธ์ 27, 2013, 08:32:28 AM

ผมกำลังหา componant - DCPCrypt  ใน delphixe อยู่ครับ คงตอบโจทย์ข้อนี้ได้ครับ  ;D
http://hosxp.net/index.php?option=com_smf&Itemid=28&topic=459.0

ตอนนี้ผมเขียนแบบนี้ครับ


  if  RzEdit2.Text = 'xxxxx' then

 begin
     Formlogin.Hide;
     if formmain = nil then
     Application.CreateForm(Tformmain,formmain);
     MessageDlg('Programmer Mode', mtInformation, [mbOK], 0);
    with FormMain do
    begin
    RzEdit1.Text:=Self.RzEdit1.Text;
      RzEdit2.Text:=Self.RzEdit2.Text;
      RzEdit3.Text:='0';
       dxRibbonStatusBar1.Panels[0].Text:='ProgrammerMode';
       Show;
    end;
   //Close;
   //Abort;
 end;

  if (RzEdit1.Text<> '' ) and (RzEdit2.Text <> '' ) then
begin

 with MyQuery1 do
 begin
   Close;
   sql.Text := 'select * from hospital_member where loginname =:vlogin and password =:vpassword ';
   Params.ParamValues['vlogin'] := trim(RzEdit1.Text);
    Params.ParamValues['vpassword'] :=trim(RzEdit2.Text);
    Open;
 end;
  if not MyQuery1.eof then
  begin
   Formlogin.Hide;
     if formmain = nil then
     Application.CreateForm(Tformmain,formmain);
      with FormMain do
    begin
       RzEdit1.Text:=Self.MyQuery1['personcode'];
       RzEdit2.Text:=Self.MyQuery1['name'];
       RzEdit3.Text:='0';
       dxRibbonStatusBar1.Panels[0].Text:=Self.myQuery1['loginname'];
       show;
    end;
    //Close;  }
  end
  else
  begin
     ShowMessage('ลองใหม่อีกทีจิ');
     RzEdit2.Clear;
     RzEdit2.SetFocus;
     Abort;
  end;

หัวข้อ: Re: From login MD5 เป็นค่าว่าง
เริ่มหัวข้อโดย: apisak ที่ กุมภาพันธ์ 27, 2013, 09:55:50 AM

อ้างจาก: Bond_007 ที่ กุมภาพันธ์ 27, 2013, 08:32:28 AM

ผมกำลังหา componant - DCPCrypt  ใน delphixe อยู่ครับ คงตอบโจทย์ข้อนี้ได้ครับ  ;D
http://hosxp.net/index.php?option=com_smf&Itemid=28&topic=459.0

ตอนนี้ผมเขียนแบบนี้ครับ


  if  RzEdit2.Text = 'xxxxx' then

 begin
     Formlogin.Hide;
     if formmain = nil then
     Application.CreateForm(Tformmain,formmain);
     MessageDlg('Programmer Mode', mtInformation, [mbOK], 0);
    with FormMain do
    begin
    RzEdit1.Text:=Self.RzEdit1.Text;
      RzEdit2.Text:=Self.RzEdit2.Text;
      RzEdit3.Text:='0';
       dxRibbonStatusBar1.Panels[0].Text:='ProgrammerMode';
       Show;
    end;
   //Close;
   //Abort;
 end;

  if (RzEdit1.Text<> '' ) and (RzEdit2.Text <> '' ) then
begin

 with MyQuery1 do
 begin
   Close;
   sql.Text := 'select * from hospital_member where loginname =:vlogin and password =:vpassword ';
   Params.ParamValues['vlogin'] := trim(RzEdit1.Text);
    Params.ParamValues['vpassword'] :=trim(RzEdit2.Text);
    Open;
 end;
  if not MyQuery1.eof then
  begin
   Formlogin.Hide;
     if formmain = nil then
     Application.CreateForm(Tformmain,formmain);
      with FormMain do
    begin
       RzEdit1.Text:=Self.MyQuery1['personcode'];
       RzEdit2.Text:=Self.MyQuery1['name'];
       RzEdit3.Text:='0';
       dxRibbonStatusBar1.Panels[0].Text:=Self.myQuery1['loginname'];
       show;
    end;
    //Close;  }
  end
  else
  begin
     ShowMessage('ลองใหม่อีกทีจิ');
     RzEdit2.Clear;
     RzEdit2.SetFocus;
     Abort;
  end;

ขอบคุณครับ  สำหรับตัวอย่าง code
ทำได้แล้วครับ

procedure TFrlogin4.RzButton1Click(Sender: TObject);
var
  Md5:TIdHashMessageDigest5;
  Str:string;
  Sai:string;
 begin
        Md5:=TIdHashMessageDigest5.Create;
         Str := md5.HashStringAsHex(RzEdit2.Text);
        // Str := RzEdit2.Text;
        DataModule1.Qmember2.Close;
        DataModule1.Qmember2.SQL.Clear;
        DataModule1.Qmember2.SQL.Add('Select username,password From member_info where  username ="'+RzEdit1.Text+'" and password = "'+Str+'"');
        DataModule1.Qmember2.Open;
    // while not  DataModule1.Qmember2.Eof do
     // if(RzEdit1.Text = DataModule1.Qmember2['username']) and (RzEdit2.Text = DataModule1.Qmember2['password'])
      if((RzEdit1.Text = DataModule1.Qmember2['username']) and (Str = DataModule1.Qmember2['password']))  then

   //  if((RzEdit1.Text = DataModule1.Qmember2['username']) and (Str = DataModule1.Qmember2['password']) ) then

           begin

              if Fmenu=nil then
              Application.CreateForm(TFmenu, Fmenu);
              Fmenu.Show;
              //Frlogin4.Hide;
              Frlogin4.Close;

              exit;
           end

        else
        begin
                       if((RzEdit1.Text <> DataModule1.Qmember2['username'])or (RzEdit1.Text = DataModule1.Qmember2['username']) and (Str <> DataModule1.Qmember2['password'])) then
                     begin
                         ShowMessage('กรุณาล็อกอินใหม: Invalid Username/Password ');
                         RzEdit1.Text:='';
                         RzEdit2.Text:='';
                         RzEdit1.SetFocus;
                         Exit;
                       Exit;

                     end


         end;




end;

หัวข้อ: Re: From login MD5 เป็นค่าว่าง
เริ่มหัวข้อโดย: Bond_007 ที่ กุมภาพันธ์ 27, 2013, 10:04:24 AM

ร่วมด้วยช่วยกันครับ  :)

อ้างจาก: apisak ที่ กุมภาพันธ์ 27, 2013, 09:55:50 AM

อ้างจาก: Bond_007 ที่ กุมภาพันธ์ 27, 2013, 08:32:28 AM

ผมกำลังหา componant - DCPCrypt  ใน delphixe อยู่ครับ คงตอบโจทย์ข้อนี้ได้ครับ  ;D
http://hosxp.net/index.php?option=com_smf&Itemid=28&topic=459.0

ตอนนี้ผมเขียนแบบนี้ครับ


  if  RzEdit2.Text = 'xxxxx' then

 begin
     Formlogin.Hide;
     if formmain = nil then
     Application.CreateForm(Tformmain,formmain);
     MessageDlg('Programmer Mode', mtInformation, [mbOK], 0);
    with FormMain do
    begin
    RzEdit1.Text:=Self.RzEdit1.Text;
      RzEdit2.Text:=Self.RzEdit2.Text;
      RzEdit3.Text:='0';
       dxRibbonStatusBar1.Panels[0].Text:='ProgrammerMode';
       Show;
    end;
   //Close;
   //Abort;
 end;

  if (RzEdit1.Text<> '' ) and (RzEdit2.Text <> '' ) then
begin

 with MyQuery1 do
 begin
   Close;
   sql.Text := 'select * from hospital_member where loginname =:vlogin and password =:vpassword ';
   Params.ParamValues['vlogin'] := trim(RzEdit1.Text);
    Params.ParamValues['vpassword'] :=trim(RzEdit2.Text);
    Open;
 end;
  if not MyQuery1.eof then
  begin
   Formlogin.Hide;
     if formmain = nil then
     Application.CreateForm(Tformmain,formmain);
      with FormMain do
    begin
       RzEdit1.Text:=Self.MyQuery1['personcode'];
       RzEdit2.Text:=Self.MyQuery1['name'];
       RzEdit3.Text:='0';
       dxRibbonStatusBar1.Panels[0].Text:=Self.myQuery1['loginname'];
       show;
    end;
    //Close;  }
  end
  else
  begin
     ShowMessage('ลองใหม่อีกทีจิ');
     RzEdit2.Clear;
     RzEdit2.SetFocus;
     Abort;
  end;

ขอบคุณครับ  สำหรับตัวอย่าง code
ทำได้แล้วครับ

procedure TFrlogin4.RzButton1Click(Sender: TObject);
var
  Md5:TIdHashMessageDigest5;
  Str:string;
  Sai:string;
 begin
        Md5:=TIdHashMessageDigest5.Create;
         Str := md5.HashStringAsHex(RzEdit2.Text);
        // Str := RzEdit2.Text;
        DataModule1.Qmember2.Close;
        DataModule1.Qmember2.SQL.Clear;
        DataModule1.Qmember2.SQL.Add('Select username,password From member_info where  username ="'+RzEdit1.Text+'" and password = "'+Str+'"');
        DataModule1.Qmember2.Open;
    // while not  DataModule1.Qmember2.Eof do
     // if(RzEdit1.Text = DataModule1.Qmember2['username']) and (RzEdit2.Text = DataModule1.Qmember2['password'])
      if((RzEdit1.Text = DataModule1.Qmember2['username']) and (Str = DataModule1.Qmember2['password']))  then

   //  if((RzEdit1.Text = DataModule1.Qmember2['username']) and (Str = DataModule1.Qmember2['password']) ) then

           begin

              if Fmenu=nil then
              Application.CreateForm(TFmenu, Fmenu);
              Fmenu.Show;
              //Frlogin4.Hide;
              Frlogin4.Close;

              exit;
           end

        else
        begin
                       if((RzEdit1.Text <> DataModule1.Qmember2['username'])or (RzEdit1.Text = DataModule1.Qmember2['username']) and (Str <> DataModule1.Qmember2['password'])) then
                     begin
                         ShowMessage('กรุณาล็อกอินใหม: Invalid Username/Password ');
                         RzEdit1.Text:='';
                         RzEdit2.Text:='';
                         RzEdit1.SetFocus;
                         Exit;
                       Exit;

                     end


         end;




end;