Q&A
- 급!!!!!!날짜관련 질문입니다. mask 에디터에서요
안녕하세요 꼭 좀 도와주세요.
db는 파라독스이고 날짜형으로 지정 했습니다. 그리고 code는 숫자형(i)으로 지정했는데
아래처럼 화면에 뿌리려는데 오류가 나고, db에 저장 방법을 모르겠습니다. 좀 도와주세요 ㅜ.ㅜ
procedure TB03Form.EdCodeChange(Sender: TObject);
var Q1:TQuery;
sSql:String;
begin
//이미 등록된 자료이면 내용을 보여준다.
Q1 := TQuery.Create(Self);
Q1.DataBaseName := AliasName;
Q1.Sql.Clear;
Q1.Sql.Add('Select * From CustCode Where Code = '''+TRIM(EdCode.TEXT)+'''');
Q1.Sql.Add(sSql);
Q1.Open;
Edname.Text := Q1.FieldByName('Name').AsString;
Edno.Text := Q1.FieldByName('No').AsString;
EdBDate.Text := Q1.FieldByName('BDate').AsString;
EdAddrNo.Text := Q1.FieldByName('AddrNo').AsString;
EdAddr1.Text := Q1.FieldByName('Addr1').AsString;
EdAddr2.Text := Q1.FieldByName('Addr2').AsString;
EdTel1.Text := Q1.FieldByName('Tel1').AsString;
EdTel2.Text := Q1.FieldByName('Tel2').AsString;
EdFDate.Text := Q1.FieldByName('FDate').AsString;
Q1.Close;
Q1.Free;
-----------------------------------------------
아래는 입력 루틴입니다. 꼭 좀 도와주세요
begin
sSql := 'Insert into CustSm (Code,Name,No,BDate,AddrNo,Addr1,Addr2,Tel1,Tel2,FDate) '+
' Values (:PCode,:PName,:PNo,:PBDate,:PAddrNo,:PAddr1,:PAddr2,:PTel1,:PTel2,:PFDate) ';
Q1.Sql.Add(sSql);
Q1.ParamByName('PCode').asstring := Trim(EdCode.Text);
Q1.ParamByName('PName').asstring := Trim(EdName.Text);
Q1.ParamByName('PNo').asstring := Trim(EdNo.Text);
Q1.ParamByName('PBDate').asDate := StrToDate(EdBDate.Text);
Q1.ParamByName('PAddrNo').asstring := Trim(EdAddrNo.Text);
Q1.ParamByName('PAddr1').asstring := Trim(EdAddr1.Text);
Q1.ParamByName('PAddr2').asstring := Trim(EdAddr2.Text);
Q1.ParamByName('PTel1').asstring := Trim(EdTel1.Text);
Q1.ParamByName('PTel2').asstring := Trim(EdTel2.Text);
Q1.ParamByName('PFDate').asDate := StrToDate(EdFDate.Text);
end;
db는 파라독스이고 날짜형으로 지정 했습니다. 그리고 code는 숫자형(i)으로 지정했는데
아래처럼 화면에 뿌리려는데 오류가 나고, db에 저장 방법을 모르겠습니다. 좀 도와주세요 ㅜ.ㅜ
procedure TB03Form.EdCodeChange(Sender: TObject);
var Q1:TQuery;
sSql:String;
begin
//이미 등록된 자료이면 내용을 보여준다.
Q1 := TQuery.Create(Self);
Q1.DataBaseName := AliasName;
Q1.Sql.Clear;
Q1.Sql.Add('Select * From CustCode Where Code = '''+TRIM(EdCode.TEXT)+'''');
Q1.Sql.Add(sSql);
Q1.Open;
Edname.Text := Q1.FieldByName('Name').AsString;
Edno.Text := Q1.FieldByName('No').AsString;
EdBDate.Text := Q1.FieldByName('BDate').AsString;
EdAddrNo.Text := Q1.FieldByName('AddrNo').AsString;
EdAddr1.Text := Q1.FieldByName('Addr1').AsString;
EdAddr2.Text := Q1.FieldByName('Addr2').AsString;
EdTel1.Text := Q1.FieldByName('Tel1').AsString;
EdTel2.Text := Q1.FieldByName('Tel2').AsString;
EdFDate.Text := Q1.FieldByName('FDate').AsString;
Q1.Close;
Q1.Free;
-----------------------------------------------
아래는 입력 루틴입니다. 꼭 좀 도와주세요
begin
sSql := 'Insert into CustSm (Code,Name,No,BDate,AddrNo,Addr1,Addr2,Tel1,Tel2,FDate) '+
' Values (:PCode,:PName,:PNo,:PBDate,:PAddrNo,:PAddr1,:PAddr2,:PTel1,:PTel2,:PFDate) ';
Q1.Sql.Add(sSql);
Q1.ParamByName('PCode').asstring := Trim(EdCode.Text);
Q1.ParamByName('PName').asstring := Trim(EdName.Text);
Q1.ParamByName('PNo').asstring := Trim(EdNo.Text);
Q1.ParamByName('PBDate').asDate := StrToDate(EdBDate.Text);
Q1.ParamByName('PAddrNo').asstring := Trim(EdAddrNo.Text);
Q1.ParamByName('PAddr1').asstring := Trim(EdAddr1.Text);
Q1.ParamByName('PAddr2').asstring := Trim(EdAddr2.Text);
Q1.ParamByName('PTel1').asstring := Trim(EdTel1.Text);
Q1.ParamByName('PTel2').asstring := Trim(EdTel2.Text);
Q1.ParamByName('PFDate').asDate := StrToDate(EdFDate.Text);
end;
2
COMMENTS
-
-
정성스런 답변에 감사드립니다. 그런데 모르는게 넘 많아서 님 메일주소로 멜 발송했습니다.
확인좀 해주세요 ^^ 파일 첨부해서 여기론 못올리네요.
그리고 이런 오류가 나네요. 참고로 BDate는 mask edit입니다
[Error] B_03Form.pas(361): Incompatible types: 'TDateTime' and 'String'
모름이 wrote:
> 제가 소스좀 고쳐 볼께여... ^^;
> 왕초보민정 wrote:
> > 안녕하세요 꼭 좀 도와주세요.
> > db는 파라독스이고 날짜형으로 지정 했습니다. 그리고 code는 숫자형(i)으로 지정했는데
> > 아래처럼 화면에 뿌리려는데 오류가 나고, db에 저장 방법을 모르겠습니다. 좀 도와주세요 ㅜ.ㅜ
> > procedure TB03Form.EdCodeChange(Sender: TObject);
> var Q1:TQuery;
> sSql:String; // 여기선 이 변수는 쓰지 않는데..? 흐미.. 설정하신
> 이유가 모르겠어여...ㅠ,.ㅠ
> begin
> //이미 등록된 자료이면 내용을 보여준다.
> Q1 := TQuery.Create(Self);
> Q1.DataBaseName := AliasName;
>
> with q1 do begin
> Sql.Clear;
> Sql.Add('Select * From CustCode Where Code = :edcode);
> parmbyname('edcode').assting := TRIM(EdCode.TEXT);
> //Sql.Add(sSql); <--- 군데 이건 뭐죠..? 조건문도 아닐테고...흐미..
> 우선 주석 처리
> Open;
> Edname.Text := FieldByName('Name').AsString;
> Edno.Text := FieldByName('No').AsString;
> EdBDate.Text := FieldByName('BDate').AsString;
> EdAddrNo.Text := FieldByName('AddrNo').AsString;
> EdAddr1.Text := FieldByName('Addr1').AsString;
> EdAddr2.Text := FieldByName('Addr2').AsString;
> EdTel1.Text := FieldByName('Tel1').AsString;
> EdTel2.Text := FieldByName('Tel2').AsString;
> EdFDate.Text := FieldByName('FDate').AsString;
> Close;
> Free;
> end;
> > -----------------------------------------------
> 아래는 입력 루틴입니다. 꼭 좀 도와주세요
> begin
> sSql := 'Insert into CustSm (Code,Name,No,BDate,AddrNo,Addr1,Addr2,Tel1,Tel2,FDate) '+
> ' Values (:PCode,:PName,:PNo,:PBDate,:PAddrNo,:PAddr1,:PAddr2,:PTel1,:PTel2,:PFDate) ';
> with q1 do begin
> Sql.Add(sSql);
> ParamByName('PCode').asstring := Trim(EdCode.Text);
> ParamByName('PName').asstring := Trim(EdName.Text);
> ParamByName('PNo').asstring := Trim(EdNo.Text);
> ParamByName('PBDate').asDate := StrToDate(EdBDate.Text);
> ParamByName('PAddrNo').asstring := Trim(EdAddrNo.Text);
> ParamByName('PAddr1').asstring := Trim(EdAddr1.Text);
> ParamByName('PAddr2').asstring := Trim(EdAddr2.Text);
> ParamByName('PTel1').asstring := Trim(EdTel1.Text);
> ParamByName('PTel2').asstring := Trim(EdTel2.Text);
> ParamByName('PFDate').asDate := StrToDate(EdFDate.Text);
> execsql; // 이걸해야 insert문이 먹어염...흐미 군데 updateobject에
> updatesql 설정했죠.. 안하믄 안되여...
> end;
> end;
>
> 군데여...
> 이루틴이 edcodechange에서 다 도는건 아니져..
> 음냥..저기여 문제점..
> 우선 첫번째 소스는 입력하는 에디트에서 변화가 생길때마다 sql문이 돌아가는데..
> 그러면 한자한자 입력할때 쿼리를 돌리면 흐미..ㅡㅡ;
> 차라리 입력에디트에 key값을 넣어서 엔터키를 치면 돌리다던지.. 구렇게 해야 하지
> 않을까..?
> 그럼 제가 한번 소스를 만들어 볼께여.. 저도 잘은 모르지만 이렇게 해야하지 않을까
> 싶어서여..
> procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
> var
> sqlstr : string;
> begin
> if key = #13 then begin // 엔터키가 눌러졌다면.. 쿼리를 돌린다..
> sqlstr := 'Select * From CustCode Where Code = :edcode';
> with query1 do begin
> close;
> sql.clear;
> sql.add(sqlstr);
> parmbyname('edcode').assting := TRIM(EdCode.TEXT);
> open;
> // 참여기서 조건문 하나 추가 만약 데이타가 있다면 에디트에 보여준다..
> if fieldbyname('code').asstring <> '' then begin // null이 아닌지 비교
> Edname.Text := FieldByName('Name').AsString; // null이 아니면 데이타
> Edno.Text := FieldByName('No').AsString; // 가 있으니 에디트
> EdBDate.Text := FieldByName('BDate').AsString;// 박스에 넣는다.
> EdAddrNo.Text := FieldByName('AddrNo').AsString;
> EdAddr1.Text := FieldByName('Addr1').AsString;
> EdAddr2.Text := FieldByName('Addr2').AsString;
> EdTel1.Text := FieldByName('Tel1').AsString;
> EdTel2.Text := FieldByName('Tel2').AsString;
> EdFDate.Text := FieldByName('FDate').AsString;
> end else exit;
> end;
> end;
> procedure TForm1.FormActivate(Sender: TObject);
> begin
> Query1 := TQuery.Create(Self); // 데이터베이스 설정..
> Query1.DataBaseName := AliasName;
> end;
> procedure TForm1.Button1Click(Sender: TObject);
> var
> sqlstr : string;
> begin
> sqlstr := 'Insert into CustSm (Code,Name,No,BDate,AddrNo,Addr1,Addr2,Tel1,Tel2,'+
> 'FDate) + Values :PCode,:PName,:PNo,:PBDate,:PAddrNo,:PAddr1,:PAddr2,'+
> ':PTel1,:PTel2,:PFDate) ';
>
> with query1 do begin
> Sql.Add(sSql);
> ParamByName('PCode').asstring := Trim(EdCode.Text);
> ParamByName('PName').asstring := Trim(EdName.Text);
> ParamByName('PNo').asstring := Trim(EdNo.Text);
> ParamByName('PBDate').asDate := StrToDate(EdBDate.Text);
> ParamByName('PAddrNo').asstring := Trim(EdAddrNo.Text);
> ParamByName('PAddr1').asstring := Trim(EdAddr1.Text);
> ParamByName('PAddr2').asstring := Trim(EdAddr2.Text);
> ParamByName('PTel1').asstring := Trim(EdTel1.Text);
> ParamByName('PTel2').asstring := Trim(EdTel2.Text);
> ParamByName('PFDate').asDate := StrToDate(EdFDate.Text);
> execsql;
> end;
> end;
> 쩝..
> 함 요렇게두 하면 더 좋을것 같아여... 도움이 됐는지 모르겠네여.. 구럼 이만..
(NOTICE) You must be logged in to comment on this post.
-
- 김서현
- •
- 2001.04.17 19:25
- 1 COMMENTS
- /
- 0 LIKES
-
장종훈•2001.04.18 00:51김서현 wrote: > 두개이상의 aliasname(db 이름) 이 다른 table들을 join하여 delphi 소스 내에서 query문...
-
- 델피
- •
- 2001.04.17 19:11
- 1 COMMENTS
- /
- 0 LIKES
-
이진수•2001.04.17 21:32밑에 예제 참조하세요~ var cnt : integer; FormularNames : TStringList; begin Crpe1.For...
-
- 처음
- •
- 2001.04.17 18:34
- 6 COMMENTS
- /
- 0 LIKES
-
박일용•2001.04.17 18:41
-
처음•2001.04.17 19:49
-
최용일•2001.04.17 20:40
-
tomhea•2001.04.17 19:57
-
하기•2001.04.17 20:17
-
처음•2001.04.17 20:47
-
- 코피
- 2001.04.17 12:45
- 0 COMMENTS
- /
- 0 LIKES
-
- 김성열
- 2001.04.17 11:15
- 0 COMMENTS
- /
- 0 LIKES
-
-
- 궁금이
- •
- 2001.04.17 09:26
- 1 COMMENTS
- /
- 0 LIKES
-
이희정•2001.04.17 20:14궁금이 wrote: > 제가 잘못 찾았는지는 모르지만 보이지를 않는군요... > 버튼으로 insert 시 DbGrid에 ...
-
- ☆푸린★
- •
- 2001.04.17 08:58
- 1 COMMENTS
- /
- 0 LIKES
-
칠라기•2001.04.17 09:16두개의 프로그램을 실행시키고 다른 하나의 프로그램을 감시할려면 시스템 후킹을 써야 하는걸로 알고 있...
-
- 이명학
- •
- 2001.04.17 08:16
- 3 COMMENTS
- /
- 0 LIKES
-
송종석•2001.04.17 23:27QuotedStr함수나 AnsiQuotedStr함수를 사용해 보세요. 도움말을 참고하시면 됩니다. 이명학 wrote: > ...
-
이희정•2001.04.17 20:20이명학 wrote: > TQuery문을 이용하여 String으로 된 SQL문장을 할당하여 실행을 시켰습니다. > 그런데 '...
-
이명학•2001.04.17 21:11답변 감사드립니다. 그런데 제가 다른 방식으로 테스트를 해 보았거든요. 즉.. 간단하게 데이터베이스를 ...
-
- 구리구리
- •
- 2001.04.17 07:50
- 1 COMMENTS
- /
- 0 LIKES
-
이가을•2001.04.17 18:25구리구리 wrote: > 버튼을 클릭하면 인터넷익스플로러가 실행되구여. > 제가 정한 싸이트가 첨에 딱! 뜨...
-
-
^-_-^•2001.04.17 09:02yo` 간단하게 하실려면 Paradox DB(이건 델파이깔면 생기져 -_-;; 이렇게 표현을 해야하나?) 아니면 DBF...
-
-
- 왕초보
- •
- 2001.04.17 02:17
- 2 COMMENTS
- /
- 0 LIKES
-
왕초보•2001.04.17 19:42왕초보 wrote: > 안녕하세요. > 왕초보입니다. > 다음과 같이 배열을 선언한후 .... > > RcvBuffer: ...
-
박일용•2001.04.17 18:30왕초보 wrote: > 안녕하세요. > 왕초보입니다. > 다음과 같이 배열을 선언한후 .... > > RcvBuffer: ...
-
- 정성훈
- 2001.04.17 02:17
- 0 COMMENTS
- /
- 0 LIKES
-
- 왕초보민정
- •
- 2001.04.17 02:30
- 2 COMMENTS
- /
- 0 LIKES
안녕하세요 꼭 좀 도와주세요. db는 파라독스이고 날짜형으로 지정 했습니다. 그리고 code는 숫자형(i)으로 지정했는데 아래처럼 화면에 뿌리려는데 오류가 나고, db에 저장 방법을 모르겠습니다. 좀 도와주세요 ㅜ.ㅜ procedure TB03Form...-
모름이•2001.04.17 03:20제가 소스좀 고쳐 볼께여... ^^; 왕초보민정 wrote: > 안녕하세요 꼭 좀 도와주세요. > db는 파라독스이...
-
왕초보민정•2001.04.17 04:32정성스런 답변에 감사드립니다. 그런데 모르는게 넘 많아서 님 메일주소로 멜 발송했습니다. 확인좀 해주...
-
- 완전초보
- •
- 2001.04.17 01:37
- 1 COMMENTS
- /
- 0 LIKES
-
모름이•2001.04.17 02:31완전초보 wrote: > 현금출납장에 사용할 dbgrid에 매입table과 매출table를 연결하여 dbgrid의 매입항목에...
-
- 강영구
- •
- 2001.04.17 01:35
- 1 COMMENTS
- /
- 0 LIKES
-
tomhea•2001.04.17 19:00강영구 wrote: > 자주 들르게 되네요.. > 아직 답은 못하고 질문만 올리지만 > 언젠간 답을 올릴 수 있...
-
- 델초보~
- •
- 2001.04.17 00:58
- 3 COMMENTS
- /
- 0 LIKES
-
^-_-^•2001.04.17 18:48yo` 흠...TSearchRec 의 Time, Size를 이용하시면 됩니다. bLue bLood. 델초보~ wrote: > 조건...
-
델초보~•2001.04.17 19:20^-_-^ wrote: > yo` > > 흠...TSearchRec 의 Time, Size를 이용하시면 됩니다. > > bLue bLood. > ...
-
^-_-^•2001.04.18 03:36yo` procedure TForm1.Button3Click(Sender: TObject); var TAttr: TSearchRec; begin F...
-
- 왕초보...
- 2001.04.17 00:48
- 0 COMMENTS
- /
- 0 LIKES
-
- 김광수
- 2001.04.16 23:45
- 0 COMMENTS
- /
- 0 LIKES
-
- 라반
- •
- 2001.04.16 23:43
- 1 COMMENTS
- /
- 0 LIKES
-
김병식•2001.04.17 08:46델파이에서 생성하는 파일중에 확장자가 ~dfm이 있을겁니다. 요파일이 해당 폼의 백업본인데 요파일을 확장...
왕초보민정 wrote:
> 안녕하세요 꼭 좀 도와주세요.
> db는 파라독스이고 날짜형으로 지정 했습니다. 그리고 code는 숫자형(i)으로 지정했는데
> 아래처럼 화면에 뿌리려는데 오류가 나고, db에 저장 방법을 모르겠습니다. 좀 도와주세요 ㅜ.ㅜ
> procedure TB03Form.EdCodeChange(Sender: TObject);
var Q1:TQuery;
sSql:String; // 여기선 이 변수는 쓰지 않는데..? 흐미.. 설정하신
이유가 모르겠어여...ㅠ,.ㅠ
begin
//이미 등록된 자료이면 내용을 보여준다.
Q1 := TQuery.Create(Self);
Q1.DataBaseName := AliasName;
with q1 do begin
Sql.Clear;
Sql.Add('Select * From CustCode Where Code = :edcode);
parmbyname('edcode').assting := TRIM(EdCode.TEXT);
//Sql.Add(sSql); <--- 군데 이건 뭐죠..? 조건문도 아닐테고...흐미..
우선 주석 처리
Open;
Edname.Text := FieldByName('Name').AsString;
Edno.Text := FieldByName('No').AsString;
EdBDate.Text := FieldByName('BDate').AsString;
EdAddrNo.Text := FieldByName('AddrNo').AsString;
EdAddr1.Text := FieldByName('Addr1').AsString;
EdAddr2.Text := FieldByName('Addr2').AsString;
EdTel1.Text := FieldByName('Tel1').AsString;
EdTel2.Text := FieldByName('Tel2').AsString;
EdFDate.Text := FieldByName('FDate').AsString;
Close;
Free;
end;
> -----------------------------------------------
아래는 입력 루틴입니다. 꼭 좀 도와주세요
begin
sSql := 'Insert into CustSm (Code,Name,No,BDate,AddrNo,Addr1,Addr2,Tel1,Tel2,FDate) '+
' Values (:PCode,:PName,:PNo,:PBDate,:PAddrNo,:PAddr1,:PAddr2,:PTel1,:PTel2,:PFDate) ';
with q1 do begin
Sql.Add(sSql);
ParamByName('PCode').asstring := Trim(EdCode.Text);
ParamByName('PName').asstring := Trim(EdName.Text);
ParamByName('PNo').asstring := Trim(EdNo.Text);
ParamByName('PBDate').asDate := StrToDate(EdBDate.Text);
ParamByName('PAddrNo').asstring := Trim(EdAddrNo.Text);
ParamByName('PAddr1').asstring := Trim(EdAddr1.Text);
ParamByName('PAddr2').asstring := Trim(EdAddr2.Text);
ParamByName('PTel1').asstring := Trim(EdTel1.Text);
ParamByName('PTel2').asstring := Trim(EdTel2.Text);
ParamByName('PFDate').asDate := StrToDate(EdFDate.Text);
execsql; // 이걸해야 insert문이 먹어염...흐미 군데 updateobject에
updatesql 설정했죠.. 안하믄 안되여...
end;
end;
군데여...
이루틴이 edcodechange에서 다 도는건 아니져..
음냥..저기여 문제점..
우선 첫번째 소스는 입력하는 에디트에서 변화가 생길때마다 sql문이 돌아가는데..
그러면 한자한자 입력할때 쿼리를 돌리면 흐미..ㅡㅡ;
차라리 입력에디트에 key값을 넣어서 엔터키를 치면 돌리다던지.. 구렇게 해야 하지
않을까..?
그럼 제가 한번 소스를 만들어 볼께여.. 저도 잘은 모르지만 이렇게 해야하지 않을까
싶어서여..
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var
sqlstr : string;
begin
if key = #13 then begin // 엔터키가 눌러졌다면.. 쿼리를 돌린다..
sqlstr := 'Select * From CustCode Where Code = :edcode';
with query1 do begin
close;
sql.clear;
sql.add(sqlstr);
parmbyname('edcode').assting := TRIM(EdCode.TEXT);
open;
// 참여기서 조건문 하나 추가 만약 데이타가 있다면 에디트에 보여준다..
if fieldbyname('code').asstring <> '' then begin // null이 아닌지 비교
Edname.Text := FieldByName('Name').AsString; // null이 아니면 데이타
Edno.Text := FieldByName('No').AsString; // 가 있으니 에디트
EdBDate.Text := FieldByName('BDate').AsString;// 박스에 넣는다.
EdAddrNo.Text := FieldByName('AddrNo').AsString;
EdAddr1.Text := FieldByName('Addr1').AsString;
EdAddr2.Text := FieldByName('Addr2').AsString;
EdTel1.Text := FieldByName('Tel1').AsString;
EdTel2.Text := FieldByName('Tel2').AsString;
EdFDate.Text := FieldByName('FDate').AsString;
end else exit;
end;
end;
procedure TForm1.FormActivate(Sender: TObject);
begin
Query1 := TQuery.Create(Self); // 데이터베이스 설정..
Query1.DataBaseName := AliasName;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
sqlstr : string;
begin
sqlstr := 'Insert into CustSm (Code,Name,No,BDate,AddrNo,Addr1,Addr2,Tel1,Tel2,'+
'FDate) + Values :PCode,:PName,:PNo,:PBDate,:PAddrNo,:PAddr1,:PAddr2,'+
':PTel1,:PTel2,:PFDate) ';
with query1 do begin
Sql.Add(sSql);
ParamByName('PCode').asstring := Trim(EdCode.Text);
ParamByName('PName').asstring := Trim(EdName.Text);
ParamByName('PNo').asstring := Trim(EdNo.Text);
ParamByName('PBDate').asDate := StrToDate(EdBDate.Text);
ParamByName('PAddrNo').asstring := Trim(EdAddrNo.Text);
ParamByName('PAddr1').asstring := Trim(EdAddr1.Text);
ParamByName('PAddr2').asstring := Trim(EdAddr2.Text);
ParamByName('PTel1').asstring := Trim(EdTel1.Text);
ParamByName('PTel2').asstring := Trim(EdTel2.Text);
ParamByName('PFDate').asDate := StrToDate(EdFDate.Text);
execsql;
end;
end;
쩝..
함 요렇게두 하면 더 좋을것 같아여... 도움이 됐는지 모르겠네여.. 구럼 이만..