^^ wrote:

> 안녕하세여

> 전 델파이 초보자 이거든요.

> 제발 아시는 분 알려주세요

>

> <질문>

>

> 버튼을 누를면 값을 읽어서 레고드를 지우거나 데이타를 수정하려고 합니다

> 어떤식으로 해야하는지 좀 알려주세요

> 그리고 구체적으로 알려주시면 감사하겠습니다.

> 제가 워낙 초보라 자세하게좀 알려주세요

> 소스를 올려주시면 더 감사하겠습니가.

>

>



음..기건 찾아보시면 자료 많으실텐데..

저두 초보구 잘 몰라서 아는 정도만 올립니다.



Query1나만 쓰겠습니다. Datasource, DBGrid 폼에 올리구요

DB이름은 Master로

필드는 AAA,BBB,CCC 이고 AAA가 키라고 가정할께요

그리고 AAA=Edit1, BBB=Edit2, CCC=Edit3으로 값을 잡아옵니다.



프로시저를 하나 만들겠습니다.

이름은 DBWork( iSel : Byte );

DBWork 의 인자가 0 은 전체조회, 1은 삽입, 2는 수정, 3은 삭제입니다.

버튼이벤트에는 DBWord( 인자값 ) 을 호출하시면 됩니다.



procedure TForm1.DBWord( iSel : Byte );

begin

with Query1 do

begin

Close;

SQL.Clear;



case iSel of

0 : begin

SQL.Add( 'Select * From Master' );

SQL.Add( 'Order By AAA' );

end;

1 : begin

SQL.Add( 'Insert Into Master Values' );

SQL.Add( '(' );

SQL.Add( '''' + Edit1.Text + ''',' );

SQL.Add( '''' + Edit2.Text + ''',' );

SQL.Add( '''' + Edit3.Text + '''' );

SQL.Add( ')' );

end;

2 : begin

SQL.Add( 'Update Master Set' );

SQL.Add( 'BBB = ''' + Edit2.Text + ''',' );

SQL.Add( 'CCC = ''' + Edit3.Text + '''' );

SQL.Add( 'Where AAA = ''' + Edit1.Text + '''' );

end;

3 : begin

SQL.Add( 'Delete From Master' );

SQL.Add( 'Where AAA = ''' + Edit1.Text + '''' );

end;

end;

ExecSQL;



end;