连接数据库 验证用户登录信息

连接数据库验证用户登录信息

procedure TForm1.Image4Click(Sender:

TObject);varADOQuery1: TADOQuery;

begin{数据库操作：判断用户和密码是否正确}if

(edit1.Text<>'') and (edit2.Text<>'') then //第一种情况：用户输入了用户名和密码

beginChDir(ExtractFilePath(Application.ExeName)); //转到当前EXE文件所在目录ChDir('..');//转到上级目录ExeRoot := GetCurrentDir; //获取当前目录.并存放于ExeRoot中DataFile := GetCurrentDir+'\Data\dzyv1.mdb' ;

//取得数据库文件dzyv1.mdb的路径ADOQuery1:= TADOQuery.Create(self); //动态创建ADOQuery组件ADOQuery1.ConnectionString :=

'Provider=Microsoft.Jet.OLEDB.4.0;Data

Source='+DataFile+';Persist Security

Info=False;';ADOQuery1.SQL.Clear;ADOQuery1.SQL.Add('se lect * from t_user where user_name="'+edit1.Text+'" and

user_pass="'+edit2.Text+'" ');ADOQuery1.Open;if ADOQuery1.Eof then //数据集为空，即eof为true begin LogTimes := LogTimes+1; if messagebox(handle,'

您填写的用户或密码有错误！是否重新输入？','出错提示',mb_iconinformation+mb_okcancel)=IDcancel then application.Terminate; if LogTimes>=3 then begin messagebox(handle,'对不起，登录次数超过3次，程序自动关闭！','非法登录',MB_ICONWARNING+mb_ok); application.Terminate; end;endelse

begin {用户和密码正确，登录成功} UserType := ADOQuery1.FieldByName('user_type').AsString;

UserName := ADOQuery1.FieldByName('user_name').AsString; LogTimes := 0; ADOQuery1.Free; Form1.Hide; //隐藏登陆窗口form2.ShowModal; //显示主窗口

end;endelse //第二种情况：用户名或者密码未输入messagebox(handle,'您没有填写用户和密码！','出错提示

',mb_iconinformation+mb_ok)end;

注意：这段代码中有几个全局变量：logtimes，usertype，userName,DataFile,ExeRoot，需要在程序implemention之前定义这些变量：

var

Form1:Tform1

在这行代码后面接着写：LogTimes : integer; UserType: string; userName: string; ExeRoot : string; DataFile:string;