헬프게시판에 나와있던 내용입니다..

잠시 그내용을 빌려쓰던차에 알려드립니다..



*********************************************



procedure TVTP_BP010F.FormShow(Sender: TObject);

var

TableList : TStringList;

i : Integer;

begin

{***************************************************************************

동적테이블의 생성 및 삭제

****************************************************************************}

TableList := TStringList.Create;



try { Temp.DB 존재유무 체크 후 존재하면 삭제 }

Session.GetTableNames('DBDEMOS', '*.DB', False, False, TableList);

for i := 0 to TableList.Count - 1 do begin

if TableList.Strings[i] = 'Temp' then begin

with Qry_Dynamic_Table do begin

DatabaseName := 'DBDEMOS';

Close;

SQL.Clear;

SQL.Add('DROP TABLE ''Temp.DB''');

ExecSQL;

end;

end;

end;

finally

TableList.Free;

end;



with Tbl_Dynamic_Table do begin

Active := False; { Table을 Disconnect시킨다 }

DatabaseName := 'DBDEMOS'; { Database Alias }

TableName := 'Temp'; { Table Name }

TableType := ttDefault; { Type = ttDefault, ttParadox, ttDbase }



with FieldDefs do begin {Field 집합형 }

Clear;

Add('ASM_DIR_NO' , ftString,10, True); { FieldName, FieldType, Size, Required }

Add('MODEL' , ftString, 8, True);

Add('BRAND' , ftString, 6, True);

Add('ORDER_QTY' , ftString, 9, True);

Add('PALLET_NO' , ftString,12, True);

Add('PC_TYPE' , ftString, 3, True);

Add('PC_GRADE' , ftString, 1, True);

Add('ASM_EXP_QTY', ftString, 9, True);

end;



with IndexDefs do begin

Clear;

Add('Index1', 'ASM_DIR_NO', [ixPrimary, ixUnique]); { IndexName, FieldName, Type }

end;

CreateTable; { Table 생성 }

end;



end;



function TVTP_BP010F.FU_Dynamic_Table_Insert(sASM_DIR_NO ,

sMODEL ,

sBRAND ,

sORDER_QTY ,

sPALLET_NO ,

sPC_TYPE ,

sPC_GRADE ,

sASM_EXP_QTY : String) : Boolean;

begin

{Checked 된 값을 구하고 동적테이블에 Insert}

with Qry_Dynamic_Table do begin

Close;

Sql.Clear;

Sql.Add('INSERT INTO Temp '

+ ' (ASM_DIR_NO , MODEL , BRAND , ORDER_QTY , '

+ ' PALLET_NO , PC_TYPE , PC_GRADE , ASM_EXP_QTY) ');

Sql.Add(' VALUES (:ASM_DIR_NO ,:MODEL ,:BRAND ,:ORDER_QTY , '

+ ' :PALLET_NO ,:PC_TYPE ,:PC_GRADE ,:ASM_EXP_QTY) ');

Prepare;

ParamByName('ASM_DIR_NO').AsString := sASM_DIR_NO;

ParamByName('MODEL').AsString := sMODEL;

ParamByName('BRAND').AsString := sBRAND ;

ParamByName('ORDER_QTY').AsString := sORDER_QTY;

ParamByName('PALLET_NO').AsString := sPALLET_NO;

ParamByName('PC_TYPE').AsString := sPC_TYPE;

ParamByName('PC_GRADE').AsString := sPC_GRADE;

ParamByName('ASM_EXP_QTY').AsString := sASM_EXP_QTY;



Try

ExecSql;

Except

MessageDlg('동적테이블(Temp)에 데이타 십입중 에러.',mtError,[mbok],0);

Exit;

End;

end; {with Qry_Dynamic_Table }



Result := True;

end;