Delphi VCL

Development Platform:

Delphi

delphi.txt：Code Content

							//使用两个控件，一个数据库连接:TSQLConnection 一个数据库查询:TSQLQuery
begin
  SQLCon.DriverName:='mysql';
  SQLCon.Params.Values['database']:='XXXX';//数据库名称
  SQLCon.Params.Values['hostname']:='192.168.0.10';
  SQLCon.Params.Values['user_name']:='XXXXXXXXXXXXXX';//数据库用户名
  SQLCon.Params.Values['password']:='XXXXXXXXXXXXXX';//密码
  SQLCon.Open;
  SQLQu.Close;
  SQLQu.SQL.Clear;
  SQLQu.SQL.Add('SELECT * FROM t_admininfo where vcName="'+edit1.Text+'" and enDel="N" and     vcpass=password("'+edit2.Text+'")');
  SQLQu.Prepared:=true;
  SQLQu.Open;
  if SQLQu.RecordCount>0 then
  begin
      //如果搜索到数据，登录验证成功
  end
  else
  begin
      showmessage('用户名、密码或网络连接错误，请检查!');
  end;
end;

						