Delphi Programming Forum
C++Builder  |  Delphi  |  FireMonkey  |  C/C++  |  Free Pascal  |  Firebird
볼랜드포럼 BorlandForum
 경고! 게시물 작성자의 사전 허락없는 메일주소 추출행위 절대 금지
델파이 포럼
Q & A
FAQ
팁&트릭
강좌/문서
자료실
컴포넌트/라이브러리
FreePascal/Lazarus
볼랜드포럼 홈
헤드라인 뉴스
IT 뉴스
공지사항
자유게시판
해피 브레이크
공동 프로젝트
구인/구직
회원 장터
건의사항
운영진 게시판
회원 메뉴
북마크
델마당
볼랜드포럼 광고 모집

델파이 Q&A
Delphi Programming Q&A
[1232] [질문] 파라독스 파일의 비밀번호???
zpisbu1 [ ] 1642 읽음    1998-02-10 16:52
지난번에 질문한 내용을 답변이 없어서 다시 올립니다.
모쪼록 답변 부탁드립니다.

파라독스 테이블을 런타임으로 생성하여 사용하고
있습니다. 런타임 생성시 비밀번호를 코드로 생성
할 수 있는 방법좀 부탁드립니다.
참고로 파라독스 파일 생성시 사용한 코드입니다.

// 학급 데이터베이스 만들기
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;


+ -

관련 글 리스트
1232 [질문] 파라독스 파일의 비밀번호??? zpisbu1 1642 1998/02/10
Google
Copyright © 1999-2015, borlandforum.com. All right reserved.