UC知道我用delphi做了一个登录界面，，做了一个主界面，在主界面中做了一个密码修改界面
来源：百度知道 编辑：UC知道 时间：2024/05/10 12:13:29
谢谢您的回答，怎么记录当前用户呢？
能说的具体一点吗
这个容易的啊！
procedure TEditKeyForm.FormShow(Sender: TObject);//显示登录的用户名
begin
Edit1.Text := loginForm.u;//引用登陆窗loginForm的自定义变量u
end;
procedure TEditKeyForm.SpeedButton1Click(Sender: TObject);
begin
dm.ADOUser.Open;
dm.ADOUser.Active := true;
if Edit2.Text = '' then begin
ShowMessage('请输入原密码！');
Edit2.SetFocus;
end
else if Edit3.Text = '' then begin
ShowMessage('请输入新密码！');
Edit3.SetFocus;
end
else if Edit4.Text = '' then begin
ShowMessage('请输入确认密码！');
Edit4.SetFocus;
end
else if (Edit2.Text <> '')and (Edit2.Text <> loginForm.p) then beg