关于一个delphi程序，很简单，请帮忙！

Posted 2023-04-22

要求是：设计一个用户登陆的窗体，在用户输入正确的用户名和密码后，弹出对话框，提示：登陆成功！（用户名和密码固化在程序中）如果三次输入错误，则提示你已输入三次用户名和密码，待用户单击确定按钮则退出程序!只要代码！高手帮忙

参考技术A try
ADOQuery1.Close;
ADOQuery1.SQL.Text := 'Select * from USERDATA where USERPASS=''' + EnCrypt(Add_semicolon(Trim(TxtPass.Text)), NHB) + '''';
ADOQuery1.Open;
if ADOQuery1.RecordCount = 0 then
begin
// MSG.MessageDlg('您输入的密码不正确!', mtInformation, [mbYES], 0);
raise EAbort.Create('Abort it');
end
else
begin
Application.CreateForm(TFmain, Fmain);
// FMAIN.ShowModal;
// raise EAbort.Create('Abort it');

end;
except
MSG.MessageDlg('请您输入登陆密码有误!', mtInformation, [mbYES], 0);
TxtPass.SetFocus;
raise EAbort.Create('Abort it');
end;

-----------------------------------------------

简单的写了一段，你理解后稍微改动下，这样对你才有好处。 参考技术B 楼上的，人家要求密码用户名固化在程序中，你搞这么复杂做什么，呵呵！本回答被提问者采纳

Delphi TreeView 问题

要求实现以下功能，还请高手帮忙，谢谢：
1。如何给TreeView的子父节点加图片，并且父节点图片和子节点图片都统一，如图所示：
2。选中节点，右键可删除次节点，如果选中子节点就删除子节点，如果选中父节点就直接删除父节点（同时也删除此父节点下的所有子节点）。
3。鼠标在TreeView点右键时，显示“展开”和“收起”，点“展开”就展开所有的节点；点“收起”就折叠起所有的节点，只显示父节点！
现在第三个问题已经解决了！不过还有前两个哦！大家帮帮忙！^_^

参考技术A 你的这些问题，其实很简单，但要说清楚也要费点口舌。。。。。。
告诉你几个关键点吧。
动态创建树结点，每个结点的StateImage、SelImage这些属性是设置图标的。
删除结点，选择的哪个就直接删除这个结点，如果下面有子节点，会自动给一起删了的，不用你操心 参考技术B Images 属性 设置 成ImageList1
然后给每个节点的ImageIndex设置成ImageList1中图片就可以了

然后 popupmenu属性 设置成popupmenu1 就可以了本回答被提问者采纳