일반 개발에 있어 저장, 수정, 조회, 삭제 중에 저장과 수정과 조회는

같치 움직인다고 보시면됩니다. 입력,수정,삭제,조회가 빈번하다면

일반사용자들이 데이타를 조작할때 이버튼 저버튼 눌러야하니 엄청

손아푸겠지요.. 그사람들도 일을 단순하게 빨리 끝내고 싶어하니깐...

참고하세용...^^;
procedure TForm1.Button1Click(Sender: TObject);
begin
    with Query1 do begin
      Close;
      SQL.Clear;
      SQL.Add('SELECT COUNT(*) FROM db_wizard WHERE a_id = :a_id');
        ParamByName('a_id').AsString := Edit1.Text;
      Open;

      if Fields[0].AsInteger >= 1 then begin
        SQL.Clear;
        SQL.Add(' UPDATE db_wizard ');
        SQL.Add(' SET A_name = :a_name, A_address = :a_address, A_phone = :a_phone ');
        SQL.Add(' WHERE A_id = :a_id ')
      end
      else  begin
        SQL.Clear;
        SQL.Add(' INSERT INTO db_wizard(A_id, A_name, A_address, A_Phone) ');
        SQL.Add(' VALUES (:a_id, :a_name, :a_address, :a_phone) ');
      end;

      ParamByName('a_id').AsString := Edit1.Text;
      ParamByName('a_name').AsString := Edit2.Text;
      ParamByName('a_address').AsString := Edit3.Text;
      ParamByName('a_phone').AsString := Edit4.Text;

      ExecSQL;
    end; // with
    Query2.Close;  
    Query2.Open;

    clear;
end;