지난번에 질문한 내용을 답변이 없어서 다시 올립니다.
모쪼록 답변 부탁드립니다.
파라독스 테이블을 런타임으로 생성하여 사용하고
있습니다. 런타임 생성시 비밀번호를 코드로 생성
할 수 있는 방법좀 부탁드립니다.
참고로 파라독스 파일 생성시 사용한 코드입니다.
// 학급 데이터베이스 만들기
function TfrmDm.CreateClass(const Class_Name: String;
const IndexStr: String): Boolean;
begin
try
with frmDm.tbClass do
begin
// 테이블이 열려 있으면 닫는다.
if Active then Close;
쓰기(W) 조회수검색(DS) 답변(WR) 그림보기(SEE) 복귀(RET,RET 0)
페이지이동(PG) 다음(엔터) 연속(NS) 기타(Z)
선택 >
Page : 2 / 3
// 데이터 베이스 이름과 테이블 이름을 입력한다.
DataBaseName := ExtractFilePath(Class_Name);
TableName := ExtractFileName(Class_Name);
TableType := ttParadox;
CachedUpdates := True;
// 대상 데이터 베이스를 만든다.
with FieldDefs do
begin
Clear;
Add('HAKBUN', ftString, 10, True); // 학번
Add('NAME' , ftString, 10, True); // 이름
Add('GUBUN', ftString, 4, True); // 구분
Add('TEL' , ftString, 15, False); // 연락처
Add('POST' , ftString, 7, False); // 우편 번호
Add('JUSO' , ftString, 80, False); // 주소
end;
if IndexStr <> '' then
begin
with IndexDefs do
begin
Clear;
Add('Field1Index', IndexStr, [ixPrimary, ixUnique]);
end;
end;
CreateTable;
end;
except on e:exception do
begin
Result := False;
// 음향 효과내기
sndPlaySound('Error.wav', SND_ASYNC);
ShowMessage(e.message);
Exit;
end;
end;
Result := True;
end;
|