如题,谁能告诉我具体方法,代码如何编写

解决方案 »

  1.   

    登陆界面Form1与主界面form2
    If edit1.text='张三’ then
    begin
    Form1.hide;
    form2.show;
    end;
      

  2.   

        sSql := 'select * from 用户表 where 用户名='''+Trim(用户名输入框输入的用户名)+''' '
        +' and 密码='''+Trim(密码输入框输入的密码)+''' ';
        dm.adoQry.Close;
        dm.adoQry.SQL.Clear;
        dm.adoQry.SQL.Add(sSql);
        try
          dm.adoQry.Open;
        except
          on E: Exception do
          begin
            FErr:=E.Message;
            Exit;
          end;
        end;
        if dm.adoQry.RecordCount=0  then
        begin
          ShowMessage('用户名或密码错误');     
          Exit;
        end
        else
        begin
         Application.CreateForm(TMainForm,MainForm);
         MainForm.ShowModal;
         LoginForm.Free;
         MainForm.Free;
        end;   
        
      
        //LoginForm  登录窗体
        //MainForm   主窗体
      

  3.   

    sSql := 'select * from 用户表 where 用户名='''+Trim(用户名输入框输入的用户名)+''' '
      +' and 密码='''+Trim(密码输入框输入的密码)+''' ';哇,SQL注入
      

  4.   

    4L的思路不错,不过一般密码是不能明文存到数据库里的,有的加密严谨的,连用户名也要加密的,可以用md5或者3des来加密
      

  5.   

    这个实现方式我觉得最好。楼主好好看看。  
    if not DEF_DEVDEBUG then //调试状态
        begin
          //登录
          LoginFm := TLoginFM.Create(Application);
          try
            LoginResult := LoginFm.ShowModal;
          finally
            LoginFm.Free;
          end;
          //登录失败
          if LoginResult <> 1 then
          begin
            DM.Free;
            SystemParam.Free;
            if not DEF_MultMine then
            begin
              ReleaseMutex(OneMutex);
              CloseHandle(OneMutex);
            end;
            Exit;
          end;
        end
        else
        begin
          SystemParam.__UserID := 'sys';
        end;
        //
        Application.CreateForm(TMainFm, MainFm);
        Application.CreateForm(TBJDY_Fm, BJDY_Fm);
        Application.CreateForm(TXXXX_Fm, XXXX_Fm);    // Modified by zhb 2011-9-20 11:55:47  隐藏图片
    //    with TShowFM.Create(nil) do
    //    begin
    //      Show;
    //      for i := 255 downto 1 do
    //      begin
    //        AlphaBlendValue := i;
    //        Application.ProcessMessages;
    //      end;
    //      Free;
    //    end;    Application.Run;
      except
      end;
      

  6.   

    在项的工程文件中,楼上的说的很清楚。用户名 和 密码正确后,才可以显示主界面。
    不行LZ问的是什么? 是实现d中调用网页中,发送用户名 和 密码,然后跑转到另一个页面中?
      

  7.   

    看需要不需要用到数据库,不需要数据库的话直接IF,然后SHOW