一段小程序请各位大虾帮小弟看看

Question

procedure Tfm_mlogin.sbtn_enterClick(Sender: TObject);
begin
flag:=false;
right:=fm_mlogin.cmb_right.Text;
logname:=cmb_name.Text;
password:=edt_password.Text;
adotable1.Open;
adotable1.First;
while not adotable1.Eof do
begin
if (logname=adotable1.FieldValues['ÕʺÅ']) and (right=adotable1.FieldValues['ȨÏÞ']) and (password=adotable1.FieldValues['ÃÜÂë']) then
   flag:=true;
  adotable1.Next;
end;
if flag=true then
begin
cmb_name.Text:='';
edt_password.Text:='';
cmb_name.SetFocus;
adotable1.Close;
fm_kehu.ShowModal;
close;
end
else
begin
showmessage('´ËÕʺŲ»´æÔÚ»òÃÜÂë´íÎó,Çë´ÓÐÂÊäÈë!');
cmb_name.Text:='';
edt_password.Text:='';
cmb_name.SetFocus;
end;

Answer 1

看得什么啊????
很简单的东西啊!
就是登录验证对应的用户,成功后打开KEHU窗体!显示对应的信息啊!

Answer 2

showmessage('´ËÕʺŲ»´æÔÚ»òÃÜÂë´íÎó,Çë´ÓÐÂÊäÈë!');呵呵

Answer 3

我一般是这样做的procedure TfrmLogin.btnOKClick(Sender: TObject);
var
  TmpQuery:TADOQuery;
begin
  inherited;
  if Trim(edtUserID.Text)='' then
    begin
      Messagebox(Handle,'请输入本系统的有效用户名及密码!','系统提示',mb_ok+mb_iconInformation);
      edtUserID.SetFocus;
      Exit;
    end;
  TmpQuery:=TADOQuery.Create(Self);
  with TmpQuery do
    begin
      Connection:=connDM.ADOConn;
      SQL.Text:='Select * from USERS where USERID='''+Trim(edtUserID.Text)+'''';
      try
        Open;
      except
        Free;
        Exit;
      end;
      if not isempty then
        if connDM.EncryptString(Trim(EdtPassword.Text))=Fieldbyname('USERPASSWORD').AsString then
          begin
            Main.UserID:=Fieldbyname('USERID').asstring;
            Main.UserName:=Fieldbyname('USERNAME').asstring;
            frmMain.StatusBar1.Panels[1].Text:='用户:'+edtUserID.Text+'/'+Main.UserName;
            ModalResult:=mrok;
          end
        else
          begin
            Messagebox(Handle,'密码无效,请核对后重新输入!','验证失败',mb_ok+mb_iconError);
            edtPassword.SetFocus;
          end
      else
        begin
          MessageBox(Handle,'用户名无效,请核对后重新输入!','验证失败',mb_ok+mb_iconError);
          edtUserID.SetFocus;
        end;
    end;
  TmpQuery.Free;
end;