Q&A
- 쿼리에서 데이타베이스에 중복을 없앨려구...
성적처러프로그램을 짜구 있는데...학번필들와 이름필드의 중복을 없앨려구 하거든여...
이미 입력은 파라바이네임을 써서 하구 있는데..중복을 하면 무결성 원칙의 에러라구
하거든여...
어떻게 방법이 없나여?
소스는 아래와 같습니다...
procedure TForm3.btnSaveClick(Sender: TObject);
var
i : integer;
a,b,c,d,e,f,g : string;
begin
a:=Edit1.text;
b:=Edit2.text;
c:=Edit3.text;
d:=Edit4.text;
e:=Edit5.text;
f:=Edit6.text;
g:=Edit7.text;
if (strtoint(c)<1) or (strtoint(c)>100) then
begin
showmessage('올바르지 않는 점수 입니다.');
edit3.clear;
edit3.setfocus;
exit;
end;
if (strtoint(d)<1) or (strtoint(d)>100) then
begin
showmessage('올바르지 않는 점수 입니다.');
edit4.clear;
edit4.setfocus;
exit;
end;
if (strtoint(e)<1) or (strtoint(e)>100) then
begin
showmessage('올바르지 않는 점수 입니다.');
edit5.clear;
edit5.setfocus;
exit;
end;
if (strtoint(f)<1) or (strtoint(f)>100) then
begin
showmessage('올바르지 않는 점수 입니다.');
edit6.clear;
edit6.setfocus;
exit;
end;
if (strtoint(g)<1) or (strtoint(g)>100) then
begin
showmessage('올바르지 않는 점수 입니다.');
edit7.clear;
edit7.setfocus;
exit;
end;
with Query1 do begin
Close;
Sql.Text := 'insert into Total (NUM,NAME,DAT,UNIX,DEL,JAVA,C)';
Sql.Text := Sql.Text + ' values (:NUM, :NAME, :DAT, :UNIX, :DEL, :JAVA, :C) ';
Parambyname('NUM').asinteger :=strtointdef(Edit1.Text,0);
Parambyname('NAME').AsString:=Edit2.Text;
Parambyname('DAT').asinteger :=strtointdef(Edit3.Text,0);
Parambyname('UNIX').asinteger :=strtointdef(Edit4.Text,0);
Parambyname('DEL').asinteger :=strtointdef(Edit5.Text,0);
Parambyname('JAVA').asinteger :=strtointdef(Edit6.Text,0);
Parambyname('C').asinteger :=strtointdef(Edit7.Text,0);
ExecSQL;
end;
with Query2 do begin
Close;
Open;
end;
edit1.Clear;
edit2.Clear;
edit3.Clear;
edit4.Clear;
edit5.Clear;
edit6.Clear;
edit7.Clear;
end;
이미 입력은 파라바이네임을 써서 하구 있는데..중복을 하면 무결성 원칙의 에러라구
하거든여...
어떻게 방법이 없나여?
소스는 아래와 같습니다...
procedure TForm3.btnSaveClick(Sender: TObject);
var
i : integer;
a,b,c,d,e,f,g : string;
begin
a:=Edit1.text;
b:=Edit2.text;
c:=Edit3.text;
d:=Edit4.text;
e:=Edit5.text;
f:=Edit6.text;
g:=Edit7.text;
if (strtoint(c)<1) or (strtoint(c)>100) then
begin
showmessage('올바르지 않는 점수 입니다.');
edit3.clear;
edit3.setfocus;
exit;
end;
if (strtoint(d)<1) or (strtoint(d)>100) then
begin
showmessage('올바르지 않는 점수 입니다.');
edit4.clear;
edit4.setfocus;
exit;
end;
if (strtoint(e)<1) or (strtoint(e)>100) then
begin
showmessage('올바르지 않는 점수 입니다.');
edit5.clear;
edit5.setfocus;
exit;
end;
if (strtoint(f)<1) or (strtoint(f)>100) then
begin
showmessage('올바르지 않는 점수 입니다.');
edit6.clear;
edit6.setfocus;
exit;
end;
if (strtoint(g)<1) or (strtoint(g)>100) then
begin
showmessage('올바르지 않는 점수 입니다.');
edit7.clear;
edit7.setfocus;
exit;
end;
with Query1 do begin
Close;
Sql.Text := 'insert into Total (NUM,NAME,DAT,UNIX,DEL,JAVA,C)';
Sql.Text := Sql.Text + ' values (:NUM, :NAME, :DAT, :UNIX, :DEL, :JAVA, :C) ';
Parambyname('NUM').asinteger :=strtointdef(Edit1.Text,0);
Parambyname('NAME').AsString:=Edit2.Text;
Parambyname('DAT').asinteger :=strtointdef(Edit3.Text,0);
Parambyname('UNIX').asinteger :=strtointdef(Edit4.Text,0);
Parambyname('DEL').asinteger :=strtointdef(Edit5.Text,0);
Parambyname('JAVA').asinteger :=strtointdef(Edit6.Text,0);
Parambyname('C').asinteger :=strtointdef(Edit7.Text,0);
ExecSQL;
end;
with Query2 do begin
Close;
Open;
end;
edit1.Clear;
edit2.Clear;
edit3.Clear;
edit4.Clear;
edit5.Clear;
edit6.Clear;
edit7.Clear;
end;
4
COMMENTS
-
-
감사합니다...
그런데...
SHOWMESSAGE 는 나오지 안는데여...
참..어찌됐든...감사합니다..
그것은 제가 처리하겠습니다.
사발우성 wrote:
> 왕처버 사발임당...
> 님께서 원하는건 아마두 중복입력을 막을라구 하는거 같은디 그건가여 ^^;;
> 간단하게 할수 있을거 같네여 ^^;;
> 음 구라니까 insert전에
> sql.text := 'select * from total where num= :num and name = :name ';
> Parambyname('NUM').asinteger :=strtointdef(Edit1.Text,0);
> Parambyname('NAME').AsString:=Edit2.Text;
> if not eof then
> begin
> showmessage('^^ 등록되었있다네...');
> exit;
> end;
> 이렇게 하면 끝 ^^;;
> 구람 즐프여...^^;;
> 피에수: 아래 try ... except 예외처리 추가 했습니당..^^;;
> 델파이초보 wrote:
> > 성적처러프로그램을 짜구 있는데...학번필들와 이름필드의 중복을 없앨려구 하거든여...
> > 이미 입력은 파라바이네임을 써서 하구 있는데..중복을 하면 무결성 원칙의 에러라구
> > 하거든여...
> > 어떻게 방법이 없나여?
> > 소스는 아래와 같습니다...
> >
> > procedure TForm3.btnSaveClick(Sender: TObject);
> > var
> > i : integer;
> > a,b,c,d,e,f,g : string;
> >
> > begin
> > a:=Edit1.text;
> > b:=Edit2.text;
> > c:=Edit3.text;
> > d:=Edit4.text;
> > e:=Edit5.text;
> > f:=Edit6.text;
> > g:=Edit7.text;
> >
> >
> >
> >
> > if (strtoint(c)<1) or (strtoint(c)>100) then
> > begin
> > showmessage('올바르지 않는 점수 입니다.');
> > edit3.clear;
> > edit3.setfocus;
> > exit;
> > end;
> > if (strtoint(d)<1) or (strtoint(d)>100) then
> > begin
> > showmessage('올바르지 않는 점수 입니다.');
> > edit4.clear;
> > edit4.setfocus;
> > exit;
> > end;
> > if (strtoint(e)<1) or (strtoint(e)>100) then
> > begin
> > showmessage('올바르지 않는 점수 입니다.');
> > edit5.clear;
> > edit5.setfocus;
> > exit;
> > end;
> > if (strtoint(f)<1) or (strtoint(f)>100) then
> > begin
> > showmessage('올바르지 않는 점수 입니다.');
> > edit6.clear;
> > edit6.setfocus;
> > exit;
> > end;
> > if (strtoint(g)<1) or (strtoint(g)>100) then
> > begin
> > showmessage('올바르지 않는 점수 입니다.');
> > edit7.clear;
> > edit7.setfocus;
> > exit;
> > end;
> >
> > with Query1 do begin
> > Close;
> > Sql.Text := 'insert into Total (NUM,NAME,DAT,UNIX,DEL,JAVA,C)';
> > Sql.Text := Sql.Text + ' values (:NUM, :NAME, :DAT, :UNIX, :DEL, :JAVA, :C) ';
> > Parambyname('NUM').asinteger :=strtointdef(Edit1.Text,0);
> > Parambyname('NAME').AsString:=Edit2.Text;
> > Parambyname('DAT').asinteger :=strtointdef(Edit3.Text,0);
> > Parambyname('UNIX').asinteger :=strtointdef(Edit4.Text,0);
> > Parambyname('DEL').asinteger :=strtointdef(Edit5.Text,0);
> > Parambyname('JAVA').asinteger :=strtointdef(Edit6.Text,0);
> > Parambyname('C').asinteger :=strtointdef(Edit7.Text,0);
> try
> ExecSQL;
> except
> showmessage('error');
> end;
>
> > end;
> > with Query2 do begin
> > Close;
> > Open;
> > end;
> > edit1.Clear;
> > edit2.Clear;
> > edit3.Clear;
> > edit4.Clear;
> > edit5.Clear;
> > edit6.Clear;
> > edit7.Clear;
> >
> > end;
-
안녕하세요. 델초보 조덕진입니다.
예외처리를 하시면 될 것 같네요.
검색에서 "에외처리"로 찾으시면 많은 답변이 있습니다. 저도 이곳에서 예외처리에 관한 도움을 많이 받았죠.
간단히 설명을 드리면
try
Insert를 하기 위한 쿼리문
exeption
Insert시 에라가 발생했을 때의 처리
end;
부족한 답변이라 죄송하네요. 검색에서 꼭 찾아보세요.
그럼.. 즐프되세요..
델파이초보 wrote:
> 성적처러프로그램을 짜구 있는데...학번필들와 이름필드의 중복을 없앨려구 하거든여...
> 이미 입력은 파라바이네임을 써서 하구 있는데..중복을 하면 무결성 원칙의 에러라구
> 하거든여...
> 어떻게 방법이 없나여?
> 소스는 아래와 같습니다...
>
> procedure TForm3.btnSaveClick(Sender: TObject);
> var
> i : integer;
> a,b,c,d,e,f,g : string;
>
> begin
> a:=Edit1.text;
> b:=Edit2.text;
> c:=Edit3.text;
> d:=Edit4.text;
> e:=Edit5.text;
> f:=Edit6.text;
> g:=Edit7.text;
>
>
>
>
> if (strtoint(c)<1) or (strtoint(c)>100) then
> begin
> showmessage('올바르지 않는 점수 입니다.');
> edit3.clear;
> edit3.setfocus;
> exit;
> end;
> if (strtoint(d)<1) or (strtoint(d)>100) then
> begin
> showmessage('올바르지 않는 점수 입니다.');
> edit4.clear;
> edit4.setfocus;
> exit;
> end;
> if (strtoint(e)<1) or (strtoint(e)>100) then
> begin
> showmessage('올바르지 않는 점수 입니다.');
> edit5.clear;
> edit5.setfocus;
> exit;
> end;
> if (strtoint(f)<1) or (strtoint(f)>100) then
> begin
> showmessage('올바르지 않는 점수 입니다.');
> edit6.clear;
> edit6.setfocus;
> exit;
> end;
> if (strtoint(g)<1) or (strtoint(g)>100) then
> begin
> showmessage('올바르지 않는 점수 입니다.');
> edit7.clear;
> edit7.setfocus;
> exit;
> end;
>
> with Query1 do begin
> Close;
> Sql.Text := 'insert into Total (NUM,NAME,DAT,UNIX,DEL,JAVA,C)';
> Sql.Text := Sql.Text + ' values (:NUM, :NAME, :DAT, :UNIX, :DEL, :JAVA, :C) ';
> Parambyname('NUM').asinteger :=strtointdef(Edit1.Text,0);
> Parambyname('NAME').AsString:=Edit2.Text;
> Parambyname('DAT').asinteger :=strtointdef(Edit3.Text,0);
> Parambyname('UNIX').asinteger :=strtointdef(Edit4.Text,0);
> Parambyname('DEL').asinteger :=strtointdef(Edit5.Text,0);
> Parambyname('JAVA').asinteger :=strtointdef(Edit6.Text,0);
> Parambyname('C').asinteger :=strtointdef(Edit7.Text,0);
> ExecSQL;
> end;
> with Query2 do begin
> Close;
> Open;
> end;
> edit1.Clear;
> edit2.Clear;
> edit3.Clear;
> edit4.Clear;
> edit5.Clear;
> edit6.Clear;
> edit7.Clear;
>
> end;
-
지송하지만...거기가 봐두 잘 ...모르게습니다..
확실한 답변을...
조덕진 wrote:
> 안녕하세요. 델초보 조덕진입니다.
> 예외처리를 하시면 될 것 같네요.
> 검색에서 "에외처리"로 찾으시면 많은 답변이 있습니다. 저도 이곳에서 예외처리에 관한 도움을 많이 받았죠.
> 간단히 설명을 드리면
> try
> Insert를 하기 위한 쿼리문
> exeption
> Insert시 에라가 발생했을 때의 처리
> end;
>
> 부족한 답변이라 죄송하네요. 검색에서 꼭 찾아보세요.
>
> 그럼.. 즐프되세요..
>
>
> 델파이초보 wrote:
> > 성적처러프로그램을 짜구 있는데...학번필들와 이름필드의 중복을 없앨려구 하거든여...
> > 이미 입력은 파라바이네임을 써서 하구 있는데..중복을 하면 무결성 원칙의 에러라구
> > 하거든여...
> > 어떻게 방법이 없나여?
> > 소스는 아래와 같습니다...
> >
> > procedure TForm3.btnSaveClick(Sender: TObject);
> > var
> > i : integer;
> > a,b,c,d,e,f,g : string;
> >
> > begin
> > a:=Edit1.text;
> > b:=Edit2.text;
> > c:=Edit3.text;
> > d:=Edit4.text;
> > e:=Edit5.text;
> > f:=Edit6.text;
> > g:=Edit7.text;
> >
> >
> >
> >
> > if (strtoint(c)<1) or (strtoint(c)>100) then
> > begin
> > showmessage('올바르지 않는 점수 입니다.');
> > edit3.clear;
> > edit3.setfocus;
> > exit;
> > end;
> > if (strtoint(d)<1) or (strtoint(d)>100) then
> > begin
> > showmessage('올바르지 않는 점수 입니다.');
> > edit4.clear;
> > edit4.setfocus;
> > exit;
> > end;
> > if (strtoint(e)<1) or (strtoint(e)>100) then
> > begin
> > showmessage('올바르지 않는 점수 입니다.');
> > edit5.clear;
> > edit5.setfocus;
> > exit;
> > end;
> > if (strtoint(f)<1) or (strtoint(f)>100) then
> > begin
> > showmessage('올바르지 않는 점수 입니다.');
> > edit6.clear;
> > edit6.setfocus;
> > exit;
> > end;
> > if (strtoint(g)<1) or (strtoint(g)>100) then
> > begin
> > showmessage('올바르지 않는 점수 입니다.');
> > edit7.clear;
> > edit7.setfocus;
> > exit;
> > end;
> >
> > with Query1 do begin
> > Close;
> > Sql.Text := 'insert into Total (NUM,NAME,DAT,UNIX,DEL,JAVA,C)';
> > Sql.Text := Sql.Text + ' values (:NUM, :NAME, :DAT, :UNIX, :DEL, :JAVA, :C) ';
> > Parambyname('NUM').asinteger :=strtointdef(Edit1.Text,0);
> > Parambyname('NAME').AsString:=Edit2.Text;
> > Parambyname('DAT').asinteger :=strtointdef(Edit3.Text,0);
> > Parambyname('UNIX').asinteger :=strtointdef(Edit4.Text,0);
> > Parambyname('DEL').asinteger :=strtointdef(Edit5.Text,0);
> > Parambyname('JAVA').asinteger :=strtointdef(Edit6.Text,0);
> > Parambyname('C').asinteger :=strtointdef(Edit7.Text,0);
> > ExecSQL;
> > end;
> > with Query2 do begin
> > Close;
> > Open;
> > end;
> > edit1.Clear;
> > edit2.Clear;
> > edit3.Clear;
> > edit4.Clear;
> > edit5.Clear;
> > edit6.Clear;
> > edit7.Clear;
> >
> > end;
(NOTICE) You must be logged in to comment on this post.
-
- 열심히
- •
- 2001.01.18 23:48
- 1 COMMENTS
- /
- 0 LIKES
-
정재필•2001.01.19 14:37웹에서 실행할 거라면... ActiveX로 만들면 될 것 같은데요... 그럼 ^^;
-
- 초보
- •
- 2001.01.18 23:48
- 3 COMMENTS
- /
- 0 LIKES
-
강인규•2001.01.19 00:33그렇지 않은데여... 제가 혹시나 해서 A4 20장 분량을 입력한 결과 잘 드러갑니다. 디자인시에 사이즈를 ...
-
초보•2001.01.19 01:12감사 합니다 그럼 한가지더 궁금한게 있는데.... Query로 update를 해도 마찬가지로 들어 가는 지궁...
-
강인규•2001.01.19 02:29해보시면 될텐데 그럼 바로 알 수 있구....... 잘 드러갑니다. 제가 테스트해봤습니다. 미더주세여. ...
-
- MySql 맨
- 2001.01.18 23:37
- 0 COMMENTS
- /
- 0 LIKES
-
- 나그네..
- 2001.01.18 22:57
- 0 COMMENTS
- /
- 0 LIKES
-
- 델맨
- 2001.01.18 22:45
- 0 COMMENTS
- /
- 0 LIKES
-
- 정일준
- •
- 2001.01.18 23:14
- 1 COMMENTS
- /
- 0 LIKES
-
남걸호•2001.01.19 01:24정일준 wrote: > procedure TForm1.MysocketRead(Sender: TObject; Socket: TCustomWinSocket); > var >...
-
- 임소영
- •
- 2001.01.18 22:29
- 3 COMMENTS
- /
- 0 LIKES
-
델피언•2001.01.18 23:28근본적으로 TQuery는 TUpdateSQL을 사용하여 Navigator의 Refresh버턴이 enable상태에 있어도 물리적인 In...
-
임소영•2001.01.18 23:39답변 너무너무 감사합니다. 그리고 큰 도움이 될 듯 싶은데요.. 그렇다면.. FetchALL과 Locate 명령에 ...
-
성더기•2001.01.19 01:54GetBookmark와 GotoBookMark를 사용하시는게 더 나을듯한데여.. TmpBookmark := Query1.GetBookmark; ...
-
- 바보감자
- •
- 2001.01.18 22:08
- 1 COMMENTS
- /
- 0 LIKES
-
김광섭•2001.01.18 23:11바보감자 wrote: > 안녕하세여.. > 제가 구현하고싶은건말이죠.. > > edit1.setfocus; > 요겁니다.....
-
- kimwonbae
- 2001.01.18 21:45
- 0 COMMENTS
- /
- 0 LIKES
-
- 이승근
- •
- 2001.01.18 21:15
- 1 COMMENTS
- /
- 0 LIKES
-
크리스탈•2001.01.19 00:42이승근 wrote: > dbgrid에서만 작업을 하려고 합니다.. > 다른것은 다 처리했는데 맨 마지막 레코드에서 ...
-
- 이방인
- 2001.01.18 20:54
- 0 COMMENTS
- /
- 0 LIKES
-
- 델파이초보
- •
- 2001.01.18 20:47
- 4 COMMENTS
- /
- 0 LIKES
성적처러프로그램을 짜구 있는데...학번필들와 이름필드의 중복을 없앨려구 하거든여... 이미 입력은 파라바이네임을 써서 하구 있는데..중복을 하면 무결성 원칙의 에러라구 하거든여... 어떻게 방법이 없나여? 소스는 아래와 같습니다.....-
사발우성•2001.01.18 23:47왕처버 사발임당... 님께서 원하는건 아마두 중복입력을 막을라구 하는거 같은디 그건가여 ^^;; 간단하게...
-
델파이초보•2001.01.18 22:41감사합니다... 그런데... SHOWMESSAGE 는 나오지 안는데여... 참..어찌됐든...감사합니다.. 그것은 제...
-
조덕진•2001.01.18 20:56안녕하세요. 델초보 조덕진입니다. 예외처리를 하시면 될 것 같네요. 검색에서 "에외처리"로 찾으시면 많...
-
델파이초보•2001.01.18 21:16지송하지만...거기가 봐두 잘 ...모르게습니다.. 확실한 답변을... 조덕진 wrote: > 안녕하세요...
-
- 장철
- 2001.01.18 20:45
- 0 COMMENTS
- /
- 0 LIKES
-
- 조덕진
- 2001.01.18 20:43
- 0 COMMENTS
- /
- 0 LIKES
-
- 문청
- 2001.01.18 20:38
- 0 COMMENTS
- /
- 0 LIKES
-
- 바보
- •
- 2001.01.18 20:37
- 2 COMMENTS
- /
- 0 LIKES
-
공대규•2001.02.06 02:10저하고 같은 고민을 하시나 보네요... pusanssm.com/~smgal www.delphi-jedi.org 위 홈에 가 보세요. ...
-
바보•2001.02.08 02:31www.delphi-jedi.org 이곳에서.. Dshow에 대해서 셈플과 해더파일이 있더군요!! 어쨌든 감사 합니다. ...
-
- 이태일
- 2001.01.18 20:31
- 0 COMMENTS
- /
- 0 LIKES
-
- 맨
- •
- 2001.01.18 20:26
- 2 COMMENTS
- /
- 0 LIKES
-
강인규•2001.01.19 00:26아래와 같이 문장을 바꾸어보시져. Pchar형으로 입력해야 할 부분에 String이 들어가서 그렇습니다. ...
-
이태일•2001.01.18 20:33맨 wrote: > application.MessageBox(me_find.text + '에 해당하는 데이타가 없습니다.', '오류', MB_OK);...
-
- 이태일
- 2001.01.18 20:26
- 0 COMMENTS
- /
- 0 LIKES
-
- 델파이맨
- •
- 2001.01.18 20:16
- 1 COMMENTS
- /
- 0 LIKES
-
델초보•2001.01.19 19:02팁이나 QnA에서 StringGrid로 조회를 한번 해보세요.. 델파이 사이트에는 다 해답이 있는 것 같던데.. ...
님께서 원하는건 아마두 중복입력을 막을라구 하는거 같은디 그건가여 ^^;;
간단하게 할수 있을거 같네여 ^^;;
음 구라니까 insert전에
sql.text := 'select * from total where num= :num and name = :name ';
Parambyname('NUM').asinteger :=strtointdef(Edit1.Text,0);
Parambyname('NAME').AsString:=Edit2.Text;
open;
if not eof then
begin
showmessage('^^ 등록되어있다네...');
exit;
end;
이렇게 하면 끝 ^^;;
구람 즐프여...^^;;
피에수: 아래 try ... except 예외처리 추가 했습니당..^^;;
델파이초보 wrote:
> 성적처러프로그램을 짜구 있는데...학번필들와 이름필드의 중복을 없앨려구 하거든여...
> 이미 입력은 파라바이네임을 써서 하구 있는데..중복을 하면 무결성 원칙의 에러라구
> 하거든여...
> 어떻게 방법이 없나여?
> 소스는 아래와 같습니다...
>
> procedure TForm3.btnSaveClick(Sender: TObject);
> var
> i : integer;
> a,b,c,d,e,f,g : string;
>
> begin
> a:=Edit1.text;
> b:=Edit2.text;
> c:=Edit3.text;
> d:=Edit4.text;
> e:=Edit5.text;
> f:=Edit6.text;
> g:=Edit7.text;
>
>
>
>
> if (strtoint(c)<1) or (strtoint(c)>100) then
> begin
> showmessage('올바르지 않는 점수 입니다.');
> edit3.clear;
> edit3.setfocus;
> exit;
> end;
> if (strtoint(d)<1) or (strtoint(d)>100) then
> begin
> showmessage('올바르지 않는 점수 입니다.');
> edit4.clear;
> edit4.setfocus;
> exit;
> end;
> if (strtoint(e)<1) or (strtoint(e)>100) then
> begin
> showmessage('올바르지 않는 점수 입니다.');
> edit5.clear;
> edit5.setfocus;
> exit;
> end;
> if (strtoint(f)<1) or (strtoint(f)>100) then
> begin
> showmessage('올바르지 않는 점수 입니다.');
> edit6.clear;
> edit6.setfocus;
> exit;
> end;
> if (strtoint(g)<1) or (strtoint(g)>100) then
> begin
> showmessage('올바르지 않는 점수 입니다.');
> edit7.clear;
> edit7.setfocus;
> exit;
> end;
>
> with Query1 do begin
> Close;
> Sql.Text := 'insert into Total (NUM,NAME,DAT,UNIX,DEL,JAVA,C)';
> Sql.Text := Sql.Text + ' values (:NUM, :NAME, :DAT, :UNIX, :DEL, :JAVA, :C) ';
> Parambyname('NUM').asinteger :=strtointdef(Edit1.Text,0);
> Parambyname('NAME').AsString:=Edit2.Text;
> Parambyname('DAT').asinteger :=strtointdef(Edit3.Text,0);
> Parambyname('UNIX').asinteger :=strtointdef(Edit4.Text,0);
> Parambyname('DEL').asinteger :=strtointdef(Edit5.Text,0);
> Parambyname('JAVA').asinteger :=strtointdef(Edit6.Text,0);
> Parambyname('C').asinteger :=strtointdef(Edit7.Text,0);
try
ExecSQL;
except
showmessage('error');
end;
> end;
> with Query2 do begin
> Close;
> Open;
> end;
> edit1.Clear;
> edit2.Clear;
> edit3.Clear;
> edit4.Clear;
> edit5.Clear;
> edit6.Clear;
> edit7.Clear;
>
> end;