Q&A
- db가 다시 만들어져요.
procedure TfrmSale.OrderMake;
begin
with Table1 do begin
Active:=False;
Databasename:= frmSale.dbDir;
TableName:='Order.db';
TableType:= ttParadox;
with FieldDefs do begin
Clear;
Add('SLPOS', ftString, 2, False);
Add('SLUSER', ftString, 10, False);
Add('SLDATE', ftDATE, 0, False);
Add('SLTIME', ftTIME, 0, False);
Add('SLTABL', ftString, 4, False);
Add('SLBILL', ftINTEGER, 0, False);
Add('SLCODE', ftSTRING, 4, False);
Add('SLMENU', ftString, 20, False);
Add('SLCOUNT', ftINTEGER, 0, False);
Add('SLPRICE', ftFLOAT, 0, False);
Add('SLAMOUNT', ftFLOAT, 0, False);
Add('CSCODE', ftSTRING, 1, False);
Add('CSCOUNT', ftINTEGER, 0, False);
Add('SLCOOK', ftSTRING, 10, False);
Add('SLGUBN', ftSTRING, 4, False);
end;
with IndexDefs do begin
Clear;
end;
CreateTable;
end;
end;
procedure TfrmSale.FormCreate(Sender: TObject);
begin
dbDir:='c:dongasdata';
if not FileExists(frmSale.dbDir+'Order.db') then OrderMake;
if not FileExists(frmSale.dbDir+'Calc.db') then CalcMake;
end;
프로그램을 다시 실행하면 order.db가 지워졌다가 다시 생깁니다. db만드는 코드는 여기뿐인데 우째 이런일이 일어나는 걸까요?
begin
with Table1 do begin
Active:=False;
Databasename:= frmSale.dbDir;
TableName:='Order.db';
TableType:= ttParadox;
with FieldDefs do begin
Clear;
Add('SLPOS', ftString, 2, False);
Add('SLUSER', ftString, 10, False);
Add('SLDATE', ftDATE, 0, False);
Add('SLTIME', ftTIME, 0, False);
Add('SLTABL', ftString, 4, False);
Add('SLBILL', ftINTEGER, 0, False);
Add('SLCODE', ftSTRING, 4, False);
Add('SLMENU', ftString, 20, False);
Add('SLCOUNT', ftINTEGER, 0, False);
Add('SLPRICE', ftFLOAT, 0, False);
Add('SLAMOUNT', ftFLOAT, 0, False);
Add('CSCODE', ftSTRING, 1, False);
Add('CSCOUNT', ftINTEGER, 0, False);
Add('SLCOOK', ftSTRING, 10, False);
Add('SLGUBN', ftSTRING, 4, False);
end;
with IndexDefs do begin
Clear;
end;
CreateTable;
end;
end;
procedure TfrmSale.FormCreate(Sender: TObject);
begin
dbDir:='c:dongasdata';
if not FileExists(frmSale.dbDir+'Order.db') then OrderMake;
if not FileExists(frmSale.dbDir+'Calc.db') then CalcMake;
end;
프로그램을 다시 실행하면 order.db가 지워졌다가 다시 생깁니다. db만드는 코드는 여기뿐인데 우째 이런일이 일어나는 걸까요?
2
COMMENTS
-
-
최석기 께서 말씀하시기를...
> 박성훈 께서 말씀하시기를...
> > procedure TfrmSale.OrderMake;
> > begin
> > with Table1 do begin
> > Active:=False;
> > Databasename:= frmSale.dbDir;
> > TableName:='Order.db';
> > TableType:= ttParadox;
> >
> > with FieldDefs do begin
> > Clear;
> > Add('SLPOS', ftString, 2, False);
> > Add('SLUSER', ftString, 10, False);
> > Add('SLDATE', ftDATE, 0, False);
> > Add('SLTIME', ftTIME, 0, False);
> > Add('SLTABL', ftString, 4, False);
> > Add('SLBILL', ftINTEGER, 0, False);
> > Add('SLCODE', ftSTRING, 4, False);
> > Add('SLMENU', ftString, 20, False);
> > Add('SLCOUNT', ftINTEGER, 0, False);
> > Add('SLPRICE', ftFLOAT, 0, False);
> > Add('SLAMOUNT', ftFLOAT, 0, False);
> > Add('CSCODE', ftSTRING, 1, False);
> > Add('CSCOUNT', ftINTEGER, 0, False);
> > Add('SLCOOK', ftSTRING, 10, False);
> > Add('SLGUBN', ftSTRING, 4, False);
> > end;
> >
> > with IndexDefs do begin
> > Clear;
> > end;
> > CreateTable;
> > end;
> > end;
> >
> > procedure TfrmSale.FormCreate(Sender: TObject);
> > begin
> > dbDir:='c:dongasdata';
> >
> > if not FileExists(frmSale.dbDir+'Order.db') then OrderMake;
> > if not FileExists(frmSale.dbDir+'Calc.db') then CalcMake;
> >
> > end;
> >
> > 프로그램을 다시 실행하면 order.db가 지워졌다가 다시 생깁니다. db만드는 코드는 여기뿐인데 우째 이런일이 일어나는 걸까요?
> >
>
> FormCreate 이벤트에 다음 부분이 잘목된거 같은데요..
>
> if not FileExists(frmSale.dbDir+'Order.db') then OrderMake;
> if not FileExists(frmSale.dbDir+'Calc.db') then CalcMake;
>
> 담과 같이..
> if not FileExists(frmSale.dbDir+'/Order.db') then OrderMake;
> if not FileExists(frmSale.dbDir+'/Calc.db') then CalcMake;
>
> 디렉토리 표시가 빠진거 같군요..
>
>
>
제가 사소한 실수를 했군요. 정말 감사합니다.
(NOTICE) You must be logged in to comment on this post.
-
- 이주흥
- •
- 1999.08.05 00:17
- 1 COMMENTS
- /
- 0 LIKES
-
최석기•1999.08.05 01:46이주흥 께서 말씀하시기를... > 질문입니다. > 텍스트파일의 특정위치에 문자열을 쓰는데 > 그 문자열 ...
-
- 무명인
- 1999.08.04 23:52
- 0 COMMENTS
- /
- 0 LIKES
-
- 김남규
- 1999.08.04 23:07
- 0 COMMENTS
- /
- 0 LIKES
-
- 리디아
- 1999.08.04 23:02
- 0 COMMENTS
- /
- 0 LIKES
-
- 이지은
- 1999.08.04 22:42
- 0 COMMENTS
- /
- 0 LIKES
-
- 유애선
- 1999.08.04 22:31
- 0 COMMENTS
- /
- 0 LIKES
-
- 왕초보
- •
- 1999.08.04 21:41
- 1 COMMENTS
- /
- 0 LIKES
-
최석기•1999.08.04 23:57왕초보 께서 말씀하시기를... > > 폼을 제외한 다른 컴퍼넌트는 keydown 이벤트를 사용하면 잘 되는데 ...
-
- 공대규
- •
- 1999.08.04 21:31
- 2 COMMENTS
- /
- 0 LIKES
-
최석기•1999.08.04 23:55공대규 께서 말씀하시기를... > 안녕하세요? 공대규라고 합니다. > > 탐색기나 시작 메뉴의 실행 명령...
-
공대규•1999.08.05 00:56...
-
- 박성훈
- •
- 1999.08.04 21:09
- 2 COMMENTS
- /
- 0 LIKES
procedure TfrmSale.OrderMake; begin with Table1 do begin Active:=False; Databasename:= frmSale.dbDir; TableName:='Order.db'; TableType:= ttParadox; with FieldDefs do begin Clear; Add('SLPOS', ftString, 2, False); Add('SLU...-
최석기•1999.08.04 23:48박성훈 께서 말씀하시기를... > procedure TfrmSale.OrderMake; > begin > with Table1 do begin > ...
-
박성훈•1999.08.05 17:45최석기 께서 말씀하시기를... > 박성훈 께서 말씀하시기를... > > procedure TfrmSale.OrderMake; > > b...
-
-
안치봉•1999.08.05 01:14제가알기로는 installshield(인스톨싫어???) 인걸로 압니다. 박성진 께서 말씀하시기를... > IWZ 확장...
-
-
- 이광주
- 1999.08.04 18:45
- 0 COMMENTS
- /
- 0 LIKES
-
- 권민철
- 1999.08.04 18:17
- 0 COMMENTS
- /
- 0 LIKES
-
- 안장식
- 1999.08.04 17:44
- 0 COMMENTS
- /
- 0 LIKES
-
- 민아
- •
- 1999.08.04 16:17
- 1 COMMENTS
- /
- 0 LIKES
-
노력하는이•1999.08.04 18:10민아 께서 말씀하시기를... > 안녕하세요... > 윈도 95나 98에선 거의 모든 객체(폼, 버튼, 메뉴 같은)...
-
- 첩현
- 1999.08.04 10:38
- 0 COMMENTS
- /
- 0 LIKES
-
- 강병철
- •
- 1999.08.04 09:04
- 1 COMMENTS
- /
- 0 LIKES
-
고구마•1999.08.04 18:38강병철 께서 말씀하시기를... > 안녕하세요! > > 윈도우상에서 LAN으로 접속된 다른 컴퓨터를 커고, ...
-
-
최석기•1999.08.04 18:04이광환 께서 말씀하시기를... > tcalendar 에서 원하는 날짜 cell의 색깔을 바꾸는 방법은 없나요.......^...
-
이광환•1999.08.04 21:58최석기 께서 말씀하시기를... > 이광환 께서 말씀하시기를... > > tcalendar 에서 원하는 날짜 cell의 색...
-
-
- 김영수
- 1999.08.04 02:51
- 0 COMMENTS
- /
- 0 LIKES
-
- 문홍철
- 1999.08.04 02:46
- 0 COMMENTS
- /
- 0 LIKES
-
- 지승용
- •
- 1999.08.04 02:14
- 1 COMMENTS
- /
- 0 LIKES
-
최석기•1999.08.04 02:42지승용 께서 말씀하시기를... > > MDI폼에서 Child window의 Cpation Bar(제목표시줄)을 없애려고 합니...
> procedure TfrmSale.OrderMake;
> begin
> with Table1 do begin
> Active:=False;
> Databasename:= frmSale.dbDir;
> TableName:='Order.db';
> TableType:= ttParadox;
>
> with FieldDefs do begin
> Clear;
> Add('SLPOS', ftString, 2, False);
> Add('SLUSER', ftString, 10, False);
> Add('SLDATE', ftDATE, 0, False);
> Add('SLTIME', ftTIME, 0, False);
> Add('SLTABL', ftString, 4, False);
> Add('SLBILL', ftINTEGER, 0, False);
> Add('SLCODE', ftSTRING, 4, False);
> Add('SLMENU', ftString, 20, False);
> Add('SLCOUNT', ftINTEGER, 0, False);
> Add('SLPRICE', ftFLOAT, 0, False);
> Add('SLAMOUNT', ftFLOAT, 0, False);
> Add('CSCODE', ftSTRING, 1, False);
> Add('CSCOUNT', ftINTEGER, 0, False);
> Add('SLCOOK', ftSTRING, 10, False);
> Add('SLGUBN', ftSTRING, 4, False);
> end;
>
> with IndexDefs do begin
> Clear;
> end;
> CreateTable;
> end;
> end;
>
> procedure TfrmSale.FormCreate(Sender: TObject);
> begin
> dbDir:='c:dongasdata';
>
> if not FileExists(frmSale.dbDir+'Order.db') then OrderMake;
> if not FileExists(frmSale.dbDir+'Calc.db') then CalcMake;
>
> end;
>
> 프로그램을 다시 실행하면 order.db가 지워졌다가 다시 생깁니다. db만드는 코드는 여기뿐인데 우째 이런일이 일어나는 걸까요?
>
FormCreate 이벤트에 다음 부분이 잘목된거 같은데요..
if not FileExists(frmSale.dbDir+'Order.db') then OrderMake;
if not FileExists(frmSale.dbDir+'Calc.db') then CalcMake;
담과 같이..
if not FileExists(frmSale.dbDir+'/Order.db') then OrderMake;
if not FileExists(frmSale.dbDir+'/Calc.db') then CalcMake;
디렉토리 표시가 빠진거 같군요..