Delphi回车控制

  if Key = VK_Return then

  case TWinControl(Sender).TabOrder of

    0: rbedt_Account.SetFocus;

    1: redt_User.SetFocus;

    2: redt_Password.SetFocus;

    3: rbtn_Enter.SetFocus;

  end;

key = #13 或者 key = #9; 一个是回车，一个是Tab键

ado.open事件；如果连接成功，则先执行beforeconnect -> afterConnect;

如果执行失败： 先执行befordisconnect ,afterDisconnnect ,beforconnect ,afterconnect;