class를 생성한다면

query를 만드는 작업을 constructor 안에서 해주시고

없애는 작업을 destructor 안에 해주시는게 좋을것 같은데요.





sysong wrote:

> db작업을 하는 class 생성해야합니다

> 사실 class를 잘 모르겠네요

> 메인에서 database만 넘겨주고 class에서 작업을 하는데 쿼리로 하고 싶어요

> 그래서 쿼리를 생성하고 쿼리를 없애는 함수가 필요하구요 테이블이 6개거든요

> 나머지 함수로 테이블에 insert할거예요

> 각 테이블에 insert하는것 이런건 하겠는데요 전체적인 프로그램 구성을 잘 못하겠습니다

> 제가 작성한 것 한번 봐주시고 괜찮으시다면 좀 고쳐주세요

> unit DBUpLoadU;

>

> interface

>

> uses

> Db,Dbtables, Classes, Sysutils;

>

> type

> TDBUpLoad = class

>

> private

> { Private declarations }

> Query:TQuery;

> public

> { Public declarations }

>

> function CreateQuery(DB:TDatabase):TQuery;

> function DestroyQuery(Query :TQuery):Boolean;

> function DGS2MainDB(Data:string):Boolean;

> end;

>

> var

> DBUpload: TDBUpLoad;

>

> implementation

>

> function TDBUpLoad.CreateQuery(DB : TDatabase):TQuery;

> begin

> Query:=TQuery.Create(nil);

> Query.DatabaseName:=DB.DatabaseName;

> Result:=Query;

> end;

>

> function TDBUpLoad.DGS2MainDB(Data:string):Boolean;

> begin

> end;

>

> function TDBUpLoad.DestroyQuery(Query : TQuery):Boolean;

> begin

> try

> Query.Free;

> Result :=True;

> except

> Result := False;

> end;

> end;

>

> end.

>