实例——确定用户登录数据库的合法性.txt

来自「Delphi 7组件应用实例 书籍语言： 简体中文 书籍类」· 文本 代码 · 共 15 行

     procedure TForm1.SQLConnectionBeforeConnect(Sender: TObject);
     begin
       with Sender as TSQLConnection do
       begin
         if LoginPrompt = False then 
         {判别TSQLConnection组件的LoginPrompt属性，如果为False，则设置用户名和口令}
         begin
           Params.Values['User_Name'] := 'ORA';
           Params.Values['Password'] := PasswordEdit.txt;
           //口令使用编辑框PasswordEdit中用户动态输入的内容 
         end;
       end;
     end;