안녕하세요. 최용일입니다.

TDataBase컴포넌트에 아이디와 패스워드는 넣으셨는지요...

컴포넌트 더블클릭해서 나오는 파라매터적는 부분에 User Name, Password적어 넣으세요...

^^ 항상 즐코하세요...

답변 감사드립니다.
당연하게도 아이디와 패스워드는 넣었죠...^^;;
database 커넥트는 정상적으로 되고요 다시 query1.open 을 할때
디비로그인 창이 또다시 뜨는게 문제랍니다.
메인화면이 뜰때 database1 컴포넌트를 연결해놓고
query 컴포넌트로 작업을 한후에 화면이 찯히면 모든 컴포넌트들을 초기화 하져...
최초 query 컴포넌트의 open 시에 문제가 발생합니다.

안녕하세요. 최용일입니다.

Query컴포넌트로 작업한 뒤에 컴포넌트를 초기화 한다고 하셨는데 이부분에서 TDataBase설정부분도 초기화하거나 하는 것은 아닌지 살펴보세요...

^^ 항상 즐코하세요...

답변 감사드립니다.
자꾸 질문드려서 죄송한데여...^^;;
제 소스 입니다. 확인좀 해주시겠어여?

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Db, DBTables;

type
  TForm1 = class(TForm)
    Query1: TQuery;
    Database1: TDatabase;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
var gsStr : string;
  iCount, iSum, giR_fCnt : Integer;
  Str : String;
  gaR_Cntrl: array[0..999] of String;
begin
    If Database1.Connected then Database1.Connected := False;
    with Database1.Params do begin
      Database1.Params.Clear;
      add('SERVER NAME=3GO');
      add('DATABASE NAME=esfERP');
      add('USER NAME=SA');
      add('OPEN MODE=READ/WRITE');
      add('SCHEMA CACHE SIZE=8');
      add('LANGDRIVER=BLLT1UK0');
      add('SQLQRYMODE=');
      add('SQLPASSTHRU MODE=SHARED AUTOCOMMIT');
      add('SCHEMA CACHE TIME=-1');
      add('MAX ROWS=-1');
      add('BATCH COUNT=200');
      add('ENABLE SCHEMA CACHE=FALSE');
      add('SCHEMA CACHE DIR=');
      add('ENABLE BCD=FALSE');
      add('BLOBS TO CACHE=64');
      add('BLOB SIZE=32');
      add('PASSWORD=');
    end;

    try
      Database1.Connected := True;
    except
      on E: EDBEngineError do begin
        Exit;
      end;
    end;

  gsStr := 'SELECT A.KR_NAME FROM ISMBR01T A, ISDFT01T B ' +
           'WHERE A.ID = B.ID AND A.ID = ''1''';
  Query1.SQL.Clear;
  Query1.SQL.Add(gsStr);
  Query1.Open;//**********요기를 실행하면서 디비로그인창이 떠버립니다.
                     //**********패스워드가 없어서 그런건지...

  If Query1.EOF and Query1.BOF then
    begin
      Query1.Close;
      Exit;
    end;

  giR_fCnt := Query1.FieldCount;
  For iCount := 1 to Query1.FieldCount do
    begin
      gaR_Cntrl[iCount-1] := Query1.Fields[iCount-1].AsString;
    end;

  Query1.Close;

end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Database1.Connected := False;
  Form1 := NIL;
  Action := caFree;

end;

안녕하세요. 최용일입니다.

FormCreate할때 패스워드를 공백으로 넣어주시네요...

      add('USER NAME=SA');
      ......
      add('PASSWORD='); //<<< 여기에 패스워드를 입력해야합니다.

FormCreate에서 디자인타임에 설정된 아이디와 패스워드를 무시하고 새로 쓰는데 당연히 안되죠...

^^ 항상 즐코하세요...

아이고 부끄로와라...
저의 실수였습니다. DatabaseName 을 설정을 잘못하는 바람에...흣...
암튼 답변 감사드립니다...^^;;;