编数据库程序，如何截获用户名/密码输入的对话框？

Question

我想把数据库默认的对话框改成我自己设计的用户/密码对话框，
可以下拉用户名选择，
免得用户名每次都要输入，或则只能固定一个默认的用户名在以前的对话框中，
请高手指教！
不胜感谢！

Answer 1

自己仿DBLogDlg做你自己的对话框，然后做几个这样：
function LoginDialog(const ADatabaseName: string;
  var AUserName, APassword: string): Boolean;function LoginDialogEx(const ADatabaseName: string;
  var AUserName, APassword: string; NameReadOnly: Boolean): Boolean;function RemoteLoginDialog(var AUserName, APassword: string): Boolean;
的函数，最后在初始化的时候,执行：
  LoginDialogProc := LoginDialog;
  LoginDialogExProc := LoginDialogEx;
  RemoteLoginDialogProc := RemoteLoginDialog;

Answer 2

谢谢你的好意，
我在database的onlog函数修改了一下，
达到了如期效果。
谢谢！