📄 delphi.txt
字号:
//使用两个控件,一个数据库连接: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;
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -