with query2 do begin
     Close;  
     sql.clear;
     sql.add('update cruxdiary ');
     sql.add('set d_memo = :d_memo ');
     sql.add('where d_date = :d_date');
     parambyname('d_date').AsDateTime := StrToDateTime(maskedit1.text);
     parambyname('d_memo').AsString := memo1.text;
     //d_memo가 메모필드이면 다른방법으로 입력해야 함(TTable를 사용)
     ExecSql;
   end;