procedure Tmainform.SpeedButton4Click(Sender: TObject);

var

a,b,c,d,e,f,k,j,g,s:string;

begin

speedbutton4.tag:=1;

b:=combobox4.text;

c:=combobox3.text;

e:=edit1.text;

f:=edit3.text;

g:=edit2.text;

d:=combobox2.text;

if radiobutton1.Checked=true then j:='1'

else if radiobutton2.Checked=true then j:='2'; //검사구분

if radiobutton3.Checked=true then k:='1'

else if radiobutton4.Checked=true then k:='2'; //검사결과

if k='1'then

s:='1';

if k='2' then

s:='2';



with query6 do

begin

close;

sql.Clear;

sql.Add('select 공정코드 from 공정명세');

sql.Add('where 공정구분="'+combobox1.text+'"');

sql.Add(' and 공정명 ="'+combobox5.Text+'"');

open;





end;

if not query6.Eof then

begin

a:=query6.fieldbyname('공정코드').asstring;

end;

if (b='') or (c='') or (g='') or(e='') or(f='')or(a='') then begin

messagedlg('입력내용이 부족합니다.',mtwarning,[mbok],0);

exit;

end;



with query7 do

begin

Close;

SQL.Clear;

SQL.Add('insert into 검사명세.db (조처결과,공정코드,고객명,제품명,검사구분,');

sql.Add('검사수량,합격수량,불량수량,검사일자,입력일자,검사결과,');

sql.Add('검사자) values('''+s+''','''+a+''','''+b+''','''+c+''','''+j+''',');

sql.Add(''''+e+''','''+f+''','''+g+''',:nowdate1,:nowdate2,');

sql.Add(''''+k+''','''+d+''')');

parambyname('nowdate1').asdatetime:=datetimepicker1.Date;

parambyname('nowdate2').asdatetime:=datetimepicker2.Date;

try

ExecSQL;

except

showmessage('저장 중 에러발생 전산실로 문의바람!');

exit;

end;

end;

if k='1' then

begin

form8:=Tform8.Create(self);

form8.Showmodal;

end

else begin

if messagedlg('불량등록 할 내용이 있습니까?',mtinformation,mbyesnocancel,0)= mryes then

begin

showwindow(handle,sw_hide);

form6.showmodal;

end;

end;



end;





열시미 공부하시와엽 ^^ 빠이루

한미르 wrote:

> 도와 주세요...몇일째....흑흑..!!답답...

> 폼에 데이터를 입력하구..등록번튼을 눌르면..그 데이터들이 테이블안으로 들어갈수 있는 소스좀 알려 주세여.....내?

> (테이블은 Access를 썼구요...테이블명은"kid.mdb"임다...)

>

> 글구요..~우편번호 찾기를 만들려고 하거든요.....그럼 처음에 뭘부터 해야할까요??

> 새로 바뀐 우편번호 자료는 찾아놨는데...테이블을 만들어야 하나요??





음... 일단 delphi책의 database부분을 한번 보시는게 좋을 것 같구요



우편번호 검색 소스가 필요하다면 제게 메일주소를 알려주세요

제가 하고 있는 업무중에 우편번호 검색하는 화면이 있거든요

그 소스를 보내드릴게요

하지만 소스를 보고 편집하는 것보다는 책을 보며 연구하는게 더 좋을것 같네요

물고기보다는 낚시하는 법을 배우는게 좋다는 선현의 말씀처럼요...

한미르 wrote:

> 도와 주세요...몇일째....흑흑..!!답답...

> 폼에 데이터를 입력하구..등록번튼을 눌르면..그 데이터들이 테이블안으로 들어갈수 있는 소스좀 알려 주세여.....내?

> (테이블은 Access를 썼구요...테이블명은"kid.mdb"임다...)

>

> 글구요..~우편번호 찾기를 만들려고 하거든요.....그럼 처음에 뭘부터 해야할까요??

> 새로 바뀐 우편번호 자료는 찾아놨는데...테이블을 만들어야 하나요??



table.insert;

table.fieldByname('XXX').value:=Trim(Edit1.text);

table.Post;

table.Refresh;(query는 close시킨후 다시 open);



SQL : Insert into (필드명) values(데이터)

open을 하지 말고 execsql...

이런 죄송하지만 다시 공부하심이... 책에 잘 나와있습니다.

도움이 되었는지 모르겠습니다. 열심히 공부하세요.

그리고 자료는 데이터화일이 아닌가요? 데이터 화일이면 자체가 테이블이잖아요.

그대로 불러서 사용하세요.

답변주신 분들 정말..마니마니 감사함다......!!

답변해 주신 여러분이 있어서 힘이 나네요.......

열심히 해서....좀더 수준 높은 질문하도록 할께여...

염치없지만..계속 많은 도움 주시기 바랄께여....!!

열분다...즐코하시구요....항상 행복하세여...!!