Q&A

  • Component 배치(?) 질문
안녕하세요.
처음 질문을 올려봅니다. 앞으로 내공이 좀 늘면 답변도 달겠습니다. ^^;;
델파이 접한지는 1개월 정도 되었는데, 현재 델파이 7으로 진행중입니다.

===========================================================
간단한 Database 관련 프로그램을 하나 작성하려고 하는데, ADODB 를 사용하려고 합니다.
맨처음 File-->New Application 해서 새로운 Form을 하나 받았습니다. ^^;; 쉽네요.
일단 프로젝트를 저장하고,
TADOConnection 관련한 Database 관련 함수들을 만들기 위해서 File --> New --> Unit 해서 새로운 Unit 을 추가한 후에 DB 라는 이름으로 Unit 을 저장했습니다.

만약에 Unit1 에서 TADOConnection 을 쓴다면, Component Tab 의 ADO 에서 ADOConnecton컴포넌트를 클릭한 후 추가해서 사용하면 될것 같은데, 이렇게 되면 DB 라는 Unit을 만든 것이 별다르게 의미가 없을것 같습니다.

제가 원하는 것은 ADODB 의 선언 및 함수 구현 부분을 DB 라는 UNIT 에 구현하고 Unit1 에서는 Design 부분만 신경을 쓰고 싶은데 어떻게 진행해야 하는지 알려주시면 감사하겠습니다.

2줄요약하면
1. TADOConnection 같은 컴포넌트를 폼이 없는 Unit에 사용하는 방법
2. 1번을 사용후 폼이 있는 Unit 에서 사용하는 법(uses 절에 적어주면 되는건지?)

이상입니다.
감사합니다. ^^

이 게시물을
2  COMMENTS
  • Profile
    오병주 • 2005.02.22 03:28
    안녕하세요..^^

    1번은 TADOConnection 같은 컴포넌트를 폼이 없는 Unit에 사용하는 방법
    ==>
    그냥 동적으로 생성하면 됩니다.
    그리고 Unit절에 ADODB 넣어주시고...

    2번 또한 동적으로 생성한 ADODB를 사용하면 되구요...
    ==>
    이런식으로 동적으로 생성한 TADOConnection을 Procedure로 넘겨서 사용하면 되져 ^^

    procedure procADOConnect(sADOCon : TADOConnection; sDept : String);
    var sConStr : String;
    begin
      if not sADOCon.Connected then
      begin
        sConStr := 'Provider=MSDASQL.1;';
        sConStr := sConStr + 'Password='+sDept+';';
        sConStr := sConStr + 'Persist Security Info=True;';
        sConStr := sConStr + 'User ID=SM'+sDept+';';
        sConStr := sConStr + 'Data Source=AAAA;';
        sADOCon.ConnectionString := sConStr;
        sADOCon.Connected := True;
      end;
    end;


    그럼 즐코. ~

  • Profile
    윤영득 • 2005.02.23 01:19
    답변감사합니다.
    혹시 잘 모르시는 분을 위해서
    TADOConnection 동적 생성

    ADODB,DB,Dialogs,Classes;

    type
      CDB = class(TADOConnection)
        mConn: TADOConnection ;
        mDS: TADODataSet ;
        mDSource: TDataSource ;
      procedure ConnectDB;
      procedure GetDataSet;
      end;

    implementation
    procedure CDB.ConnectDB;
    begin
      mConn:= TADOConnection.Create(Self);
      mConn.ConnectionString:='Provider=MSDAORA.1;Password=***;User ID=***;Data Source=***;Persist Security Info=True';
      mConn.LoginPrompt:=false;
      mConn.Connected:=true;
    end;

    procedure CDB.GetDataSet;
    begin
      mDS := TADODataSet.Create(Self);
      mDS.Connection:=mConn;
      mDS.CommandText:='SELECT * FROM TABLE';
      mDS.Active:= true ;
      mDSource:= TDataSource.Create(Self);
      mDSource.DataSet:= mDS;

    end;

    고수님들 보시고 틀린 부분있으면 지적부탁드립니다.
←First Page
341 342 343 344 345 346 347 348 349 350
Last Page→
한델 로그인 하기