1:登录界面是form5 验证完用户密码后 直接跳转主界面form1 我用的是mysql数据库
在数据库AAA里 有一个登录表t_login表 先判断username列中是否存在用户 不存在跳‘用户不存在’ 再判断password列是否正确不正确跳‘密码错误’都验证完没错后点登录按钮 跳进FORM1窗口2:如果可以在登陆界面里最后在加可以直接配制数据库信息的功能这可能比上面的复杂 就是老板想直接装了MYSQL后直接能用这软件 里面大概功能 能输入进入MYSQL用户和密码 之后获取信息选择数据库 不知道能不能实现 希望哪位高手可以帮帮忙 老板催的紧 无奈我DELPHI又是超级菜鸟 尽量说的详细点用什么控件最好告诉我是在什么地方里面的 谢谢了!!
在数据库AAA里 有一个登录表t_login表 先判断username列中是否存在用户 不存在跳‘用户不存在’ 再判断password列是否正确不正确跳‘密码错误’都验证完没错后点登录按钮 跳进FORM1窗口2:如果可以在登陆界面里最后在加可以直接配制数据库信息的功能这可能比上面的复杂 就是老板想直接装了MYSQL后直接能用这软件 里面大概功能 能输入进入MYSQL用户和密码 之后获取信息选择数据库 不知道能不能实现 希望哪位高手可以帮帮忙 老板催的紧 无奈我DELPHI又是超级菜鸟 尽量说的详细点用什么控件最好告诉我是在什么地方里面的 谢谢了!!
除了窗体制作,显示之外,验证主要是通过AdoQuery去执行SQL查数据,这样基本就可以实现密码验证了,
当然,最好加个密。2. 你可以设置一个超级密码,不用去数据库验证都可以登陆嘛。如果你怕有了这个超级密码后系统安全性没有
保障,可以想方法来加密启动不启用这个超级密码。如果要做直接在登陆界面就通过数据库的帐号密码连接
数据库配置t_login表的话也不是不行,有帐号密码就可以配连接字符串了,连上数据库后一切都很好搞的
procedure TfrmLogin.Button1Click(Sender: TObject);
var
qry:TAdoquery;
str:string;
sqlstr:String;
begin
str:='Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=%;Data Source=%';
adoconnection1.ConnectionString:=str;
if edtUserName.Text='' then
begin
messagebox(handle,'请输入用户名。','提示',64);
Exit;
end;
if edtPasswrod.Text='' then
begin
messagebox(handle,'请输入用密码。','提示',64);
Exit;
end; qry:=TAdoquery.Create(nil);
qry.Connection:=adoconnection1;
qry.Close;
qry.SQL.Clear;
sqlstr:='select * from [user] where [username]='+Quotedstr(edtUserName.Text)+' and [password]='+Quotedstr(edtPasswrod.Text);
//验证用户输入的账号和密码是否和数据库里的用户表的账号密码一致
qry.SQL.Add(sqlstr);
qry.Open; if qry.RecordCount=0 then
begin
messagebox(handle,'您输入的用户名或是密码有误!','提示',64);
Inc(i);
if i>3 then
begin
messagebox(handle,'您已经输错三次了!','提示',64);
Self.Close;
end;
end
else
Self.ModalResult:=mrOk;
end;然后在主页面form5里面写这样的代码
procedure form5.FormShow(Sender: TObject);
var
frm: TfrmLogin;
begin
try
result:=false;
frm := TfrmLogin.Create(self);
if frm.ShowModal = mrOk then
Result:=True
else
Result:=False;
except
messagebox(handle,你没有成功登陆页面功能不能正常使用','提示!',64);
end;
end;
edtConnectionString.Text := PromptDataSource(Application.Handle,edtConnectionString.Text );
然后保存edtConnectionString.Text内容就好了
什么数据库都通用,你可以预设MYSQL的参数到EDIT中,这样改用户名密码及IP就能用了