怎样将SQL数据库登录窗口去掉？在线给分，谢谢！

Question

有一密码登录程序，密码验证需要调用数据库，当我按确定按纽，弹出SQL登录窗口
  SA     ----->ENTER 后验证密码正确进入主程序。
我想系统不出现SA登录，就调用数据库，应该怎样设置，谢谢！

Answer 1

adoconnection的loginprompt的参数设置为false

Answer 2

adoconnection.loginprompt:=false;
or
database.LoginPrompt:=false;

Answer 3

ADOConnection1.LoginPrompt:=false;

Answer 4

先设置database的username和password

Answer 5

将数据库连接组件的LoginPrompt := False; 如果是用的TDatabase的话，将用户名和密码设置到参数属性时；如果用的是TADOConnection的话，设置到connectionstring里。

Answer 6

try
  with dmDemoTree.dbDBETree do
  begin
    DatabaseName := name;
    Params.Clear;
    Params.Add('USER NAME=Test');
    Params.Add('PASSWORD=');
    AliasName := 'MyTest';
    LoginPrompt := false;
    Connected := true;           //连接
  end;
Except
  on Exception do                      //错误处理
  begin
    ShowMessage('连接数据库失败，请检查网络是否通路！');
  end;
end;

Answer 7

adoconnection 是什么？我的窗口中只有DataSource1 QUERY1
我是新手，请详细点，谢谢！

Answer 8

add database control on your form.set query1's "databasename" property of your database's "databasename".then do like up.

Answer 9

database.LoginPrompt:=false;
是在程序中加，还是控件的属性啊，
database具体是什么？源程序：unit password;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, ExtCtrls, jpeg, Db, DBTables;type
  TForm1 = class(TForm)
    GroupBox1: TGroupBox;
    P_sn: TEdit;
    P_name: TEdit;
    P_psw: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Button1: TButton;
    Button2: TButton;
    DataSource1: TDataSource;
    Query1: TQuery;
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure P_snKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementationuses main;{$R *.DFM}procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 //If (Key=Vk_Return) Then                             //ENTER光标跳转
 //  Begin
 //     Perform(WM_NextDlgCtl, 0, 0);
 //     key:=vk_Tab;
  // end;
end;procedure TForm1.P_snKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   If (Key=Vk_Return) Then
      begin
          query1.Close;
          query1.SQL.clear;
          query1.SQL.add('select * from password where P_sn='''+P_sn.Text+'''');
          query1.Open;
          P_name.Text:=Query1['P_name'];
          P_psw.SetFocus;
       end;
end;procedure TForm1.Button1Click(Sender: TObject);
begin   if P_sn.text<>'' then     if P_psw.text<>Query1['P_psw'] then
      begin
        MessageDlg('密码错误！请重新输入！',mtInformation,[mbOk],0);
        P_psw.setfocus;
      end
      else
       begin
         form1.hide;
         form_main.show;
       end
     else
       begin
         MessageDlg('用户代码不能为空！请重新输入！',mtInformation,[mbOk],0);
         P_sn.SetFocus;
       end;
end;procedure TForm1.Button2Click(Sender: TObject);
begin
form1.close;
end;end.请问在上面程序中应如何加入去掉SA的语句
谢谢啦！

Answer 10

database是数据库控件（在bde页），在odbc中设置好数据源后，双机database你可以选择数据库别名和写入数据库名，在中间空白处写 user name=sa  password=密码，再把LoginPrompt的勾打掉
设置database的Active为True
这样行了吧！！！！！！！！！！！！！

Answer 11

只要将ADOConnection1.LoginPrompt:=false;就行了。